home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / devices / conunit.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  2.0 KB  |  77 lines
  1. {$if not def DEVICES_CONUNIT_H} CONST DEVICES_CONUNIT_H=0;
  2.  
  3.  
  4. { *******************************************************************
  5.   ** KickPascal-Include-Datei "devices/conunit.h" zu Kickstart 3.0 **
  6.   ******************************************************************* }
  7.  
  8. TYPE p_ConUnit = ^ConUnit;
  9.  
  10.  
  11. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  12. {$if not def DEVICES_CONSOLE_H;incl "devices/console.h";endif}
  13. {$if not def DEVICES_KEYMAP_H;incl "devices/keymap.h";endif}
  14. {$if not def DEVICES_INPUTEVENT_H;incl "devices/inputevent.h";endif}
  15.  
  16. CONST
  17.  CONU_LIBRARY  = -1;
  18.  CONU_STANDARD =  0;
  19.  
  20. CONST
  21.  CONU_CHARMAP = 1;
  22.  CONU_SNIPMAP = 3;
  23.  
  24. CONST
  25.  CONFLAG_DEFAULT           = 0;
  26.  CONFLAG_NODRAW_ON_NEWSIZE = 1;
  27.  
  28.  
  29. CONST
  30.  PMB_ASM = (M_LNM+19);
  31.  PMB_AWM = (PMB_ASM+1);
  32.  MAXTABS = 80;
  33.  
  34. TYPE ConUnit = RECORD
  35.  cu_MP           : MsgPort;
  36.  cu_Window       : p_Window;
  37.  cu_XCP          : Integer;
  38.  cu_YCP          : Integer;
  39.  cu_XMax         : Integer;
  40.  cu_YMax         : Integer;
  41.  cu_XRSize       : Integer;
  42.  cu_YRSize       : Integer;
  43.  cu_XROrigin     : Integer;
  44.  cu_YROrigin     : Integer;
  45.  cu_XRExtant     : Integer;
  46.  cu_YRExtant     : Integer;
  47.  cu_XMinShrink   : Integer;
  48.  cu_YMinShrink   : Integer;
  49.  cu_XCCP         : Integer;
  50.  cu_YCCP         : Integer;
  51.  cu_KeyMapStruct : Keymap;
  52.  cu_TabStops     : ARRAY[0..MAXTABS-1] OF Word;
  53.  cu_Mask         : Short;
  54.  cu_FgPen        : Short;
  55.  cu_BgPen        : Short;
  56.  cu_AOLPen       : Short;
  57.  cu_DrawMode     : Short;
  58.  cu_Obsolete1    : Short;
  59.  cu_Obsolete2    : Ptr;
  60.  cu_Minterms     : ARRAY[0..7] OF Byte;
  61.  cu_Font         : p_TextFont;
  62.  cu_AlgoStyle    : Byte;
  63.  cu_TxFlags      : Byte;
  64.  cu_TxHeight     : Word;
  65.  cu_TxWidth      : Word;
  66.  cu_TxBaseline   : Word;
  67.  cu_TxSpacing    : Integer;
  68.  cu_Modes0       : Byte;  { Der Array besteht aus 3 Bytes, KickPascal }
  69.  cu_Modes1       : Byte;  { richtet den anschließenden Byte-Array auf Wordgrenze aus }
  70.  cu_Modes2       : Byte;
  71.  cu_RawEvents0   : Byte;
  72.  cu_RawEvents1   : Byte;
  73.  cu_RawEvents2   : Byte;
  74. END;
  75.  
  76. {$endif}
  77.