Added scrolling and status bar to windows GUI renderer

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