home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / intuition / gadgetclass.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  5.1 KB  |  195 lines
  1. {$if not def INTUITION_GADGETCLASS_H} CONST INTUITION_GADGETCLASS_H=0;
  2.  
  3. { *************************************************************************
  4.   ** KickPascal-Include-Datei "intuition/gadgetclass.h" zu Kickstart 3.0 **
  5.   ************************************************************************* }
  6.  
  7. TYPE p_gpRender = ^gpRender;
  8. TYPE p_gpHitTest = ^gpHitTest;
  9. TYPE p_gpInput = ^gpInput;
  10. TYPE p_gpGoInactive = ^gpGoInactive;
  11. TYPE p_gpLayout = ^gpLayout;
  12.  
  13. {$if not def INTUITION_INTUITION_H;incl "intuition/intuition.h";endif}
  14. {$if not def UTILITY_TAGITEM_H;incl "utility/tagitem.h";endif}
  15.  
  16.  
  17. CONST
  18.  GA_Dummy         = (TAG_USER +$30000);
  19.  GA_Left          = (GA_Dummy+$0001);
  20.  GA_RelRight      = (GA_Dummy+$0002);
  21.  GA_Top           = (GA_Dummy+$0003);
  22.  GA_RelBottom     = (GA_Dummy+$0004);
  23.  GA_Width         = (GA_Dummy+$0005);
  24.  GA_RelWidth      = (GA_Dummy+$0006);
  25.  GA_Height        = (GA_Dummy+$0007);
  26.  GA_RelHeight     = (GA_Dummy+$0008);
  27.  GA_Text          = (GA_Dummy+$0009);
  28.  GA_Image         = (GA_Dummy+$000A);
  29.  GA_Border        = (GA_Dummy+$000B);
  30.  GA_SelectRender  = (GA_Dummy+$000C);
  31.  GA_Highlight     = (GA_Dummy+$000D);
  32.  GA_Disabled      = (GA_Dummy+$000E);
  33.  GA_GZZGadget     = (GA_Dummy+$000F);
  34.  GA_ID            = (GA_Dummy+$0010);
  35.  GA_UserData      = (GA_Dummy+$0011);
  36.  GA_SpecialInfo   = (GA_Dummy+$0012);
  37.  GA_Selected      = (GA_Dummy+$0013);
  38.  GA_EndGadget     = (GA_Dummy+$0014);
  39.  GA_Immediate     = (GA_Dummy+$0015);
  40.  GA_RelVerify     = (GA_Dummy+$0016);
  41.  GA_FollowMouse   = (GA_Dummy+$0017);
  42.  GA_RightBorder   = (GA_Dummy+$0018);
  43.  GA_LeftBorder    = (GA_Dummy+$0019);
  44.  GA_TopBorder     = (GA_Dummy+$001A);
  45.  GA_BottomBorder  = (GA_Dummy+$001B);
  46.  GA_ToggleSelect  = (GA_Dummy+$001C);
  47.  
  48.  GA_SysGadget     = (GA_Dummy+$001D);
  49.  GA_SysGType      = (GA_Dummy+$001E);
  50.  GA_Previous      = (GA_Dummy+$001F);
  51.  GA_Next          = (GA_Dummy+$0020);
  52.  GA_DrawInfo      = (GA_Dummy+$0021);
  53.  GA_IntuiText     = (GA_Dummy+$0022);
  54.  GA_LabelImage    = (GA_Dummy+$0023);
  55.  GA_TabCycle      = (GA_Dummy+$0024);
  56.  
  57.  GA_GadgetHelp    = (GA_Dummy+$0025);
  58.  GA_Bounds        = (GA_Dummy+$0026);
  59.  GA_RelSpecial    = (GA_Dummy+$0027);
  60.  
  61.  
  62. CONST
  63.  PGA_Dummy      = (TAG_USER+$31000);
  64.  PGA_Freedom    = (PGA_Dummy+$0001);
  65.  PGA_Borderless = (PGA_Dummy+$0002);
  66.  PGA_HorizPot   = (PGA_Dummy+$0003);
  67.  PGA_HorizBody  = (PGA_Dummy+$0004);
  68.  PGA_VertPot    = (PGA_Dummy+$0005);
  69.  PGA_VertBody   = (PGA_Dummy+$0006);
  70.  PGA_Total      = (PGA_Dummy+$0007);
  71.  PGA_Visible    = (PGA_Dummy+$0008);
  72.  PGA_Top        = (PGA_Dummy+$0009);
  73.  
  74.  PGA_NewLook    = (PGA_Dummy+$000A);
  75.  
  76.  
  77. CONST
  78.  STRINGA_Dummy          = (TAG_USER+$32000);
  79.  STRINGA_MaxChars       = (STRINGA_Dummy+$0001);
  80.  STRINGA_Buffer         = (STRINGA_Dummy+$0002);
  81.  STRINGA_UndoBuffer     = (STRINGA_Dummy+$0003);
  82.  STRINGA_WorkBuffer     = (STRINGA_Dummy+$0004);
  83.  STRINGA_BufferPos      = (STRINGA_Dummy+$0005);
  84.  STRINGA_DispPos        = (STRINGA_Dummy+$0006);
  85.  STRINGA_AltKeyMap      = (STRINGA_Dummy+$0007);
  86.  STRINGA_Font           = (STRINGA_Dummy+$0008);
  87.  STRINGA_Pens           = (STRINGA_Dummy+$0009);
  88.  STRINGA_ActivePens     = (STRINGA_Dummy+$000A);
  89.  STRINGA_EditHook       = (STRINGA_Dummy+$000B);
  90.  STRINGA_EditModes      = (STRINGA_Dummy+$000C);
  91.  
  92.  STRINGA_ReplaceMode    = (STRINGA_Dummy+$000D);
  93.  STRINGA_FixedFieldMode = (STRINGA_Dummy+$000E);
  94.  STRINGA_NoFilterMode   = (STRINGA_Dummy+$000F);
  95.  
  96.  STRINGA_Justification  = (STRINGA_Dummy+$0010);
  97.  STRINGA_LongVal        = (STRINGA_Dummy+$0011);
  98.  STRINGA_TextVal        = (STRINGA_Dummy+$0012);
  99.  
  100.  STRINGA_ExitHelp       = (STRINGA_Dummy+$0013);
  101.  
  102.  
  103. CONST  SG_DEFAULTMAXCHARS = 128;
  104.  
  105.  
  106. CONST
  107.  LAYOUTA_Dummy       = (TAG_USER +$38000);
  108.  LAYOUTA_LayoutObj   = (LAYOUTA_Dummy+$0001);
  109.  LAYOUTA_Spacing     = (LAYOUTA_Dummy+$0002);
  110.  LAYOUTA_Orientation = (LAYOUTA_Dummy+$0003);
  111.  
  112. CONST
  113.  LORIENT_NONE  = 0;
  114.  LORIENT_HORIZ = 1;
  115.  LORIENT_VERT  = 2;
  116.  
  117.  
  118. CONST
  119.  GM_Dummy       = -1;
  120.  GM_HITTEST     = 0;
  121.  GM_RENDER      = 1;
  122.  GM_GOACTIVE    = 2;
  123.  GM_HANDLEINPUT = 3;
  124.  GM_GOINACTIVE  = 4;
  125.  
  126.  GM_HELPTEST    = 5;
  127.  GM_LAYOUT      = 6; 
  128.  
  129.  
  130. TYPE gpHitTest = RECORD
  131.  MethodID : Long;
  132.  gpht_GInfo : p_GadgetInfo;
  133.  gpht_Mouse : RECORD
  134.                X : Integer;
  135.                Y : Integer;
  136.               END;
  137. END;
  138.  
  139. CONST
  140.  GMR_GADGETHIT = $00000004;
  141.  
  142.  GMR_NOHELPHIT = $00000000;
  143.  GMR_HELPHIT   = $ffffffff;
  144.  GMR_HELPCODE  = $00010000;
  145.  
  146.  
  147. TYPE gpRender = RECORD
  148.  MethodID   : Long;
  149.  gpr_GInfo  : p_GadgetInfo;
  150.  gpr_RPort  : p_RastPort;
  151.  gpr_Redraw : LongInt;
  152. END;
  153.  
  154. CONST
  155.  GREDRAW_UPDATE = 2;
  156.  GREDRAW_REDRAW = 1;
  157.  GREDRAW_TOGGLE = 0;
  158.  
  159.  
  160. TYPE gpInput = RECORD
  161.  MethodID        : Long;
  162.  gpi_GInfo       : p_GadgetInfo;
  163.  gpi_IEvent      : p_InputEvent;
  164.  gpi_Termination : ^Long;
  165.  gpi_Mouse       : RECORD
  166.                     X : Integer;
  167.                     Y : Integer;
  168.                    END;
  169.  gpi_TabletData  : p_TabletData; (* ab V39 *)
  170. END;
  171.  
  172. CONST
  173.  GMR_MEACTIVE   = 0;
  174.  GMR_NOREUSE    = $2;
  175.  GMR_REUSE      = $4;
  176.  GMR_VERIFY     = $8;
  177.  GMR_NEXTACTIVE = $10;
  178.  GMR_PREVACTIVE = $20;
  179.  
  180. TYPE gpGoInactive = RECORD
  181.  MethodID   : Long;
  182.  gpgi_GInfo : p_GadgetInfo;
  183.  gpgi_Abort : Long;
  184. END;
  185.  
  186. TYPE gpLayout = RECORD
  187.  MethodID   : Long;
  188.  gpl_GInfo  : p_GadgetInfo;
  189.  gpl_Initial: Long;
  190. END;
  191.  
  192. {$if not def INTUITION_IOBSOLETE_H;incl "intuition/iobsolete.h";endif}
  193.  
  194. {$endif}
  195.