ui.backend.windows: faster wheel mouse scroll rate

2010-05-07 18:26:16 -04:00 · 2010-05-07 18:26:16 -04:00 · fa99cc8f0e
parent f988dad79c
commit fa99cc8f0e
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@ -476,7 +476,7 @@ SYMBOL: nc-buttons
    swap [ push ] [ remove! drop ] if ;

 : mouse-scroll ( wParam -- array )
-    >lo-hi [ -120 /f ] map ;
+    >lo-hi [ -80 /f ] map ;

 : mouse-event>gesture ( uMsg -- button )
    key-modifiers swap message>button