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.