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. --- render.f90 | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'render.f90') 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 -- cgit v1.2.3