(*	Auto: m2c -d <file>.def
	Auto: m2l -x CP.obj
	Auto: CP
*)
DEFINITION MODULE CP4;
(*(*$S- $R- $V- $N- $F-*)*)
FROM SYSTEM	IMPORT ADDRESS;
FROM GraphicsD	IMPORT GfxBasePtr,RastPortPtr;
FROM IntuitionD	IMPORT GadgetPtr,WindowPtr,ScreenPtr;
FROM CP5	IMPORT CPconfigRec;

PROCEDURE CloseAll4;
PROCEDURE ToggleGadget(rp:RastPortPtr;GPtr:GadgetPtr);
PROCEDURE WaitStr (StrGadgPtr:GadgetPtr;VAR str:ARRAY OF CHAR;len:CARDINAL;
		   ungerade:CARDINAL;mwsWindowPtr:WindowPtr;
		   EditScreenPtr:ScreenPtr;VAR ok:BOOLEAN):LONGINT;
PROCEDURE CEditor(RCTbase,RCTcebase,RCTmenubaseEdit:ADDRESS;VAR CPconfig:CPconfigRec;
		  GFXbase:GfxBasePtr;VAR CPCLPtr:ADDRESS;VAR CPCLLenght:LONGINT);
END CP4.def