DEFINITION MODULE WorkbenchSupport;

FROM SYSTEM	IMPORT	ADDRESS;
FROM ExecD	IMPORT	MsgPortPtr;
FROM DosD	IMPORT	FileLockPtr;
FROM UtilityD	IMPORT	TagItemPtr;
IMPORT R, d:WorkbenchD;

(* Nur für Library-Version>=36! *)

(* Diese Prozedur stammt aus WorkbenchL. Sie muß eine
   Implementation erhalten, weil das Register A4 als
   Parameter benutzt wird, was in M2Amiga nicht möglich
   ist. Die Implementation benutzt WorkbenchL und NICHT
   OptWorkbenchL! Bei anderem Bedarf kopieren Sie die
   Prozedur in ihr eigenes Programm und passen sie an.
 *)
PROCEDURE AddAppIconA(
		id{R.D0}:LONGCARD;
		userdata{R.D1}:LONGINT;
		text{R.A0}:ADDRESS;
		msgport{R.A1}:MsgPortPtr;
		lock{R.A2}:FileLockPtr;
		diskobj{R.A3}:d.DiskObjectPtr;
		taglist{R.D2}:TagItemPtr (* D2 statt A4! *)
		):d.AppIconPtr;

END WorkbenchSupport.def
