local linktypes = {
	unit = true,
	item = true,
	spell = true,
	glyph = true,
	quest = true,
	talent = true,
	enchant = true,
	achievement = true
}

local function OnHyperlinkEnter(frame, link, ...)
	local linktype = link:match("^([^:]+)")
	if linktype and linktypes[linktype] then
		GameTooltip:SetOwner(frame, "ANCHOR_TOPLEFT")
		GameTooltip:SetHyperlink(link)
		GameTooltip:Show()
	end

end

local function OnHyperlinkLeave(frame, ...)
	GameTooltip:Hide()
end

for i=1, NUM_CHAT_WINDOWS do
	local frame = _G["ChatFrame"..i]
	frame:SetScript("OnHyperlinkEnter", OnHyperlinkEnter)
	frame:SetScript("OnHyperlinkLeave", OnHyperlinkLeave)
end