home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / workbench / workbench.h < prev   
Encoding:
Text File  |  1994-07-25  |  2.7 KB  |  126 lines
  1. {$if not def WORKBENCH_WORKBENCH_H} CONST WORKBENCH_WORKBENCH_H=0;
  2.  
  3. { ***********************************************************************
  4.   ** KickPascal-Include-Datei "Workbench/Workbench.h" zu Kickstart 3.0 **
  5.   *********************************************************************** }
  6.  
  7. TYPE p_AppWindow = ^AppWindow;
  8. TYPE p_AppIcon = ^AppIcon;
  9. TYPE p_AppMenuItem = ^AppMenuItem;
  10. TYPE p_AppMessage = ^AppMessage;
  11. TYPE p_FreeList = ^FreeList;
  12. TYPE p_DiskObject = ^DiskObject;
  13. TYPE p_DrawerData = ^DrawerData;
  14. TYPE p_OldDrawerData = ^OldDrawerData;
  15.  
  16.  
  17. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  18. {$if not def EXEC_LISTS_H;incl "exec/lists.h";endif}
  19. {$if not def EXEC_TASKS_H;incl "exec/tasks.h";endif}
  20. {$if not def INTUITION_INTUITION_H;incl "intuition/intuition.h";endif}
  21. {$if not def WORKBENCH_STARTUP_H;incl "workbench/startup.h";endif}
  22.  
  23. CONST
  24.  WBDISK    = 1;
  25.  WBDRAWER  = 2;
  26.  WBTOOL    = 3;
  27.  WBPROJECT = 4;
  28.  WBGARBAGE = 5;
  29.  WBDEVICE  = 6;
  30.  WBKICK    = 7;
  31.  WBAPPICON = 8;
  32.  
  33. TYPE OldDrawerData =RECORD
  34.  dd_NewWindow : NewWindow;
  35.  dd_CurrentX  : LongInt;
  36.  dd_CurrentY  : LongInt;
  37. END;
  38.  
  39. CONST OLDDRAWERDATAFILESIZE= 56; { = sizeof(OldDrawerData) }
  40.  
  41. TYPE DrawerData = RECORD
  42.  dd_NewWindow : NewWindow;
  43.  dd_CurrentX  : LongInt;
  44.  dd_CurrentY  : LongInt;
  45.  dd_Flags     : Long;
  46.  dd_ViewModes : Word;
  47. END;
  48.  
  49. CONST DRAWERDATAFILESIZE= 62; { = sizeof(DrawerData) }
  50.  
  51. TYPE DiskObject = RECORD
  52.  do_Magic       : Word;
  53.  do_Version     : Word;
  54.  do_Gadget      : Gadget;
  55.  do_Type        : Byte;
  56.  do_DefaultTool : Str;
  57.  do_ToolTypes   : Ptr;
  58.  do_CurrentX    : LongInt;
  59.  do_CurrentY    : LongInt;
  60.  do_DrawerData  : p_DrawerData;
  61.  do_ToolWindow  : Str;
  62.  do_StackSize   : LongInt;
  63. END;
  64.  
  65. CONST
  66.  WB_DISKMAGIC        = $e310;
  67.  WB_DISKVERSION      =   1;
  68.  WB_DISKREVISION     =   1;
  69.  WB_DISKREVISIONMASK = 255;
  70.  
  71. TYPE FreeList = RECORD
  72.  fl_NumFree : Integer;
  73.  fl_MemList : List;
  74. END;
  75.  
  76. CONST
  77.  MTYPE_PSTD        = 1;
  78.  MTYPE_TOOLEXIT    = 2;
  79.  MTYPE_DISKCHANGE  = 3;
  80.  MTYPE_TIMER       = 4;
  81.  MTYPE_CLOSEDOWN   = 5;
  82.  MTYPE_IOPROC      = 6;
  83.  MTYPE_APPWINDOW   = 7;
  84.  MTYPE_APPICON     = 8;
  85.  MTYPE_APPMENUITEM = 9;
  86.  MTYPE_COPYEXIT    = 10;
  87.  MTYPE_ICONPUT     = 11;
  88.  
  89. CONST GADGBACKFILL = $0001;
  90.  
  91. CONST NO_ICON_POSITION = $80000000;
  92.  
  93. CONST WORKBENCH_NAME = "workbench.library";
  94.  
  95. CONST AM_VERSION = 1;
  96.  
  97. TYPE AppMessage = RECORD
  98.  am_Message  : Message;
  99.  am_Type     : Word;
  100.  am_UserData : Long;
  101.  am_ID       : Long;
  102.  am_NumArgs  : LongInt;
  103.  am_ArgList  : p_WBarg;
  104.  am_Version  : Word;
  105.  am_Class    : Word;
  106.  am_MouseX   : Integer;
  107.  am_MouseY   : Integer;
  108.  am_Seconds  : Long;
  109.  am_Micros   : Long;
  110.  am_Reserved : ARRAY[0..7] OF Long;
  111. END;
  112.  
  113. TYPE AppWindow = RECORD;
  114.  aw_PRIVATE : Ptr;
  115. END;
  116.  
  117. TYPE AppIcon = RECORD;
  118.  ai_PRIVATE : Ptr;
  119. END;
  120.  
  121. TYPE AppMenuItem = RECORD;
  122.  ami_PRIVATE : Ptr;
  123. END;
  124.  
  125. {$endif}
  126.