{$B NOT EXEC_TYPES_H }
INCLUDE 'exec/types.h';
{$E NOT EXEC_TYPES_H }

{$B NOT EXEC_NODES_H }
INCLUDE 'exec/nodes.h';
{$E NOT EXEC_NODES_H }

{$B NOT EXEC_LISTS_H }
INCLUDE 'exec/lists.h';
{$E NOT EXEC_LISTS_H }

{$B NOT EXEC_TASKS_H }
INCLUDE 'exec/tasks.h';
{$E NOT EXEC_TASKS_H }

{$B NOT INTUITION_INTUITION_H }
INCLUDE 'intuition/intuition.h';
{$E NOT INTUITION_INTUITION_H }

CONST
 WBDISK           = 1;
 WBDRAWER         = 2;
 WBTOOL           = 3;
 WBPROJECT        = 4;
 WBGARBAGE        = 5;
 WBDEVICE         = 6;
 WBKICK           = 7;
 WB_DISKMAGIC     = $Xe310;
 WB_DISKVERSION   = 1;
 MTYPE_PSTD       = 1;
 MTYPE_TOOLEXIT   = 2;
 MTYPE_DISKCHANGE = 3;
 MTYPE_TIMER      = 4;
 MTYPE_CLOSEDOWN  = 5;
 MTYPE_IOPROC     = 6;
 GADGBACKFILL     = $X0001;
 NO_ICON_POSITION = $X80000000;

TYPE
 DrawerDataPtrType = ^DrawerData;

 DrawerData =
  PACKED RECORD
    dd_NewWindow : NewWindow;
    dd_CurrentX  ,
    dd_CurrentY  : INTEGER;
  END;

 DiskObjectPtrType = ^DiskObject;

 DiskObject =
  PACKED RECORD
    do_Magic       ,
    do_Version     : WORD;
    do_Gadget      : Gadget;
    do_Type        : BYTE;
    do_DefaultTool : CHARPtrType;
    do_ToolTypes   : CHARPtrPtrType;
    do_CurrentX    ,
    do_CurrentY    : INTEGER;
    do_DrawerData  : DrawerDataPtrType;
    do_ToolWindow  : CHARPtrType;
    do_StackSize   : INTEGER;
  END;

 WBObject = DiskObject;              { Where is WBObject in V2.1 ? }
 WBObjectPtrType = ^WBObject;

 FreeListPtrType = ^FreeList;

 FreeList =
  PACKED RECORD
    fl_NumFree : WORD;
    fl_MemList : List;
  END;