home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / gui / guienv376.lha / GUIEnvironment / M2Amiga / Modules / GUIEnvL.def < prev    next >
Encoding:
Modula Definition  |  1994-11-24  |  4.5 KB  |  124 lines
  1. (****************************************************************************
  2.  
  3. $RCSfile: GUIEnvL.def $
  4.  
  5. $Revision: 1.4 $
  6.     $Date: 1994/11/24 10:35:53 $
  7.  
  8.     The library interface for the guienv.library V37
  9.  
  10.     M2Amiga Modula-2 Compiler V4.3
  11.  
  12.   Copyright © 1994, Carsten Ziegeler
  13.                     Augustin-Wibbelt-Str.7, 33106 Paderborn, Germany
  14.  
  15. ****************************************************************************)
  16. DEFINITION MODULE GUIEnvL{"guienv.library", 37};
  17.  
  18.   FROM SYSTEM     IMPORT ADDRESS;
  19.   FROM ExecD      IMPORT LibraryPtr;
  20.   FROM GraphicsD  IMPORT TextAttrPtr, TextFontPtr;
  21.   FROM IntuitionD IMPORT WindowPtr, ScreenPtr, IDCMPFlagSet, WindowFlagSet;
  22.   FROM UtilityD   IMPORT Tag, TagItemPtr;
  23. IMPORT D:GUIEnvD, R;
  24.  
  25. VAR
  26.   guienvVersion:INTEGER;
  27.   guienvBase:LibraryPtr;
  28.  
  29. CONST
  30.   guienvMinVersion = 37;  (* Revision 2 ! *)
  31.   guienvName = "guienv.library";
  32.  
  33.   PROCEDURE OpenGUIFont(name{R.A0} : ADDRESS;
  34.                         size{R.D0} : INTEGER;
  35.                         font{R.A1} : TextAttrPtr) : TextFontPtr;    CODE  -30;
  36.  
  37.   PROCEDURE CloseGUIFont(font{R.A0} : TextFontPtr);                 CODE  -36;
  38.  
  39.  
  40.   PROCEDURE OpenGUIScreenA(id{R.D0} : LONGINT;
  41.                            depth{R.D1}: INTEGER;
  42.                            name{R.A0} : ADDRESS;
  43.                            tags{R.A1} : TagItemPtr) : ScreenPtr;    CODE  -42;
  44.  
  45.   PROCEDURE OpenGUIWindowA(left{R.D0} : INTEGER;
  46.                            top{R.D1}  : INTEGER;
  47.                            width{R.D2}  : INTEGER;
  48.                            height{R.D3} : INTEGER;
  49.                            name{R.A0} : ADDRESS;
  50.                            idcmpFlags{R.D4}  : IDCMPFlagSet;
  51.                            windowFlags{R.D5} : WindowFlagSet;
  52.                            screen{R.A1} : ScreenPtr;
  53.                            tags{R.A2} : TagItemPtr) : WindowPtr;   CODE  -48;
  54.  
  55.   PROCEDURE CloseGUIWindow(window{R.A0} : WindowPtr);              CODE  -54;
  56.  
  57.   PROCEDURE CloseGUIScreen(screen{R.A0} : ScreenPtr);              CODE  -60;
  58.  
  59.  
  60.   PROCEDURE CreateGUIInfoA(window{R.A0} : WindowPtr;
  61.                            tags{R.A1} : TagItemPtr) : D.GUIInfoPtr;CODE  -66;
  62.  
  63.   PROCEDURE FreeGUIInfo(gui{R.A0} : D.GUIInfoPtr);                 CODE  -72;
  64.  
  65.   PROCEDURE DrawGUIA(gui{R.A0} : D.GUIInfoPtr;
  66.                      tags{R.A1}: TagItemPtr) : INTEGER;            CODE  -78;
  67.  
  68.   PROCEDURE ChangeGUIA(gui{R.A0}  : D.GUIInfoPtr;
  69.                        tags{R.A1} : TagItemPtr) : INTEGER;         CODE  -84;
  70.  
  71.  
  72.   PROCEDURE CreateGUIGadgetA(gui{R.A0} : D.GUIInfoPtr;
  73.                              left{R.D0} : INTEGER;
  74.                              top{R.D1}  : INTEGER;
  75.                              width{R.D2}  : INTEGER;
  76.                              height{R.D3} : INTEGER;
  77.                              kind{R.D4} : LONGINT;
  78.                              tags{R.A1} : TagItemPtr);             CODE  -90;
  79.  
  80.   PROCEDURE CreateGUIMenuEntryA(gui{R.A0}  : D.GUIInfoPtr;
  81.                                 type{R.D0} : SHORTINT;
  82.                                 text{R.A1} : ADDRESS;
  83.                                 tags{R.A2} : TagItemPtr);          CODE  -96;
  84.  
  85.  
  86.   PROCEDURE WaitGUIMsg(gui{R.A0} : D.GUIInfoPtr);                  CODE -102;
  87.  
  88.   PROCEDURE GetGUIMsg(gui{R.A0} : D.GUIInfoPtr) : BOOLEAN;         CODE -108;
  89.  
  90.  
  91.   PROCEDURE SetGUIGadgetA(gui{R.A0} : D.GUIInfoPtr;
  92.                           nbr{R.D0} : INTEGER;
  93.                           tags{R.A1}: TagItemPtr);                 CODE -114;
  94.  
  95.   PROCEDURE GetGUIGadget(gui{R.A0} : D.GUIInfoPtr;
  96.                          nbr{R.D0} : INTEGER;
  97.                          attr{R.D1}: Tag) : LONGINT;              CODE -120;
  98.  
  99.   PROCEDURE GUIGadgetActionA(gui{R.A0} : D.GUIInfoPtr;
  100.                              tags{R.A1}: TagItemPtr);              CODE -126;
  101.  
  102.  
  103.   PROCEDURE GUIRequestA(gui{R.A0} : D.GUIInfoPtr;
  104.                         text{R.A1} : ADDRESS;
  105.                         kind{R.D0} : LONGINT;
  106.                         tags{R.A2} : TagItemPtr) : LONGINT;        CODE -132;
  107.  
  108.  
  109.   PROCEDURE ShowGuideNodeA(gui{R.A0}   : D.GUIInfoPtr;
  110.                            guide{R.A1} : ADDRESS;
  111.                            node{R.A2}  : ADDRESS;
  112.                            tags{R.A3}  : TagItemPtr) : INTEGER;    CODE -138;
  113.  
  114.  
  115.   PROCEDURE GetCatStr(gui{R.A0} : D.GUIInfoPtr;
  116.                       str{R.D0} : LONGINT;
  117.                       def{R.A1} : ADDRESS) : ADDRESS;              CODE -144;
  118.  
  119.   PROCEDURE GetLocStr(gui{R.A0} : D.GUIInfoPtr;
  120.                       str{R.D0} : LONGINT;
  121.                       def{R.A1} : ADDRESS) : ADDRESS;              CODE -150;
  122.  
  123. END GUIEnvL.
  124.