home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 647.lha / Attacks / Sources.LZH / Sources / menuutil.def < prev    next >
Encoding:
Modula Definition  |  1992-04-16  |  926 b   |  35 lines
  1. DEFINITION MODULE MenuUtil;
  2.  
  3.  
  4. IMPORT Intuition;
  5.  
  6.  
  7. TYPE
  8.   MENUBAR = RECORD
  9.               FirstMenuPtr : Intuition.MenuPtr;
  10.               RememberKey  : Intuition.RememberPtr;
  11.             END;
  12.   MENUBARPTR = POINTER TO MENUBAR;
  13.  
  14.  
  15. PROCEDURE Dump ( MenuBarPtr : MENUBARPTR );
  16.  
  17. PROCEDURE InitMenuBar( VAR MenuBarPtr: MENUBARPTR );
  18.  
  19. PROCEDURE AddMenu( MenuBarPtr : MENUBARPTR;
  20.                    MenuName   : ARRAY OF CHAR );
  21.  
  22. PROCEDURE AddItem( MenuBarPtr : MENUBARPTR;
  23.                    ItemName   : ARRAY OF CHAR;
  24.                    Command    : CHAR;       (* Is 0C if no command *)
  25.                    MutEx      : Intuition.MenuItemMutualExcludeSet;
  26.                              (* This set should be empty if no check mark *)
  27.                    InitCheck  : BOOLEAN );     (* Start with a check? *)
  28.  
  29. PROCEDURE ArrangeMenus( MenuBarPtr : MENUBARPTR );
  30.  
  31. PROCEDURE DisposeMenuBar( VAR MenuBarPtr : MENUBARPTR );
  32.  
  33.  
  34. END MenuUtil.
  35.