From 132e81d7339cf39e8ad489ec502a1d78ea49adc1 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Mon, 14 Jul 2008 20:24:59 +0000
Subject: [PATCH] can show unbound; sel train key on ebwikeb

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

diff --git a/hostside/gui b/hostside/gui
index 436bf53..5406a37 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -537,12 +537,16 @@ 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} {
+proc ib-selectnext {devid value} {
     if {$value!=1} return
     upvar #0 input/$devid in
     speedw-train-selectnext $in(speedw)
 }
 
+proc ib-ev/wheelmouse/EV_KEY/BTN_LEFT {devid value} {
+    ib-selectnext $devid $value
+}
+
 proc ib-create/wheelmouse {devid wunique desc} {
     upvar #0 input/$devid in
     set w .inputs.$wunique
@@ -621,6 +625,10 @@ proc ib-ev/ebwikeb/EV_KEY/KEY_CAPSLOCK {devid value} {
     ib-ebwikeb-modifier $devid $value 0x0400
 }
 
+proc ib-ev/ebwikeb/0xffbc_88/0xffbc_0d {devid value} {
+    ib-selectnext $devid $value
+}
+
 proc ib-ev/ebwikeb/EV_KEY/KEY_BOOKMARKS {devid value} {
     upvar #0 input/$devid in
     if {!$value} return
@@ -774,6 +782,7 @@ proc input-binding-eof {chan devid} {
 }
 
 proc input-binding-inputline {chan l devid} {
+    global showunbound
     upvar #0 input/$devid in
     if {![catch { info args ib-inputline/$in(concrete) }]} {
 	# give the input binding first dibs
@@ -791,7 +800,9 @@ 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 << $l"
+		if {$showunbound} {
+		    debug "ib $devid unbound $proc << $l"
+		}
 		return
 	    }
 	    $proc $devid $value
@@ -914,6 +925,7 @@ proc main {} {
     setting inputretryadd 5 {\d+}
     setting inputretrymax 15 {\d+}
     setting scaninputinterval 500 {\d+}
+    setting showunbound 0 {[01]}
 
     set hostname [lindex [split [info hostname] .] 0]
     setting configfile gui-$hostname.config {.+}
-- 
2.30.2