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.