{$B NOT INTUITION_INTUITIONBASE_H }
{$D INTUITION_INTUITIONBASE_H := TRUE }

{$B NOT EXEC_TYPES_H }
INCLUDE 'exec/types.h';
{$E NOT EXEC_TYPES_H }

{$B NOT EXEC_LIBRARIES_H }
INCLUDE 'exec/libraries.h';
{$E NOT EXEC_LIBRARIES_H }

{$B NOT INTUITION_INTUITION_H }
INCLUDE 'intuition/intuition.h';
{$E NOT INTUITION_INTUITION_H }

{$B NOT EXEC_INTERRUPTS_H }
INCLUDE 'exec/interrupts.h';
{$E NOT EXEC_INTERRUPTS_H }

{$B INTUITIONPRIVATE }

CONST
 DMODECOUNT      = $X0002;
 HIRESPICK       = $X0000;
 LOWRESPICK      = $X0001;
 EVENTMAX        = 10;
 RESCOUNT        = 2;
 HIRESGADGET     = 0;
 LOWRESGADGET    = 1;
 GADGETCOUNT     = 8;
 UPFRONTGADGET   = 0;
 DOWNBACKGADGET  = 1;
 SIZEGADGET      = 2;
 CLOSEGADGET     = 3;
 DRAGGADGET      = 4;
 SUPFRONTGADGET  = 5;
 SDOWNBACKGADGET = 6;
 SDRAGGADGET     = 7;
 ISTATELOCK      = 0;
 LAYERINFOLOCK   = 1;
 GADGETSLOCK     = 2;
 LAYERROMLOCK    = 3;
 VIEWLOCK        = 4;
 IBASELOCK       = 5;
 RPLOCK          = 6;
 NUMILOCKS       = 7;

TYPE
 FatIntuiMessage =
  PACKED RECORD
   IntuiMess : IntuiMessage;
   PrevKeys  : INTEGER;
  END;

 IBox =
  PACKED RECORD
   Left   ,
   Top    ,
   Width  ,
   Height : WORD;
  END;

 Point =
  PACKED RECORD
    X ,
    Y : WORD;
  END;

 PenPair =
  PACKED RECORD
   DetailPen ,
   BlockPen  : BYTE;
  END;

 GListEnvPtrType = ^GListEnv;

 GListEnv =
  PACKED RECORD
   ge_Screen    : ScreenPtrType;
   ge_Window    : WindowPtrType;
   ge_Requester : RequesterPtrType;
   ge_RastPort  : RastPortPtrType;
   ge_Layer     ,
   ge_GZZLayer  : LayerPtrType;
   ge_Pens      : PenPair;
   ge_Domain    ,
   ge_GZZdims   : IBox;
  END;

 GadgetInfo  =
  PACKED RECORD
   gi_Environ   : GListEnvPtrType;
   gi_Gadget    : GadgetPtrType;
   gi_Box       ,
   gi_Container : IBox;
   gi_Layer     : LayerPtrType;
   gi_NewKnob   : IBox;
  END;

CONST
 NUM_IEVENTS = 4;

TYPE
 InputEventArray4Type = PACKED ARRAY[1..NUM_IEVENTS] OF InputEvent;

 GadgetArray4_4Type = PACKED ARRAY[1..4,1..4] OF GadgetPtrType;

 ImageArray4Type = PACKED ARRAY[1..4] OF ImagePtrType;

{$E INTUITIONPRIVATE }

TYPE
 IntuitionBase =
  PACKED RECORD
   LibNode         : Library;
   ViewLord        : View;
   ActiveWindow    : WindowPtrType;
   ActiveScreen    ,
   FirstScreen     : ScreenPtrType;
   Flags           : INTEGER;
   MouseY          , 
   MouseX          : WORD;
   Seconds         ,
   Micros          : INTEGER;

