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

on newWindow (type, flHidden=false, title=nil, windowType=outlineType, flReadOnly=false, adrWindows=nil) {
	if adrWindows == nil {
		adrWindows = ()};
	local (adrNewWindowTable = table.uniqueName ("", adrWindows, 7));
	new (tableType, adrNewWindowTable);
	local (adrWindow = @adrNewWindowTable^.window);
	new (windowType, adrWindow);
	if title == nil {
		title = string.popFileFromAddress (adrWindow)};
	bundle { //set default attributes
		local (t); new (tableType, @t);
		t.type = type;
		t.flReadOnly = flReadOnly;
		t.title = title;
		t.timeCreated = timeModified (adrWindow);
		t.lastSaved = timeModified (adrWindow);
		window.attributes.addGroup (@t, adrWindow)};
	if not flHidden {
		edit (adrWindow, title, flReadOnly:flReadOnly)};
	return (adrWindow)}

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.