Ce code fonctione sous Windows, je pense donc que ça ne viens pas de moi, mais je ne suis pas sur...
Code : Tout sélectionner
Enumeration; Menus
#Sept
#Huit
EndEnumeration
#Vrai = 1 : #Faux = 0 : #Oui = 1 : #Non = 0
; Variables
Sortie.b = 0
Event.l
Hide.l = 0
; Tableaux
; Initialisations
If OpenWindow(0, 0, 0, 220, 500, "OSMail", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ButtonGadget(#Sept,15,235,30,30,"7",#PB_Text_Center)
ButtonGadget(#Huit,50,235,30,30,"8",#PB_Text_Center)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Menu
Select EventMenu()
Case #PB_Menu_Quit
Sortie = #Vrai
EndSelect
Case #PB_Event_Gadget
MessageRequester("Bug","Le bug disparait")
EndSelect
Until Sortie = #Vrai
EndIf
End