[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/op newOutlineObject,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/op
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26108

Modified Files:
	newOutlineObject 
Log Message:
comment test bundle

Index: newOutlineObject
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/op/newOutlineObject,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** newOutlineObject	26 Mar 2005 19:43:18 -0000	1.1.1.1
--- newOutlineObject	13 Jun 2005 20:47:36 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt: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)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt: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)
\ No newline at end of file