From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 13 Feb 2011 18:47:47 +0000 (+0000)
Subject: gui: move optimisation for avoiding commanding same speed again into speedw-do-abs
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=194129386e622f7cafa0ee9aa7129ef0200fa81d;p=trains.git

gui: move optimisation for avoiding commanding same speed again into speedw-do-abs
---

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
 }