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

on findWindowType (type = "", adradrtable=nil, adrwindow=nil) {
	if adrwindow == nil {
		adrwindow = window.frontMost ()};
	if type == "" {
		if not window.attributes.getOne ("type", @type, adrwindow) {
			return (false)}};
	local (adrtable =[type]);
	if defined (adrtable^) {
		while typeof (adrtable^) == addresstype {
			adrtable = adrtable^};
		adradrtable^ = adrtable;
		return (true)};
	adrtable =[type];
	if defined (adrtable^) {
		while typeOf (adrtable^) == addresstype {
			adrtable = adrtable^};
		if adradrtable != nil {
			adradrtable^ = adrtable};
		return (true)};
	return (false)}
<<bundle //test code
	<<dialog.alert (findwindowtype ("", @adrtable))
	<<dialog.alert (adrtable)

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.