Mise a jour : 5 avril 97

Décompilation by Pépé.

WarningBox(st) XLIB 176 145

Beep d'erreur et affichage de la chaine comme MSGBOX avec dans le coin haut gauche. G&egravele; de l'écran.

Décompilation :
begin
<Dh>
<5h>
XLIB 176 133
~
XLIB 177 2
bip
XLIB 177 0
drop
SetDAsNoCh
end		 {
14 @ nb de colonne
5
@
#6E97h
@ liste menu [][][][][][OK]
#141E5h
@ MsgBox(st,2s,go,rpl)
#3244h
#391EEh
}

MsgBox(st,2s,go,rpl) XLIB 177 0

Affiche la chaine st5 sur s4 colonnes dans une boite à message avec un dessin centré à gauche. Le rpl doit creer une liste de type menu. Le programme s'arr&egravete; quand la variable local 2 est true. Il est possible de faire plusieur page de menu.
Le menu crée par XLIB 177 2 est :
{
{""
begin
?
<46h>
<151h>
bip(2s)
SetDAsNoCh
end
}
{"OK"
XLIB 177 9
}}

{
#40788h @ inconnu
#64C16h
#64F04h
#141B2h
#391EEh
}

Les programmes "" peuvent être crée par le XLIB 168 0

[OK] XLIB 177 9 :

begin
true
true
2Lput
end		 {
#03A81h
#03A81h
#615F0h
}

ErrorBox XLIB 176 0

Affiche la derniere erreur séléctionnée (voir p 356 du tome 1) avec WarningBox(st).
Voici un exemple simple d'utilisation:
begin
IfError
begin
...
end
ThenError
ErrorBox
end		 {
# 04E5Eh
{
...
}
# 04EB8h
XLIB 176 0
}

Ce qui permet d'afficher les erreurs du programme dans une boite.

©zeHP

Club HP|Annonces| HoPsy| Mail| Débutant| Bricolage| Programation| IRC| Liens