can show unbound; sel train key on ebwikeb

diff --git a/hostside/gui b/hostside/gui
index 436bf533ddd216d89bf29027fdc4448f2b33aaf8..5406a37d15debb82b1514595ccf52a6a87ffa06c 100755 (executable)
--- 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 {.+}