home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 03 / 68000 / reqstr.def next >
Encoding:
Modula Definition  |  1988-12-22  |  1.1 KB  |  37 lines
  1. (*******************************************************)
  2. (*                  ReqString.def                      *)
  3. (* Module zum einfachen Erstellen eines Stringrequests *)
  4. (*          (C) 1988 Frank Schäfer & TOOLBOX           *)
  5.  
  6. DEFINITION MODULE ReqString;
  7.  
  8. FROM Intuition  IMPORT ScreenPtr,Gadget,IntuiText,
  9.                        StringInfo;
  10. FROM SYSTEM IMPORT ADDRESS;
  11.  
  12.  
  13. TYPE  STRING     = ARRAY [0..80] OF CHAR;
  14.       STRINGS    = ARRAY [0..20] OF STRING;
  15.       ZAHLEN     = ARRAY [0..20] OF LONGINT;
  16.       Daten = RECORD
  17.                 TextOrZahl : BOOLEAN;
  18.                 Texte      : STRINGS;
  19.                 Zahlen     : ZAHLEN
  20.              END;
  21.  
  22.  
  23. PROCEDURE MakeIText (VAR IText : IntuiText;
  24.                          Text : ADDRESS;
  25.                          x,y : INTEGER);
  26.  
  27. PROCEDURE StringGadget (VAR SGad : Gadget;
  28.                         VAR SInfo : StringInfo;
  29.                         VAR Buffer,UBuffer : STRING);
  30.  
  31. PROCEDURE RequestString (SPtr : ScreenPtr;
  32.           Anzahl : INTEGER;
  33.           Texte : STRINGS;
  34.           VAR Ergebnisse : Daten);
  35.  
  36. END ReqString.
  37.