From d53076ec22c34822c314264f664532883c87083b Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Thu, 14 May 2020 09:55:47 -0400 Subject: Initial commit of an AppGraphics renderer that actually works, though it doesn't scroll or allow url entry. --- dumb_render.f90 | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) (limited to 'dumb_render.f90') 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 -- cgit v1.2.3