aboutsummaryrefslogtreecommitdiff
path: root/dumb_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 /dumb_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 'dumb_render.f90')
-rw-r--r--dumb_render.f9023
1 files changed, 17 insertions, 6 deletions
diff --git a/dumb_render.f90 b/dumb_render.f90
index 3834e5c..9142159 100644
--- a/dumb_render.f90
+++ b/dumb_render.f90
@@ -70,6 +70,8 @@ implicit none
procedure :: request_save_filename => dumb_request_save_filename
+ procedure :: report_displayed_page => dumb_displayed_page
+
end type dumb_renderer
contains
@@ -129,8 +131,8 @@ contains
class(dumb_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::dumb_text_width
dumb_text_width = len_trim(text)
@@ -148,8 +150,8 @@ contains
class(dumb_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::dumb_text_height
dumb_text_height = 1
@@ -224,8 +226,8 @@ contains
class(dumb_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::limit_x
character(5)::formatting
character(self%max_width)::heading_line
@@ -441,5 +443,14 @@ contains
end function dumb_request_save_filename
+ subroutine dumb_displayed_page(self, text)
+ implicit none
+
+ class(dumb_renderer)::self
+ character(*), intent(in)::text
+
+ ! Nothing to do in this renderer
+
+ end subroutine dumb_displayed_page
end module dumb_render \ No newline at end of file