From 480b46fa2ef101980e2880c8c3fab2ad6daccbbe Mon Sep 17 00:00:00 2001 From: Alexander Ilin Date: Sun, 25 Feb 2024 17:46:15 +0100 Subject: [PATCH] ui.backend.windows: double the default vertical scrolling speed --- basis/ui/backend/windows/windows.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ; -- 2.34.1