ui.backend.windows: scroll 10 times faster with Shift

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index f2a37f58d35cf8578fdac3bdd76a8553e71f3f9e..4057e9899a2a8cffc501e9f924502c113b7a7548 100644 (file)
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -436,11 +436,14 @@ SYMBOL: nc-buttons
     message>button nc-buttons get
     swap [ push ] [ remove! drop ] if ;
 
+: scroll-distance ( wParam -- n )
+    [ hi-word 80 /f ] [ lo-word ] bi MK_SHIFT mask? [ 10 * ] when ;
+
 : mouse-scroll ( wParam -- direction )
-    hi-word -80 /f 0 swap 2array ;
+    scroll-distance neg 0 swap 2array ;
 
 : mouse-horizontal-scroll ( wParam -- direction )
-    hi-word 80 /f 0 2array ;
+    scroll-distance 0 2array ;
 
 : mouse-event>gesture ( uMsg -- button )
     key-modifiers swap message>button