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

---

system.verbs.apps.FinderMenu.commands.closeParentFolders

on visit (path) {
	local (origPath = path);
	on popPath () {
		path = file.folderFromPath (path)};
	
	popPath (); popPath ();
	
	loop {
		if path == "" {
			break};
		if file.isFolder (path) {
			try {Finder.close (path)}}; <<new in 4.0b9
		if file.isVolume (path) {
			break};
		popPath ()};
	Finder.reveal (origPath); <<highlight the original file, the Finder loses track of selection
	return (true)}; <<new in 4.0b9
FinderMenu.visitPaths (@visit)

---

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.