From 194129386e622f7cafa0ee9aa7129ef0200fa81d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 13 Feb 2011 18:47:47 +0000
Subject: [PATCH] gui: move optimisation for avoiding commanding same speed
 again into speedw-do-abs

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

diff --git a/hostside/gui b/hostside/gui
index 426c558..6b21e89 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -500,6 +500,7 @@ proc speedw-userinput-tractbrake {w tract brake} {
 
 proc speedw-do-abs {w speed} {
     upvar #0 speed/$w s
+    if {$speed == [speedw-currentspeed $w]} return
     set s(queued) $speed
     speedw-check $w
 }
@@ -721,9 +722,7 @@ proc tractbrake-update {train} {
 	    }
 	    set step $nextstep
 	}
-	if {$step != $gcommanded} {
-	    speedw-do-abs $tb(speedw) $step
-	}
+	speedw-do-abs $tb(speedw) $step
     }
     tractbrake-queue-update $train
 }
-- 
2.30.2