function generateTree()
{
var aux1, aux2, aux3, aux4

	foldersTree = folderNode("Click to open Architectural Drawings")
		aux1 = appendChild(foldersTree, folderNode("Architectural"))
			aux2 = appendChild(aux1, folderNode("Windows"))
				aux3 = appendChild(aux2, folderNode("Wood Frame"))
					aux4 = appendChild(aux3, folderNode("Int windows"))
						aux5 = appendChild(aux4, folderNode("Glass windows"))
							aux6 = appendChild(aux5, leafNode("Brand Name"))
				appendChild(aux6, generateDocEntry(0, "Detail 11", "dwf/det11.php", ""))
				appendChild(aux6, generateDocEntry(0, "Detail 12", "dwf/det12.php", ""))
				appendChild(aux6, generateDocEntry(0, "Detail 13", "dwf/det13.php", ""))
				appendChild(aux6, generateDocEntry(0, "Detail 14", "dwf/det14.php", ""))
				appendChild(aux6, generateDocEntry(0, "Detail 15", "dwf/det15.php", ""))
			
			aux3 = appendChild(aux2, leafNode("Steel frame"))
				appendChild(aux3, generateDocEntry(0, "Detail 16", "dwf/det16.php", ""))
			aux3 = appendChild(aux2, leafNode("Alum. Frame"))
				appendChild(aux3, generateDocEntry(0, "Detail 17", "dwf/det17.php", ""))
			aux3 = appendChild(aux2, leafNode("Glass "))
				appendChild(aux3, generateDocEntry(0, "Detail 18", "dwf/det18.php", ""))				
				
			aux2 = appendChild(aux1, leafNode("Doors"))
				appendChild(aux2, generateDocEntry(0, "Detail 19", "dwf/det19.php", ""))
			aux2 = appendChild(aux1, leafNode("Floor"))
				appendChild(aux2, generateDocEntry(0, "Detail 20", "dwf/det20.php", ""))
			aux2 = appendChild(aux1, folderNode("Roof"))
				aux3= appendChild(aux2, leafNode("Flat roof"))
				appendChild(aux3, generateDocEntry(0, "Detail 21", "dwf/det21.php", ""))
				aux3 = appendChild(aux2, leafNode("Slopped roof"))
				appendChild(aux3, generateDocEntry(0, "Detail 22", "dwf/det22.php", ""))

			aux1 = appendChild(foldersTree, folderNode("Structural"))
				aux2 = appendChild(aux1, folderNode("Concrete"))
					aux3 = appendChild(aux2, leafNode("Conc Footing"))
						appendChild(aux3, generateDocEntry(0, "Detail 01", "dwf/det01.php", ""))
						appendChild(aux3, generateDocEntry(0, "Detail 02", "dwf/det02.php", ""))
					aux3 = appendChild(aux2, leafNode("Conc Beam"))
						appendChild(aux3, generateDocEntry(0, "Detail 03", "dwf/det03.php", ""))
						appendChild(aux3, generateDocEntry(0, "Detail 04", "dwf/det04.php", ""))
					aux3 = appendChild(aux2, leafNode("Slab"))
						appendChild(aux3, generateDocEntry(0, "Detail 05", "dwf/det05.php", ""))
						appendChild(aux3, generateDocEntry(0, "Detail 06", "dwf/det06.php", ""))
						appendChild(aux3, generateDocEntry(0, "Detail 07", "dwf/det07.php", ""))
						appendChild(aux3, generateDocEntry(0, "Detail 08", "dwf/det08.php", ""))
						appendChild(aux3, generateDocEntry(0, "Detail 09", "dwf/det09.php", ""))
						appendChild(aux3, generateDocEntry(0, "Detail 10", "dwf/det10.php", ""))

			aux1 = appendChild(foldersTree, leafNode("Civil"))
				appendChild(aux1, generateDocEntry(0, "Detail 26", "dwf/det26.php", ""))
				appendChild(aux1, generateDocEntry(0, "Detail 27", "dwf/det27.php", ""))
				
			aux1 = appendChild(foldersTree, leafNode("Handicap"))
				appendChild(aux1, generateDocEntry(0, "Detail 30", "dwf/det30.php", ""))
				appendChild(aux1, generateDocEntry(0, "Detail 31", "dwf/det31.php", ""))
				appendChild(aux1, generateDocEntry(0, "Detail 32", "dwf/det32-ext.php", ""))
				appendChild(aux1, generateDocEntry(2, "Detail 32", "dwf/det40.php", ""))
							
			aux1 = appendChild(foldersTree, leafNode("Landscape"))
				appendChild(aux1, generateDocEntry(1, "3d detail", "http://amequipment.com/_ASSETS/_CAD_FILES/DWF/204-1021.dwf", ""))
				appendChild(aux1, generateDocEntry(1, "detail", "http://www.actionair.co.uk/drawings/1391D.dwf", ""))
				appendChild(aux1, generateDocEntry(1, "struc", "http://www.tech3d.com/dwf/structuredbom.dwf", ""))
				appendChild(aux1, generateDocEntry(1, "tec 3d", "http://www.tech3d.com/dwf/tower.dwf", ""))

				
				
											
			aux1 = appendChild(foldersTree, leafNode("Landscape architectural drafting"))
				appendChild(aux1, generateDocEntry(1, "Basketball Court", "http://www.andysbestcad.com/ABCimages/ABCL01.dwf", ""))
				appendChild(aux1, generateDocEntry(1, "Tennis Court", "http://www.andysbestcad.com/ABCimages/ABCL02.dwf", ""))
                		appendChild(aux1, generateDocEntry(1, "Fitness Structure", "http://www.andysbestcad.com/ABCimages/ABCL06.dwf", ""))
				appendChild(aux1, generateDocEntry(1, "Tree Planting", "http://www.andysbestcad.com/ABCimages/ABCL07.dwf", ""))							
			
			aux1 = appendChild(foldersTree, leafNode("Old Building, Kansas"))
				appendChild(aux1, generateDocEntry(1, "Elevation", "http://www.ausbcomp.com/~bbott/arkcity/sfdepot/acsf01.dwf", ""))
				appendChild(aux1, generateDocEntry(1, "Deatailed Plan", "http://www.ausbcomp.com/~bbott/arkcity/sfdepot/acsf03.dwf", ""))
				
			aux1 = appendChild(foldersTree, leafNode("SolarCrete"))
				appendChild(aux1, generateDocEntry(1, "Detail A", "http://www.solarcrete.com/pictures/dwf-files/overhead-door-lintel-section.dwf", ""))
				appendChild(aux1, generateDocEntry(1, "Detail B", "http://www.solarcrete.com/pictures/dwf-files/corner-details.dwf", ""))
	            		appendChild(aux1, generateDocEntry(1, "Detail C", "http://www.solarcrete.com/pictures/dwf-files/control-joint-mounting-detail.dwf", ""))
				appendChild(aux1, generateDocEntry(1, "Detail D", "http://www.solarcrete.com/pictures/dwf-files/wall-section.dwf", ""))
	            		appendChild(aux1, generateDocEntry(1, "Detail E", "http://www.solarcrete.com/pictures/dwf-files/wood-truss-roof.dwf", ""))
				appendChild(aux1, generateDocEntry(1, "Detail F", "http://www.solarcrete.com/pictures/dwf-files/wood-truss-roof-cantilevered-design.dwf", ""))
		
			aux1 = appendChild(foldersTree, leafNode("Test data links"))
				appendChild(aux1, generateDocEntry(2, "pdf file", "ftp/sign-va.pdf", ""))
				appendChild(aux1, generateDocEntry(3, "pdf file", "ftp/sign-va.pdf", ""))
				appendChild(aux1, generateDocEntry(4, "pdf link", "ftp://ftp.va.gov/cfm-web/til/sDetail/Div08Openings/SD081113-02.pdf", ""))
				appendChild(aux1, generateDocEntry(5, "jpg link", "http://facweb.stvincent.edu/academics/finearts/arthistory/AmArch/AcadDesign.jpg", ""))
				appendChild(aux1, generateDocEntry(6, "website link", "http://www.asoon.com/", ""))
				appendChild(aux1, generateDocEntry(7, "website link", "http://www.asoon.com/", ""))
				appendChild(aux1, generateDocEntry(0, "dwf link", "test/escalator.dwf", ""))
				appendChild(aux1, generateDocEntry(8, "dwf link", "test/note.txt", ""))
				appendChild(aux1, generateDocEntry(9, "website link", "test/notes1.rtf", ""))
				appendChild(aux1, generateDocEntry(10, "website link", "test/notes.doc", ""))
				appendChild(aux1, generateDocEntry(11, "dwf link", "test/dwg.wmf", ""))
				appendChild(aux1, generateDocEntry(12, "dwf link", "test/escalator.dwf", ""))

			aux1 = appendChild(foldersTree, leafNode("DWF=10-200K"))
				appendChild(aux1, generateDocEntry(0, "A-MAP", "test/a-map.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "B-MAP", "test/a-map.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Speaker-3D", "test/speaker-3d.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Beam-3D", "test/beam-3d.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "House Elevation", "test/elev.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Escalator", "test/escalator.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "zambo", "test/zambo.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Batea", "test/batea.dwf", ""))
				
			aux1 = appendChild(foldersTree, leafNode("DWF=100-1000K"))
				appendChild(aux1, generateDocEntry(0, "Satirs", "test/stair.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Boat Spec.", "test/boat.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Sony Remote-3D", "test/remote.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Las Vegas Map", "test/vegas-map.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Timber House Section", "test/timber.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Adaptor Details", "test/adaptor-3d.dwf", ""))
			
			aux1 = appendChild(foldersTree, leafNode("Multi Page DWF=1.6-7.4MB"))
				appendChild(aux1, generateDocEntry(0, "Divers platform-3D-1.7mb", "test/diver-3p-3d.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Office-3D-2.2mb", "test/office-11p-3d.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Car-3D-4.0mb", "test/car-3p-3d.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "House-12pages-4.3mb", "test/house-12p.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Jaccuzi-3D-7.4mb", "test/jaccuzi-2p-3d.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Fullset drwgs-28page-5mb", "test/proj-28p.dwf", ""))				
			
			aux1 = appendChild(foldersTree, leafNode("DWF=2-3mb"))
				appendChild(aux1, generateDocEntry(0, "Industrial Plant-3D-1.8mb", "test/plant-3d.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Backhoe-3D-2.2mb", "test/backhoe-3d.dwf", ""))
				appendChild(aux1, generateDocEntry(0, "Industrial Lift-3D-2.8mb", "test/elev-3d.dwf", ""))



}

function folderNode(name)
{
var arrayAux
	arrayAux = new Array
	arrayAux[0] = 0
	arrayAux[1] = 0
	arrayAux[2] = 0
	arrayAux[3] = name
        
        return arrayAux
}


function leafNode(name)
{
var arrayAux
	arrayAux = new Array
	arrayAux[0] = 0
	arrayAux[1] = 0
	arrayAux[2] = 1
	arrayAux[3] = name
        
        return arrayAux
}

function appendChild(parent, child)
{
	parent[parent.length] = child
	return child
}

function generateDocEntry(icon, docDescription, link)
{
var retString =""

	if (icon==0)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/l-drw.gif' alt='DWF Drawing'"
	if (icon==1)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/hl-drw.gif' alt='External DWF Link'"
	if (icon==2)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/l-pdf.gif' alt='External PDF Link'"
	if (icon==3)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/hl-pdf.gif' alt='External Image'"
	if (icon==4)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/l-img.gif' alt='External Website'"
	if (icon==5)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/hl-img.gif' alt='External PDF Link'"
	if (icon==6)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/l-htm.gif' alt='External Image'"
	if (icon==7)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/hl-htm.gif' alt='External Website'"
	if (icon==8)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/l-txt.gif' alt='External Image'"
	if (icon==9)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/l-txt.gif' alt='External Website'"
	if (icon==10)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/l-doc.gif' alt='External PDF Link'"
	if (icon==11)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/l-wmf.gif' alt='External Image'"
	if (icon==12)
		retString = "<A href='"+link+"' target=folderFrame><img src='IMG/hl-psd.gif' alt='External Website'"


	retString = retString + " border=0></a><td nowrap><font face='Arial, Helvetica, veranda' style='font-size: 9pt'>" + docDescription + "</font>"

	return retString

}


function redrawTree()
{
var doc = top.treeFrame.window.document

	doc.clear()
	doc.write("<body topmargin='0' bgcolor='white'>")	
	redrawNode(foldersTree, doc, 0, 1, "")
	doc.close()
}

function redrawNode(foldersNode, doc, level, lastNode, leftSide)
{
var j=0
var i=0

	doc.write("<table border=0 cellspacing=0 cellpadding=0>")
	doc.write("<tr><td valign = middle nowrap>")

	doc.write(leftSide)

	if (level>0)
		if (lastNode)
		{
			doc.write("<img src='LL.vrs.gif' width=16 height=16>")
			leftSide = leftSide + "<img src='BL.vrs.gif' width=16 height=16>" 
		}
		else
		{
			doc.write("<img src='LT.vrs.gif' width=16 height=16>")
			leftSide = leftSide + "<img src='LI.vrs.gif' width=16 height=16>"
		}

	displayIconAndLabel(foldersNode, doc)
	doc.write("</table>")

	if (foldersNode.length > 4 && foldersNode[0])
	{
		if (!foldersNode[2])
		{
			level=level+1
			for (i=4; i<foldersNode.length;i++)
				if (i==foldersNode.length-1)
					redrawNode(foldersNode[i], doc, level, 1, leftSide)
				else
					redrawNode(foldersNode[i], doc, level, 0, leftSide)
		}
		else
		{
			for (i=4; i<foldersNode.length;i++)
			{
				doc.write("<table border=0 cellspacing=0 cellpadding=0 valign=center>")
				doc.write("<tr><td nowrap>")
				doc.write(leftSide)
				if (i==foldersNode.length - 1)
					doc.write("<img src='LL.vrs.gif' width=16 height=16>")
				else
					doc.write("<img src='LT.vrs.gif' width=16 height=16>")
				doc.write(foldersNode[i])
				doc.write("</table>")
			}
		}
	}
}

function displayIconAndLabel(foldersNode, doc)
{
	doc.write("<A href='javascript:top.openBranch(\"" + foldersNode[3] + "\")'><img src=")
	if (foldersNode[1])
		doc.write("fl-o.gif width=21 height=16 border=noborder></a>")
	else
		doc.write("fl-c.gif width=21 height=16 border=noborder></a>")
	doc.write("<td valign=middle align=left nowrap>")
	doc.write("<font face='Arial, Helvetica, veranda' style='font-size: 9pt'>"+foldersNode[3]+"</font>")
}

function closeFolders(foldersNode)
{
var i=0

        if (!foldersNode[2])
	{
        	for (i=4; i< foldersNode.length; i++)
	           	closeFolders(foldersNode[i])

	}
        foldersNode[0] = 0
        foldersNode[1] = 0
}

function clickOnFolderRec(foldersNode, folderName)
{
var i=0

        if (foldersNode[3] == folderName)
	{
		if (foldersNode[0])
			closeFolders(foldersNode)
		else
		{
			foldersNode[0] = 1
                	foldersNode[1] = 1
		}
	}
	else
	{
        	if (!foldersNode[2])
        		for (i=4; i< foldersNode.length; i++)
	           		clickOnFolderRec(foldersNode[i], folderName)
	}
}

function openBranch(branchName)
{
	clickOnFolderRec(foldersTree, branchName)
	if (branchName=="Start folder" && foldersTree[0]==0)
		top.folderFrame.location="LW.htm"
	timeOutId = setTimeout("redrawTree()",100)
}

function initializeTree()
{
	generateTree()
	redrawTree()
}

var foldersTree = 0
var timeOutId = 0
generateTree()