gui: get list of trains available from train_direction (ie "train * at") not train_co...

diff --git a/hostside/gui b/hostside/gui
index cda538dadb573b3ab187f853ca54119107449a70..bc47bdbb2a0e9d0dfba6dc3b55f6da760796daea 100755 (executable)
--- 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 {