unit Workbench;

INTERFACE
uses Exec, AmigaDOS, Intuition;


type
	pWBArg = ^tWBArg;
	tWBArg = record
		wa_Lock: BPTR;
		wa_Name: pshortint;
		end;

	pDrawerData = ^tDrawerData;
	tDrawerData = record
		dd_NewWindow: tNewWindow;
		dd_CurrentX: longint;
		dd_CurrentY: longint;
		end;

	pDiskObject = ^tDiskObject;
	tDiskObject = record
		do_Magic: word;
		do_Version: word;
		do_Gadget: tGadget;
		do_Type: byte;
		do_DefaultTool: pbyte;
		do_ToolTypes: ppbyte;
		do_CurrentX: longint;
		do_CurrentY: longint;
		do_DrawerData: pDrawerData;
		do_ToolWindow: pbyte;
		do_StackSize: longint;
		end;

	pFreeList = ^tFreeList;
	tFreeList = record
		fl_NumFree: integer;
		fl_MemList: tList;
		end;

	pWBStartup = ^tWBStartup;
	tWBStartup = record
		sm_Message: tMessage;
		sm_Process: pMsgPort;
		sm_Segment: BPTR;
		sm_NumArgs: longint;
		sm_ToolWindow: pbyte;
		sm_ArgList: pWBArg;
		end;



const
	WBDRAWER = 2;
	MTYPE_PSTD = 1;
	MTYPE_DISKCHANGE = 3;
	MTYPE_TOOLEXIT = 2;
	DRAWERDATAFILESIZE = $38;
	GADGBACKFILL = 1;
	WBGARBAGE = 5;
	WBKICK = 7;
	MTYPE_IOPROC = 6;
	WBDISK = 1;
	NO_ICON_POSITION = $80000000;
	WBTOOL = 3;
	MTYPE_CLOSEDOWN = 5;
	MTYPE_TIMER = 4;
	WBDEVICE = 6;
	WBPROJECT = 4;
	WB_DISKVERSION = 1;
	WB_DISKMAGIC = $E310;


IMPLEMENTATION
end.