From a593bd06b204baded9825f7e249cc45312953c23 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 13 Feb 2011 12:41:56 +0000
Subject: [PATCH] gui: tractbreak prevent demanded traction when inhibited

---
 hostside/gui | 1 +
 1 file changed, 1 insertion(+)

diff --git a/hostside/gui b/hostside/gui
index 14e451c..a8d5c72 100755
--- 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
 }
 
-- 
2.30.2