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

---

system.verbs.builtins.Frontier.tools.windowTypes.callbacks.openWindow

on openWindow (adr) {
	<<Changes:
		<<8/2/01; 3:13:33 PM by JES
			<<Don't set the title of window attribute table windows (/atts windows).
	if not defined (adr^) { //not an addressible window -- fixes a freeze on the close box, for the Find & Replace dialog
		return (true)}; //allow the rest of the closeWindow callbacks to run, or allow the window to open if no more callbacks
	local (windowType);
	if window.attributes.getOne ("type", @windowType, adr) {
		local (adrWindowType);
		if Frontier.tools.windowTypes.findWindowType (windowType, @adrWindowType, adr) {
			adrscript = @adrWindowType^.openWindow;
			if defined (adrscript^) {
				return (adrscript^ (adr))}};
		local (title);
		if nameOf (adr^) != "/atts" { //don't set the title of window attribute table windows
			if window.attributes.getOne ("title", @title, adr) {
				window.setTitle (adr, title)}}};
	return (true)} //default behavior
<<bundle //bunch of b.s.
	<<on openWindow (adr)
		<<if not Frontier.tools.windowTypes.callWindowType (nameOf (this^), adr)
			<<local (title)
			<<if window.attributes.getOne ("title", @title, adr)
				<<window.setTitle (adr, title)
		<<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.