on-screen report log

diff --git a/hostside/gui b/hostside/gui
index 47f92bbf8d5aed6832053fe61374c4bb964020c7..e4812065fa4027b6ced75f4694893a664e1626f1 100755 (executable)
--- 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