BindEvent et shorcut

[graph100]

Es-ce normal que ça ne fonctionne pas avec #pb_All ?

Code : Tout sélectionner

Procedure EV_EXIT()
	
	End
	
EndProcedure



WD_main = OpenWindow(#PB_Any, 0, 0, 200, 100, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
GD_canvas = CanvasGadget(#PB_Any, 0, 0, WindowWidth(WD_main), WindowHeight(WD_main))

AddKeyboardShortcut(WD_main, #PB_Shortcut_Escape, 0)

BindEvent(#PB_Event_Menu, @EV_EXIT(), #PB_All, 0)
; BindEvent(#PB_Event_Menu, @EV_EXIT(), WD_main, 0)

BindEvent(#PB_Event_CloseWindow, @EV_EXIT())

;}



Repeat
	event = WaitWindowEvent()
ForEver