From: ian <ian>
Date: Sun, 8 Jun 2008 12:13:09 +0000 (+0000)
Subject: on-screen report log
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=b3f4bcc5c26865979210c050891b219a62318a30;p=trains.git

on-screen report log
---

diff --git a/hostside/gui b/hostside/gui
index 47f92bb..e481206 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -127,6 +127,23 @@ proc report-problem {message} {
     eval $report_problem_report [list $message]
 }
 
+proc widget-problem-report {} {
+    global problem_reports report_problem_report
+    set problem_reports "\n\n\n\n"
+    label .problem-report -anchor w -justify left -takefocus 0 \
+	    -border 1 -relief sunken -width 80 -textvariable problem_reports
+    pack .problem-report -side top
+    set report_problem_report report-problem-report-widget
+}
+
+proc report-problem-report-widget {m} {
+    global problem_reports
+    set problem_reports [join [concat \
+	        [lrange [split $problem_reports "\n"] 1 end] \
+	        [list $m] \
+	    ] "\n"]
+}
+
 #---------- movpos (overlay buttons, keybindings, execution) ----------
 
 proc movpos-button-gvars {mid} {
@@ -521,7 +538,7 @@ puts stderr $key
 	set in(laststart) 0
 	set in(concrete) $concrete
     }
-    pack .inputs -side bottom -fill x
+    pack .inputs -side top -fill x
 }
 
 # input/$bus:$vendor:$product:$version becomes `in' via upvar
@@ -738,6 +755,7 @@ proc main {} {
     unset cpage
     widgets-movpos
     widgets-input-bindings
+    widget-problem-report
     engage-server
     engage-input-bindings
     start_commandloop