use new direction parameter on speed command

diff --git a/hostside/gui b/hostside/gui
index 5fd71ba39aaeb37e8810eda2c623bfe77b99d538..837aeb7abf521d5c10a76ebfbaf5d0b2137a0048 100755 (executable)
--- a/hostside/gui
+++ b/hostside/gui
@@ -460,6 +460,7 @@ proc speedw-check {w} {
     upvar #0 speed/$w s
     if {![string length $s(train)]} return
     upvar #0 train_commanded($s(train)) gcommanded
+    upvar #0 train_direction($s(train)) gdirection
     if {[info exists s(commanding)]} return
     if {![info exists s(queued)]} return
     set newspeed $s(queued)
@@ -469,7 +470,7 @@ proc speedw-check {w} {
        speedw-uninhibit $w 2
     }
     set s(commanding) $newspeed
-    scmd speedw-commanded $s(ctrlr) "speed $s(train) $newspeed" $w
+    scmd speedw-commanded $s(ctrlr) "speed $s(train) $newspeed $gdirection" $w
 }
 
 proc speedw-commanded-nak {m args} { error "got nak from speed: $m" }