@G-Rom - Avec ou sans le debug ça ne fonctionne pas.
Je ne vois tout de même pas pourquoi ça ne fonctionnerai pas ainsi.
Voilà la boucle "complète" avec le minimum de contenu.
Je viens d'essayer en vérifiant les event en debut de boucle mais ça ne marche toujours pas !
Code : Tout sélectionner
; --------------------------------------------------------------------------------------------
; ----------- BOUCLE ------------ PRINCIPALE
; --------------------------------------------------------------------------------------------
Repeat
EvWIN = WaitWindowEvent()
EvGAD = EventGadget()
EvTYPE = EventType()
EvMENU = EventMenu()
Select EvWIN
; ///////////////////
; --------------------------------------------------------------------------------------------
; ----------- EVENT ------------ MENU (raccourcis clavier)
; --------------------------------------------------------------------------------------------
Case #PB_Event_Menu
Select EvMenu
Case #TOUCHE_ESC
Quite = 1
EndSelect
; --------------------------------------------------------------------------------------------
; ----------- EVENT ------------ GADGETS
; --------------------------------------------------------------------------------------------
Case #PB_Event_Gadget
Select EvGAD
Case #ROOT
Case #EXP
If EvTYPE = #PB_EventType_LeftDoubleClick
DEBUG "DOUBLE CLICK ?! " + str(EvTYPE)
EndIf
EndSelect
; ////////////////////////
EndSelect
Until Quite = 1
Au niveau de la syntaxe je ne vois rien qui cloche.
P.S : perdre du (beaucoup de) temps pour ce genre de chose me gonfle à un point !
Dernière modification par
Ar-S le sam. 15/juin/2013 13:49, modifié 1 fois.