home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / gadtools.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.8 KB  |  42 lines
  1. {$if not def GADTOOLS_LIB_H} CONST GADTOOLS_LIB_H=0;
  2.  
  3. { **************************************************************
  4.   ** KickPascal-Include-Datei "gadtools.lib" zu Kickstart 3.0 **
  5.   ************************************************************** }
  6.  
  7. {$if not def INTUITION_INTUITION_H;incl "intuition/intuition.h";endif}
  8. {$if not def UTILITY_TAGITEM_H;incl "utility/tagitem.h";endif}
  9. {$if not def LIBRARIES_GADTOOLS_H;incl "libraries/gadtools.h";endif}
  10.  
  11. VAR GadToolsBase : Ptr;
  12.  
  13. LIBRARY GadToolsBase :
  14.  
  15. { **** Routinen ab V36 / Release 2.0  **** }
  16.  
  17.  -30 : FUNCTION  CreateGadgetA(D0:Long; A0:p_Gadget; A1:p_NewGadget; A2:p_TagItem): p_Gadget;
  18.  -36 : PROCEDURE FreeGadgets(A0:p_Gadget);
  19.  -42 : PROCEDURE GT_SetGadgetAttrsA(A0:p_Gadget; A1:p_Window; A2:p_Requester; A3:p_TagItem);
  20.  -48 : FUNCTION  CreateMenusA(A0:p_NewMenu; A1:p_TagItem): p_Menu;
  21.  -54 : PROCEDURE FreeMenus(A0:p_Menu);
  22.  -60 : FUNCTION  LayoutMenuItemsA(A0:p_MenuItem; A1:Ptr; A2:p_TagItem): Boolean;
  23.  -66 : FUNCTION  LayoutMenusA(A0:p_Menu; A1:Ptr; A2:p_TagItem): Boolean;
  24.  -72 : FUNCTION  GT_GetIMsg(A0:p_MsgPort): p_IntuiMessage;
  25.  -78 : PROCEDURE GT_ReplyIMsg(A1:p_IntuiMessage);
  26.  -84 : PROCEDURE GT_RefreshWindow(A0:p_Window; A1:p_Requester);
  27.  -90 : PROCEDURE GT_BeginRefresh(A0:p_Window);
  28.  -96 : PROCEDURE GT_EndRefresh(A0:p_Window; D0:LongInt);
  29. -102 : FUNCTION  GT_FilterIMsg(A1:p_IntuiMessage): p_IntuiMessage;
  30. -108 : FUNCTION  GT_PostFilterIMsg(A1:p_IntuiMessage): p_IntuiMessage;
  31. -114 : FUNCTION  CreateContext(A0:Ptr): p_Gadget;
  32. -120 : PROCEDURE DrawBevelBoxA(A0:p_RastPort; D0,D1,D2,D3:LongInt; A1:p_TagItem);
  33. -126 : FUNCTION  GetVisualInfoA(A0:p_Screen; A1:p_TagItem): Ptr;
  34. -132 : PROCEDURE FreeVisualInfo(A0:Ptr);
  35.  
  36. { **** Routinen ab V39 / Release 3.0  **** }
  37. { *** 6 private Routinen *** }
  38. -174 : FUNCTION  GT_GetGadgetAttrsA(A0:p_Gadget; A1:p_Window; A2:p_Requester; A3:p_TagItem): Long;
  39. END;
  40.  
  41. {$endif}
  42.