ui.backend.windows: double the default vertical scrolling speed

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index 4057e9899a2a8cffc501e9f924502c113b7a7548..530b3802b0766056f0679aa1748c5eb4ad8012fd 100644 (file)
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -440,7 +440,7 @@ SYMBOL: nc-buttons
     [ hi-word 80 /f ] [ lo-word ] bi MK_SHIFT mask? [ 10 * ] when ;
 
 : mouse-scroll ( wParam -- direction )
-    scroll-distance neg 0 swap 2array ;
+    scroll-distance -2 * 0 swap 2array ;
 
 : mouse-horizontal-scroll ( wParam -- direction )
     scroll-distance 0 2array ;