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

---

system.verbs.builtins.mainResponder.menuCommands.closeEverything

<<9/29/99; 3:33:48 AM by DW
	<<Loops over all open windows in Frontier and hides the databases and closes all other windows. 
	<<It leaves the About window open. If you prefer to have the About window closed to, change the value of the boolean.
local (flCloseAboutWindow = false);
local (nomad = window.frontmost ());
while (nomad != "") { <<loop until window is nil
	local (nextnomad = window.next (nomad)); //get now in case window is closed
	if nomad == "About Frontier" {
		if flCloseAboutWindow {
			window.close (nomad)}}
	else {
		try {
			local (alist = string.parseAddress (nomad));
			if sizeof (alist) > 1 { //not the top level of a database
				window.close (nomad)}
			else {
				window.hide (nomad)}}
		else { //probably a menu's script window
			window.close (nomad)}};
	nomad = nextnomad}

---

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.