home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / libraries / commodities_Functions.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.2 KB  |  42 lines
  1. {$if not def LIBRARIES_COMMODITIES_MACROS_H}CONST LIBRARIES_COMMODITIES_MACROS_H=0;
  2.  
  3. { *************************************************************************
  4.   ** KickPascal-Include-Datei "libraries/commodities.h" zu Kickstart 3.0 **
  5.   ** Ergänzung der Macros als Pascal FUNCTIONen                    by JS **
  6.   ************************************************************************* }
  7.  
  8. {$if not def LIBRIRIES_COMMODITIES_H;incl "libraries/commodities.h";endif}
  9. {$if not def COMMODITIES_LIB;incl "commodities.lib";endif}
  10.  
  11. Function CxFilter(d : Ptr): p_CxObj;
  12. begin
  13.  CxFilter:=CreateCxObj(CX_FILTER,Long(d),0);
  14. end;
  15.  
  16. Function CxSender(port:p_MsgPort; id:Long): p_CxObj;
  17. begin
  18.  CxSender:=CreateCxObj(CX_SEND,Long(port),Long(id));
  19. end;
  20.  
  21. Function CxSignal(_task:p_task; Sig:Long): p_CxObj;
  22. begin
  23.  CxSignal:=CreateCxObj(CX_SIGNAL,Long(_task),Long(Sig));
  24. end;
  25.  
  26. Function CxTranslate(ie:p_InputEvent): p_CxObj;
  27. begin
  28.  CxTranslate:=CreateCxObj(CX_TRANSLATE,Long(ie),0);
  29. end;
  30.  
  31. Function CxDebug(id:Long): p_CxObj;
  32. begin
  33.  CxDebug:=CreateCxObj(CX_DEBUG,Long(id),0);
  34. end;
  35.  
  36. Function CxCustom(action:Ptr; id:Long): p_CxObj;
  37. begin
  38.  CxCustom:=CreateCxObj(CX_CUSTOM,Long(action),Long(id));
  39. end;
  40.  
  41. {$endif}
  42.