[RESOLU] Comment stopper une procédure

[MLD]

Salut Ar-S
Pour avoir des réponses enlève résolu
J'ai regardé, mais je ne comprend pas plus que toi. Il faut dire que je n'utilise que rarement les threads.
Bonne journée
Michel

[Ar-S]

Ce n'est pas mon topic... je ne peux pas l'éditer.
Je reposte donc ma demande.

Pourquoi mes "MessageRequester()" n'apparaissent-il pas ?

Code : Tout sélectionner

Global toto.l
toto=1

;Declare WorkingProgress(*bidule)

Procedure.l WorkingProgress(*bidule)
  Repeat
    Debug "toto"
    MessageRequester("test","numéro "+Str(toto))
    toto+1
  Until toto=3
EndProcedure

If IsThread(thread)
  Debug "thread ON"
Else
  Debug "thread OFF"
EndIf

thread=CreateThread(@WorkingProgress(),100)

If IsThread(thread)
  Debug "thread ON"
Else
  Debug "thread OFF"
EndIf

Debug "terminé"
End

[Cls]

Avec une boucle des évènements, c'est mieux
(Sinon le programme sort direct, sans avoir le temps de lancer le thread)

Code : Tout sélectionner

Global toto.l
toto=1

;Declare WorkingProgress(*bidule)

Procedure.l WorkingProgress(*bidule)
  Repeat
    Debug "toto"
    MessageRequester("test","numéro "+Str(toto))
    toto+1
  Until toto=3
EndProcedure

If IsThread(thread)
  Debug "thread ON"
Else
  Debug "thread OFF"
EndIf

thread=CreateThread(@WorkingProgress(),100)

While IsThread(thread)
  Delay(1)
Wend

Debug "terminé

[Ar-S]

Merci cls,
J'aurai jamais trouvé la solution..