//Deb (0, "LeftPanelBackground");

// Resetting Gensubs variable. Some are here to cover the fact that some of the programs still need GenSusb_v3!
		
		ButtonHeight		= 35;
		ButtonWidth			+= 20;
		ButtonInc			= 55
		ButtonTop			= 0;
		LeftPanelBackground	= "gray";
		LeftWidth			+= 20;

		ButtonBackground	= LeftPanelBackground;
		RightWidth			= UNIT_BASE - LeftWidth;
								//Debug ("CNTB", cls, LeftPanelBackground);

		var ButtonColor2;
		var ButtonHeight2;
		var ButtonInc2;
		var ButtonFontSize	= FontSize4;
		var RPLeft			= PadLeft;

		var CNTFamily		= "Verdana";
		var CNTHeadY		= 50;
		var CNTTextY		= 140;
		var TextSize		= FontSize2_7;

		var cls				= Element ("oBody").className;
		
		var level			= cls.match (/PPI./) ? "../" : "";
																		//Debug (0, cls);

																		//Debug (5, LeftWidth, RightWidth);

		if (cls == "CamdenSq" || cls == "Census81" || cls == "Murray" || cls == "Catalogue")
			{
			ButtonTop		+= 400;
			ButtonColor2	= "black";	//"white";	//"gray";
			ButtonHeight2	= ButtonHeight - 10;
			ButtonInc2		= ButtonInc - 10;
			}
		else
			{
			ButtonColor2	= "black";
			ButtonHeight2	= ButtonHeight;
			ButtonInc2	= ButtonInc;
			}

		Node ("LeftPanel", BACKGROUND, LeftPanelBackground, HEIGHT, UNIT_BASE, LEFT, 0, TOP, 0, WIDTH, LeftWidth);
								
		//function DrawButton (idin, leftin, topin, textin, heightin, widthin, bgcin, overbgcin, colorin, urlin)
											
		if (cls != "PPI")
			Node ("PPI", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "Places and people of interest", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
				level + "Places and people.html"], SIZE, ButtonFontSize);

		if (cls != "CamdenSq")
			Node ("CamdenSq", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "Camden Square 1850 - 1901", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
				level + "CamdenSquareIntro.html"], SIZE, ButtonFontSize);

		if (cls != "Census81")
			Node ("Census81", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "Camden New Town in 1881", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
				level + "1881.html"], SIZE, ButtonFontSize);

		if (cls != "Murray")
			Node ("Murray", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "Murray St 1850-1961", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
				level + "MurrayStIntro.html"], SIZE, ButtonFontSize);

		if (cls != "Blog")
			Node ("Blog", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "Blog", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
				level + "https://camdennewtown.wordpress.com/"], SIZE, ButtonFontSize);

		if (cls != "Catalogue")
			Node ("SC", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "Catalogue of street names", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
				level + "CatalogueIntro.html"], SIZE, ButtonFontSize);

		if (cls != "Books")
			Node ("Books", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "Book list", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
				level + "BookList.html"], SIZE, ButtonFontSize);

		if (cls != "RentStrike")
			Node ("RentStrike", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "Rent strike", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
				level + "RentStrike.wav"], SIZE, ButtonFontSize);

		if (cls != "Credits")
			Node ("Credits", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "Credits", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
				level + "Credits.html"], SIZE, ButtonFontSize);

		if (cls != "WhatsNew")
			Node ("WhatsNew", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "What's new", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
				level + "WhatsNew.html"], SIZE, ButtonFontSize);

		if (cls != "Main") Node ("Main", BUTTON, [ButtonLeft, ButtonTop+= ButtonInc2, "Home page", ButtonHeight2, ButtonWidth, _, _, ButtonColor2,
			level + "index.html"], SIZE, ButtonFontSize);