From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 13 Feb 2011 18:48:21 +0000 (+0000)
Subject: gui: debugging output for calls to speedw-userinput-tractbrake
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=e72b8e232faebd8f9a198b79c8ae4c12114d1fc5;p=trains.git

gui: debugging output for calls to speedw-userinput-tractbrake
---

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