[RESOLU] Enumeration je te hais !!

[falsam]

Je ne sais pas si c'est un bug ou si je n'utilise pas correctement le couple Enumeration ... EndEnumeration

Je cherche à ouvrir une fenêtre depuis la fenêtre principale de mon application.
Quand je clique sur le bouton Voir la fenêtre 2 j'ai bien ma deuxième fenêtre mais la fenetre principale de l'application se ferme alors que ce n'est pas ce que je souhaite.

Dans le code simplifié pour résumé ce qui se passe, j'ai décrit chacune de mes fenêtres dans une séquence d'énumération différente.

Code : Tout sélectionner

Enumeration
  #Window1
  
  #Button
EndEnumeration

Enumeration
  #Window2
EndEnumeration


Procedure WindowShow_1()
  OpenWindow(#Window1, 0, 0, 800, 600, "Fenetre Un", #PB_Window_SystemMenu) 
  ButtonGadget(#Button, 600, 50, 80, 22, "Voir fenetre 2")
EndProcedure

Procedure WindowShow_2()
  OpenWindow(#Window2, 427, 128, 616, 436, "Fenetre 2" ,#PB_Window_SystemMenu)
EndProcedure

WindowShow_1()

Repeat
  Select WaitWindowEvent()
     Case #PB_Event_CloseWindow:
      If EventWindow() = #Window2
        CloseWindow(#Window2)
      Else
        End
      EndIf
      
    Case #PB_Event_Gadget:
      Select EventGadget()
          
        Case #Button
          WindowShow_2()
                    
      EndSelect
  EndSelect
ForEver

[falsam]

J'ai résolu ce problème en décrivant mes deux fenêtres dans une seule énumération

Code : Tout sélectionner

Enumeration
  #Window1
  #Window2
  
  #Button
EndEnumeration

[falsam]

Je pensais que la deuxième série d’énumération s'incrémentait à la suite de la première série d’énumération. Merci Dobro pour cette réponse

[Backup]

Je pensais que la deuxième série d’énumération s'incrémentait à la suite de la première série d’énumération. Merci Dobro pour cette réponse

arf ! j'ai effacé mon message par erreur !

[djes]

Tu peux le faire avec #PB_Compiler_EnumerationValue

Doc:

Code : Tout sélectionner

Exemple: Enumérations chainées

  Enumeration
    #GadgetInfo ; Sera 0
    #GadgetText ; Sera 1
    #GadgetOK   ; Sera 2
  EndEnumeration
  
  Enumeration #PB_Compiler_EnumerationValue
    #GadgetCancel ; Sera 3
    #GadgetImage  ; Sera 4
    #GadgetSound  ; Sera 5
  EndEnumeration