{ Intuition stuff.

  Date: 13th,24th January 1993,
	12th December 1993 }

#include <stddef.h>

struct Border
  SHORTINT  LeftEdge
  SHORTINT  TopEdge
  BYTE	    FrontPen
  BYTE	    BackPen
  BYTE	    DrawMode
  BYTE	    Count
  LONGINT   XY
  LONGINT   NextBorder 
end struct

struct IntuiText
  BYTE 	    FrontPen
  BYTE 	    BackPen
  BYTE 	    DrawMode
  BYTE 	    KludgeFill00
  SHORTINT  LeftEdge
  SHORTINT  TopEdge
  LONGINT   ITextFont 
  LONGINT   IText
  LONGINT   NextText
end struct

struct IntuiGadget
  LONGINT   NextIntuiGadget
  SHORTINT  LeftEdge
  SHORTINT  TopEdge
  SHORTINT  Wdth
  SHORTINT  Height
  SHORTINT  Flags
  SHORTINT  Activation
  SHORTINT  IntuiGadgetType
  LONGINT   IntuiGadgetRender
  LONGINT   SelectRender
  LONGINT   IntuiGadgetText
  LONGINT   MutualExclude
  LONGINT   SpecialInfo
  SHORTINT  IntuiGadgetID
  LONGINT   UserData    
end struct

struct IntuiMessage
  STRING    ExecMessage SIZE 20  
  LONGINT   Class
  SHORTINT  Code
  SHORTINT  Qualifier
  LONGINT   IAddress
  SHORTINT  MouseX
  SHORTINT  MouseY
  LONGINT   Seconds
  LONGINT   Micros
  LONGINT   IDCMPWindow
  LONGINT   SpecialLink
end struct
REM Fenster-Strukturen

STRUCT ScreenStruct
   LONGINT  NextScreen '*Screen
   LONGINT  FirstWindow '*Window
   SHORTINT LeftEdge
   SHORTINT TopEdge
   SHORTINT xWidth
   SHORTINT Height
   SHORTINT MouseY
   SHORTINT MouseX
   SHORTINT Flags
   LONGINT  Title '*
   LONGINT  DefaultTitle '*
   BYTE     BarHeight
   BYTE     BarVBorder
   BYTE     BarHBorder
   BYTE	    MenuVBorder
   BYTE	    MenuHBorder
   BYTE     WBorTop
   BYTE     WBorLeft
   BYTE     WBorRight
   BYTE     WBorBottom
   BYTE     KludgeFill00
   LONGINT  Font '*
   STRING   ViewPort   SIZE 40  'struct
   STRING   RastPort   SIZE 100 'struct
   STRING   BitMap     SIZE 40  'struct
   STRING   Layer_Info SIZE 102 'struct
   LONGINT  FirstGadget '*Gadget
   BYTE     DetailPen
   BYTE     BlockPen
   SHORTINT SaveColor0
   LONGINT  BarLayer '*
   LONGINT  ExtData '*
   LONGINT  UserData '*
END STRUCT

STRUCT WindowStruct
   LONGINT  NextWindow '*Window
   SHORTINT LeftEdge
   SHORTINT TopEdge
   SHORTINT xWidth
   SHORTINT Height
   SHORTINT MouseY
   SHORTINT MouseX
   SHORTINT MinWidth
   SHORTINT MinHeight
   SHORTINT MaxWidth
   SHORTINT MaxHeight
   LONGINT  Flags
   LONGINT  MenuStrip '*Menu
   LONGINT  Title '*
   LONGINT  FirstRequest '*
   LONGINT  DMRequest '*
   SHORTINT ReqCount
   LONGINT  WScreen '*Screen
   LONGINT  RPort '*RastPort
   BYTE     BorderLeft
   BYTE     BorderTop
   BYTE     BorderRight
   BYTE     BorderBottom
   LONGINT  BorderRPort '*RastPort
   LONGINT  FirstGadget '*Gadget
   LONGINT  Parent '*Window
   LONGINT  Descendant '*Window
   LONGINT  Pointer '*
   BYTE     PtrHeight
   BYTE     PtrWidth
   BYTE     XOffset
   BYTE     YOffset
   LONGINT  IDCMPFlags
   LONGINT  UserPort '*
   LONGINT  WindowPort '*
   LONGINT  MessageKey '*
   BYTE     DetailPen
   BYTE     BlockPen
   LONGINT  CheckMark '*
   LONGINT  ScreenTitle '*
   SHORTINT GZZMouseX
   SHORTINT GZZMouseY
   SHORTINT GZZWidth
   SHORTINT GZZHeight
   LONGINT  ExtData '*
   LONGINT  UserData '*
   LONGINT  WLayer '*
   LONGINT  IFont '*
END STRUCT

'..draw modes
const JAM1 = 0&
const JAM2 = 1&
const COMPLEMENT = 2&
const INVERSVID  = 4&

'..gadgets
const GADGHCOMP  = 0&
const RELVERIFY  = 1&
const BOOLGADGET = 1&

'..IDCMP
const GADGETDOWN = 32&
const GADGETUP   = 64&
const CLOSEWINDOW = 512&
const VANILLAKEY = 2097152&