From fa99cc8f0e0b9ecc79b7cb0071f1328e2cc5268f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 7 May 2010 18:26:16 -0400
Subject: [PATCH] ui.backend.windows: faster wheel mouse scroll rate
---
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 46bea3e256..8dae849a1f 100755
--- 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