diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-05 07:54:53 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-05 07:54:53 -0400 |
| commit | 723324ae71f8209e4b1757a3f84bd0e66b6c6319 (patch) | |
| tree | 91737e20dba6e06068ea37bb9bcb79122a12d427 /dumb_render.f90 | |
| parent | 1ef40339cc161484b3e70d34ab4d507b758b29eb (diff) | |
| download | LR-87-723324ae71f8209e4b1757a3f84bd0e66b6c6319.tar.gz LR-87-723324ae71f8209e4b1757a3f84bd0e66b6c6319.zip | |
Actual client can now load and display a page using dumb_renderer
Diffstat (limited to 'dumb_render.f90')
| -rw-r--r-- | dumb_render.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/dumb_render.f90 b/dumb_render.f90 index 21d6c34..3980245 100644 --- a/dumb_render.f90 +++ b/dumb_render.f90 @@ -36,6 +36,8 @@ implicit none procedure :: request_input => dumb_request_input procedure :: draw_error => dumb_draw_error + + procedure :: report_status => dumb_draw_status end type dumb_renderer @@ -224,4 +226,14 @@ contains end subroutine dumb_draw_error + subroutine dumb_draw_status(self, text) + implicit none + + class(dumb_renderer)::self + character(*), intent(in)::text + + Print *, "*** "//trim(text)//" ***" + + end subroutine dumb_draw_status + end module dumb_render
\ No newline at end of file |