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


on openDecorations (adroutline, width=nil, height=nil, horiz=nil, vert=nil) {
		<<6/10/10; 12:15:27 AM by DW
	local (adrdata = scripting2Suite.init ());
	local (title = "scripting2: " + adrdata^.editor.prefs.username);
	local (adrbuttons = @scripting2Suite.editor.buttons.decorations);
	edit (adroutline, adrButtonTable:adrbuttons, windowtitle:title);
	bundle { //set size and position
		local (flhidden = false);
		if ((horiz != nil) and (vert != nil)) or ((width != nil) and (height != nil)) {
			window.hide (adroutline);
			flhidden = true};
		if (horiz != nil) and (vert != nil) {
			window.setposition (adroutline, horiz, vert)};
		if (width != nil) and (height != nil) {
			window.setsize (adroutline, width, height)};
		if flhidden { (adroutline)}}};
bundle { //test code
	if not defined (scratchpad.decor1) {
		new (outlinetype, @scratchpad.decor1)};
	openDecorations (@scratchpad.decor1)}

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.