diff options
Diffstat (limited to 'render.f90')
-rw-r--r-- | render.f90 | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -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 |