1. doEvents replacement...

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

new topic     » topic index » view message » categorize

Search



Quick Links

User menu

Not signed in.

Misc Menu