diff options
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 |