gui: tractbreak prevent demanded traction when inhibited

diff --git a/hostside/gui b/hostside/gui
index 14e451c616ea74f2a8385a4eb72e373e983eb675..a8d5c7224af82015951c6c541a831f09333adaa0 100755 (executable)
--- a/hostside/gui
+++ b/hostside/gui
@@ -565,6 +565,7 @@ proc speedw-userinput-tractbrake {w tract brake} {
     upvar #0 speed/$w s
     if {![string length $s(train)]} return
     speedw-uninhibit $w 1
+    if {$s(inhibit)} { set tract 0 }
     tractbrake-userinput $s(train) $tract $brake $w
 }