From 538f92f3d43e6b01fabe3105befe00a969410124 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 20 Jul 2008 18:03:44 +0000
Subject: [PATCH] set direction from main keyboard too

---
 hostside/gui | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/hostside/gui b/hostside/gui
index 855c4fc..5fd71ba 100755
--- 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
-- 
2.30.2