PB 5.60 64
Win7 64
Code: Select all
EnableExplicit
Define.i win, canvas
Procedure eventHandler()
Debug "mm"
EndProcedure
win = OpenWindow(#PB_Any, 0, 0, 220, 220, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
canvas = CanvasGadget(#PB_Any, 10, 10, 200, 200)
BindGadgetEvent(canvas, @eventHandler(), #PB_EventType_MouseMove)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow