From: Alexander Ilin <alex.ilin@protonmail.com>
Date: Sun, 25 Feb 2024 16:46:15 +0000 (+0100)
Subject: ui.backend.windows: double the default vertical scrolling speed
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=480b46fa2ef101980e2880c8c3fab2ad6daccbbe

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 4057e9899a..530b3802b0 100644
--- 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 ;