home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / ConUnit.def < prev    next >
Encoding:
Modula Definition  |  1988-11-06  |  1.1 KB  |  65 lines
  1. (* $M- *)
  2. DEFINITION MODULE ConUnit;
  3.  
  4. FROM SYSTEM IMPORT
  5.  ADDRESS;
  6. FROM Console IMPORT
  7.  mLnm;
  8. FROM Exec IMPORT
  9.  MsgPort,UByte;
  10. FROM Graphics IMPORT
  11.  DrawModes,TextFontPtr;
  12. FROM InputEvent IMPORT
  13.  classMax;
  14. FROM Intuition IMPORT
  15.  WindowPtr;
  16. FROM KeyMap IMPORT
  17.  KeyMap;
  18.  
  19. CONST
  20.  pmbAsm=mLnm+1;
  21.  pmbAwm=pmbAsm+1;
  22.  maxTabs=80;
  23.  
  24. TYPE
  25.  ConUnit=RECORD
  26.   mp:MsgPort;
  27.   window:WindowPtr;
  28.   xCP:INTEGER;
  29.   yCP:INTEGER;
  30.   xMax:INTEGER;
  31.   yMax:INTEGER;
  32.   xRSize:INTEGER;
  33.   yRSize:INTEGER;
  34.   xROrigin:INTEGER;
  35.   yROrigin:INTEGER;
  36.   xRExtant:INTEGER;
  37.   yRExtant:INTEGER;
  38.   xMinShrink:INTEGER;
  39.   yMinShrink:INTEGER;
  40.   xcCP:INTEGER;
  41.   ycCP:INTEGER;
  42.   keyMapStruct:KeyMap;
  43.   tabStops:ARRAY [0..maxTabs-1] OF CARDINAL;
  44.   mask:UByte;
  45.   fgPen:UByte;
  46.   bgPen:UByte;
  47.   aolPen:UByte;
  48.   drawMode:DrawModes;
  49.   areaPtSz:UByte;
  50.   areaPtrn:ADDRESS;
  51.   minTerms:ARRAY [0..7] OF UByte;
  52.   font:TextFontPtr;
  53.   algoStyle:UByte;
  54.   txFlags:UByte;
  55.   txHeight:CARDINAL;
  56.   txWidth:CARDINAL;
  57.   txBaseLine:CARDINAL;
  58.   txSpacing:CARDINAL;
  59.   modes:ARRAY [0..(pmbAwm+7) DIV 8-1] OF UByte;
  60.   rawEvents:ARRAY [0..(classMax+7) DIV 8-1] OF UByte;
  61.  END;
  62.  ConUnitPtr=POINTER TO ConUnit;
  63.  
  64. END ConUnit.
  65.