chiark / gitweb /
gui: set all movpos to unknown in state Resolving
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sat, 8 Jan 2011 21:32:47 +0000 (21:32 +0000)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sat, 8 Jan 2011 21:32:47 +0000 (21:32 +0000)
hostside/gui

index de7440d75b4d3599137f86f0600626f174341482..13a73feea17c0641997a5a399174a24a7434e682 100755 (executable)
@@ -176,6 +176,13 @@ proc movpos-button-sstate {mid posn} {
     movpos-button-setdisplay $mid
 }
 
+proc movpos-all-unknown {} {
+    global mp_details
+    foreach mid [array names mp_details] {
+       movpos-button-sstate $mid ?
+    }
+}
+
 proc widgets-movpos {} {
     global mp_details
     foreach mid [array names mp_details] {
@@ -559,6 +566,9 @@ proc speedws-stastate-hook {} {
            set trains [array names train_commanded]
            speedws-forall speedw-trains-available $trains
        }
+       Resolving {
+           movpos-all-unknown
+       }
        Finalising {
            speedws-forall speedw-notrains "($stastate)"
        }