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

---

system.verbs.builtins.export.commands.export

if card.runsCards () {
	export.card.run ()}
else {
	local (s, adr = window.frontmost ());
	local (adrParent);
	if window.isMenuScript (adr) {
		scriptError ("Can't export menu scripts.")};
	if typeOf (adr^) == tableType {
		adr =  table.getCursor ()};
	
	local (suffix = Frontier.getFileSuffix (typeOf (adr^)));
	if suffix != "" {
		suffix = "." + suffix};
	s = nameof (adr^);
	adrParent = parentOf (adr^);
	if adrParent != nil {
		s = nameOf (adrParent^) + '.' + s};
	local (f = user.export.lastfolder + s + suffix);
	if file.putFileDialog ("Export To:", @f) {
		export.sendObject (adr, f);
		user.export.lastFolder = file.folderFromPath (f)}}

---

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.