ui.backend.windows: faster wheel mouse scroll rate

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index 46bea3e256bc3982beb721fafd4dc7af54c36abe..8dae849a1fa0bed133cf271d04eb9f087a131fa3 100755 (executable)
--- 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