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...]