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

diff --git a/hostside/gui b/hostside/gui
index 426c5580cc8ddbab17e0d438793df685ac42027e..6b21e8960cd3dac0db9c183fa3c45474de67b96e 100755 (executable)
--- 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
 }