gui: invert sense of mouse wheels

diff --git a/hostside/gui b/hostside/gui
index c6e6a0dcb6d94ebb24f35b56b3f7cdbb384bfab9..66c441621f7e6712e0805a7135f160eef1c0a246 100755 (executable)
--- 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} {