home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-2.DMS / in.adf / Units / Workbench.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  1.2 KB  |  77 lines
  1. unit Workbench;
  2.  
  3. INTERFACE
  4. uses Exec, AmigaDOS, Intuition;
  5.  
  6.  
  7. type
  8.     pWBArg = ^tWBArg;
  9.     tWBArg = record
  10.         wa_Lock: BPTR;
  11.         wa_Name: pshortint;
  12.         end;
  13.  
  14.     pDrawerData = ^tDrawerData;
  15.     tDrawerData = record
  16.         dd_NewWindow: tNewWindow;
  17.         dd_CurrentX: longint;
  18.         dd_CurrentY: longint;
  19.         end;
  20.  
  21.     pDiskObject = ^tDiskObject;
  22.     tDiskObject = record
  23.         do_Magic: word;
  24.         do_Version: word;
  25.         do_Gadget: tGadget;
  26.         do_Type: byte;
  27.         do_DefaultTool: pbyte;
  28.         do_ToolTypes: ppbyte;
  29.         do_CurrentX: longint;
  30.         do_CurrentY: longint;
  31.         do_DrawerData: pDrawerData;
  32.         do_ToolWindow: pbyte;
  33.         do_StackSize: longint;
  34.         end;
  35.  
  36.     pFreeList = ^tFreeList;
  37.     tFreeList = record
  38.         fl_NumFree: integer;
  39.         fl_MemList: tList;
  40.         end;
  41.  
  42.     pWBStartup = ^tWBStartup;
  43.     tWBStartup = record
  44.         sm_Message: tMessage;
  45.         sm_Process: pMsgPort;
  46.         sm_Segment: BPTR;
  47.         sm_NumArgs: longint;
  48.         sm_ToolWindow: pbyte;
  49.         sm_ArgList: pWBArg;
  50.         end;
  51.  
  52.  
  53.  
  54. const
  55.     WBDRAWER = 2;
  56.     MTYPE_PSTD = 1;
  57.     MTYPE_DISKCHANGE = 3;
  58.     MTYPE_TOOLEXIT = 2;
  59.     DRAWERDATAFILESIZE = $38;
  60.     GADGBACKFILL = 1;
  61.     WBGARBAGE = 5;
  62.     WBKICK = 7;
  63.     MTYPE_IOPROC = 6;
  64.     WBDISK = 1;
  65.     NO_ICON_POSITION = $80000000;
  66.     WBTOOL = 3;
  67.     MTYPE_CLOSEDOWN = 5;
  68.     MTYPE_TIMER = 4;
  69.     WBDEVICE = 6;
  70.     WBPROJECT = 4;
  71.     WB_DISKVERSION = 1;
  72.     WB_DISKMAGIC = $E310;
  73.  
  74.  
  75. IMPLEMENTATION
  76. end.
  77.