From 899de86b69bc3982b61fc25a8b1c7af74a0f30e9 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Thu, 14 May 2020 17:37:50 -0400
Subject: Added scrolling and status bar to windows GUI renderer

---
 render.f90 | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'render.f90')

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
     
-- 
cgit v1.2.3