[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/renderers fatHeadlines,NONE,1.1 cadillac,NONE,1.1 newSiteOutliner,NONE,1.1 justText,NONE,1.1 bsoRenderer,NONE,1.1 ideaListRenderer,NONE,1.1 davenetoutline,NONE,1.1 notespagerenderer,NONE,1.1 docServerSite,NONE,1.1

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/renderers
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14967

Added Files:
	fatHeadlines cadillac newSiteOutliner justText bsoRenderer 
	ideaListRenderer davenetoutline notespagerenderer 
	docServerSite 
Log Message:
user table leftovers, some of the objects will probably need a new home, and should be set at first root run and/or startup

--- NEW FILE: fatHeadlines ---
FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.data.userTableLeftovers.html.renderers.fatHeadlines

on fatHeadlines (adrOutline) {
	local (pta = html.getPageTableAddress ());
	local (flBoldLevel0 = not defined (pta^.flDisableBoldLevel0));
	local (ctLevel0 = 0);
	op.setDisplay (false);
	op.firstsummit ();
	op.fullexpand ();
	local (level = 0);
	local (htmltext = "", indentlevel = 0);
	on add (s) {
		htmltext = htmltext + string.filledString ("\t", indentlevel) + s + "\r"};
	on visit () {
		loop {
			local (hassubs = op.countSubs (1) > 0);
			local (linetext = op.getlinetext ());
			if level > 1 { //indent 20 pixels per level
				local (pixels = 20 * (level - 1));
				add ("<p><table><tr><td valign=\"center\" width=\"" + pixels + "\">&nbsp;</td><td>" + linetext + "</td></tr></table>")}
			else {
				if level == 0 {
					linetext = "<a name=\"mainHead" + ++ctLevel0 + "\">" + linetext + "</a>";
					if flBoldLevel0 {
						linetext = "<b>" + linetext + "</b>"}};
				add ("<p>" + linetext + "<br>")};
			if hassubs {
				op.go (right, 1);
				level++;
				visit ();
				level--;
				op.go (left, 1)};
			if not op.go (down, 1) {
				break}}};
	visit ();
	op.setDisplay (true);
	return (htmlText)}
--- NEW FILE: davenetoutline ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: ideaListRenderer ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: notespagerenderer ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: bsoRenderer ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: newSiteOutliner ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: cadillac ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: docServerSite ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: justText ---
FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.data.userTableLeftovers.html.renderers.justText

on justText (adroutline) {
	return (string (adroutline^))}