Initial commit of an AppGraphics renderer that actually works, though it doesn't scroll or allow url entry.

1 files changed, 8 insertions, 6 deletions

diff --git a/render.f90 b/render.f90
index 96ec610..80de58b 100644
--- a/render.f90
+++ b/render.f90
@@ -69,6 +69,8 @@ implicit none
         procedure(draw_simple_text), deferred::report_status
 
         procedure(request_action), deferred::request_action
+        
+        procedure(draw_simple_text), deferred::report_displayed_page
 
     end type renderer
 
@@ -98,8 +100,8 @@ implicit none
         import::renderer
         class(renderer)::self
         character(*), intent(in)::text
-        integer, optional::heading
-        logical, optional::list_item
+        integer, intent(in), optional::heading
+        logical, intent(in), optional::list_item
         integer::calculate_width
         end function calculate_width
     end interface
@@ -109,8 +111,8 @@ implicit none
         import::renderer
         class(renderer)::self
         character(*), intent(in)::text
-        integer, optional::heading
-        logical, optional::list_item
+        integer, intent(in), optional::heading
+        logical, intent(in), optional::list_item
         integer::calculate_height
         end function calculate_height
     end interface
@@ -120,8 +122,8 @@ implicit none
         import::renderer
         class(renderer)::self
         character(*), intent(in)::text
-        integer, optional::heading
-        logical, optional::list_item
+        integer, intent(in), optional::heading
+        logical, intent(in), optional::list_item
         end subroutine draw_text
     end interface