Added scrolling and status bar to windows GUI renderer

1 files changed, 12 insertions, 0 deletions

diff --git a/render.f90 b/render.f90
index 80de58b..c8f1333 100644
--- a/render.f90
+++ b/render.f90
@@ -33,6 +33,8 @@ implicit none
         ["text/plain ", &
          "text/gemini" ]
 
+    character(*), parameter::idle_status = "LR-87 Ready"
+
     type, abstract :: renderer
     
         integer::y
@@ -42,6 +44,7 @@ implicit none
         
         procedure::render_proportional
         procedure::type_supported
+        procedure::status_ready
         
         procedure(initialize), deferred::initialize
         procedure(prepare_for_layout), deferred::prepare_for_layout
@@ -227,6 +230,15 @@ contains
         
     end function type_supported
  
+    subroutine status_ready(self)
+    implicit none
+        
+        class(renderer)::self
+ 
+        call self%report_status(idle_status)
+        
+    end subroutine status_ready
+    
     function width_of_line(r, text, startpos, endpos, heading_level, list_item)
     implicit none