1. doEvents replacement...
- Posted by Patrick Barnes <mrtrick at gmail.com> Nov 18, 2004
- 479 views
Is this correct: global procedure checkEvents() atom msg -- Allocate a message buffer msg = allocate(SIZEOF_MSG) -- Check to see if there are any pending events if c_func( PeekMessage, { msg, 0, 0, 0, 1 } ) then c_proc( TranslateMessage, { msg } ) c_proc( DispatchMessage, { msg } ) end if free(msg) end procedure Should the if/endif be while/endwhile ? The point of this is simply to be able to use IPC.ew without the win32lib library, or any GUI. -- MrTrick