OberonCore

   PROCEDURE HideMenu* (IN name: ARRAY OF CHAR);
   VAR hm, tmp: HiddenMenu;
   BEGIN
      NEW(hm);
      hm.name := name$;
      IF hiddenList = NIL THEN
         hiddenList := hm
      ELSE
         tmp := hiddenList;
         WHILE tmp.next # NIL DO
            tmp := tmp.next
         END;
         tmp.next := hm
      END
   END HideMenu;
   
   PROCEDURE UnhideMenu* (IN name: ARRAY OF CHAR);
   VAR hm, tmp: HiddenMenu;
   BEGIN
      IF hiddenList # NIL THEN
         WHILE (hiddenList # NIL) & (hiddenList.name = name) DO
            hiddenList := hiddenList.next
         END;
         IF hiddenList # NIL THEN
            tmp := hiddenList;
            WHILE tmp.next # NIL DO
               IF tmp.next.name = name THEN tmp.next := tmp.next.next END;
               tmp := tmp.next
            END
         END
      END
   END UnhideMenu;
   
   PROCEDURE IsMenuHidden* (IN name: ARRAY OF CHAR): BOOLEAN;
   VAR tmp: HiddenMenu; res: BOOLEAN;
   BEGIN
      res := FALSE;
      tmp := hiddenList;
      WHILE tmp # NIL DO
         IF tmp.name = name THEN res := TRUE END;
         tmp := tmp.next
      END;
      RETURN res
   END IsMenuHidden;

MODULE TestMenus;
   
   IMPORT Files, Views, StdMenuTool, TextModels, TextViews;
   
   PROCEDURE LoadFromFile* (path, name: ARRAY OF CHAR);
   VAR text: TextModels.Model; view: Views.View;
   BEGIN
      view := Views.OldView(Files.dir.This(path), name$);
      WITH view: TextViews.View DO
         StdMenuTool.UpdateFromText(view.ThisModel())
      ELSE END
   END LoadFromFile;

END TestMenus.

"TestMenus.LoadFromFile('Mod/Rsrc/ME', 'Menus_MOD.odc')"
"TestMenus.LoadFromFile('Mod/Rsrc/ME', 'Menus_SIM.odc')"

"TestMenus.LoadFromFile('System/Rsrc', 'Menus.odc')"