steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix mouse scrolling on windows

db4
Doug Coleman 2008-11-20 15:23:02 -06:00
parent 2810b9ac0f
commit 14c096dd82
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/windows/windows.factor
View File

@ -285,7 +285,7 @@ SYMBOL: nc-buttons
swap [ push ] [ delete ] if ; swap [ push ] [ delete ] if ;
: >lo-hi ( WORD -- array ) [ lo-word ] keep hi-word 2array ; : >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 ) : mouse-absolute>relative ( lparam handle -- array )
[ >lo-hi ] dip [ >lo-hi ] dip
@ -338,8 +338,8 @@ SYMBOL: nc-buttons
>lo-hi swap window move-hand fire-motion ; >lo-hi swap window move-hand fire-motion ;
:: handle-wm-mousewheel ( hWnd uMsg wParam lParam -- ) :: handle-wm-mousewheel ( hWnd uMsg wParam lParam -- )
lParam mouse-wheel wParam mouse-wheel
hWnd mouse-absolute>relative lParam hWnd mouse-absolute>relative
hWnd window send-wheel ; hWnd window send-wheel ;
: handle-wm-cancelmode ( hWnd uMsg wParam lParam -- ) : handle-wm-cancelmode ( hWnd uMsg wParam lParam -- )