From 12c1e3a8367d12c926c9b3350d09cc5940a73fc8 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Mon, 14 Jul 2008 20:16:28 +0000
Subject: [PATCH] select train with left button

---
 hostside/gui | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/hostside/gui b/hostside/gui
index 5097684..436bf53 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -374,6 +374,17 @@ proc speedw-setstate {w disnorm} {
     $w.speed configure -state $disnorm
 }
 
+proc speedw-train-selectnext {w} {
+    upvar #0 speed/$w s
+    set max [$s(optionmenu) index end]
+    for {set ix 0} {$ix <= $max} {incr ix} {
+	set v [$s(optionmenu) entrycget $ix -value]
+	if {![string compare $v $s(train)]} break
+    }
+    set activate [expr {($ix+1) % ($max+1)}]
+    $s(optionmenu) invoke $activate
+}
+
 proc speedw-train-selected {w t} {
     upvar #0 speed/$w s
     $w.train configure -text $t
@@ -526,6 +537,12 @@ proc ib-ev/wheelmouse/EV_REL/REL_WHEEL {devid value} {
     speedw-userinput-rel $in(speedw) [list ib-wheelmouse-stepmap $value]
 }
 
+proc ib-ev/wheelmouse/EV_KEY/BTN_LEFT {devid value} {
+    if {$value!=1} return
+    upvar #0 input/$devid in
+    speedw-train-selectnext $in(speedw)
+}
+
 proc ib-create/wheelmouse {devid wunique desc} {
     upvar #0 input/$devid in
     set w .inputs.$wunique
@@ -774,7 +791,7 @@ proc input-binding-inputline {chan l devid} {
 	    manyset [split $lr] value kindl kindr codel coder
 	    set proc ib-ev/$in(concrete)/${kindl}_${kindr}/${codel}_${coder}
 	    if {[catch { info args $proc }]} {
-		debug "ib $devid unbound $proc <<"
+		#debug "ib $devid unbound $proc << $l"
 		return
 	    }
 	    $proc $devid $value
-- 
2.30.2