diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-05-19 09:22:37 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-05-19 09:22:37 -0400 |
| commit | d174b8b06f95396957021c6703897b81ead0a8ca (patch) | |
| tree | 75fa19dc22688bf68547a3e670607c7575b8b358 | |
| parent | 2492cdf6ce85963f2fe269b4d41fd09d92ccf277 (diff) | |
| download | LR-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.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() |