aboutsummaryrefslogtreecommitdiff
path: root/render.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-14 09:55:47 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-14 09:55:47 -0400
commitd53076ec22c34822c314264f664532883c87083b (patch)
tree2ab110d61c237872b1d5d8682acf26548794c59d /render.f90
parentac37668c0765703a2d76edac0d1d8b8f55be4e56 (diff)
downloadLR-87-d53076ec22c34822c314264f664532883c87083b.zip
LR-87-d53076ec22c34822c314264f664532883c87083b.tar.gz
Initial commit of an AppGraphics renderer that actually works, though it doesn't scroll or allow url entry.
Diffstat (limited to 'render.f90')
-rw-r--r--render.f9014
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