From 11a07d703b2ee9f7dbb9f3e311a1f034b4c71a20 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Thu, 21 May 2020 15:51:22 -0400 Subject: Fixed first lines being removed after changes to status line handling. Window title on AppGraphics now resets on new pages. --- ag_render.f90 | 2 ++ protocol.f90 | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/ag_render.f90 b/ag_render.f90 index 87b3a7a..c357318 100644 --- a/ag_render.f90 +++ b/ag_render.f90 @@ -420,6 +420,8 @@ contains call setscrollposition(self%scroll_id, 0) ag_render_event = ag_render_event_none + self%title_guessed = .false. + end subroutine ag_new_page pure function get_font_size(self, heading) diff --git a/protocol.f90 b/protocol.f90 index 49d8fc5..b0699a6 100644 --- a/protocol.f90 +++ b/protocol.f90 @@ -191,7 +191,9 @@ contains write(binary_unit) buffer(i) - else if(.not. binary_file) then + end if + + if(.not. binary_file) then write(unit_number, '(A1)', advance='no') buffer(i) -- cgit v1.2.3