home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / turbo_part1.lha / modula / amiga / GadTools.mod < prev    next >
Encoding:
Modula Implementation  |  1995-01-24  |  559 b   |  24 lines
  1. IMPLEMENTATION MODULE GadTools ;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS ;
  4. IMPORT M2Lib , Intuition ;
  5.  
  6. PROCEDURE GTMENU_USERDATA( menu : ADDRESS ) : ADDRESS ;
  7.   VAR x : POINTER TO ADDRESS ;
  8. BEGIN
  9.   INC( menu , SIZE( Intuition.Menu ) ) ;
  10.   x := menu ;
  11.   RETURN x^
  12. END GTMENU_USERDATA ;
  13.  
  14. PROCEDURE GTMENUITEM_USERDATA( menuitem : ADDRESS ) : ADDRESS ;
  15.   VAR x : POINTER TO ADDRESS ;
  16. BEGIN
  17.   INC( menuitem , SIZE( Intuition.MenuItem ) ) ;
  18.   x := menuitem ;
  19.   RETURN x^
  20. END GTMENUITEM_USERDATA ;
  21.  
  22. BEGIN GadToolsBase := M2Lib.OpenLib("gadtools.library",VERSION)
  23. END GadTools.
  24.