home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 06 / praxis / testfsel.mod < prev   
Encoding:
Text File  |  1989-03-23  |  939 b   |  39 lines
  1. (*********************************************************)
  2. (*                     TESTFSEL.MOD                      *)
  3. (*   Testprogramm zur Dateiauswahlbox für TopSpeed M2    *)
  4. (*            (C) 1989 Dirk Donath & TOOLBOX             *)
  5. (*********************************************************)
  6.  
  7. MODULE TestFSelect;
  8.  
  9. IMPORT IO, FSelect;
  10.  
  11. VAR
  12.   Frage     : FSelect.FraTyp;
  13.   Antwort   : FSelect.AntTyp;
  14.   Dateiname : ARRAY[0..80] OF CHAR;
  15.  
  16. BEGIN
  17.   (* Patternfenster definieren *)
  18.   WITH Frage DO
  19.     X1     := 2;
  20.     Y1     := 2;
  21.     Breite := 40;
  22.     Prompt := 'Datei(maske):';
  23.   END;
  24.   (* Dateifenster definieren *)
  25.   WITH Antwort DO
  26.     X1      := 5;
  27.     Y1      := 5;
  28.     Zeilen  := 5;
  29.     Spalten := 3;
  30.   END;
  31.   IF FSelect.GetFName(Frage,Antwort,Dateiname) THEN
  32.     IO.WrStr(Dateiname); IO.WrStr(' gewählt.');
  33.   ELSE
  34.     IO.WrStr('Kein Dateiname gewählt.');
  35.   END;
  36.   IO.WrLn;
  37. END TestFSel.
  38.  
  39.