Skip to content
Extraits de code Groupes Projets
Valider 0047149c rédigé par Olyvia Hirwa Mihigo's avatar Olyvia Hirwa Mihigo
Parcourir les fichiers

Show Message function added

parent da92d2d8
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
...@@ -391,6 +391,18 @@ define ...@@ -391,6 +391,18 @@ define
end end
end end
proc{ShowMessages ID Msg}
M R
in
Desc=message(aspect:200
init:Msg
handle:M
)
CloseButton = button(text:Close glue: se action:toplevel#close)
{{QTk.build td(Desc CloseButton)} show}
end
proc{DeadTreatStream Stream State} proc{DeadTreatStream Stream State}
case Stream case Stream
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Veuillez vous inscrire ou vous pour commenter