aboutsummaryrefslogtreecommitdiff
path: root/render.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-14 17:37:50 -0400
committerJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-14 17:37:50 -0400
commit899de86b69bc3982b61fc25a8b1c7af74a0f30e9 (patch)
treef9096e19b2cac155557ea5fe256b9ccfd48d18c6 /render.f90
parente43a36b1a00a8b96585a9fb4b622645f9b5eb025 (diff)
downloadLR-87-899de86b69bc3982b61fc25a8b1c7af74a0f30e9.zip
LR-87-899de86b69bc3982b61fc25a8b1c7af74a0f30e9.tar.gz
Added scrolling and status bar to windows GUI renderer
Diffstat (limited to 'render.f90')
-rw-r--r--render.f9012
1 files changed, 12 insertions, 0 deletions
diff --git a/render.f90 b/render.f90
index 80de58b..c8f1333 100644
--- a/render.f90
+++ b/render.f90
@@ -33,6 +33,8 @@ implicit none
["text/plain ", &
"text/gemini" ]
+ character(*), parameter::idle_status = "LR-87 Ready"
+
type, abstract :: renderer
integer::y
@@ -42,6 +44,7 @@ implicit none
procedure::render_proportional
procedure::type_supported
+ procedure::status_ready
procedure(initialize), deferred::initialize
procedure(prepare_for_layout), deferred::prepare_for_layout
@@ -227,6 +230,15 @@ contains
end function type_supported
+ subroutine status_ready(self)
+ implicit none
+
+ class(renderer)::self
+
+ call self%report_status(idle_status)
+
+ end subroutine status_ready
+
function width_of_line(r, text, startpos, endpos, heading_level, list_item)
implicit none