hook mouse

Hi

I have made a hook

Strict

Function MyEventHook:Object( id,data:Object,context:Object )

	Local ev:TEvent=TEvent(data)
	
      Select ev.id
            Case EVENT_WINDOWCLOSE
                Print "yess work"
                End
'POP UP
            Case Event_Mousedown 
                 Select ev.data
                       Case Mouse_Right
                            End
                 End Select
      End Select
End Function

AddHook EmitEventHook,MyEventHook

Local window:TGadget

window=CreateWindow( "A window!",0,0,640,480 )
While True
	WaitEvent
	
Wend

my code is not working ....why I can't get the input of my mouse?

I believe you need a Canvas

Strict
Function MyEventHook:Object( id,data:Object,context:Object )

Local ev:TEvent=TEvent(data)

Select ev.id
Case EVENT_WINDOWCLOSE
Print "yess work"
End
'POP UP
Case Event_Mousedown
Select ev.data
Case Mouse_Right
End
End Select
End Select
Return Data
End Function

AddHook EmitEventHook,MyEventHook

Local window:TGadget

window=CreateWindow( "A window!",0,0,640,480 )
Global Canvas:Tgadget=CreateCanvas(0,0,640,480,Window)

While True
WaitEvent

Wend

Also you are supposed to return the data:Object.

Hope this helps because I don't understand hooks myself

humm ..thanks Eric :) well a Canvas provides a Graphics interface for realtime drawing purposes the mouse hooks should also work with window ether, I starting to understand hooks but It's won't work with mouse. I really hope there will some doc about all this.