From b7e9966907434c6f58efa1307b2118a470c63d2b Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 6 May 2020 15:56:17 -0400
Subject: Back functionality now works

---
 main.F90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'main.F90')

diff --git a/main.F90 b/main.F90
index f31a3ca..66e6d57 100644
--- a/main.F90
+++ b/main.F90
@@ -116,7 +116,12 @@ implicit none
             select case(r%request_action(input))
                 case (render_action_quit)
                     running = .false.
-                    
+                
+                case (render_action_back)
+                    call back_location(locations_visited, current_url)
+                    call free_lines(first_line)
+                    loaded = .false.
+                
                 case (render_action_layout)
                     call r%report_status("Performing Layout")
                     call layout_lines(first_line, r)
-- 
cgit v1.2.3