home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 06 / praxis / fselect.def next >
Encoding:
Modula Definition  |  1989-03-22  |  1.9 KB  |  50 lines
  1. (*********************************************************)
  2. (*                      FSELECT.DEF                      *)
  3. (*          Dateiauswahlbox für TopSpeed Modula 2        *)
  4. (*              (C) 1989 Dirk Donath & TOOLBOX           *)
  5. (*********************************************************)
  6.  
  7. DEFINITION MODULE FSelect;
  8.  
  9. TYPE
  10.   FraTyp = RECORD  (* Spezifikationen des Frage-Fensters *)
  11.     X1,Y1,                        (* Linke obere Ecke    *)
  12.     Breite : CARDINAL;            (* Breite des Fensters *)
  13.     Prompt : ARRAY[0..40] OF CHAR;(* Eingabeaufforderung *)
  14.   END;
  15.  
  16.   AntTyp = RECORD(* Spezifikationen des Antwort-Fensters *)
  17.     X1,Y1,       (* Linke obere Ecke                     *)
  18.     Zeilen,             (* Anz. Dateinamen untereinander *)
  19.     Spalten : CARDINAL; (*  "        "     nebeneinander *)
  20.   END;
  21.  
  22. PROCEDURE GetFName(Frage : FraTyp; Antwort : AntTyp;
  23.                    VAR DateiName : ARRAY OF CHAR) : BOOLEAN;
  24.  
  25. (* Zuerst erscheint ein Frage-Fenster, das nach einem
  26.   Dateinamen oder einer Dateimaske fragt. Hat man im
  27.   Dateinamen Wildcards [*,?] benutzt, dann erscheint
  28.   das Antwort-Fenster.
  29.   Dort werden in alphabetischer Reihenfolge alle
  30.   Dateien des aktuellen Verzeichnisses dargestellt, die
  31.   der angegebenen Dateimaske entsprechen.
  32.   Außerdem werden alle Unterverzeichnisse und das
  33.   Stammverzeichnis des aktuellen Verzeichnisses
  34.   dargestellt.
  35.   Mit den Cursortasten und <RETURN> kann man nun einen
  36.   Dateinamen auswählen oder zu einem anderen Verzeichnis
  37.   wechseln.
  38.   Mit <ESC> kann man die Suche abbrechen.
  39.  
  40.   Hat man einen Dateinamen ausgewählt, so wird TRUE
  41.   zurückgegeben, und man erhält den Dateinamen mit Pfad
  42.   und Laufwerksbezeichnung (z.B. C:\M2\LIB\STR.MOD) in der
  43.   Variablen DateiName.
  44.   Hat man das Antwortfenster mit <ESC> verlassen oder
  45.   konnte keine zu den Wildcards passende Datei gefunden
  46.   werden, so wird FALSE zurückgegeben.                      *)
  47.  
  48. END FSelect.
  49.  
  50.