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

---

scripting2Suite.editor.setEditWindowAttributes

on setEditWindowAttributes (adroutline, type="scripting2EditWindow", title=nil, flReadOnly=false) {
	<<Changes
		<<7/3/10; 5:45:02 AM by DW
			<<Cribbed from Frontier.tools.windowTypes .newWindow.
	local (t);
	new (tableType, @t);
	t.type = type;
	t.flReadOnly = flReadOnly;
	bundle { //set title
		if title == nil {
			title = string.popfilefromaddress (adroutline)}
		else {
			t.title = title}};
	t.timeCreated = timeModified (adroutline);
	t.lastSaved = timeModified (adroutline);
	window.attributes.addGroup (@t, adroutline)};
bundle { //test code
	local (adrdata = scripting2Suite.init ());
	setEditWindowAttributes (@adrdata^.editor.workspace.outline)}

---

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.