From 899de86b69bc3982b61fc25a8b1c7af74a0f30e9 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Thu, 14 May 2020 17:37:50 -0400 Subject: Added scrolling and status bar to windows GUI renderer --- dumb_render.f90 | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'dumb_render.f90') 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 -- cgit v1.2.3