From 873ffd8201fd520122d8ec94bdd4230d79d0331c Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Fri, 1 May 2020 16:49:35 -0400 Subject: Added input and error display members to the renderer. --- render.f90 | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'render.f90') diff --git a/render.f90 b/render.f90 index 6d19729..684197c 100644 --- a/render.f90 +++ b/render.f90 @@ -27,6 +27,10 @@ implicit none procedure(calculate_height), deferred::link_height procedure(calculate_visibility), deferred::is_link_visible procedure(draw_link), deferred::draw_link + + procedure(request_input), deferred::request_input + + procedure(draw_text), deferred::draw_error end type renderer @@ -86,6 +90,16 @@ implicit none character(*), intent(in)::text, url end subroutine draw_link end interface + + abstract interface + function request_input(self, question, answer) + import::renderer + class(renderer)::self + character(*), intent(in)::question + character(*), intent(out)::answer + logical::request_input + end function request_input + end interface contains -- cgit v1.2.3