set direction from main keyboard too

diff --git a/hostside/gui b/hostside/gui
index 855c4fc668571332434f3cb6595af7f6f816aa75..5fd71ba39aaeb37e8810eda2c623bfe77b99d538 100755 (executable)
--- a/hostside/gui
+++ b/hostside/gui
@@ -605,14 +605,17 @@ proc ib-selectnext {devid value} {
     upvar #0 input/$devid in
     speedw-train-selectnext $in(speedw)
 }
+proc ib-changedirection {devid value} {
+    upvar #0 input/$devid in
+    if {!$value} return
+    speedw-train-direction $in(speedw) change
+}    
 
 proc ib-ev/wheelmouse/EV_KEY/BTN_LEFT {devid value} {
     ib-selectnext $devid $value
 }
 proc ib-ev/wheelmouse/EV_KEY/BTN_RIGHT {devid value} {
-    upvar #0 input/$devid in
-    if {!$value} return
-    speedw-train-direction $in(speedw) change
+    ib-changedirection $devid $value
 }
 
 proc ib-create/wheelmouse {devid wunique desc} {
@@ -656,6 +659,9 @@ proc ib-evcmd/ebwikeb {devid target} {
 proc ib-ev/ebwikeb/EV_REL/REL_WHEEL {devid value} {
     ib-ev/wheelmouse/EV_REL/REL_WHEEL $devid $value
 }
+proc ib-ev/ebwikeb/EV_KEY/BTN_RIGHT {devid value} {
+    ib-changedirection $devid $value
+}
 
 proc ib-ebwikeb-modifier {devid value bitval} {
     upvar #0 input/${devid}(modifiers) mod