{$if not def INTUITION_INTUITIONBASE_H}
Const INTUITION_INTUITIONBASE_H=1;
{$if not def EXEC_LIBRARIES_H;incl"exec/libraries.h";endif}
{$if not def INTUITION_INTUITION_H;incl"intuition/intuition.h";endif}
{$if not def INTUITION_PREFERENCES_H;incl"intuition/preferences.h";endif}
{$if not def EXEC_INTERRUPTS_H;incl"exec/interrupts.h";endif}
{$if def INTUITIONPRIVATE }
 {$if not def DEVICES_INPUTEVENT_H;incl"devices/inputevent.h";endif}
Const
 DMODECOUNT=$0002;
 HIRESPICK=$0000;
 LOWRESPICK=$0001;
 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;
 NUM_IEVENTS=4;
Type
p_FatIntuiMessage=^FatIntuiMessage;
FatIntuiMessage=Record
 IntuiMessage:IntuiMessage;
 PrevKeys:Long
End;
p_IBox=^IBox;
IBox=Record
 Left,Top,Width,Height:integer
End;
p_Point=^Point;
Point=Record X,Y:integer End;
p_PenPair=^PenPair;
PenPair=Record  DetailPen,BlockPen:Byte End;
p_GListEnv=^GListEnv;
GListEnv=Record
 ge_Screen:p_Screen;
 ge_Window:p_Window;
 ge_Requester:p_Requester;
 ge_RastPort:p_RastPort;
 ge_Layer:p_Layer;
 ge_GZZLayer:p_Layer;
 ge_Pens:PenPair;
 ge_Domain,ge_GZZdims:IBox
End;
p_GadgetInfo=^GadgetInfo;
GadgetInfo=Record
 gi_Environ:p_GListEnv;
 gi_Gadget:p_Gadget;
 gi_Box,gi_Container:IBox;
 gi_Layer:p_Layer;
 gi_NewKnob:IBox
End;
{$endif - ende def INTUITIONPRIVATE }
Type
IntuitionBase=Record
 LibNode:_Library;
 ViewLord:View;
 ActiveWindow:p_Window;
 ActiveScreen:p_Screen;
 FirstScreen:p_Screen;
 Flags:Long;
 MouseY,MouseX:integer;
 Seconds,Micros:
 {$if def INTUITIONPRIVATE - Achtung, Trick-Programmierung! }
  Long;
  MinXMouse,MaxXMouse,MinYMouse,MaxYMouse:integer;
  StartSecs,StartMicros:Long;
  SysBase,GfxBase,LayersBase:Ptr;
  ConsoleDevice,APointer:Ptr;
  APtrHeight,APtrWidth,AXOffset,AYOffset:Short;
  MenuDrawn,MenuSelected,OptionList:Word;
  MenuRPort:RastPort;
  MenuTmpRas:TmpRas;
  ItemCRect,SubCRect:ClipRect;
  IBitMap,SBitMap:BitMap;
  InputRequest:IOStdReq;
  InputInterrupt:Interrupt;
  EventKey:p_Remember;
  IEvents:InputEvent;
  EventCount:integer;
  IEBuffer:Array[0..3]of InputEvent;
  ActiveGadget:p_Gadget;
  ActivePInfo:p_PropInfo;
  ActiveImage:p_Image;
  GadgetEnv:GListEnv;
  GadgetInfo:GadgetInfo;
  KnobOffset:Point;
  getOKWindow:p_Window;
  getOKMessage:p_IntuiMessage;
  setWExcept,GadgetReturn,StateReturn:Word;
  RP:p_RastPort;
  ITmpRas:TmpRas;
  OldClipRegion:Ptr;
  OldScroll:Point;
  IFrame:IBox;
  hthick,vthick:integer;
  frameChange:Ptr;
  sizeDrag:Ptr;
  FirstPt,OldPt:Point;
  SysGadgets:Array[0..1,0..7]of p_Gadget;
  CheckImage,AmigaIcon:Array[0..1]of p_Image;
  {$if def OLDPATTERN }
   apattern:Array[0..2]of Word;
   bpattern:Array[0..3]of Word;
  {$else }
   apattern:Array[0..7]of Word;
   bpattern:Array[0..3]of Word;
  {$endif }
  IPointer:Ptr;
  IPtrHeight,IPtrWidth,IXOffset,IYOffset:Short;
  DoubleSeconds,DoubleMicros:Long;
  WBorLeft,WBorTop,WBorRight,WBorBottom,BarVBorder,BarHBorder,
   MenuVBorder,MenuHBorder:Array[0..1]of Short;
  color0,color1,color2,color3,color17,color18,color19:Word;
  SysFont:TextAttr;
  Preferences:p_Preferences;
  Echoes:Ptr;
  ViewInitX,ViewInitY:integer;
  CursorDX,CursorDY:integer;
  KeyMap:Ptr;
  MouseYMinimum,ErrorX,ErrorY:integer;
  IOExcess:timerequest;
  HoldMinYMouse:integer;
  WBPort,iqd_FNKUHDPort:p_MsgPort;
  WBMessage:IntuiMessage;
  HitScreen:p_Screen;
  SimpleSprite:Ptr;
  AttachedSSprite:Ptr;
  GotSprite1:Boolean;
  SemaphoreList:List;
  ISemaphore:Array[0..6]of SignalSemaphore;
  MaxDisplayHeight,MaxDisplayRow,MaxDisplayWidth:integer;
  Reserved:Array[0..6]of Long;
 {$else}
  Long;
 {$endif - def INTUITIONPRIVATE}
End;
{$endif}