From: Ian Jackson <ian@davenant.greenend.org.uk>
Date: Mon, 25 Apr 2011 20:53:00 +0000 (+0100)
Subject: gui: "--showguiplan=0/1" option for easier debugging of certain problems over a remot... 
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=f761a4e076757e3693d81588eadc62766d3956ca;p=trains.git

gui: "--showguiplan=0/1" option for easier debugging of certain problems over a remote X session
---

diff --git a/hostside/gui b/hostside/gui
index 4102e9e..f24e0b8 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -1455,10 +1455,12 @@ register-event ?warning {message} {^.warning (\S+ .*)$} {
 }
 
 register-event {} {} {^=connected } {
-    global pages gui_pipe server port event_selections
+    global pages gui_pipe server port event_selections showguiplan
 
     scmd replayed {} "select-replay [concat $event_selections]"
 
+    if {!$showguiplan} return
+
     foreach page $pages {
 	set w [pagew $page]
 	tkwait visibility $w.picture
@@ -1508,6 +1510,7 @@ proc main {} {
     setting inputretrymax 15 {\d+}
     setting scaninputinterval 500 {\d+}
     setting showunbound 0 {[01]}
+    setting showguiplan 1 {[01]}
 
     set hostname [lindex [split [info hostname] .] 0]
     setting configfile gui-$hostname.config {.+}