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

---

system.verbs.builtins.mainResponder.subscriptions.checkInCallback

on checkInCallback (adrobject, username, now, description) { //called after an object has been checked in
	local (nomad = adrobject, adrchanges);
	loop {
		nomad = parentof (nomad^);
		if nomad == "" {
			break};
		adrchanges = @nomad^.["#changes"];
		if defined (adrchanges^) {
			local (adrtable = xml.addtable (adrchanges, nameof (adrobject^)));
			adrtable^.what = adrobject;
			adrtable^.when = now;
			adrtable^.who = username;
			wp.newtextobject (description, @adrtable^.why);
			break}}};
bundle { //test code
	local (adr = table.getcursoraddress ());
	checkincallback (adr, "Bull Mancuso", clock.now (), "No information available at this time.")}

---

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.