home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / util / misc / kalender / txt / window2.def < prev    next >
Text File  |  1993-12-18  |  873b  |  34 lines
  1.  DEFINITION MODULE Window2; (* Copyright 1993 by Kai Hofmann *)
  2.  
  3.  (*$ StackChk       := FALSE *)
  4.  (*$ RangeChk       := FALSE *)
  5.  (*$ OverflowChk    := FALSE *)
  6.  (*$ NilChk         := FALSE *)
  7.  (*$ CaseChk        := FALSE *)
  8.  (*$ ReturnChk      := FALSE *)
  9.  (*$ LargeVars      := FALSE *)
  10.  (*$ EntryClear     := TRUE  *)
  11.  (*$ Volatile       := TRUE  *)
  12.  (*$ StackParms     := TRUE  *)
  13.  (*$ CStrings       := TRUE  *)
  14.  
  15.  
  16.  FROM SYSTEM        IMPORT    ADDRESS;
  17.  FROM IntuitionD    IMPORT    WindowPtr;
  18.  
  19.  
  20.  TYPE    action2        = (close,nothing);
  21.     action2ptr    = POINTER TO action2mem;
  22.     action2mem    = RECORD
  23.                 Action    : action2;
  24.               END;
  25.  
  26.  
  27.  PROCEDURE OpenWin2(zeilen,spalten : SHORTCARD; wintitle : ADDRESS) : SHORTCARD;
  28.  PROCEDURE CloseWin2;
  29.  PROCEDURE ClearWin2;
  30.  PROCEDURE OutputWin2(text : ARRAY OF CHAR; col : SHORTCARD; rev : BOOLEAN);
  31.  PROCEDURE HandleAction2() : action2ptr;
  32.  
  33.  END Window2.
  34.