ui.backend.windows: fix mouse-scroll implementation

[factor.git] / basis / ui / backend / windows / windows.factor

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index 9dba6fed9295848eb153a0bbf2bb72f9ab7590c3..f2a37f58d35cf8578fdac3bdd76a8553e71f3f9e 100644 (file)
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -436,8 +436,8 @@ SYMBOL: nc-buttons
     message>button nc-buttons get
     swap [ push ] [ remove! drop ] if ;
 
-: mouse-scroll ( wParam -- array )
-    >lo-hi [ -80 /f ] map ;
+: mouse-scroll ( wParam -- direction )
+    hi-word -80 /f 0 swap 2array ;
 
 : mouse-horizontal-scroll ( wParam -- direction )
     hi-word 80 /f 0 2array ;