aboutsummaryrefslogtreecommitdiff
path: root/dumb_render.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-14 17:37:50 -0400
committerJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-14 17:37:50 -0400
commit899de86b69bc3982b61fc25a8b1c7af74a0f30e9 (patch)
treef9096e19b2cac155557ea5fe256b9ccfd48d18c6 /dumb_render.f90
parente43a36b1a00a8b96585a9fb4b622645f9b5eb025 (diff)
downloadLR-87-899de86b69bc3982b61fc25a8b1c7af74a0f30e9.zip
LR-87-899de86b69bc3982b61fc25a8b1c7af74a0f30e9.tar.gz
Added scrolling and status bar to windows GUI renderer
Diffstat (limited to 'dumb_render.f90')
-rw-r--r--dumb_render.f9012
1 files changed, 11 insertions, 1 deletions
diff --git a/dumb_render.f90 b/dumb_render.f90
index 666a7b0..23b991b 100644
--- a/dumb_render.f90
+++ b/dumb_render.f90
@@ -65,6 +65,7 @@ implicit none
procedure :: draw_error => dumb_draw_error
procedure :: report_status => dumb_draw_status
+ procedure :: status_ready => dumb_ready_status
procedure :: request_action => dumb_action
@@ -111,7 +112,7 @@ contains
self%y = 0
end subroutine prepare_for_dumb_layout
-
+
function store_link(self, url)
implicit none
@@ -368,6 +369,15 @@ contains
end subroutine dumb_draw_status
+ subroutine dumb_ready_status(self)
+ implicit none
+
+ class(dumb_renderer)::self
+
+ ! Override to do nothing
+
+ end subroutine dumb_ready_status
+
subroutine prompt_user(input)
implicit none