DEFINITION MODULE GadToolsL{"gadtools.library",36};

(* (C) Copyright 1994 Marcel Timmermans. All rights reserved. *)

FROM SYSTEM IMPORT ADDRESS;

IMPORT ed:ExecD,gd:GraphicsD,id:IntuitionD,ud:UtilityD,Reg,gtd:GadToolsD;

VAR
 gadtoolsBase:ed.LibraryPtr;

CONST
 gadtoolsMinVersion=36;
 gadtoolsName="gadtools.library";

PROCEDURE CreateContext(
           VAR glistptr{Reg.A0}:id.GadgetPtr):id.GadgetPtr; CODE -114;

PROCEDURE CreateGadgetA(
           kind{Reg.D0}:LONGCARD;
           VAR previous{Reg.A0}:id.Gadget;
           VAR ng{Reg.A1}:gtd.NewGadget;
           taglist{Reg.A2}:ud.TagItemPtr):id.GadgetPtr; CODE -30;

PROCEDURE CreateMenusA(
           newmenu{Reg.A0}:gtd.NewMenuPtr;
           taglist{Reg.A1}:ud.TagItemPtr):id.MenuPtr; CODE -48;

PROCEDURE DrawBevelBoxA(
           rport{Reg.A0}:gd.RastPortPtr;
           left{Reg.D0}:INTEGER;
           top{Reg.D1}:INTEGER;
           width{Reg.D2}:INTEGER;
           height{Reg.D3}:INTEGER;
           taglist{Reg.A1}:ud.TagItemPtr); CODE -120;

PROCEDURE FreeGadgets(gad{Reg.A0}:id.GadgetPtr); CODE -36;

PROCEDURE FreeMenus(menu{Reg.A0}:id.MenuPtr); CODE -54;

PROCEDURE FreeVisualInfo(vi{Reg.A0}:ADDRESS); CODE -132;

PROCEDURE GetVisualInfoA(
           screen{Reg.A0}:id.ScreenPtr;
           taglist{Reg.A1}:ud.TagItemPtr):ADDRESS; CODE -126;

PROCEDURE GTBeginRefresh(win{Reg.A0}:id.WindowPtr); CODE -90;

PROCEDURE GTEndRefresh(
           win{Reg.A0}:id.WindowPtr;
           complete{Reg.D0}:BOOLEAN); CODE -96;

PROCEDURE GTFilterIMsg(
           imsg{Reg.A1}:id.IntuiMessagePtr):id.IntuiMessagePtr; CODE -102;

PROCEDURE(*39*) GTGetGadgetAttrsA(
           firstmenu{Reg.A0}:id.MenuPtr;
           win{Reg.A1}:id.WindowPtr;
           req{Reg.A2}:id.RequesterPtr;
           taglist{Reg.A3}:ADDRESS):LONGINT; CODE -174;

PROCEDURE GTGetIMsg(iport{Reg.A0}:ed.MsgPortPtr):id.IntuiMessagePtr; CODE -72;

PROCEDURE GTPostFilterIMsg(
           imsg{Reg.A1}:id.IntuiMessagePtr):id.IntuiMessagePtr; CODE -108;

PROCEDURE GTRefreshWindow(
           win{Reg.A0}:id.WindowPtr;
           req{Reg.A1}:id.RequesterPtr); CODE -84;

PROCEDURE GTReplyIMsg(imsg{Reg.A1}:id.IntuiMessagePtr); CODE -78;

PROCEDURE GTSetGadgetAttrsA(
           gad{Reg.A0}:id.GadgetPtr;
           win{Reg.A1}:id.WindowPtr;
           req{Reg.A2}:id.RequesterPtr;
           taglist{Reg.A3}:ud.TagItemPtr); CODE -42;

PROCEDURE LayoutMenuItemsA(
           firstitem{Reg.A0}:id.MenuItemPtr;
           vi{Reg.A1}:ADDRESS;
           taglist{Reg.A2}:ud.TagItemPtr):BOOLEAN; CODE -60;

PROCEDURE LayoutMenusA(
           firstmenu{Reg.A0}:id.MenuPtr;
           vi{Reg.A1}:ADDRESS;
           taglist{Reg.A2}:ud.TagItemPtr):BOOLEAN; CODE -66;

END GadToolsL.
