home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / libraries / commodities.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  2.3 KB  |  120 lines
  1. {$if not def LIBRARIES_COMMODITIES_H} CONST LIBRARIES_COMMODITIES_H=0;
  2.  
  3. { *************************************************************************
  4.   ** KickPascal-Include-Datei "libraries/commodities.h" zu Kickstart 3.0 **
  5.   ************************************************************************* }
  6.  
  7.  
  8. TYPE p_NewBroker = ^NewBroker;
  9. TYPE p_InputXpression = ^InputXpression;
  10. TYPE p_IX = ^IX;
  11.  
  12.  
  13. {$if not def CX_H}
  14. TYPE CxObj = LongInt;
  15. TYPE CxMsg = LongInt;
  16. TYPE p_CxObj = ^CxObj;
  17. TYPE p_CxMsg = ^CxMsg;
  18. {$endif}
  19.  
  20. {$if not def DEVICES_INPUTEVENT_H;incl "devices/inputevent.h";endif}
  21. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  22.  
  23.  
  24. CONST
  25.  CBD_NAMELEN  = 24;
  26.  CBD_TITLELEN = 40;
  27.  CBD_DESCRLEN = 40;
  28.  
  29.  NB_VERSION    = 5;
  30.  
  31. TYPE NewBroker = RECORD
  32.  nb_Version : Short;
  33.  nb_Name    : Str;
  34.  nb_Title   : Str;
  35.  nb_Descr   : Str;
  36.  nb_Unique  : Integer;
  37.  nb_Flags   : Integer;
  38.  nb_Pri     : Short;
  39.  nb_Port    : p_MsgPort;
  40.  nb_ReservedChannel : Integer;
  41. END;
  42.  
  43. CONST
  44.  NBU_DUPLICATE = 0;
  45.  NBU_UNIQUE    = 1;
  46.  NBU_NOTIFY    = 2;
  47.  COF_SHOW_HIDE = 4;
  48.  
  49.  
  50. CONST
  51.  CX_INVALID    = 0;
  52.  CX_FILTER     = 1;
  53.  CX_TYPEFILTER = 2; { *** nicht mehr benutzen *** }
  54.  CX_SEND       = 3;
  55.  CX_SIGNAL     = 4;
  56.  CX_TRANSLATE  = 5;
  57.  CX_BROKER     = 6;
  58.  CX_DEBUG      = 7;
  59.  CX_CUSTOM     = 8;
  60.  CX_ZERO       = 9;
  61.  
  62. CONST
  63.  {CXM_UNIQUE  = $10;} { *** nicht mehr benutzt *** }
  64.  CXM_IEVENT  = $20;
  65.  CXM_COMMAND = $40;
  66.  
  67. CONST
  68.  CXCMD_DISABLE   = 15;
  69.  CXCMD_ENABLE    = 17;
  70.  CXCMD_APPEAR    = 19;
  71.  CXCMD_DISAPPEAR = 21;
  72.  CXCMD_KILL      = 23;
  73.  CXCMD_UNIQUE    = 25;
  74.  CXCMD_LIST_CHG  = 27;
  75.  
  76. CONST
  77.  CMDE_OK       =  0;
  78.  CMDE_NOBROKER = -1;
  79.  CMDE_NOPORT   = -2;
  80.  CMDE_NOMEM    = -3;
  81.  
  82. CONST
  83.  CBERR_OK      = 0;
  84.  CBERR_SYSERR  = 1;
  85.  CBERR_DUP     = 2;
  86.  CBERR_VERSION = 3;
  87.  
  88. CONST
  89.  COERR_ISNULL     = 1;
  90.  COERR_NULLATTACH = 2;
  91.  COERR_BADFILTER  = 4;
  92.  COERR_BADTYPE    = 8;
  93.  
  94. CONST IX_VERSION = 2;
  95.  
  96. TYPE InputXpression = RECORD
  97.  ix_Version   : Byte;
  98.  ix_Class     : Byte;
  99.  ix_Code      : Word;
  100.  ix_CodeMask  : Word;
  101.  ix_Qualifier : Word;
  102.  ix_QualMask  : Word;
  103.  ix_QualSame  : Word;
  104. END;
  105.  
  106. TYPE IX = InputXpression;
  107.  
  108. CONST
  109.  IXSYM_SHIFT = 1;
  110.  IXSYM_CAPS  = 2;
  111.  IXSYM_ALT   = 4;
  112.  
  113.  IXSYM_SHIFTMASK = (IEQUALIFIER_LSHIFT or IEQUALIFIER_RSHIFT);
  114.  IXSYM_CAPSMASK  = (IXSYM_SHIFTMASK or IEQUALIFIER_CAPSLOCK);
  115.  IXSYM_ALTMASK   = (IEQUALIFIER_LALT or IEQUALIFIER_RALT);
  116.  
  117.  IX_NORMALQUALS  = $7FFF;
  118.  
  119. {$endif}
  120.