aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-19 09:22:37 -0400
committerJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-19 09:22:37 -0400
commitd174b8b06f95396957021c6703897b81ead0a8ca (patch)
tree75fa19dc22688bf68547a3e670607c7575b8b358
parent2492cdf6ce85963f2fe269b4d41fd09d92ccf277 (diff)
downloadLR-87-d174b8b06f95396957021c6703897b81ead0a8ca.tar.gz
LR-87-d174b8b06f95396957021c6703897b81ead0a8ca.zip
Minor changes to attempt to improve button rendering in the AppGraphics renderer.
-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()