home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / GadToolsL.def < prev    next >
Text File  |  1996-07-29  |  3KB  |  90 lines
  1. DEFINITION MODULE GadToolsL{"gadtools.library",36};
  2.  
  3. (* (C) Copyright 1994 Marcel Timmermans. All rights reserved. *)
  4.  
  5. FROM SYSTEM IMPORT ADDRESS;
  6.  
  7. IMPORT ed:ExecD,gd:GraphicsD,id:IntuitionD,ud:UtilityD,Reg,gtd:GadToolsD;
  8.  
  9. VAR
  10.  gadtoolsBase:ed.LibraryPtr;
  11.  
  12. CONST
  13.  gadtoolsMinVersion=36;
  14.  gadtoolsName="gadtools.library";
  15.  
  16. PROCEDURE CreateContext(
  17.            VAR glistptr{Reg.A0}:id.GadgetPtr):id.GadgetPtr; CODE -114;
  18.  
  19. PROCEDURE CreateGadgetA(
  20.            kind{Reg.D0}:LONGCARD;
  21.            VAR previous{Reg.A0}:id.Gadget;
  22.            VAR ng{Reg.A1}:gtd.NewGadget;
  23.            taglist{Reg.A2}:ud.TagItemPtr):id.GadgetPtr; CODE -30;
  24.  
  25. PROCEDURE CreateMenusA(
  26.            newmenu{Reg.A0}:gtd.NewMenuPtr;
  27.            taglist{Reg.A1}:ud.TagItemPtr):id.MenuPtr; CODE -48;
  28.  
  29. PROCEDURE DrawBevelBoxA(
  30.            rport{Reg.A0}:gd.RastPortPtr;
  31.            left{Reg.D0}:INTEGER;
  32.            top{Reg.D1}:INTEGER;
  33.            width{Reg.D2}:INTEGER;
  34.            height{Reg.D3}:INTEGER;
  35.            taglist{Reg.A1}:ud.TagItemPtr); CODE -120;
  36.  
  37. PROCEDURE FreeGadgets(gad{Reg.A0}:id.GadgetPtr); CODE -36;
  38.  
  39. PROCEDURE FreeMenus(menu{Reg.A0}:id.MenuPtr); CODE -54;
  40.  
  41. PROCEDURE FreeVisualInfo(vi{Reg.A0}:ADDRESS); CODE -132;
  42.  
  43. PROCEDURE GetVisualInfoA(
  44.            screen{Reg.A0}:id.ScreenPtr;
  45.            taglist{Reg.A1}:ud.TagItemPtr):ADDRESS; CODE -126;
  46.  
  47. PROCEDURE GTBeginRefresh(win{Reg.A0}:id.WindowPtr); CODE -90;
  48.  
  49. PROCEDURE GTEndRefresh(
  50.            win{Reg.A0}:id.WindowPtr;
  51.            complete{Reg.D0}:BOOLEAN); CODE -96;
  52.  
  53. PROCEDURE GTFilterIMsg(
  54.            imsg{Reg.A1}:id.IntuiMessagePtr):id.IntuiMessagePtr; CODE -102;
  55.  
  56. PROCEDURE(*39*) GTGetGadgetAttrsA(
  57.            firstmenu{Reg.A0}:id.MenuPtr;
  58.            win{Reg.A1}:id.WindowPtr;
  59.            req{Reg.A2}:id.RequesterPtr;
  60.            taglist{Reg.A3}:ADDRESS):LONGINT; CODE -174;
  61.  
  62. PROCEDURE GTGetIMsg(iport{Reg.A0}:ed.MsgPortPtr):id.IntuiMessagePtr; CODE -72;
  63.  
  64. PROCEDURE GTPostFilterIMsg(
  65.            imsg{Reg.A1}:id.IntuiMessagePtr):id.IntuiMessagePtr; CODE -108;
  66.  
  67. PROCEDURE GTRefreshWindow(
  68.            win{Reg.A0}:id.WindowPtr;
  69.            req{Reg.A1}:id.RequesterPtr); CODE -84;
  70.  
  71. PROCEDURE GTReplyIMsg(imsg{Reg.A1}:id.IntuiMessagePtr); CODE -78;
  72.  
  73. PROCEDURE GTSetGadgetAttrsA(
  74.            gad{Reg.A0}:id.GadgetPtr;
  75.            win{Reg.A1}:id.WindowPtr;
  76.            req{Reg.A2}:id.RequesterPtr;
  77.            taglist{Reg.A3}:ud.TagItemPtr); CODE -42;
  78.  
  79. PROCEDURE LayoutMenuItemsA(
  80.            firstitem{Reg.A0}:id.MenuItemPtr;
  81.            vi{Reg.A1}:ADDRESS;
  82.            taglist{Reg.A2}:ud.TagItemPtr):BOOLEAN; CODE -60;
  83.  
  84. PROCEDURE LayoutMenusA(
  85.            firstmenu{Reg.A0}:id.MenuPtr;
  86.            vi{Reg.A1}:ADDRESS;
  87.            taglist{Reg.A2}:ud.TagItemPtr):BOOLEAN; CODE -66;
  88.  
  89. END GadToolsL.
  90.