home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / intuition / intuition.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  16.7 KB  |  729 lines
  1. {$if not def INTUITION_INTUITION_H} CONST INTUITION_INTUITION_H=0;
  2.  
  3. { ***********************************************************************
  4.   ** KickPascal-Include-Datei "intuition/intuition.h" zu Kickstart 3.0 **
  5.   *********************************************************************** }
  6.  
  7. TYPE p_MenuItem = ^MenuItem;
  8. TYPE p_Gadget = ^Gadget;
  9. TYPE p_Border = ^Border;
  10. TYPE p_IntuiText = ^IntuiText;
  11. TYPE p_Image = ^Image;
  12. TYPE p_Window = ^Window;
  13. TYPE p_PropInfo = ^PropInfo;
  14. TYPE p_Menu = ^Menu;
  15. TYPE p_Requester = ^Requester;
  16. TYPE p_BoolInfo = ^BoolInfo;
  17. TYPE p_StringInfo = ^StringInfo;
  18. TYPE p_EasyStruct = ^EasyStruct;
  19. TYPE p_ColorSpec = ^ColorSpec;
  20. TYPE p_Remember = ^Remember;
  21. TYPE p_ExtNewWindow = ^ExtNewWindow;
  22. TYPE p_NewWindow = ^NewWindow;
  23. TYPE p_IBox = ^IBox;
  24. TYPE p_IntuiMessage = ^IntuiMessage;
  25. TYPE p_TabletData = ^TabletData;
  26. TYPE p_TabletHookData = ^TabletHookData;
  27.  
  28.  
  29. TYPE IBox = RECORD { wird von anderen Include-Dateien benötigt }
  30.  Left   : Integer;
  31.  Top    : Integer;
  32.  Width  : Integer;
  33.  Height : Integer;
  34. END;
  35.  
  36.  
  37. {$if not def DEVICES_KEYMAP_H;incl "devices/keymap.h";endif}
  38. {$if not def GRAPHICS_GFX_H;incl "graphics/gfx.h";endif}
  39. {$if not def GRAPHICS_CLIP_H;incl "graphics/clip.h";endif}
  40. {$if not def GRAPHICS_VIEW_H;incl "graphics/view.h";endif}
  41. {$if not def GRAPHICS_RASTPORT_H;incl "graphics/rastport.h";endif}
  42. {$if not def GRAPHICS_LAYERS_H;incl "graphics/layers.h";endif}
  43. {$if not def GRAPHICS_TEXT_H;incl "graphics/text.h";endif}
  44. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  45. {$if not def DEVICES_INPUTEVENT_H;incl "devices/inputevent.h";endif}
  46. {$if not def UTILITY_TAGITEM_H;incl "utility/tagitem.h";endif}
  47. {$if not def INTUITION_SGHOOKS_H;incl "intuition/sghooks.h";endif}
  48.  
  49.  
  50. TYPE Menu = RECORD
  51.  NextMenu  : p_Menu;
  52.  LeftEdge  : Integer;
  53.  TopEdge   : Integer;
  54.  Width     : Integer;
  55.  Height    : Integer;
  56.  Flags     : Word;
  57.  MenuName  : Str;
  58.  FirstItem : p_MenuItem;
  59.  JazzX     : Integer;
  60.  JazzY     : Integer;
  61.  BeatX     : Integer;
  62.  BeatY     : Integer;
  63. END;
  64.  
  65. CONST
  66.  MENUENABLED = $0001;
  67.  MIDRAWN     = $0100;
  68.  
  69.  
  70. TYPE MenuItem = RECORD
  71.  NextItem      : p_MenuItem;
  72.  LeftEdge      : Integer;
  73.  TopEdge       : Integer;
  74.  Width         : Integer;
  75.  Height        : Integer;
  76.  Flags         : Word;
  77.  MutualExclude : LongInt;
  78.  ItemFill      : Ptr;
  79.  SelectFill    : Ptr;
  80.  Command       : Char;
  81.  SubItem       : p_MenuItem;
  82.  NextSelect    : Word;
  83. END;
  84.  
  85. CONST 
  86.  CHECKIT     = $0001;
  87.  ITEMTEXT    = $0002;
  88.  COMMSEQ     = $0004;
  89.  MENUTOGGLE  = $0008;
  90.  ITEMENABLED = $0010;
  91.  HIGHFLAGS   = $00C0;
  92.  HIGHIMAGE   = $0000;
  93.  HIGHCOMP    = $0040;
  94.  HIGHBOX     = $0080;
  95.  HIGHNONE    = $00C0;
  96.  
  97.  CHECKED     = $0100;
  98.  ISDRAWN     = $1000;
  99.  HIGHITEM    = $2000;
  100.  MENUTOGGLED = $4000;
  101.  
  102.  
  103. TYPE Requester = RECORD
  104.  OlderRequest : p_Requester;
  105.  LeftEdge     : Integer;
  106.  TopEdge      : Integer;
  107.  Width        : Integer;
  108.  Height       : Integer;
  109.  RelLeft      : Integer;
  110.  RelTop       : Integer;
  111.  ReqGadget    : p_Gadget;
  112.  ReqBorder    : p_Border;
  113.  ReqText      : p_IntuiText;
  114.  Flags        : Word;
  115.  BackFill     : Byte;
  116.  ReqLayer     : p_Layer;
  117.  ReqPad1      : ARRAY[0..31] OF Byte;
  118.  ImageBMap    : p_BitMap; 
  119.  RWindow      : p_Window;
  120.  ReqImage     : p_Image;
  121.  ReqPad2      : ARRAY[0..31] Of Byte;
  122. END;
  123.  
  124. CONST
  125.  POINTREL      = $0001;
  126.  PREDRAWN      = $0002;
  127.  NOISYREQ      = $0004;
  128.  SIMPLEREQ     = $0010;
  129.  USEREQIMAGE   = $0020;
  130.  NOREQBACKFILL = $0040;
  131.  REQOFFWINDOW  = $1000;
  132.  REQACTIVE     = $2000;
  133.  SYSREQUEST    = $4000;
  134.  DEFERREFRESH  = $8000;
  135.  
  136.  
  137. TYPE Gadget = RECORD
  138.  NextGadget    : p_Gadget;
  139.  LeftEdge      : Integer;
  140.  TopEdge       : Integer;
  141.  Width         : Integer;
  142.  Height        : Integer;
  143.  Flags         : Word;
  144.  Activation    : Word;
  145.  GadgetType    : Word;
  146.  GadgetRender  : Ptr;
  147.  SelectRender  : Ptr;
  148.  GadgetText    : p_IntuiText;
  149.  MutualExclude : LongInt;
  150.  SpecialInfo   : Ptr;
  151.  GadgetID      : Word;
  152.  UserData      : Ptr;
  153. END;
  154.  
  155. TYPE ExtGadget = RECORD
  156.  NextGadget    : p_Gadget;
  157.  LeftEdge      : Integer;
  158.  TopEdge       : Integer;
  159.  Width         : Integer;
  160.  Height        : Integer;
  161.  Flags         : Word;
  162.  Activation    : Word;
  163.  GadgetType    : Word;
  164.  GadgetRender  : Ptr;
  165.  SelectRender  : Ptr;
  166.  GadgetText    : p_IntuiText;
  167.  MutualExclude : LongInt;
  168.  SpecialInfo   : Ptr;
  169.  GadgetID      : Word;
  170.  UserData      : Ptr; 
  171.  
  172.  MoreFlags     : Long;
  173.  BoundsLeftEdge: Integer;
  174.  BoundsTopEdge : Integer;
  175.  BoundsWidth   : Integer;
  176.  BoundsHeight  : Integer;
  177. END;
  178.  
  179. CONST { diese Konstanten werden von "intuition/iobsolete" benötigt ! }
  180.  GFLG_GADGHIGHBITS = $0003;
  181.  GFLG_GADGHCOMP    = $0000;
  182.  GFLG_GADGHBOX     = $0001;
  183.  GFLG_GADGHIMAGE   = $0002;
  184.  GFLG_GADGHNONE    = $0003;
  185.  GFLG_GADGIMAGE    = $0004;
  186.  
  187.  GFLG_RELBOTTOM    = $0008;
  188.  GFLG_RELRIGHT     = $0010;
  189.  GFLG_RELWIDTH     = $0020;
  190.  GFLG_RELHEIGHT    = $0040;
  191.  
  192.  GFLG_RELSPECIAL   = $4000;
  193.  GFLG_SELECTED     = $0080;
  194.  GFLG_DISABLED     = $0100;
  195.  
  196.  GFLG_LABELMASK    = $3000;
  197.  GFLG_LABELITEXT   = $0000;
  198.  GFLG_LABELSTRING  = $1000;
  199.  GFLG_LABELIMAGE   = $2000;
  200.  
  201.  GFLG_TABCYCLE     = $0200;
  202.  GFLG_STRINGEXTEND = $0400;
  203.  GFLG_IMAGEDISABLE = $0800;
  204.  GFLG_EXTENDED     = $8000;
  205.  
  206.  GACT_RELVERIFY    = $0001;
  207.  GACT_IMMEDIATE    = $0002;
  208.  GACT_ENDGADGET    = $0004;
  209.  
  210.  GACT_FOLLOWMOUSE  = $0008;
  211.  
  212.  GACT_RIGHTBORDER  = $0010;
  213.  GACT_LEFTBORDER   = $0020;
  214.  GACT_TOPBORDER    = $0040;
  215.  GACT_BOTTOMBORDER = $0080;
  216.  GACT_BORDERSNIFF  = $8000;
  217.  
  218.  GACT_TOGGLESELECT = $0100;
  219.  GACT_BOOLEXTEND   = $2000;
  220.  
  221.  GACT_STRINGLEFT   = $0000;
  222.  GACT_STRINGCENTER = $0200;
  223.  GACT_STRINGRIGHT  = $0400;
  224.  GACT_LONGINT      = $0800;
  225.  GACT_ALTKEYMAP    = $1000;
  226.  GACT_STRINGEXTEND = $2000;
  227.  GACT_ACTIVEGADGET = $4000;
  228.  
  229.  
  230.  GTYP_GADGETTYPE = $FC00;
  231.  GTYP_SYSGADGET  = $8000;
  232.  GTYP_SCRGADGET  = $4000;
  233.  GTYP_GZZGADGET  = $2000;
  234.  GTYP_REQGADGET  = $1000;
  235.  
  236.  GTYP_SIZING     = $0010;
  237.  GTYP_WDRAGGING  = $0020;
  238.  GTYP_SDRAGGING  = $0030;
  239.  GTYP_WUPFRONT   = $0040;
  240.  GTYP_SUPFRONT   = $0050;
  241.  GTYP_WDOWNBACK  = $0060;
  242.  GTYP_SDOWNBACK  = $0070;
  243.  GTYP_CLOSE      = $0080;
  244.  
  245.  GTYP_BOOLGADGET = $0001;
  246.  GTYP_GADGET0002 = $0002;
  247.  GTYP_PROPGADGET = $0003;
  248.  GTYP_STRGADGET  = $0004;
  249.  GTYP_CUSTOMGADGET = $0005;
  250.  GTYP_GTYPEMASK  = $0007;
  251.  
  252.  GMORE_BOUNDS      = $00000001;
  253.  GMORE_GADGETHELP  = $00000002;
  254.  GMORE_SCROLLRASTER= $00000004;
  255.  
  256.  
  257. TYPE BoolInfo = RECORD
  258.  Flags    : Word;
  259.  Mask     : Ptr;
  260.  Reserved : Long;
  261. END;
  262.  
  263. CONST BOOLMASK = $0001;
  264.  
  265.  
  266. TYPE PropInfo  = RECORD
  267.  Flags      : Word;
  268.  HorizPot   : Word;
  269.  VertPot    : Word;
  270.  HorizBody  : Word;
  271.  VertBody   : Word;
  272.  CWidth     : Word;
  273.  CHeight    : Word;
  274.  HPotRes    : Word;
  275.  VPotRes    : Word;
  276.  LeftBorder : Word;
  277.  TopBorder  : Word;
  278. END;
  279.  
  280. CONST
  281.  AUTOKNOB       = $0001;
  282.  FREEHORIZ      = $0002;
  283.  FREEVERT       = $0004;
  284.  PROPBORDERLESS = $0008;
  285.  KNOBHIT        = $0100;
  286.  PROPNEWLOOK    = $0010;
  287.  
  288.  KNOBHMIN = 6;
  289.  KNOBVMIN = 4;
  290.  MAXBODY  = $FFFF;
  291.  MAXPOT   = $FFFF;
  292.  
  293.  
  294. TYPE StringInfo = RECORD
  295.  Buffer      : Str;
  296.  UndoBuffer  : Str;
  297.  BufferPos   : Integer;
  298.  MaxChars    : Integer;
  299.  DispPos     : Integer;
  300.  UndoPos     : Integer;
  301.  NumChars    : Integer;
  302.  DispCount   : Integer;
  303.  CLeft       : Integer;
  304.  CTop        : Integer;
  305.  Extension   : p_StringExtend;
  306.  LongInt     : LongInt;
  307.  AltKeyMap   : p_KeyMap;
  308. END;
  309.  
  310.  
  311. TYPE IntuiText = RECORD
  312.  FrontPen  : Byte;
  313.  BackPen   : Byte;
  314.  DrawMode  : Byte;
  315.  LeftEdge  : Integer;
  316.  TopEdge   : Integer;
  317.  ITextFont : p_textAttr;
  318.  IText     : Str;
  319.  NextText  : p_IntuiText;
  320. END;
  321.  
  322.  
  323. TYPE Border = RECORD
  324.  LeftEdge   : Integer;
  325.  TopEdge    : Integer;
  326.  FrontPen   : Byte;
  327.  BackPen    : Byte;
  328.  DrawMode   : Byte;
  329.  Count      : Short;
  330.  XY         : Ptr;
  331.  NextBorder : p_Border;
  332. END;
  333.  
  334.  
  335. TYPE Image = RECORD
  336.  LeftEdge   : Integer;
  337.  TopEdge    : Integer;
  338.  Width      : Integer;
  339.  Height     : Integer;
  340.  Depth      : Integer;
  341.  ImageData  : Ptr;
  342.  PlanePick  : Byte;
  343.  PlaneOnOff : Byte;
  344.  NextImage  : p_Image;
  345. END;
  346.  
  347.  
  348. TYPE IntuiMessage = RECORD
  349.  ExecMessage : Message;
  350.  Class       : Long;
  351.  Code        : Word;
  352.  Qualifier   : Word;
  353.  IAddress    : Ptr;
  354.  MouseX      : Integer;
  355.  MouseY      : Integer;
  356.  Seconds     : Long;
  357.  Micros      : Long;
  358.  IDCMPWindow : p_Window;
  359.  SpecialLink : p_IntuiMessage;
  360. END;
  361.  
  362. TYPE ExtIntuiMessage = RECORD
  363.  eim_IntuiMessage : IntuiMessage;
  364.  eim_TabletData   : p_TabletData;
  365. END;
  366.  
  367. CONST
  368.  IDCMP_SIZEVERIFY     = $00000001;
  369.  IDCMP_NEWSIZE        = $00000002;
  370.  IDCMP_REFRESHWINDOW  = $00000004;
  371.  IDCMP_MOUSEBUTTONS   = $00000008;
  372.  IDCMP_MOUSEMOVE      = $00000010;
  373.  IDCMP_GADGETDOWN     = $00000020;
  374.  IDCMP_GADGETUP       = $00000040;
  375.  IDCMP_REQSET         = $00000080;
  376.  IDCMP_MENUPICK       = $00000100;
  377.  IDCMP_CLOSEWINDOW    = $00000200;
  378.  IDCMP_RAWKEY         = $00000400;
  379.  IDCMP_REQVERIFY      = $00000800;
  380.  IDCMP_REQCLEAR       = $00001000;
  381.  IDCMP_MENUVERIFY     = $00002000;
  382.  IDCMP_NEWPREFS       = $00004000;
  383.  IDCMP_DISKINSERTED   = $00008000;
  384.  IDCMP_DISKREMOVED    = $00010000;
  385.  IDCMP_WBENCHMESSAGE  = $00020000;
  386.  IDCMP_ACTIVEWINDOW   = $00040000;
  387.  IDCMP_INACTIVEWINDOW = $00080000;
  388.  IDCMP_DELTAMOVE      = $00100000;
  389.  IDCMP_VANILLAKEY     = $00200000;
  390.  IDCMP_INTUITICKS     = $00400000;
  391.  
  392.  IDCMP_IDCMPUPDATE    = $00800000;
  393.  IDCMP_MENUHELP       = $01000000;
  394.  IDCMP_CHANGEWINDOW   = $02000000;
  395.  IDCMP_LONELYMESSAGE  = $80000000;
  396.  
  397.  
  398.  CWCODE_MOVESIZE  = $0000;
  399.  CWCODE_DEPTH     = $0001;
  400.  
  401.  MENUHOT     = $0001;
  402.  MENUCANCEL  = $0002;
  403.  MENUWAITING = $0003;
  404.  
  405.  OKOK        = MENUHOT;
  406.  OKABORT     = $0004;
  407.  OKCANCEL    = MENUCANCEL;
  408.  
  409.  WBENCHOPEN  = $0001;
  410.  WBENCHCLOSE = $0002;
  411.  
  412.  
  413. TYPE Window = RECORD
  414.  NextWindow   : p_Window;
  415.  LeftEdge     : Integer;
  416.  TopEdge      : Integer;
  417.  Width        : Integer;
  418.  Height       : Integer;
  419.  MouseY       : Integer;
  420.  MouseX       : Integer;
  421.  MinWidth     : Integer;
  422.  MinHeight    : Integer;
  423.  MaxWidth     : Word; 
  424.  MaxHeight    : Word;
  425.  Flags        : Long;
  426.  MenuStrip    : p_Menu;
  427.  Title        : Str;
  428.  FirstRequest : p_Requester;
  429.  DMRequest    : p_Requester;
  430.  ReqCount     : Integer;
  431.  WScreen      : p_Screen;
  432.  RPort        : p_RastPort;
  433.  BorderLeft   : Short;
  434.  BorderTop    : Short;
  435.  BorderRight  : Short;
  436.  BorderBottom : Short;
  437.  BorderRPort  : p_RastPort;
  438.  FirstGadget  : p_Gadget;
  439.  Parent       : p_Window;
  440.  Descendant   : p_Window;
  441.  Pointer      : Ptr;
  442.  PtrHeight    : Short;
  443.  PtrWidth     : Short;
  444.  XOffset      : Short;
  445.  YOffset      : Short;
  446.  IDCMPFlags   : Long;
  447.  UserPort     : p_MsgPort
  448.  WindowPort   : p_MsgPort;
  449.  MessageKey   : p_IntuiMessage;
  450.  DetailPen    : Byte;
  451.  BlockPen     : Byte;
  452.  CheckMark    : p_Image;
  453.  ScreenTitle  : Str;
  454.  GZZMouseX    : Integer;
  455.  GZZMouseY    : Integer;
  456.  GZZWidth     : Integer;
  457.  GZZHeight    : Integer;
  458.  ExtData      : Ptr;
  459.  UserData     : Ptr;
  460.  WLayer       : p_Layer;
  461.  IFont        : p_TextFont;
  462.  MoreFlags    : Long;
  463. END;
  464.  
  465. CONST
  466.  WFLG_SIZEGADGET     = $00000001;
  467.  WFLG_DRAGBAR        = $00000002;
  468.  WFLG_DEPTHGADGET    = $00000004;
  469.  WFLG_CLOSEGADGET    = $00000008;
  470.  WFLG_SIZEBRIGHT     = $00000010;
  471.  WFLG_SIZEBBOTTOM    = $00000020;
  472.  
  473.  WFLG_REFRESHBITS    = $000000C0;
  474.  WFLG_SMART_REFRESH  = $00000000;
  475.  WFLG_SIMPLE_REFRESH = $00000040;
  476.  WFLG_SUPER_BITMAP   = $00000080;
  477.  WFLG_OTHER_REFRESH  = $000000C0;
  478.  WFLG_BACKDROP       = $00000100;
  479.  WFLG_REPORTMOUSE    = $00000200;
  480.  WFLG_GIMMEZEROZERO  = $00000400;
  481.  WFLG_BORDERLESS     = $00000800;
  482.  WFLG_ACTIVATE       = $00001000;
  483.  WFLG_RMBTRAP        = $00010000;
  484.  WFLG_NOCAREREFRESH  = $00020000;
  485.  WFLG_NW_EXTENDED    = $00040000;
  486.  WFLG_NEWLOOKMENUS   = $00200000;
  487.  
  488.  WFLG_WINDOWACTIVE   = $00002000;
  489.  WFLG_INREQUEST      = $00004000;
  490.  WFLG_MENUSTATE      = $00008000;
  491.  WFLG_WINDOWREFRESH  = $01000000;
  492.  WFLG_WBENCHWINDOW   = $02000000;
  493.  WFLG_WINDOWTICKED   = $04000000;
  494.  
  495.  WFLG_VISITOR        = $08000000;
  496.  WFLG_ZOOMED         = $10000000;
  497.  WFLG_HASZOOM        = $20000000;
  498.  
  499. CONST DEFAULTMOUSEQUEUE = 5;
  500.  
  501.  
  502. TYPE NewWindow = RECORD
  503.  LeftEdge    : Integer;
  504.  TopEdge     : Integer;
  505.  Width       : Integer;
  506.  Height      : Integer;
  507.  DetailPen   : Byte;
  508.  BlockPen    : Byte;
  509.  IDCMPFlags  : Long;
  510.  Flags       : Long;
  511.  FirstGadget : p_Gadget;
  512.  CheckMark   : p_Image;
  513.  Title       : Str;
  514.  Screen      : p_Screen;
  515.  BitMap      : p_BitMap;
  516.  MinWidth    : Integer;
  517.  MinHeight   : Integer;
  518.  MaxWidth    : Word;
  519.  MaxHeight   : Word;
  520.  _Type       : Word; { "_" ergänzt }
  521. END;
  522.  
  523. TYPE ExtNewWindow = RECORD
  524.  LeftEdge    : Integer;
  525.  TopEdge     : Integer;
  526.  Width       : Integer;
  527.  Height      : Integer;
  528.  DetailPen   : Byte;
  529.  BlockPen    : Byte;
  530.  IDCMPFlags  : Long;
  531.  Flags       : Long;
  532.  FirstGadget : p_Gadget;
  533.  CheckMark   : p_Image;
  534.  Title       : Str;
  535.  Screen      : p_Screen;
  536.  BitMap      : p_BitMap;
  537.  MinWidth    : Integer;
  538.  MinHeight   : Integer;
  539.  MaxWidth    : Word;
  540.  MaxHeight   : Word;
  541.  _Type       : Word; { "_" ergänzt }
  542.  Extension   : p_TagItem;
  543. END;
  544.  
  545.  
  546. CONST
  547.  WA_Dummy         = (TAG_USER+99);
  548.  WA_Left          = (WA_Dummy+$01);
  549.  WA_Top           = (WA_Dummy+$02);
  550.  WA_Width         = (WA_Dummy+$03);
  551.  WA_Height        = (WA_Dummy+$04);
  552.  WA_DetailPen     = (WA_Dummy+$05);
  553.  WA_BlockPen      = (WA_Dummy+$06);
  554.  WA_IDCMP         = (WA_Dummy+$07);
  555.  
  556.  WA_Flags         = (WA_Dummy+$08);
  557.  WA_Gadgets       = (WA_Dummy+$09);
  558.  WA_Checkmark     = (WA_Dummy+$0A);
  559.  WA_Title         = (WA_Dummy+$0B);
  560.  
  561.  WA_ScreenTitle   = (WA_Dummy+$0C);
  562.  WA_CustomScreen  = (WA_Dummy+$0D);
  563.  WA_SuperBitMap   = (WA_Dummy+$0E);
  564.  
  565.  WA_MinWidth      = (WA_Dummy+$0F);
  566.  WA_MinHeight     = (WA_Dummy+$10);
  567.  WA_MaxWidth      = (WA_Dummy+$11);
  568.  WA_MaxHeight     = (WA_Dummy+$12);
  569.  
  570.  WA_InnerWidth    = (WA_Dummy+$13);
  571.  WA_InnerHeight   = (WA_Dummy+$14);
  572.  WA_PubScreenName = (WA_Dummy+$15);
  573.  WA_PubScreen     = (WA_Dummy+$16);
  574.  WA_PubScreenFallBack = (WA_Dummy+$17);
  575.  WA_WindowName    = (WA_Dummy+$18);
  576.  WA_Colors        = (WA_Dummy+$19);
  577.  WA_Zoom          = (WA_Dummy+$1A);
  578.  
  579.  WA_MouseQueue    = (WA_Dummy+$1B);
  580.  WA_BackFill      = (WA_Dummy+$1C);
  581.  WA_RptQueue      = (WA_Dummy+$1D);
  582.  
  583.  WA_SizeGadget    = (WA_Dummy+$1E);
  584.  WA_DragBar       = (WA_Dummy+$1F);
  585.  WA_DepthGadget   = (WA_Dummy+$20);
  586.  WA_CloseGadget   = (WA_Dummy+$21);
  587.  WA_Backdrop      = (WA_Dummy+$22);
  588.  WA_ReportMouse   = (WA_Dummy+$23);
  589.  WA_NoCareRefresh = (WA_Dummy+$24);
  590.  WA_Borderless    = (WA_Dummy+$25);
  591.  WA_Activate      = (WA_Dummy+$26);
  592.  WA_RMBTrap       = (WA_Dummy+$27);
  593.  WA_WBenchWindow  = (WA_Dummy+$28);
  594.  WA_SimpleRefresh = (WA_Dummy+$29);
  595.  WA_SmartRefresh  = (WA_Dummy+$2A);
  596.  
  597.  WA_SizeBRight    = (WA_Dummy+$2B);
  598.  WA_SizeBBottom   = (WA_Dummy+$2C);
  599.  
  600.  WA_AutoAdjust    = (WA_Dummy+$2D);
  601.  WA_GimmeZeroZero = (WA_Dummy+$2E);
  602.  WA_MenuHelp      = (WA_Dummy+$2F);
  603.  
  604.  WA_NewLookMenus  = (WA_Dummy+$30);
  605.  WA_AmigaKey      = (WA_Dummy+$31);
  606.  WA_NotifyDepth   = (WA_Dummy+$32);
  607.  
  608.  WA_Pointer       = (WA_Dummy+$34);
  609.  WA_BusyPointer   = (WA_Dummy+$35);
  610.  WA_PointerDelay  = (WA_Dummy+$36);
  611.  WA_TabletMessages= (WA_Dummy+$37);
  612.  WA_HelpGroup     = (WA_Dummy+$38);
  613.  WA_HelpGroupWindow = (WA_Dummy+$39);
  614.  
  615.  
  616. CONST
  617.  HC_GADGETHELP = 1;
  618.  
  619.  
  620. {$if not def INTUITION_SCREENS_H;incl "intuition/screens.h";endif}
  621. {$if not def INTUITION_PREFERENCES_H;incl "intuition/preferences.h";endif}
  622.  
  623. TYPE Remember = RECORD
  624.  NextRemember : p_Remember;
  625.  RememberSize : Long;
  626.  Memory       : Ptr;
  627. END;
  628.  
  629. TYPE ColorSpec = RECORD
  630.  ColorIndex : Integer;
  631.  Red        : Word;
  632.  Green      : Word;
  633.  Blue       : Word;
  634. END;
  635.  
  636. TYPE EasyStruct = RECORD
  637.  es_StructSize   : Long;
  638.  es_Flags        : Long;
  639.  es_Title        : Str;
  640.  es_TextFormat   : Str;
  641.  es_GadgetFormat : Str;
  642. END;
  643.  
  644. CONST
  645.  NOMENU   = $001F;
  646.  NOITEM   = $003F;
  647.  NOSUB    = $001F;
  648.  MENUNULL = $FFFF;
  649.  
  650. CONST
  651.  CHECKWIDTH    = 19;
  652.  COMMWIDTH     = 27;
  653.  LOWCHECKWIDTH = 13;
  654.  LOWCOMMWIDTH  = 16;
  655.  
  656. CONST
  657.  ALERT_TYPE     = $80000000;
  658.  RECOVERY_ALERT = $00000000;
  659.  DEADEND_ALERT  = $80000000;
  660.  
  661. CONST
  662.  AUTOFRONTPEN  = 0;
  663.  AUTOBACKPEN   = 1;
  664.  AUTODRAWMODE  = JAM2;
  665.  AUTOLEFTEDGE  = 6;
  666.  AUTOTOPEDGE   = 3;
  667.  AUTOITEXTFONT = 0;
  668.  AUTONEXTTEXT  = 0;
  669.  
  670. CONST
  671.  SELECTUP   = (IECODE_LBUTTON or IECODE_UP_PREFIX);
  672.  SELECTDOWN = IECODE_LBUTTON;
  673.  MENUUP     = (IECODE_RBUTTON or IECODE_UP_PREFIX);
  674.  MENUDOWN   = IECODE_RBUTTON;
  675.  MIDDLEDOWN = IECODE_MBUTTON;
  676.  MIDDLEUP   = (IECODE_MBUTTON or IECODE_UP_PREFIX);
  677.  ALTLEFT    = IEQUALIFIER_LALT;
  678.  ALTRIGHT   = IEQUALIFIER_RALT;
  679.  AMIGALEFT  = IEQUALIFIER_LCOMMAND;
  680.  AMIGARIGHT = IEQUALIFIER_RCOMMAND;
  681.  AMIGAKEYS  = (AMIGALEFT or AMIGARIGHT);
  682.  
  683.  CURSORUP        = $4C;
  684.  CURSORLEFT      = $4F;
  685.  CURSORRIGHT     = $4E;
  686.  CURSORDOWN      = $4D;
  687.  KEYCODE_Q       = $10;
  688.  KEYCODE_Z       = $31;
  689.  KEYCODE_X       = $32;
  690.  KEYCODE_V       = $34;
  691.  KEYCODE_B       = $35;
  692.  KEYCODE_N       = $36;
  693.  KEYCODE_M       = $37;
  694.  KEYCODE_LESS    = $38;
  695.  KEYCODE_GREATER = $39;
  696.  
  697.  
  698. CONST
  699.  TABLETA_Dummy          = (TAG_USER + $3a000);
  700.  TABLETA_TabletZ        = (TABLETA_Dummy+$01);
  701.  TABLETA_RangeZ         = (TABLETA_Dummy+$02);
  702.  TABLETA_AngelX         = (TABLETA_Dummy+$03);
  703.  TABLETA_AngelY         = (TABLETA_Dummy+$04);
  704.  TABLETA_AngelZ         = (TABLETA_Dummy+$05);
  705.  TABLETA_Pressure       = (TABLETA_Dummy+$06);
  706.  TABLETA_ButtonBits     = (TABLETA_Dummy+$07);
  707.  TABLETA_InProximity    = (TABLETA_Dummy+$08);
  708.  
  709. TYPE TabletData = RECORD
  710.  td_XFraction : Word;
  711.  td_YFraction : Word;
  712.  td_TabletX   : Long;
  713.  td_TabletY   : Long;
  714.  td_RangeX    : Long;
  715.  td_RangeY    : Long;
  716.  td_TagList   : p_TagItem;
  717. END;
  718.  
  719. TYPE TabletHookData = RECORD
  720.  thd_Screen   : p_Screen;
  721.  thd_Width    : Long;  
  722.  thd_Height   : Long;
  723.  thd_ScreenChanged : LongInt;
  724. END;
  725.  
  726. {$if not def INTUITION_IOBSOLETE_H;incl "intuition/iobsolete.h";endif}
  727.  
  728. {$endif}
  729.