Fichu procédure

[Neosis]

Salut tous le monde, j'ai un petit soucis avec une procédure, d'habitude je fait des procédure simple mes à présent j'aimerai créer mais propre procédures (je c'est pas si ce que je dit est clair mais je pense que vous comprendrait en voyant ma procédure) ...

J'ai repris un exemple et j'ai essayé de comprendre, ensuite j'ai fait un test pour voir si j'avais bien compris, le soucis c'est que ce que j'ai codé ne marche pas. Voila si quelqu'un pouvais m'aider à comprendre ce qui cloche dans mon code ça serait sympa, le but de ce code est de simplement afficher un mot, c'est juste un test pour que par la suite je puisse réalisé des procédures beaucoup plus complexe

Structure id
x.l
y.l
Largeur.l
Hauteur.l
text.s
Couleur.s
EndStructure

Declare Init(*gadget.id)
Declare Panel_perso(*gadget.id,x.l, y.l, Largeur.l, Hauteur.l)

;==========================================================
OpenWindow(0,20,20,800,600,"test",#PB_Window_ScreenCentered|#PB_Window_MaximizeGadget)
gadget.id

If Panel_perso(@gadget,20,20,200,20)=0
MessageRequester("","")
EndIf

Repeat
evenement = WaitWindowEvent()

Until evenement = #PB_Event_CloseWindow

;==========================================================

Procedure Init(*gadget.id)
*gadget\x=0
*gadget\y=0
*gadget\Largeur=0
*gadget\Hauteur=0
EndProcedure

Procedure Panel_perso(*gadget.id,x.l, y.l, Largeur.l, Hauteur.l)
Init(*gadget)
TextGadget(1,x,y,Largeur,Hauteur,"cool")
EndProcedure

[poshu]

Code : Tout sélectionner

Structure id
  x.l
  y.l
  Largeur.l
  Hauteur.l
  text.s
  Couleur.s
EndStructure

Declare Init(*gadget.id)
Declare Panel_perso(*gadget.id,x.l, y.l, Largeur.l, Hauteur.l)

;==========================================================
OpenWindow(0,20,20,800,600,"test",#PB_Window_ScreenCentered|#PB_Window_MaximizeGadget)
CreateGadgetList(WindowID(0))
gadget.id

If Panel_perso(@gadget,20,20,200,20)=0
  MessageRequester("","")
EndIf

Repeat
  evenement = WaitWindowEvent()
  
Until evenement = #PB_Event_CloseWindow

;==========================================================

Procedure Init(*gadget.id)
  *gadget\x=0
  *gadget\y=0
  *gadget\Largeur=0
  *gadget\Hauteur=0
EndProcedure

Procedure Panel_perso(*gadget.id,x.l, y.l, Largeur.l, Hauteur.l)
  Init(*gadget)
  TextGadget(1,x,y,Largeur,Hauteur,"cool")
EndProcedure

ligne 15.
Moralité: lire les erreurs du compilo, c'est souvent utile.

[Neosis]

O_o ... ah la je suis vert
je c pas comment j'ai pu oubliai quelques choses d'aussi stupide, merci beaucoup