From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 8 Jan 2011 21:33:01 +0000 (+0000)
Subject: gui: show unknown movpos with black-on-white labels
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=48ebec614b694afec19e8c99d4689e1ee0b26ba4;p=trains.git

gui: show unknown movpos with black-on-white labels
---

diff --git a/hostside/gui b/hostside/gui
index 13a73fe..cda538d 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -203,14 +203,13 @@ proc movpos-button-setdisplay {mid} {
     #   whether a train's plan includes a different position
     #   whether autopoint
     movpos-button-gvars $mid
-    set fg white
-    set bg black
-    $w configure -background $bg -foreground $fg \
-	    -activebackground $bg -activeforeground $fg
     switch -exact $posn {
-	? { manyset [lindex $poslocs 2] x y }
-	default { manyset [lindex $poslocs $posn] x y }
+	?       { set poslocn 2;     set fg black; set bg white }
+	default { set poslocn $posn; set fg white; set bg black }
     }
+    $w configure -background $bg -foreground $fg \
+	    -activebackground $bg -activeforeground $fg
+    manyset [lindex $poslocs $poslocn] x y
     place $w -anchor center -x $x -y $y
 }