Monday, November 08, 2010 at 12:02 AM.
system.verbs.builtins.export.importSubMenu
on importSubMenu (path) {
Frontier.findertofront = false; <<Frontier should remain in front after importing
local (subMenu, adrReceiver, parent);
bundle { <<load in a menubar object into subMenu, determine location of receiving menubar
local (resdata); <<holds the data received from resource fork
local (resname); <<name of the resource, tells us which menubar to paste into
if not rez.getNthResource (path, 'data', 1, @resname, @resdata) {
return (false)};
unpack (@resdata, @resdata);
unpack (@resdata, @subMenu);
adrReceiver = address (resname);
if not defined (adrReceiver^) {
if Frontier.isRuntime () {
dialog.notify ("The menubar \"" + resname + "\" does not exist. Can't import submenubar");
return (false)};
new (menubarType, adrReceiver)}};
bundle { <<get the name of the parent menu from the 'STR ' resource
if not rez.getStringResource (path, 132, @parent) {
parent = ""}};
if not menu.addSubMenu (adrReceiver, parent, @subMenu) {
dialog.alert ("Couldn't add the submenu to " + adrReceiver + ".");
return (false)};
if not Frontier.isRuntime () {
edit (adrReceiver);
op.expand (1)};
return (true)}
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.