diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-02-23 15:44:25 -0500 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-02-23 15:44:25 -0500 |
commit | 36249ebd4dece7ee69cd85e7e169db0dc4315e3e (patch) | |
tree | 89b8cdcc7cc57963acac1429f6007b63ca93a595 /render.f90 | |
parent | 6a0d3367e0b314d6c947950f7c3193be3d9d1465 (diff) | |
download | LR-87-36249ebd4dece7ee69cd85e7e169db0dc4315e3e.tar.gz LR-87-36249ebd4dece7ee69cd85e7e169db0dc4315e3e.zip |
Added favicon support. Fixed UTF-8 display on dumb renderer.
Diffstat (limited to 'render.f90')
-rw-r--r-- | render.f90 | 22 |
1 files changed, 22 insertions, 0 deletions
@@ -48,6 +48,7 @@ implicit none integer::y integer::max_width + character(4)::favicon contains @@ -55,6 +56,8 @@ implicit none procedure::type_supported procedure::status_ready procedure::report_unsupported_protocol + procedure::set_favicon + procedure::clear_favicon procedure(initialize), deferred::initialize procedure(prepare_for_layout), deferred::prepare_for_layout @@ -267,6 +270,25 @@ contains end function report_unsupported_protocol + subroutine set_favicon(self, f) + implicit none + + class(renderer)::self + character(*), intent(in)::f + + self%favicon = f + + end subroutine set_favicon + + subroutine clear_favicon(self) + implicit none + + class(renderer)::self + + self%favicon = " " + + end subroutine clear_favicon + function width_of_line(r, text, startpos, endpos, proportional_type) implicit none |