From 899de86b69bc3982b61fc25a8b1c7af74a0f30e9 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Thu, 14 May 2020 17:37:50 -0400
Subject: Added scrolling and status bar to windows GUI renderer

---
 main.F90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'main.F90')

diff --git a/main.F90 b/main.F90
index 16da056..6d6b78d 100644
--- a/main.F90
+++ b/main.F90
@@ -146,7 +146,7 @@ implicit none
                 call r%new_page()
                 call r%report_status("Performing Layout")
                 call layout_lines(first_line, r)
-                
+                call r%status_ready()
             else
                 
                 call r%draw_error("Cannot display file of type "//return_type)
@@ -173,6 +173,7 @@ implicit none
                     if(associated(first_line)) then
                         call r%report_status("Performing Layout")
                         call layout_lines(first_line, r)
+                        call r%status_ready()
                     end if
                     
                 case (render_action_goto)
-- 
cgit v1.2.3