From e72b8e232faebd8f9a198b79c8ae4c12114d1fc5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 13 Feb 2011 18:48:21 +0000
Subject: [PATCH] gui: debugging output for calls to
 speedw-userinput-tractbrake

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

diff --git a/hostside/gui b/hostside/gui
index 6b21e89..47a0e87 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -565,6 +565,8 @@ proc speedw-userinput-rel-steps {w delta steplist} {
 proc speedw-userinput-tractbrake {w tract brake} {
     upvar #0 speed/$w s
     if {![string length $s(train)]} return
+    debug [format "speedw-userinput-tractbrake %s %6.4f %6.4f" \
+	       $s(train) $tract $brake]
     speedw-uninhibit $w 1
     if {$s(inhibit)} { set tract 0 }
     tractbrake-userinput $s(train) $tract $brake $w
-- 
2.30.2