DEFINITION MODULE AslRequest;
(* 06-Jun-93/bp *)

(* Die Modul benötigt die asl.library V36! *)

(*$ LargeVars:=FALSE NameChk:=FALSE *)

(*
 * Zweck:  Öffnet einen ASL-Filerequester und läßt
 *         den Benutzer einen Dateinamen auswählen.
 *         Alle Einstellungen, die der Benutzer vor-
 *         nimmt, bleiben zwischen den Aufrufen er-
 *         halten.
 *
 * Parameter:
 *  FName: leer oder gültiger Dateiname mit
 *         oder ohne Pfad als Vorgabe
 *  Title: Der Titel des Requesters, z.B. "Save as"
 *  Pat:   leer oder gültiges Pattern. "#?" entspricht
 *         leer, aber der Benutzer kann es verändern.
 *  Save   Sollte bei Anfragen zum Speichern TRUE
 *         sein, sonst FALSE
 *
 * Resultat:
 *  TRUE: Der Benutzer hat einen Namen ausgewählt oder
 *        Ok gedrückt. Der Name muß aber kein gültiger
 *        Dateiname sein!!
 *  FALSE:Der Benutzer hat Cancel gewählt. FName ist
 *        dann bei der Rückkehr unverändert.
 *)
PROCEDURE FileReq(
           VAR FName:ARRAY OF CHAR;
           Title:ARRAY OF CHAR;
           Pattern:ARRAY OF CHAR;
           save:BOOLEAN
           ):BOOLEAN;

(*
 * Zweck:  Öffnet einen ASL-Filerequester und läßt
 *         den Benutzer ein Verzeichnis auswählen.
 *
 * Parameter:
 *  DName: leer oder gültiger Verzeichnisname mit
 *         oder ohne Pfad
 *  Title: Der Titel des Requesters, z.B. "Select"
 *
 * Resultat:
 *  TRUE: Der Benutzer hat einVerzeichnis ausgewählt oder
 *        Ok gedrückt. Der Name muß aber kein gültiger
 *        Verzeichnisname sein!!
 *  FALSE:Der Benutzer hat Cancel gewählt. DName ist
 *        dann bei der Rückkehr unverändert.
 *)
PROCEDURE DirReq(
		VAR DName:ARRAY OF CHAR;
		Title:ARRAY OF CHAR
		):BOOLEAN;

END AslRequest.def
