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

ui.backend.windows: fix compile error in ui-wndproc

Slava Pestov 2010-07-29 17:22:34 -04:00
parent fcf597e8ca
commit 030009c029
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/ui/backend/windows/windows.factor
View File

@ -615,8 +615,12 @@ SYMBOL: trace-messages?
: ui-wndproc ( -- object ) : ui-wndproc ( -- object )
uint { void* uint long long } stdcall [ uint { void* uint long long } stdcall [
pick pick
trace-messages? get-global [ dup windows-message-name name>> print flush ] when
wm-handlers get-global at* [ call ] [ drop DefWindowProc ] if trace-messages? get-global
[ dup windows-message-name name>> print flush ] when
wm-handlers get-global at*
[ call( hWnd Msg wParam lParam -- result ) ] [ drop DefWindowProc ] if
] alien-callback ; ] alien-callback ;
: peek-message? ( msg -- ? ) f 0 0 PM_REMOVE PeekMessage zero? ; : peek-message? ( msg -- ? ) f 0 0 PM_REMOVE PeekMessage zero? ;