home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / modulessrc / workbench / workbench.e < prev   
Text File  |  1995-07-05  |  2KB  |  103 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. OPT PREPROCESS
  5.  
  6. MODULE 'exec/lists',
  7.        'exec/ports',
  8.        'intuition/intuition',
  9.        'workbench/startup'
  10.  
  11. CONST WORKBENCH_WORKBENCH_I=1,
  12.       WBDISK=1,
  13.       WBDRAWER=2,
  14.       WBTOOL=3,
  15.       WBPROJECT=4,
  16.       WBGARBAGE=5,
  17.       WBDEVICE=6,
  18.       WBKICK=7,
  19.       WBAPPICON=8
  20.  
  21. -> Um, this object was missing
  22. OBJECT olddrawerdata
  23.   newwindow:nw
  24.   currentx:LONG
  25.   currenty:LONG
  26. ENDOBJECT
  27.  
  28. CONST OLDDRAWERDATAFILESIZE=$38
  29.  
  30. OBJECT drawerdata
  31.   newwindow:nw
  32.   currentx:LONG
  33.   currenty:LONG
  34.   flags:LONG
  35.   viewmodes:INT  -> This is unsigned
  36. ENDOBJECT     /* SIZEOF=62 */
  37.  
  38. CONST DRAWERDATAFILESIZE=$3E
  39.  
  40. OBJECT diskobject
  41.   magic:INT  -> This is unsigned
  42.   version:INT  -> This is unsigned
  43.   gadget:gadget
  44.   type:CHAR
  45.   pad_byte:CHAR
  46.   defaulttool:PTR TO CHAR
  47.   tooltypes:PTR TO LONG
  48.   currentx:LONG
  49.   currenty:LONG
  50.   drawerdata:PTR TO drawerdata
  51.   toolwindow:PTR TO CHAR
  52.   stacksize:LONG
  53. ENDOBJECT     /* SIZEOF=78 */
  54.  
  55. CONST WB_DISKMAGIC=$E310,
  56.       WB_DISKVERSION=1,
  57.       WB_DISKREVISION=1,
  58.       WB_DISKREVISIONMASK=$FF
  59.  
  60. OBJECT freelist
  61.   numfree:INT
  62.   memlist:lh
  63. ENDOBJECT     /* SIZEOF=16 */
  64.  
  65. CONST GFLG_GADGBACKFILL=1,
  66.       GADGBACKFILL=1,
  67.       NO_ICON_POSITION=$80000000,
  68.       AM_VERSION=1,
  69.       AMTYPE_APPWINDOW=7,
  70.       AMTYPE_APPICON=8,
  71.       AMTYPE_APPMENUITEM=9
  72.  
  73. #define WORKBENCH_NAME 'workbench.library'
  74.  
  75. OBJECT appmessage
  76.   message:mn
  77.   type:INT  -> This is unsigned
  78.   userdata:LONG
  79.   id:LONG
  80.   numargs:LONG
  81.   arglist:PTR TO wbarg
  82.   version:INT  -> This is unsigned
  83.   class:INT  -> This is unsigned
  84.   mousex:INT
  85.   mousey:INT
  86.   seconds:LONG
  87.   micros:LONG
  88.   reserved[8]:ARRAY OF LONG
  89. ENDOBJECT     /* SIZEOF=62 */
  90.  
  91. OBJECT appwindow
  92.   private:LONG
  93. ENDOBJECT     /* SIZEOF=0 */
  94.  
  95. OBJECT appicon
  96.   private:LONG
  97. ENDOBJECT     /* SIZEOF=0 */
  98.  
  99. OBJECT appmenuitem
  100.   private:LONG
  101. ENDOBJECT     /* SIZEOF=0 */
  102.  
  103.