home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / intuition / classes.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  932 b   |  37 lines
  1. {$if not def INTUITION_CLASSES_H} CONST INTUITION_CLASSES_H=0;
  2.  
  3. { *********************************************************************
  4.   ** KickPascal-Include-Datei "intuition/classes.h" zu Kickstart 3.0 **
  5.   ********************************************************************* }
  6.  
  7. TYPE p_IClass = ^IClass;
  8. TYPE p__Object = ^_Object;
  9.  
  10. {$if not def UTILITY_HOOKS_H;incl "utility/hooks.h";endif}
  11. {$if not def INTUITION_CLASSUSR_H;incl "intuition/classusr.h";endif}
  12.  
  13.  
  14. TYPE IClass = RECORD;
  15.  cl_Dispatcher    : Hook;
  16.  cl_Reserved      : Long;
  17.  cl_Super         : p_IClass;
  18.  cl_ID            : ClassID;
  19.  cl_InstOffset    : Word;
  20.  cl_InstSize      : Word;
  21.  cl_UserData      : Long;
  22.  cl_SubclassCount : Long;
  23.  cl_ObjectCount   : Long;
  24.  cl_Flags         : Long;
  25. END;
  26. TYPE Class = IClass;
  27.      _p_Class = ^Class; { "_" ergänzt! }
  28.  
  29. CONST CLF_INLIST = $00000001;
  30.  
  31. TYPE _Object = RECORD
  32.  o_Node  : MinNode;
  33.  o_Class : p_IClass;
  34. END;
  35.  
  36. {$endif}
  37.