From b3f4bcc5c26865979210c050891b219a62318a30 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 8 Jun 2008 12:13:09 +0000
Subject: [PATCH] on-screen report log

---
 hostside/gui | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

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
-- 
2.30.2