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

---

system.verbs.apps.cardEditor.examples.newFolderIcon

on newFolderIcon (folder, iconresource) {
	local (quote = “"”);
	local (iconlabel = file.fileFromPath (folder) - ":");
	local (objectname = cardEditor.uniqueName (iconlabel));
	local (script = "file.openFolder (" + quote + folder + quote + ")");
	
	cardEditor.newObject (card.types.iconType, objectname, iconlabel, script);
	cardEditor.cleanObject (objectname);
	
	bundle { <<set up attributes of new object
		local (atts);
		new (tableType, @atts);
		atts.rsnm = short (iconresource);
		cardEditor.setObjectAttributes (objectname, @atts)}}

---

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.