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

Clean up a bit

db4
U-SLAVA-DFB8FF805\Slava 2008-12-01 17:54:35 -06:00
parent e8200dcf3e
commit 8b106b6a77
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -284,7 +284,7 @@ SYMBOL: nc-buttons
message>button nc-buttons get message>button nc-buttons get
swap [ push ] [ delete ] if ; swap [ push ] [ delete ] if ;
: >lo-hi ( WORD -- array ) [ lo-word ] keep hi-word 2array ; : >lo-hi ( WORD -- array ) [ lo-word ] [ hi-word ] bi 2array ;
: mouse-wheel ( wParam -- 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 )