(*---------------------------------------------------------------------------
  :Program.    ReqTFileReq.def
  :Contents.   Simple Benutzung des ReqTools Filerequesters
  :Author.     Frank Lömker
  :Copyright.  Public Domain
  :Language.   Modula-2
  :Translator. M2Amiga V4.0d
  :Support.    Basiert zu großen Teilen auf ARPFileReq von Bernd Preußing
  :History.    V1.0, [Frank Lömker] 24-Feb-92
  :Bugs.       keine bekannt
---------------------------------------------------------------------------*)
DEFINITION MODULE ReqTFileReq;

FROM SYSTEM IMPORT ADDRESS;

PROCEDURE FileReq (VAR FName:ARRAY OF CHAR; Window:ADDRESS; Title:ARRAY OF CHAR;
                   x,y:INTEGER; pattern:ARRAY OF CHAR):BOOLEAN;
(* :Input.      FName: Vorgabe des kompletten Namens mit Pfad
   :Input.      Window: Das Fenster, in dem der Requester erscheinen soll
   :Input.      Title: Meldung für Fenstertitel, z.B. 'Laden'
   :Input.      x,y: Koordinaten des Requesters, bei <0 default
   :Input.      pattern: Pattern, das benutzt werden soll
   :Input.               bei '' kein Pattern-Gadget
   :Result.	TRUE: FName ist gültig und wurde angewählt.
   :Result.	FALSE: Es wurde CANCEL oder Window-Close angewählt
   :Semantic.   Es wird ein ReqTools-FileRequester geöffnet.
*)
END ReqTFileReq.def