From 27b7f9ca903a7e670eb9b46d463ba2719bf66379 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@davenant.greenend.org.uk>
Date: Fri, 31 Dec 2010 20:01:54 +0000
Subject: [PATCH] gui: invert sense of mouse wheels

---
 hostside/gui | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hostside/gui b/hostside/gui
index c6e6a0d..66c4416 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -604,7 +604,7 @@ proc ib-speedw-new {devid wunique desc} {
 
 proc ib-ev/wheelmouse/EV_REL/REL_WHEEL {devid value} {
     upvar #0 input/$devid in
-    speedw-userinput-rel-steps $in(speedw) $value {}
+    speedw-userinput-rel-steps $in(speedw) [expr {-$value}] {}
 }
 
 proc ib-selectnext {devid value} {
-- 
2.30.2