From: Ian Jackson <ian@davenant.greenend.org.uk>
Date: Fri, 31 Dec 2010 20:01:54 +0000 (+0000)
Subject: gui: invert sense of mouse wheels
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=27b7f9ca903a7e670eb9b46d463ba2719bf66379;p=trains.git

gui: invert sense of mouse wheels
---

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} {