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

---

system.verbs.apps.Finder.move

on move (obj, moveTo, replacing = nil) { <<Move object(s) to a new location
	with objectModel, Finder {
		if isScriptable () {
			return (appleEvent (id, 'core', 'move', '----', finderSpec (obj), 'insh', insertionSpec (moveTo), 'alrp', replacing))}
		else {
			local (folder, selection);
			folder = alias (moveTo);
			selection = makeAliasList (obj);
			return (finderEvent (id, class, 'move', '----', folder, 'fsel', selection, 'fmsc', 0))}}}

---

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.