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

---

system.verbs.builtins.log.scroll

on scroll (item, scrollname="default") {
	<<Changes
		<<8/31/06; 7:17:08 AM by DW
			<<Created. A form of log that shows the last 20 entries that have been added. Useful for watching the flow of addresses for a web server, for example.
	local (adrtable = @user.log.scrolls);
	if not defined (adrtable^) {
		new (tabletype, adrtable)};
	local (adroutline = @adrtable^.[scrollname]);
	if not defined (adroutline^) {
		new (outlinetype, adroutline)};
	local (oldtarget = target.set (adroutline));
	op.setdisplay (false);
	if op.countsummits () > 20 {
		op.firstsummit ();
		op.deleteline ()};
	op.go (down, infinity);
	op.insert (item, down);
	op.setdisplay (true);
	target.set (oldtarget);
	if not window.isopen (adroutline) {
		edit (adroutline)}}
<<bundle //test code
	<<local (i)
	<<for i = 1 to 100
		<<scroll (random (1, 10000))

---

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.