From 14c096dd822b0dd859218030369f5e6e692ca56e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 20 Nov 2008 15:23:02 -0600 Subject: [PATCH] fix mouse scrolling on windows --- basis/ui/windows/windows.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/ui/windows/windows.factor b/basis/ui/windows/windows.factor index 3805cf7e1f..6e1ce8f77f 100755 --- a/basis/ui/windows/windows.factor +++ b/basis/ui/windows/windows.factor @@ -285,7 +285,7 @@ SYMBOL: nc-buttons swap [ push ] [ delete ] if ; : >lo-hi ( WORD -- array ) [ lo-word ] keep hi-word 2array ; -: mouse-wheel ( lParam -- array ) >lo-hi [ sgn neg ] map ; +: mouse-wheel ( wParam -- array ) >lo-hi [ sgn neg ] map ; : mouse-absolute>relative ( lparam handle -- array ) [ >lo-hi ] dip @@ -338,8 +338,8 @@ SYMBOL: nc-buttons >lo-hi swap window move-hand fire-motion ; :: handle-wm-mousewheel ( hWnd uMsg wParam lParam -- ) - lParam mouse-wheel - hWnd mouse-absolute>relative + wParam mouse-wheel + lParam hWnd mouse-absolute>relative hWnd window send-wheel ; : handle-wm-cancelmode ( hWnd uMsg wParam lParam -- )