15 lines
421 B
Factor
15 lines
421 B
Factor
USING: alien parser namespaces kernel syntax words math io prettyprint ;
|
|
IN: win32-api
|
|
|
|
: win32-error=0 zero? [ win32-error ] when ;
|
|
: win32-error>0 0 > [ win32-error ] when ;
|
|
: win32-error<0 0 < [ win32-error ] when ;
|
|
: win32-error<>0 zero? [ win32-error ] unless ;
|
|
|
|
: lo-word ( wparam -- lo ) HEX: ffff bitand ;
|
|
: hi-word ( wparam -- hi ) -16 shift ;
|
|
|
|
: msgbox ( str -- )
|
|
f swap "DebugMsg" MB_OK MessageBox drop ;
|
|
|