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

on newToolScript (adrsource, adrdest, toolname) {
		<<5/26/09; 9:47:05 AM by DW
			<<Create a script in a new tool from a template. 
	local (s = string (adrsource^), t);
	new (tabletype, @t);
	t. toolname = toolname; = ();
	t.initials = user.prefs.initials;
	s = string.multiplereplaceall (s, @t, false, "<%", "%>");
	script.newscriptobject (s, adrdest)}
<<bundle //test code
	<<newToolScript (, @podcasterSuite.init, "podcaster")
	<<edit (@podcasterSuite.init)

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.