Monday, November 08, 2010 at 12:01 AM.

---

system.verbs.apps.Filemaker.examples.oldExamples.addAndDemoMenus

<<on addAndDemoMenus ()  << From Frontier Extras 5/93
	<<with objectModel, FileMaker
		<<local (anItem, aMenu)
		<<putAppleListItem ("MenuInfo", name, @anItem)
		<<create (menuItem, 0, anItem, 0)
		<<putAppleListItem ("UnknownItem", name, @anItem)
		<<create (menuItem, 0, anItem, 0)
		<<putAppleListItem ("Examples", name, @aMenu)
		<<create (menu, 0, aMenu, 0)
		<<putAppleListItem ("UnknownSubItem", name, @anItem)
		<<create (menuItem, 0, anItem, endOf(menu["Examples"]))
		<<dialog.alert ("When FileMaker is in front, look in the External item in the Scripts menu.  Select MenuInfo.")
		<<FileMaker.bringToFront()
on addAndDemoMenus () {
	with objectModel, FileMaker {
		local (anItem, aMenu);
		anItem = { name: "Menu Info" };
		create (menuItem, withProperties: anItem);
		anItem = { name: "Menu Select Example" };
		create (menuItem, withProperties: anItem);
		aMenu = { name: "Examples" };
		create (menu, withProperties: aMenu);
		anItem = { name: "Unknown Command" };
		create (menuItem, withProperties: anItem, at: endOf(menu["Examples"]));
		doMenu (menu["Scripts"].menu["External"].menuItem ["Menu Select Example"]);
		dialog.alert ("When FileMaker is in front, look in the External item in the Scripts menu.  Select MenuInfo.");
		FileMaker.bringToFront()}};
addAndDemoMenus()

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.