aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ag_render.f907
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()