Navigation Dialogs
Groupe de classes servant à obtenir l'adresse d'un fichier ou d'un
répertoire.
Version: 1.1
Date: Le 6 août 1997
Rédaction: Jocelyn Houle
Direction: Jean Vaucher
Introduction
Il est facile de créer une fenêtre qui demande à l'usager de
spécifier un fichier ou un répertoire.
Code
BEGIN
EXTERNAL CLASS WindowTools;
INSPECT NEW MainWindow("Main") DO BEGIN
OutLine("Open:" & GetFile ("Open a file...", "") & ":");
OutLine("Save:" & GetNewFile ("Saving as...", "", "Untitled") & ":");
OutLine("Folder:" & GetDirectory("Select a folder", "/JSP/D3/usagers/simula") & ":");
END;
END;
Il existe 3 types d'appel: GetFile, GetNewFile
et GetDirectory. Le premier sert à sélectionner
un fichier existant, le second, à définir un nouveau fichier (il
contient donc une zône de texte où l'on peut spécifier le
nom du fichier) et le troisième sert à spécifier un
répertoire (il a donc un bouton servant à valider le
répertore désiré). Chaque appel retourne la chaîne
de caractères correspondant à l'entité sous UNIX (ex:
"/JSP/E3/usagers/moi/allo.txt" pour un fichier ou
"/JSP/E3/usagers/moi/" pour un répertoire).
Informations sur les appels
Il existe trois appels: un pour sélectionner un fichier existant, un
autre pour définir un nouveau fichier et un dernier pour choisir un
répertoire.
 |
- TEXT procedure GetFile(Message, Path); TEXT Message, Path;
- Crée une fenêtre qui demande un fichier existant à
l'usager. Retourne le texte correspondant à l'endroit du fichier
dans le réseau
(ex: "/JSP/E3/usagers/houlejo/test.sim").
Message est une phrase qui donnera un indice à l'usager
quant à
l'action qu'il entreprend (ex: "Quel fichier ouvrir?")
Path est l'endroit dans le réseau qui sera lu en premier.
Par exemple,
si on met "/usr/local/bin" on ouvrira la fenêtre là en
partant
(mais l'usager peut toujours changer de place comme il le désire par
la suite).
Note: Si Path est notext, le répertoire courant
sera utilisé.
|
 |
- TEXT procedure GetNewFile(Message, Path, DefName); TEXT
Message, Path, DefName;
- Crée une fenêtre qui demande un fichier existant à
l'usager.
Retourne le texte correspondant à l'endroit du fichier dans le
réseau (ex:
"/JSP/E3/usagers/houlejo/test.sim").
DefName est le nom du fichier par défaut.
|
 |
- TEXT procedure GetDirectory(Message, Path); TEXT Message,
Path;
- Retourne le texte correspondant au répertoire choisi par l'usager
(par exemple
"/usr/local/").
|
Exemple de programmes
[Retour à l'index de WindowTools...]