Afficher/masquer un gadget automatiquement

[julien]

Je veux afficher/cacher un gadget de fçon automatique avec un thread, mais le problème c'est que plus rien ne s'affiche. Le code marche quand cela est fait par l'utilisateur.

Code : Tout sélectionner

Procedure upadate()
Repeat
HideGadget(0, 1)
Delay(500)
HideGadget(0, 0)
ForEver  

EndProcedure


  
  
  
  
  If OpenWindow(0,0,0,180,120,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"") And CreateGadgetList(WindowID(0)) 
    ButtonGadget(0,10,10,160,50,"OK")       : button = #True   ; Button is displayed 
    
    CreateThread(@upadate(),0)
    Repeat 
      ev.l= WaitWindowEvent() 
      
    Until ev = #PB_Event_CloseWindow 
  EndIf 

D'ou viens le problème ?

[Heis Spiter]

Tu as oublié un delai, ce qui fait que l'activation du bouton ne dure même pas une seconde, ce qui est trop rapide pour l'oeil humain.

Code : Tout sélectionner

Procedure upadate() 

  Repeat 
    HideGadget(0, 1) 
    Delay(500) 
    HideGadget(0, 0) 
    Delay(500)
  ForEver  

EndProcedure 

If OpenWindow(0,0,0,180,120,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"") And CreateGadgetList(WindowID(0)) 
  ButtonGadget(0,10,10,160,50,"OK")
  button = #True   ; Button is displayed 
  CreateThread(@upadate(),0) 
  Repeat 
    ev.l= WaitWindowEvent() 
  Until ev = #PB_Event_CloseWindow 
EndIf 

[julien]

la grosse erreur tout c*** et portant j'ai cherché plus compliqué
Merci ++