From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 8 Jan 2011 21:42:05 +0000 (+0000)
Subject: gui: get list of trains available from train_direction (ie "train * at") not train_co... 
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=91dc9072a406385f658a3a2e15dc50f6ac3c5cb2;p=trains.git

gui: get list of trains available from train_direction (ie "train * at") not train_commanded ("train * speed commanding") since the latter is sent by realtime even for trains which aren't on the layout
---

diff --git a/hostside/gui b/hostside/gui
index cda538d..bc47bdb 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -559,10 +559,10 @@ register-event ?train_*_speed_commanding {train speed} \
 }
 
 proc speedws-stastate-hook {} {
-    global train_commanded stastate
+    global train_direction stastate
     switch -exact -- $stastate {
 	Run {
-	    set trains [array names train_commanded]
+	    set trains [array names train_direction]
 	    speedws-forall speedw-trains-available $trains
 	}
 	Resolving {