home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / intuition / cghooks_Functions.h next >
Encoding:
Text File  |  1994-07-25  |  536 b   |  16 lines
  1. {$if not def INTUITION_CGHOOKS_MACROS_H} CONST INTUITION_CGHOOKS_MARCOS_H=0;
  2.  
  3. { *********************************************************************
  4.   ** KickPascal-Include-Datei "intuition/cghooks.h" zu Kickstart 3.0 **
  5.   ** Ergänzung der MACROs als Pascal FUNCTIONen                by JS **
  6.   ********************************************************************* }
  7.  
  8. {$if not def INTUITION_CGHOOKS_H;incl "intuition/cghooks.h";endif}
  9.  
  10. function CUSTOM_HOOK(g:p_Gadget):p_Hook;
  11. begin
  12.  CUSTOM_HOOK:=Ptr(g^.MutualExclude);
  13. end;
  14.  
  15. {$endif}
  16.