home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / ConUnit.def < prev    next >
Text File  |  1994-05-25  |  2KB  |  72 lines
  1. |##########|
  2. |#MAGIC   #|CLABLNHK
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--xx---xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x-xx-x----------
  9. |##########|
  10. DEFINITION MODULE ConUnit;
  11. (* $A- *)
  12. FROM Console      IMPORT mLnm;
  13. FROM Exec         IMPORT MsgPort;
  14. FROM Graphics     IMPORT DrawModeSet,TextFontPtr;
  15. FROM Input        IMPORT classMax;
  16. FROM Intuition    IMPORT WindowPtr;
  17. FROM KeyMap AS km IMPORT KeyMap;
  18.  
  19.  
  20. |Bemerkung: Die V36/37 C CONU_xx- sowie die CONFLAG_xx-Definitionen sind in
  21. |Console.def!
  22.  
  23. CONST
  24.   pmbAsm   = mLnm+1;
  25.   pmbAwm   = pmbAsm+1;
  26.   maxTabs  = 80;
  27.  
  28. TYPE
  29.   ConUnit     = RECORD
  30.                   mp            : MsgPort;
  31.                   window        : WindowPtr;
  32.                   xCP           : INTEGER;
  33.                   yCP           : INTEGER;
  34.                   xMax          : INTEGER;
  35.                   yMax          : INTEGER;
  36.                   xRSize        : INTEGER;
  37.                   yRSize        : INTEGER;
  38.                   xROrigin      : INTEGER;
  39.                   yROrigin      : INTEGER;
  40.                   xRExtant      : INTEGER;
  41.                   yRExtant      : INTEGER;
  42.                   xMinShrink    : INTEGER;
  43.                   yMinShrink    : INTEGER;
  44.                   xcCP          : INTEGER;
  45.                   ycCP          : INTEGER;
  46.                   keyMap        : KeyMap;
  47.                   tabStops      : ARRAY [0..maxTabs-1] OF CARDINAL;
  48.                   mask          : SHORTCARD;
  49.                   fgPen         : SHORTCARD;
  50.                   bgPen         : SHORTCARD;
  51.                   aolPen        : SHORTCARD;
  52.                   drawMode      : DrawModeSet;
  53.                   areaPtSz      : SHORTCARD;
  54.                   areaPtrn      : ANYPTR;
  55.                   minTerms      : ARRAY [0..7] OF SHORTCARD;
  56.                   font          : TextFontPtr;
  57.                   algoStyle     : SHORTCARD;
  58.                   txFlags       : SHORTCARD;
  59.                   txHeight      : CARDINAL;
  60.                   txWidth       : CARDINAL;
  61.                   txBaseLine    : CARDINAL;
  62.                   txSpacing     : CARDINAL;
  63.                   modes         : ARRAY [0..(pmbAwm+7) DIV 8-1] OF SHORTCARD;
  64.                   rawEvents     : ARRAY [0..(classMax+7) DIV 8-1] OF SHORTCARD;
  65.                 END;
  66.    ConUnitPtr = POINTER TO ConUnit
  67.  
  68. GROUP
  69.   All  = pmbAsm,pmbAwm,maxTabs,ConUnit,ConUnitPtr;
  70.  
  71. END ConUnit.
  72.