% Nom du fichier: AllFiles.sim % Description: Exemple qui montre les 3 appels de selction de fichier: % GetFile, GetNewFile et GetDirectory % On affiche le resultat entre des deux-points ':' % Auteur: JPH % Date: Le 28 juillet 1997 % Version: 1.01 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;