diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-14 09:55:47 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-14 09:55:47 -0400 |
| commit | d53076ec22c34822c314264f664532883c87083b (patch) | |
| tree | 2ab110d61c237872b1d5d8682acf26548794c59d /dumb_render.f90 | |
| parent | ac37668c0765703a2d76edac0d1d8b8f55be4e56 (diff) | |
| download | LR-87-d53076ec22c34822c314264f664532883c87083b.tar.gz LR-87-d53076ec22c34822c314264f664532883c87083b.zip | |
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.f90 | 23 |
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 |