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

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