[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/nextPrev buildOutline,1.1.1.1,1.2

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

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

Modified Files:
	buildOutline 
Log Message:
comment test code bundle

Index: buildOutline
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/nextPrev/buildOutline,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** buildOutline	26 Mar 2005 19:43:14 -0000	1.1.1.1
--- buildOutline	13 Jun 2005 20:48:47 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.nextPrev.buildOutline
  
! on buildOutline (adrtable, adroutline) {
	local (oldtarget = target.get ());
	new (outlinetype, adroutline);
	target.set (adroutline);
	edit (adroutline);
	local (dir = down);
	on traverse (adrtable) {
		local (s);
		s = string (adrtable) + "." + html.getPref ("defaultFileName");
		if firstline {
			op.setLineText (s);
			firstline = false}
		else {
			op.insert (s, dir)};
		local (adrsubitem, i);
		for i = 1 to sizeof (adrtable^) {
			adrsubitem = @adrtable^ [i];
			msg (adrsubitem);
			if html.traversalSkip (adrsubitem) {
				continue};
			if nameOf (adrsubitem^) == html.getPref ("defaultFileName") {
				continue};
			if typeOf (adrsubitem^) == tableType {
				traverse (adrsubitem)} Çrecurse
			else {
				op.insert (adrsubitem, dir)};
			rollBeachBall ()}};
	local (firstline = true);
	traverse (adrtable);
	op.firstSummit ();
	target.set (oldtarget);
	return (true)};
bundle { Çtest code
	buildOutline (@user.websites.midas, @user.websites.midas.["#nextPrevs"])}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.nextPrev.buildOutline
  
! on buildOutline (adrtable, adroutline) {
	local (oldtarget = target.get ());
	new (outlinetype, adroutline);
	target.set (adroutline);
	edit (adroutline);
	local (dir = down);
	on traverse (adrtable) {
		local (s);
		s = string (adrtable) + "." + html.getPref ("defaultFileName");
		if firstline {
			op.setLineText (s);
			firstline = false}
		else {
			op.insert (s, dir)};
		local (adrsubitem, i);
		for i = 1 to sizeof (adrtable^) {
			adrsubitem = @adrtable^ [i];
			msg (adrsubitem);
			if html.traversalSkip (adrsubitem) {
				continue};
			if nameOf (adrsubitem^) == html.getPref ("defaultFileName") {
				continue};
			if typeOf (adrsubitem^) == tableType {
				traverse (adrsubitem)} Çrecurse
			else {
				op.insert (adrsubitem, dir)};
			rollBeachBall ()}};
	local (firstline = true);
	traverse (adrtable);
	op.firstSummit ();
	target.set (oldtarget);
	return (true)};
Çbundle Çtest code
	ÇbuildOutline (@user.websites.midas, @user.websites.midas.["#nextPrevs"])
\ No newline at end of file