home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / new / dev / e / amigae / modulessrc / intuition / intuition.e < prev    next >
Text File  |  1995-07-05  |  15KB  |  650 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. OPT PREPROCESS
  5.  
  6. MODULE 'devices/keymap',
  7.        'exec/ports',
  8.        'graphics/clip',
  9.        'graphics/gfx',
  10.        'graphics/rastport',
  11.        'graphics/text',
  12.        'intuition/screens',
  13.        'intuition/sghooks',
  14.        'utility/tagitem'
  15.  
  16. OBJECT menu
  17.   nextmenu:PTR TO menu
  18.   leftedge:INT
  19.   topedge:INT
  20.   width:INT
  21.   height:INT
  22.   flags:INT  -> This is unsigned
  23.   menuname:PTR TO CHAR
  24.   firstitem:PTR TO menuitem
  25.   jazzx:INT
  26.   jazzy:INT
  27.   beatx:INT
  28.   beaty:INT
  29. ENDOBJECT     /* SIZEOF=30 */
  30.  
  31. CONST MENUENABLED=1,
  32.       MIDRAWN=$100
  33.  
  34. OBJECT menuitem
  35.   nextitem:PTR TO menuitem
  36.   leftedge:INT
  37.   topedge:INT
  38.   width:INT
  39.   height:INT
  40.   flags:INT  -> This is unsigned
  41.   mutualexclude:LONG
  42.   itemfill:LONG
  43.   selectfill:LONG
  44.   command:CHAR
  45.   subitem:PTR TO menuitem
  46.   nextselect:INT  -> This is unsigned
  47. ENDOBJECT     /* SIZEOF=34 */
  48.  
  49. CONST CHECKIT=1,
  50.       ITEMTEXT=2,
  51.       COMMSEQ=4,
  52.       MENUTOGGLE=8,
  53.       ITEMENABLED=16,
  54.       HIGHFLAGS=$C0,
  55.       HIGHIMAGE=0,
  56.       HIGHCOMP=$40,
  57.       HIGHBOX=$80,
  58.       HIGHNONE=$C0,
  59.       CHECKED=$100,
  60.       ISDRAWN=$1000,
  61.       HIGHITEM=$2000,
  62.       MENUTOGGLED=$4000
  63.  
  64. OBJECT requester
  65.   olderrequest:PTR TO requester
  66.   leftedge:INT
  67.   topedge:INT
  68.   width:INT
  69.   height:INT
  70.   relleft:INT
  71.   reltop:INT
  72.   reqgadget:PTR TO gadget
  73.   reqborder:PTR TO border
  74.   reqtext:PTR TO intuitext
  75.   flags:INT  -> This is unsigned
  76.   backfill:CHAR
  77.   reqlayer:PTR TO layer
  78.   reqpad1[32]:ARRAY
  79.   imagebmap:PTR TO bitmap
  80.   rwindow:PTR TO window
  81.   reqimage:PTR TO image
  82.   reqpad2[32]:ARRAY
  83. ENDOBJECT     /* SIZEOF=112 */
  84.  
  85. CONST POINTREL=1,
  86.       PREDRAWN=2,
  87.       NOISYREQ=4,
  88.       SIMPLEREQ=16,
  89.       USEREQIMAGE=$20,
  90.       NOREQBACKFILL=$40,
  91.       REQOFFWINDOW=$1000,
  92.       REQACTIVE=$2000,
  93.       SYSREQUEST=$4000,
  94.       DEFERREFRESH=$8000
  95.  
  96. CONST GD_LEFTEDGE=4
  97.  
  98. OBJECT gadget
  99.   nextgadget:PTR TO gadget
  100.   leftedge:INT
  101.   topedge:INT
  102.   width:INT
  103.   height:INT
  104.   flags:INT  -> This is unsigned
  105.   activation:INT  -> This is unsigned
  106.   gadgettype:INT  -> This is unsigned
  107.   gadgetrender:LONG
  108.   selectrender:LONG
  109.   gadgettext:PTR TO intuitext
  110.   mutualexclude:LONG
  111.   specialinfo:LONG
  112.   gadgetid:INT  -> This is unsigned
  113.   userdata:LONG
  114. ENDOBJECT     /* SIZEOF=44 */
  115.  
  116. OBJECT extgadget
  117.   nextgadget:PTR TO extgadget
  118.   leftedge:INT
  119.   topedge:INT
  120.   width:INT
  121.   height:INT
  122.   flags:INT  -> This is unsigned
  123.   activation:INT  -> This is unsigned
  124.   gadgettype:INT  -> This is unsigned
  125.   gadgetrender:LONG
  126.   selectrender:LONG
  127.   gadgettext:PTR TO intuitext
  128.   mutualexclude:LONG
  129.   specialinfo:LONG
  130.   gadgetid:INT  -> This is unsigned
  131.   userdata:LONG
  132.   moreflags:LONG
  133.   boundsleftedge:INT
  134.   boundstopedge:INT
  135.   boundswidth:INT
  136.   boundsheight:INT
  137. ENDOBJECT     /* SIZEOF=56 */
  138.  
  139. CONST GFLG_GADGHIGHBITS=3,
  140.       GFLG_GADGHCOMP=0,
  141.       GFLG_GADGHBOX=1,
  142.       GFLG_GADGHIMAGE=2,
  143.       GFLG_GADGHNONE=3,
  144.       GFLG_GADGIMAGE=4,
  145.       GFLG_RELBOTTOM=8,
  146.       GFLG_RELRIGHT=16,
  147.       GFLG_RELWIDTH=$20,
  148.       GFLG_RELHEIGHT=$40,
  149.       GFLG_RELSPECIAL=$4000,
  150.       GFLG_SELECTED=$80,
  151.       GFLG_DISABLED=$100,
  152.       GFLG_LABELMASK=$3000,
  153.       GFLG_LABELITEXT=0,
  154.       GFLG_LABELSTRING=$1000,
  155.       GFLG_LABELIMAGE=$2000,
  156.       GFLG_TABCYCLE=$200,
  157.       GFLG_STRINGEXTEND=$400,
  158.       GFLG_IMAGEDISABLE=$800,
  159.       GFLG_EXTENDED=$8000,
  160.       GACT_RELVERIFY=1,
  161.       GACT_IMMEDIATE=2,
  162.       GACT_ENDGADGET=4,
  163.       GACT_FOLLOWMOUSE=8,
  164.       GACT_RIGHTBORDER=16,
  165.       GACT_LEFTBORDER=$20,
  166.       GACT_TOPBORDER=$40,
  167.       GACT_BOTTOMBORDER=$80,
  168.       GACT_BORDERSNIFF=$8000,
  169.       GACT_TOGGLESELECT=$100,
  170.       GACT_BOOLEXTEND=$2000,
  171.       GACT_STRINGLEFT=0,
  172.       GACT_STRINGCENTER=$200,
  173.       GACT_STRINGRIGHT=$400,
  174.       GACT_LONGINT=$800,
  175.       GACT_ALTKEYMAP=$1000,
  176.       GACT_STRINGEXTEND=$2000,
  177.       GACT_ACTIVEGADGET=$4000,
  178.       GTYP_GADGETTYPE=$FC00,
  179.       GTYP_SYSGADGET=$8000,
  180.       GTYP_SCRGADGET=$4000,
  181.       GTYP_GZZGADGET=$2000,
  182.       GTYP_REQGADGET=$1000,
  183.       GTYP_SIZING=16,
  184.       GTYP_WDRAGGING=$20,
  185.       GTYP_SDRAGGING=$30,
  186.       GTYP_WUPFRONT=$40,
  187.       GTYP_SUPFRONT=$50,
  188.       GTYP_WDOWNBACK=$60,
  189.       GTYP_SDOWNBACK=$70,
  190.       GTYP_CLOSE=$80,
  191.       GTYP_BOOLGADGET=1,
  192.       GTYP_GADGET0002=2,
  193.       GTYP_PROPGADGET=3,
  194.       GTYP_STRGADGET=4,
  195.       GTYP_CUSTOMGADGET=5,
  196.       GTYP_GTYPEMASK=7,
  197.       GTYP_SYSTYPEMASK=$F0,
  198.       GTYP_WDEPTH=$40,
  199.       GTYP_SDEPTH=$50,
  200.       GTYP_WZOOM=$60,
  201.       GTYP_SUNUSED=$70,
  202.       GMORE_BOUNDS=1,
  203.       GMORE_GADGETHELP=2,
  204.       GMORE_SCROLLRASTER=4
  205.  
  206. OBJECT boolinfo
  207.   flags:INT  -> This is unsigned
  208.   mask:PTR TO INT  -> Target is unsigned
  209.   reserved:LONG
  210. ENDOBJECT     /* SIZEOF=10 */
  211.  
  212. CONST BOOLMASK=1
  213.  
  214. OBJECT propinfo
  215.   flags:INT  -> This is unsigned
  216.   horizpot:INT  -> This is unsigned
  217.   vertpot:INT  -> This is unsigned
  218.   horizbody:INT  -> This is unsigned
  219.   vertbody:INT  -> This is unsigned
  220.   cwidth:INT  -> This is unsigned
  221.   cheight:INT  -> This is unsigned
  222.   hpotres:INT  -> This is unsigned
  223.   vpotres:INT  -> This is unsigned
  224.   leftborder:INT  -> This is unsigned
  225.   topborder:INT  -> This is unsigned
  226. ENDOBJECT     /* SIZEOF=22 */
  227.  
  228. CONST AUTOKNOB=1,
  229.       FREEHORIZ=2,
  230.       FREEVERT=4,
  231.       PROPBORDERLESS=8,
  232.       KNOBHIT=$100,
  233.       PROPNEWLOOK=16,
  234.       KNOBHMIN=6,
  235.       KNOBVMIN=4,
  236.       MAXBODY=$FFFF,
  237.       MAXPOT=$FFFF
  238.  
  239. OBJECT stringinfo
  240.   buffer:PTR TO CHAR
  241.   undobuffer:PTR TO CHAR
  242.   bufferpos:INT
  243.   maxchars:INT
  244.   disppos:INT
  245.   undopos:INT
  246.   numchars:INT
  247.   dispcount:INT
  248.   cleft:INT
  249.   ctop:INT
  250.   extension:PTR TO stringextend
  251.   longint:LONG
  252.   altkeymap:PTR TO keymap
  253. ENDOBJECT     /* SIZEOF=36 */
  254.  
  255. OBJECT intuitext
  256.   frontpen:CHAR
  257.   backpen:CHAR
  258.   drawmode:CHAR
  259.   leftedge:INT
  260.   topedge:INT
  261.   itextfont:PTR TO textattr
  262.   itext:PTR TO CHAR
  263.   nexttext:PTR TO intuitext
  264. ENDOBJECT     /* SIZEOF=20 */
  265.  
  266. OBJECT border
  267.   leftedge:INT
  268.   topedge:INT
  269.   frontpen:CHAR
  270.   backpen:CHAR
  271.   drawmode:CHAR
  272.   count:CHAR  -> This is signed
  273.   xy:PTR TO INT
  274.   nextborder:PTR TO border
  275. ENDOBJECT     /* SIZEOF=16 */
  276.  
  277. CONST IG_LEFTEDGE=0
  278.  
  279. OBJECT image
  280.   leftedge:INT
  281.   topedge:INT
  282.   width:INT
  283.   height:INT
  284.   depth:INT
  285.   imagedata:PTR TO INT  -> Target is unsigned
  286.   planepick:CHAR
  287.   planeonoff:CHAR
  288.   nextimage:PTR TO image
  289. ENDOBJECT     /* SIZEOF=20 */
  290.  
  291. OBJECT intuimessage
  292.   execmessage:mn
  293.   class:LONG
  294.   code:INT  -> This is unsigned
  295.   qualifier:INT  -> This is unsigned
  296.   iaddress:LONG
  297.   mousex:INT
  298.   mousey:INT
  299.   seconds:LONG
  300.   micros:LONG
  301.   idcmpwindow:PTR TO window
  302.   speciallink:PTR TO intuimessage
  303. ENDOBJECT     /* SIZEOF=52 */
  304.  
  305. OBJECT extintuimessage
  306.   intuimessage:intuimessage
  307.   tabletdata:PTR TO tabletdata
  308. ENDOBJECT     /* SIZEOF=NONE !!! */
  309.  
  310. CONST IDCMP_SIZEVERIFY=1,
  311.       IDCMP_NEWSIZE=2,
  312.       IDCMP_REFRESHWINDOW=4,
  313.       IDCMP_MOUSEBUTTONS=8,
  314.       IDCMP_MOUSEMOVE=16,
  315.       IDCMP_GADGETDOWN=$20,
  316.       IDCMP_GADGETUP=$40,
  317.       IDCMP_REQSET=$80,
  318.       IDCMP_MENUPICK=$100,
  319.       IDCMP_CLOSEWINDOW=$200,
  320.       IDCMP_RAWKEY=$400,
  321.       IDCMP_REQVERIFY=$800,
  322.       IDCMP_REQCLEAR=$1000,
  323.       IDCMP_MENUVERIFY=$2000,
  324.       IDCMP_NEWPREFS=$4000,
  325.       IDCMP_DISKINSERTED=$8000,
  326.       IDCMP_DISKREMOVED=$10000,
  327.       IDCMP_WBENCHMESSAGE=$20000,
  328.       IDCMP_ACTIVEWINDOW=$40000,
  329.       IDCMP_INACTIVEWINDOW=$80000,
  330.       IDCMP_DELTAMOVE=$100000,
  331.       IDCMP_VANILLAKEY=$200000,
  332.       IDCMP_INTUITICKS=$400000,
  333.       IDCMP_IDCMPUPDATE=$800000,
  334.       IDCMP_MENUHELP=$1000000,
  335.       IDCMP_CHANGEWINDOW=$2000000,
  336.       IDCMP_GADGETHELP=$4000000,
  337.       IDCMP_LONELYMESSAGE=$80000000,
  338.       CWCODE_MOVESIZE=0,
  339.       CWCODE_DEPTH=1,
  340.       MENUHOT=1,
  341.       MENUCANCEL=2,
  342.       MENUWAITING=3,
  343.       OKOK=1,
  344.       OKABORT=4,
  345.       OKCANCEL=2,
  346.       WBENCHOPEN=1,
  347.       WBENCHCLOSE=2
  348.  
  349. OBJECT ibox
  350.   left:INT
  351.   top:INT
  352.   width:INT
  353.   height:INT
  354. ENDOBJECT     /* SIZEOF=8 */
  355.  
  356. OBJECT window
  357.   nextwindow:PTR TO window
  358.   leftedge:INT
  359.   topedge:INT
  360.   width:INT
  361.   height:INT
  362.   mousey:INT
  363.   mousex:INT
  364.   minwidth:INT
  365.   minheight:INT
  366.   maxwidth:INT  -> This is unsigned
  367.   maxheight:INT  -> This is unsigned
  368.   flags:LONG
  369.   menustrip:PTR TO menu
  370.   title:PTR TO CHAR
  371.   firstrequest:PTR TO requester
  372.   dmrequest:PTR TO requester
  373.   reqcount:INT
  374.   wscreen:PTR TO screen
  375.   rport:PTR TO rastport
  376.   borderleft:CHAR  -> This is signed
  377.   bordertop:CHAR  -> This is signed
  378.   borderright:CHAR  -> This is signed
  379.   borderbottom:CHA