From d7ae845f365d5673a1f2f888739e0842abebca9c Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 14 Sep 2008 17:06:23 +0000
Subject: [PATCH] use new direction parameter on speed command

---
 hostside/gui | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/hostside/gui b/hostside/gui
index 5fd71ba..837aeb7 100755
--- 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" }
-- 
2.30.2