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

---

system.verbs.builtins.mainResponder.menuCommands.unInstallSite

local (adr = table.getCursorAddress ());
while (sizeOf (string.parseAddress (adr)) > 2) {
	adr = parentOf (adr^)};

local (siteName = nameOf (adr^));
if string.lower (siteName) endsWith "manilawebsite" {
	siteName = string.delete (siteName, sizeOf (siteName) - 12, 13)};

if not (manilaSuite.isManilaSite (adr)) {
	dialog.alert ("Can't uninstall \"" + siteName + "\" because it isn't a Manila site.");
	return (false)};

manilaSuite.unInstallSite (adr);

dialog.notify ("\"" + siteName + "\" has been uninstalled.")

---

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.