aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-21 15:51:22 -0400
committerJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-21 15:51:22 -0400
commit11a07d703b2ee9f7dbb9f3e311a1f034b4c71a20 (patch)
treed65629335f1453678b05aee482d0f243b21e69f8
parent17623b0805ec074d8fb4aa026f97d8f4abfd0da1 (diff)
downloadLR-87-11a07d703b2ee9f7dbb9f3e311a1f034b4c71a20.tar.gz
LR-87-11a07d703b2ee9f7dbb9f3e311a1f034b4c71a20.zip
Fixed first lines being removed after changes to status line handling. Window title on AppGraphics now resets on new pages.
-rw-r--r--ag_render.f902
-rw-r--r--protocol.f904
2 files changed, 5 insertions, 1 deletions
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)