From 723324ae71f8209e4b1757a3f84bd0e66b6c6319 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 5 May 2020 07:54:53 -0400 Subject: Actual client can now load and display a page using dumb_renderer --- dumb_render.f90 | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'dumb_render.f90') 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 -- cgit v1.2.3