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.