home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / intuition / intuitionbase.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.2 KB  |  51 lines
  1. {$if not def INTUITION_INTUITIONBASE_H} CONST INTUITION_INTUITIONBASE_H=1;
  2.  
  3. { ********************************************************************
  4.   ** KickPascal-Include-Datei "intuition/intuitionbase.h" zu OS 3.0 **
  5.   ******************************************************************** }
  6.  
  7. TYPE p_IntuitionBase = ^_IntuitionBase; { "_" ergänzt }
  8.  
  9. {$if not def EXEC_LIBRARIES_H;incl "exec/libraries.h";endif}
  10. {$if not def INTUITION_INTUITION_H;incl "intuition/intuition.h";endif}
  11. {$if not def EXEC_INTERRUPTS_H;incl "exec/interrupts.h";endif}
  12.  
  13. CONST
  14.  DMODECOUNT = $0002;
  15.  HIRESPICK  = $0000;
  16.  LOWRESPICK = $0001;
  17.  
  18. CONST EVENTMAX = 10;
  19.  
  20. CONST
  21.  RESCOUNT     = 2;
  22.  HIRESGADGET  = 0;
  23.  LOWRESGADGET = 1;
  24.  
  25. CONST
  26.  GADGETCOUNT     = 8;
  27.  UPFRONTGADGET   = 0;
  28.  DOWNBACKGADGET  = 1;
  29.  SIZEGADGET      = 2;
  30.  CLOSEGADGET     = 3;
  31.  DRAGGADGET      = 4;
  32.  SUPFRONTGADGET  = 5;
  33.  SDOWNBACKGADGET = 6;
  34.  SDRAGGADGET     = 7;
  35.  
  36. TYPE _IntuitionBase = RECORD
  37.  LibNode      : _Library; 
  38.  ViewLord     : View;
  39.  ActiveWindow : p_Window;
  40.  ActiveScreen : p_Screen;
  41.  FirstScreen  : p_Screen;
  42.  Flags        : Long;
  43.  MouseY       : Integer;
  44.  MouseX       : Integer;
  45.  Seconds      : Long;
  46.  Micros       : Long;
  47.  {...}
  48. END;
  49.  
  50. {$endif}
  51.