Version: 1.0
Date: Le 12 juin 1997
Rédaction: Jocelyn Houle
Direction: Jean Vaucher
BEGIN
EXTERNAL CLASS WindowTools;
INSPECT NEW MainWindow("List Window") DO BEGIN
REF(Button) Quit;
REF(ListWindow) LW;
SetSize(200, 200);
Quit :- MakeButton("OK");
LW :- MakeListWindow.PutLine("Ligne 1")
.PutLine("Ligne 2!10!"
"Ligne 3");
Show;
Quit. Wait;
END;
END;
La création d'une ListWindow se fait à l'aide de la procédure MakeListWindow. L'option AllowInput permet d'écrire dans la zône.
|
On peut ensuite faire toutes les opérations disponibles dans les TextAreas... à l'exception de tout ce qui a trait au AllowInput, puisqu'une ListWindow ne fait que lister. Elle ne permet donc pas à l'usager d'éditer le contenu.
Il existe cependant une particularité qui fonctionne assez bien avec les ListWindows. Il s'agit du AllowChoice:
|
|
|