Monday, November 08, 2010 at 12:04 AM.
system.verbs.builtins.op.newOutlineObject
on newOutlineObject (s, adr) {
<<8/16/98; 11:40:55 AM by DW
<<New for 5.1.3, creates a new outline object at the specified address.
<<The text is assumed to be tab-indented,
<<We take advantage of the fact that op.insert knows how to deal with this kind of text.
<<Parallel to wp.newTextObject.
if not defined (adr^) {
new (outlinetype, adr)}
else {
if typeof (adr^) != outlinetype {
new (outlinetype, adr)}};
local (oldtarget = target.set (adr));
op.wipe ();
op.insert (s, down);
op.firstSummit ();
op.deleteLine ();
try {target.set (oldtarget)};
return (true)};
bundle { //test code
op.newOutlineObject (clock.now () + "\r\tone\r\ttwo\r\tthree\r\tfour\r", @scratchpad.testoutline)}
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.