Monday, November 08, 2010 at 12:02 AM.
system.verbs.builtins.Frontier.new2ClickFile
on new2ClickFile (f) {
<<Thursday, July 17, 1997 at 12:57:18 PM by PBS
<<Conditionalize for cross-platform compatibility.
<<Tue, Feb 4, 1992; dmb: added STR -16396 for Finder alerts
<<Mon, Feb 10, 1992; dmb: delete existing file, but preserve comment
local (comment = "");
if file.exists (f) { <<delete existing file, but preserve comment
if sys.os () == "MacOS" {
comment = file.getComment (f)};
file.delete (f)};
file.new (f);
if sys.os () == "MacOS" {
file.setType (f, '2CLK');
file.setCreator (f, 'LAND');
if comment != "" {
file.setComment (f, comment)};
rez.putstringresource (f, 128, Frontier.version ());
rez.putstringresource (f, -16396, "Frontier")}; <<for the Finder
return (true)}
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.