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


on revert (adr, adradrwindow=nil) {
	local (adrinfo);
	if window.attributes.getOne ("adrSiteInfo", @adrinfo, adr) {
		local (title, flReadOnly, siteurl);
		window.attributes.getOne ("flReadOnly", @flReadOnly, adr);
		window.attributes.getOne ("title", @title, adr);
		siteUrl = nameOf (adrinfo^);
		local (x, y, height, width);
		window.getPosition (adr, @x, @y);
		window.getSize (adr, @width, @height);
		delete (parentOf (adr^));
		local (adrType = parentOf (this^));
		adrType^.openManilaSite (siteurl, true, adradrwindow);
		local (t); new (tableType, @t);
		t.type = nameOf (adrtype^); t.adrSiteInfo = adrinfo;
		if (@t, @adr) {
			edit (adr, title, flReadOnly);
			window.setSize (adr, width, height);
			window.setPosition (adr, x, y);
			return (true)};
		return (false)};
	if adradrwindow != nil {
		adradrwindow^ = adr};
	return (false)};

bundle { //debugging
	revert (window.frontmost ())}

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.