 DEFINITION MODULE Window2; (* Copyright 1993 by Kai Hofmann *)

 (*$ StackChk       := FALSE *)
 (*$ RangeChk       := FALSE *)
 (*$ OverflowChk    := FALSE *)
 (*$ NilChk         := FALSE *)
 (*$ CaseChk        := FALSE *)
 (*$ ReturnChk      := FALSE *)
 (*$ LargeVars      := FALSE *)
 (*$ EntryClear     := TRUE  *)
 (*$ Volatile       := TRUE  *)
 (*$ StackParms     := TRUE  *)
 (*$ CStrings       := TRUE  *)


 FROM SYSTEM		IMPORT	ADDRESS;
 FROM IntuitionD	IMPORT	WindowPtr;


 TYPE	action2		= (close,nothing);
	action2ptr	= POINTER TO action2mem;
	action2mem	= RECORD
			    Action	: action2;
			  END;


 PROCEDURE OpenWin2(zeilen,spalten : SHORTCARD; wintitle : ADDRESS) : SHORTCARD;
 PROCEDURE CloseWin2;
 PROCEDURE ClearWin2;
 PROCEDURE OutputWin2(text : ARRAY OF CHAR; col : SHORTCARD; rev : BOOLEAN);
 PROCEDURE HandleAction2() : action2ptr;

 END Window2.
