DEFINITION MODULE MenuUtil;


IMPORT Intuition;


TYPE
  MENUBAR = RECORD
              FirstMenuPtr : Intuition.MenuPtr;
              RememberKey  : Intuition.RememberPtr;
            END;
  MENUBARPTR = POINTER TO MENUBAR;


PROCEDURE Dump ( MenuBarPtr : MENUBARPTR );

PROCEDURE InitMenuBar( VAR MenuBarPtr: MENUBARPTR );

PROCEDURE AddMenu( MenuBarPtr : MENUBARPTR;
                   MenuName   : ARRAY OF CHAR );

PROCEDURE AddItem( MenuBarPtr : MENUBARPTR;
                   ItemName   : ARRAY OF CHAR;
                   Command    : CHAR;       (* Is 0C if no command *)
                   MutEx      : Intuition.MenuItemMutualExcludeSet;
                             (* This set should be empty if no check mark *)
                   InitCheck  : BOOLEAN );     (* Start with a check? *)

PROCEDURE ArrangeMenus( MenuBarPtr : MENUBARPTR );

PROCEDURE DisposeMenuBar( VAR MenuBarPtr : MENUBARPTR );


END MenuUtil.