OpenEuphoria

Win 32 Mouse events

• Posted by Mike <vulcan at win.co.nz> May 26, 2001
• 419 views

Hello Win32lib developers.

I think there is something not working right with the mouse events in
win32lib because I can only cause 3 events to occur, or rather I can't 
get the left or right doubleclicks to fire. The rough example below 
shows this. What's wrong?

vulcan at win.co.nz

-- example1.exw
--
-- This opens a blank window (and tests the mouse events)
without warning
include win32lib.ew
-- Set up the application's name
if setAppName("ex01") then end if

constant SimpleWin = create( Window, "Simple Window", 0, 0, 0, 200, 100, 
0 )

procedure mouse(integer event, integer x, integer y, integer z)
	? event
	end procedure
	onMouse[SimpleWin] = routine_id("mouse")

WinMain( SimpleWin, Normal )