Pour faire bref, voici deux exemples qui montrent le bug :
Avec le Bug :
Code : Tout sélectionner
Enumeration 100
#Window
EndEnumeration
;
Enumeration 100
#Button_0k
#Button_1k
EndEnumeration
Procedure Open_Window()
If OpenWindow(#Window, 291, 106, 417, 192, "test", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window))
ButtonGadget(#Button_0k, 60, 120, 120, 30, "B1")
ButtonGadget(#Button_1k,320, 100, 80, 70, "B2")
EndIf
EndIf
EndProcedure
Procedure test(*vkeyeur)
Open_Window()
Repeat
Delay(10)
evenk.l = WindowEvent()
If evenk = #PB_Event_Gadget
Select EventGadget()
Case #Button_1k
Goto exikeyey:
Case #Button_0k
Goto exikeyey:
EndSelect
EndIf
Until evenk = #PB_Event_CloseWindow
exikeyey:
CloseWindow(#Window)
EndProcedure
CreateThread(@test(),1)
Repeat
ForEver
Code : Tout sélectionner
Enumeration 100
#Window
EndEnumeration
;
Enumeration 100
#Button_0k
#Button_1k
EndEnumeration
Procedure Open_Window()
If OpenWindow(#Window, 291, 106, 417, 192, "test", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window))
ButtonGadget(#Button_0k, 60, 120, 120, 30, "B1")
ButtonGadget(#Button_1k,320, 100, 80, 70, "B2")
EndIf
EndIf
EndProcedure
Procedure test(*vkeyeur)
Open_Window()
Repeat
Delay(10)
evenk.l = WindowEvent()
If evenk = #PB_Event_Gadget
Select EventGadget()
Case #Button_1k
evenk = #PB_Event_CloseWindow
Case #Button_0k
evenk = #PB_Event_CloseWindow
EndSelect
EndIf
Until evenk = #PB_Event_CloseWindow
exikeyey:
CloseWindow(#Window)
EndProcedure
CreateThread(@test(),1)
Repeat
ForEver