diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-01 16:49:35 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-01 16:49:35 -0400 |
commit | 873ffd8201fd520122d8ec94bdd4230d79d0331c (patch) | |
tree | 77aa57644e471db464db45f2784af57ec870af54 /render.f90 | |
parent | c7a908cc5adede6ca34519059f2e324dc6737ff6 (diff) | |
download | LR-87-873ffd8201fd520122d8ec94bdd4230d79d0331c.tar.gz LR-87-873ffd8201fd520122d8ec94bdd4230d79d0331c.zip |
Added input and error display members to the renderer.
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 |