From d174b8b06f95396957021c6703897b81ead0a8ca Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 19 May 2020 09:22:37 -0400 Subject: Minor changes to attempt to improve button rendering in the AppGraphics renderer. --- ag_render.f90 | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/ag_render.f90 b/ag_render.f90 index 071f261..87b3a7a 100644 --- a/ag_render.f90 +++ b/ag_render.f90 @@ -202,7 +202,7 @@ contains type(appgraphics_renderer)::self - integer::x, address_width, label_x + integer::x, address_width, label_x, ignored ! See below where this is used... interface @@ -239,6 +239,9 @@ contains call settextboxposition(self%address_id, x, 2, address_width, 20) end if + ! Clears any drawing operations for controls quickly + ignored = switch_to_thread() + x = x + 10 + address_width if(self%go_button_id < 0) then self%go_button_id = createbutton(x, 2, 40, 20, "Go!", go_button_callback) @@ -247,7 +250,7 @@ contains end if ! Clears any drawing operations for controls quickly - x = switch_to_thread() + ignored = switch_to_thread() call setviewport(0, 0, getmaxx()+1, self%address_bar_height+1, .true.) call clearviewport() -- cgit v1.2.3