aboutsummaryrefslogtreecommitdiff
path: root/render.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-01 16:49:35 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-01 16:49:35 -0400
commit873ffd8201fd520122d8ec94bdd4230d79d0331c (patch)
tree77aa57644e471db464db45f2784af57ec870af54 /render.f90
parentc7a908cc5adede6ca34519059f2e324dc6737ff6 (diff)
downloadLR-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.f9014
1 files changed, 14 insertions, 0 deletions
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