|##########|
|#MAGIC   #|CLABLNHK
|#PROJECT #|""
|#PATHS   #|"StdProject"
|#FLAGS   #|xx---x--xx---xx-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x-xx-x----------
|##########|
DEFINITION MODULE ConUnit;
(* $A- *)
FROM Console      IMPORT mLnm;
FROM Exec         IMPORT MsgPort;
FROM Graphics     IMPORT DrawModeSet,TextFontPtr;
FROM Input        IMPORT classMax;
FROM Intuition    IMPORT WindowPtr;
FROM KeyMap AS km IMPORT KeyMap;


|Bemerkung: Die V36/37 C CONU_xx- sowie die CONFLAG_xx-Definitionen sind in
|Console.def!

CONST
  pmbAsm   = mLnm+1;
  pmbAwm   = pmbAsm+1;
  maxTabs  = 80;

TYPE
  ConUnit     = RECORD
                  mp            : MsgPort;
                  window        : WindowPtr;
                  xCP           : INTEGER;
                  yCP           : INTEGER;
                  xMax          : INTEGER;
                  yMax          : INTEGER;
                  xRSize        : INTEGER;
                  yRSize        : INTEGER;
                  xROrigin      : INTEGER;
                  yROrigin      : INTEGER;
                  xRExtant      : INTEGER;
                  yRExtant      : INTEGER;
                  xMinShrink    : INTEGER;
                  yMinShrink    : INTEGER;
                  xcCP          : INTEGER;
                  ycCP          : INTEGER;
                  keyMap        : KeyMap;
                  tabStops      : ARRAY [0..maxTabs-1] OF CARDINAL;
                  mask          : SHORTCARD;
                  fgPen         : SHORTCARD;
                  bgPen         : SHORTCARD;
                  aolPen        : SHORTCARD;
                  drawMode      : DrawModeSet;
                  areaPtSz      : SHORTCARD;
                  areaPtrn      : ANYPTR;
                  minTerms      : ARRAY [0..7] OF SHORTCARD;
                  font          : TextFontPtr;
                  algoStyle     : SHORTCARD;
                  txFlags       : SHORTCARD;
                  txHeight      : CARDINAL;
                  txWidth       : CARDINAL;
                  txBaseLine    : CARDINAL;
                  txSpacing     : CARDINAL;
                  modes         : ARRAY [0..(pmbAwm+7) DIV 8-1] OF SHORTCARD;
                  rawEvents     : ARRAY [0..(classMax+7) DIV 8-1] OF SHORTCARD;
                END;
   ConUnitPtr = POINTER TO ConUnit

GROUP
  All  = pmbAsm,pmbAwm,maxTabs,ConUnit,ConUnitPtr;

END ConUnit.