From 91dc9072a406385f658a3a2e15dc50f6ac3c5cb2 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 8 Jan 2011 21:42:05 +0000
Subject: [PATCH] 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

---
 hostside/gui | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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