{$B INTUITIONPRIVATE }

   MinXMouse        , 
   MaxXMouse        ,
   MinYMouse        , 
   MaxYMouse        : WORD; 
   StartSecs        , 
   StartMicros      : INTEGER;
   SysBase          : APTR;
   GfxBase          : GfxBasePtrType;
   LayersBase       ,
   ConsoleDevice    : APTR;
   APointer         : WORDPtrType;
   APtrHeight       ,
   APtrWidth        ,
   AXOffset         , 
   AYOffset         : BYTE;
   MenuDrawn        ,
   MenuSelected     ,
   OptionList       : WORD;
   MenuRPort        : RastPort;
   MenuTmpRas       : TmpRas;
   ItemCRect        ,
   SubCRect         : ClipRect;
   IBitMap          ,
   SBitMap          : BitMap;
   InputRequest     : IOStdReq;
   InputInterrupt   : Interrupt;
   EventKey         : RememberPtrType;
   IEvents          : InputEventPtrType;
   EventCount       : WORD;
   IEBuffer         : InputEventArray4Type;
   ActiveGadget     : GadgetPtrType;
   ActivePInfo      : PropInfoPtrType;
   ActiveImage      : ImagePtrType;
   GadgetEnv        : GListEnv;
   GadgetInf        : GadgetInfo;
   KnobOffset       : Point;
   getOKWindow      : WindowPtrType;
   getOKMessage     : IntuiMessagePtrType;
   setWExcept       , 
   GadgetReturn     , 
   StateReturn      : WORD;
   RP               : RastPortPtrType;
   ITmpRas          : TmpRas;
   OldClipRegion    : RegionPtrType;
   OldScroll        : Point;
   IFrame           : IBox;
   hthick           , 
   vthick           : WORD;
   frameChange      ,
   sizeDrag         : APTR;
   FirstPt          , 
   OldPt            : Point;
   SysGadgets       : GadgetArray4_4Type;
   CheckImage       ,
   AmigaIcon        : ImageArray4Type;

{$B OLDPATTERN }
   apattern         : WORDArray3Type;
   bpattern         : WORDArray4Type;
{$E OLDPATTERN }
{$B NOT OLDPATTERN }
   apattern         : WORDArray8Type;
   bpattern         : WORDArray4Type;
{$E NOT OLDPATTERN }

   IPointer         : WORDPtrType;
   IPtrHeight       ,
   IPtrWidth        ,
   IXOffset         , 
   IYOffset         : BYTE;
   DoubleSeconds    , 
   DoubleMicros     : INTEGER;
   WBorLeft         ,
   WBorTop          ,
   WBorRight        ,
   WBorBottom       ,
   BarVBorder       ,
   BarHBorder       ,
   MenuVBorder      ,
   MenuHBorder      : BYTEArray2Type;
   color0           ,
   color1           ,
   color2           ,
   color3           ,
   color17          ,
   color18          ,
   color19          : WORD;
   SysFont          : TextAttr;
   Preferences      : PreferencesPtrType;
{  Echoes           : DistantEchoPtrType;    Where is this defined ? }
   ViewInitX        , 
   ViewInitY        ,
   CursorDX         , 
   CursorDY         : WORD;
   KeyMap           : KeyMapPtrType;
   MouseYMinimum    ,
   ErrorX           , 
   ErrorY           : WORD;
   IOExcess         : timerequest;
   HoldMinYMouse    : WORD;
   WBPort           ,
   iqd_FNKUHDPort   : MsgPortPtrType;
   WBMessage        : IntuiMessage;
   HitScreen        : ScreenPtrType;
   SimpleSprite     ,
   AttachedSSprite  : SimpleSpritePtrType;
   GotSprite1       : BOOLEAN;
   SemaphoreList    : List;
   ISemaphore       : PACKED ARRAY[1..NUMILOCKS] OF SignalSemaphore;      
   MaxDisplayHeight ,
   MaxDisplayRow    ,
   MaxDisplayWidth  : WORD;
   Reserved         : INTEGERArray7Type;

{$E INTUITIONPRIVATE }

  END;

{$E NOT INTUITION_INTUITIONBASE_H }