diff options
| -rw-r--r-- | ag_render.f90 | 7 |
1 files 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() |