diff options
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 |