diff options
author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-05-14 17:37:50 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-05-14 17:37:50 -0400 |
commit | 899de86b69bc3982b61fc25a8b1c7af74a0f30e9 (patch) | |
tree | f9096e19b2cac155557ea5fe256b9ccfd48d18c6 /dumb_render.f90 | |
parent | e43a36b1a00a8b96585a9fb4b622645f9b5eb025 (diff) | |
download | LR-87-899de86b69bc3982b61fc25a8b1c7af74a0f30e9.tar.gz LR-87-899de86b69bc3982b61fc25a8b1c7af74a0f30e9.zip |
Added scrolling and status bar to windows GUI renderer
Diffstat (limited to 'dumb_render.f90')
-rw-r--r-- | dumb_render.f90 | 12 |
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 |