'========================================
'>> woScript: HN Button
'========================================

function getOffset(oId, xyX, xyY)
    dim o 
    
    set o = document.all(oId)
    
    dim looping 
    
    looping = true

    do while (looping)
        set o = o.parentElement

		' debug:
		'msgbox o.nodeName & " " &  o.offsetTop

        if (o.nodeName = "TR") or (o.nodeName = "TABLE") or (o.nodeName = "SPAN") then
            xyX = xyX + o.offsetLeft
            xyY = xyY + o.offsetTop
        end if

        looping = (o.nodeName <> "HTML")
    loop
end function

sub hnButtonMouseOver(id)
	dim elem1
	
	set elem1 = eval(id & "1")

    if elem1.background = "images/hnButton/buttonH-new-selected.PNG" then
        ' leave clicked image
    else
		' solid:
	    'elem1.background = "images/hnButton/menubutton-over.bmp"
	    ' glow:
	    elem1.style.backgroundPosition = "center"
	    elem1.style.backgroundRepeat = "repeat-y"
	    elem1.background = "images/hnButton/buttonH-new-glow.PNG"
	    
	    '
	    ' detect if parent exists...
	    '
	    dim parent_description_text
	    dim parent_description_text_main
	    
	    if typename(id205_description_text) = "Empty" then
	      ' no parent found - dummy div created
	      set parent_description_text = document.createElement("div")
	      set parent_description_text_main = document.createElement("div")
	    else
	      ' parent exists
	      set parent_description_text = id205_description_text
	      set parent_description_text_min = id205_description_text_main
	    end if
	    
	    dim hnButtonDescription
	    
	    hnButtonDescription = eval("hnButtonDescription_" & id)
	     
	    if hnButtonDescription <> "" then
	        ' show description
	        window.status = "Button: " & hnButtonDescription
	        
	        parent_description_text.innerText = hnButtonDescription
	        parent_description_text_main.style.display = "inline"

	        ' position speech bubble
            dim offsetXY_X, offsetXY_Y
            
            offsetXY_X = elem1.offsetLeft
            offsetXY_Y = elem1.offsetTop
            
            getOffset id, offsetXY_X, offsetXY_Y

	        parent_description_text_main.style.top = offsetXY_Y - 115 ' elem1.style.top

            ' description bubble	        
	        on error resume next
	        'zzz=aaa.style.zIndex
	        on error goto 0 
	        
	        parent_description_text_main.style.left = 170
	        parent_description_text_main.style.zIndex = 1000
	    else
	        window.status = ""
	    end if
	end if
end sub

sub hnButtonMouseOut(id)
	dim elem1
	dim hnButtonClicked
	
	set elem1 = eval(id & "1")
	hnButtonClicked = eval("hnButtonClicked_" & id)
	
    if elem1.background = "images/hnButton/buttonH-new-selected.PNG" then
        ' leave clicked image
    else
	    elem1.style.backgroundPosition = "center"
	    elem1.style.backgroundRepeat = "repeat"
	    
	    if hnButtonClicked = true then
	        elem1.background = "images/hnButton/buttonH-new-selected.PNG"
	    else
	        elem1.background = "images/hnButton/buttonH-new.PNG"
        end if
        
        ' hide description	    
	    '
	    ' detect if parent exists...
	    '
	    dim parent_description_text
	    dim parent_description_text_main
	    
	    if typename(id205_description_text) = "Empty" then
	      ' no parent found - dummy div created
	      set parent_description_text = document.createElement("div")
	      set parent_description_text_main = document.createElement("div")
	    else
	      ' parent exists
	      set parent_description_text = id205_description_text
	      set parent_description_text_min = id205_description_text_main
	    end if

	    parent_description_text_main.style.display = "none"

	    window.status = ""
	end if 
end sub

sub hnButtonClick(id)
	dim elem1, elem2
	
	set elem1 = eval(id & "1")
	set elem2 = eval(id & "2")  

	elem1.style.backgroundPosition = "center"
	elem1.style.backgroundRepeat = "repeat"
	elem1.background = "images/hnButton/buttonH-new-selected.PNG"
	    
	hnButtonClicked_id206 = true
	
	'''id206_description.style.display = "none"

	'navigate elem2.href
end sub