OpenWindow et la version Purebasic 4 beta 7 help

[bernard13]

bonjour

j'ai probleme avec Purebasic 4 beta 7
j'arrive pas a afficher ma fenetre .....

avant la beta 7 , ca marcher trés bien mais la commande OpenWindow à etait modifier avec la beta 7

j'utiliser ce code pour afficher ma fenetre , mais impossible de l'afficher en beta7

que manque t'il a mon code ?

merci

Code : Tout sélectionner

Enumeration
 #fenetre_0
EndEnumeration 







Procedure test()
  If OpenWindow(#fenetre_0,0,0,800,600,"test Pb,4",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EndIf
EndProcedure


test()

 Repeat
 Select WaitWindowEvent()
  Case #PB_Event_CloseWindow
  fermer=0
 EndSelect 
 Until fermer=0
 End
  

[bernard13]

probleme resolu
il suffisait de mettre Fermer=1

[Polo]

probleme resolu
il suffisait de mettre Fermer=1

La logique (enfin, la mienne ) voudrait que tu fasse l'inverse :

Code : Tout sélectionner

Enumeration
 #fenetre_0
EndEnumeration

Procedure test()
  If OpenWindow(#fenetre_0,0,0,800,600,"test Pb,4",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EndIf
EndProcedure


test()

 Repeat
 Select WaitWindowEvent()
  Case #PB_Event_CloseWindow
    fermer=1
 EndSelect
 Until fermer=1
 End
 

[Patrick88]

pense à poster ce genre questions à l'avenir dans "débutant"

stp