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

fix win32 mouse scrolling

erg 2006-08-28 01:52:25 +00:00
parent 48ff4caa73
commit fc8e818385
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/ui/windows/ui.factor
View File

@ -175,7 +175,7 @@ SYMBOL: hWnd
} cond ;
: mouse-coordinate ( lParam -- seq ) [ lo-word ] keep hi-word 2array ;
: mouse-wheel ( lParam -- n ) hi-word 0 > 1 -1 ? ;
: mouse-wheel ( lParam -- n ) hi-word 0 > ;
: prepare-mouse ( hWnd uMsg wParam lParam -- world )
nip >r mouse-button r> mouse-coordinate rot window ;