' ********************************************************************
' VBScript file, (C) 2006 by reDesignLive
' ********************************************************************


' ********************************************************************
' DHTML menu and shortcut button bar
' ********************************************************************



Sub show_menu(id)
	menu_select(id)
End Sub

Sub hide_menu()
		clear_menu()

End Sub

Sub menu_deselect()
	
	document.all.menu1.style.backgroundColor= "#FFFFFF"
	document.all.menu2.style.backgroundColor= "#FFFFFF"
	document.all.menu3.style.backgroundColor= "#FFFFFF"

End Sub

Sub menu_select(id)
		select case id
			case 1
				document.all.menu1.style.backgroundColor= "#FFFF99"
			case 2
				document.all.menu2.style.backgroundColor= "#FFFF99"
			case 3
				document.all.menu3.style.backgroundColor= "#FFFF99"
		end select
		

End Sub

Sub clear_menu()
	
	Dim obj

		
	for i = 1 to 3
		select case i
		case 1
			Set obj = menu1
		case 2
			Set obj = menu2
		case 3
			Set obj = menu3
		end select
	
		obj.style.backgroundColor= "#FFFFFF"
		obj.style.borderTopWidth = "1"
		obj.style.borderTopStyle = "solid"
		obj.style.borderTopColor = "#FFFFFF"
		obj.style.borderBottomWidth = "1"
		obj.style.borderBottomStyle = "solid"
		obj.style.borderBottomColor = "#FFFFFF"
		obj.style.borderLeftWidth = "1"
		obj.style.borderLeftStyle = "solid"
		obj.style.borderLeftColor = "#FFFFFF"
		obj.style.borderRightWidth = "1"
		obj.style.borderRightStyle = "solid"
		obj.style.borderRightColor = "#FFFFFF"
	next
	
	
End Sub

Sub menu_select_item(id)
	id.style.backgroundColor = "#FFFF99"
End Sub

Sub menu_deselect_item(id)
	id.style.backgroundColor = "#FFFFFF"
End Sub