From 48ebec614b694afec19e8c99d4689e1ee0b26ba4 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 8 Jan 2011 21:33:01 +0000
Subject: [PATCH] gui: show unknown movpos with black-on-white labels

---
 hostside/gui | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

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