Altoholic 

function Altoholic.Tooltip:Process(tooltip, name, link)

-- Experiment begin here
local libTT = LibStub("LibExtraTip-1")

function Altoholic.Tooltip.LextGameTooltip(tooltip, item, quantity, ...)

	local self = Altoholic.Tooltip
	local name, link = ...
	if link then
		self:ProcessEx(tooltip, name, item, ...)
	end

end

function Altoholic.Tooltip:ProcessEx(tooltip, name, link, ...)
	--	*** Note about tooltips ***
	--	If an error occurs with a specific item, like a gathering node, make sure its item id is valid in core.lua
	--	28/12/2008: I fixed an issue with black lotus, which did not display its counters at all, this was due to an invalid item id

	local itemID = Altoholic:GetIDFromLink(link)

	-- if there's no cached item id OR if it's different from the previous one ..
	if (not self.CachedItemID) or
		(self.CachedItemID and (itemID ~= self.CachedItemID)) then

		self.RecipeCache = nil

		-- these are the cpu intensive parts of the update .. so do them only if necessary
		self.CachedSource = nil
		if Altoholic.Options:Get("TooltipSource") == 1 then
			local Instance, Boss = Altoholic.Loots:GetSource(itemID)

			self.CachedItemID = itemID			-- we have searched this ID ..

			if Instance then
				self.CachedSource = GOLD .. L["Source"]..  ": |cff00ff9a" .. Instance .. ", " .. Boss
			end
		end

		-- .. then check player bags to see how many times he owns this item, and where
		if Altoholic.Options:Get("TooltipCount") == 1 or Altoholic.Options:Get("TooltipTotal") == 1 then
			self.CachedCount = Altoholic:GetItemCount(itemID) -- if one of the 2 options is active, do the count
			if self.CachedCount > 0 then
				self.CachedTotal = GOLD .. L["Total owned"] .. ": |cff00ff9a" .. self.CachedCount
			else
				self.CachedTotal = nil
			end
		end
	end

	-- add item cooldown text
	local owner = tooltip:GetOwner()
	if owner and owner.startTime then
		libTT:AddLine(tooltip, format(ITEM_COOLDOWN_TIME,
				SecondsToTime(owner.duration - (GetTime() - owner.startTime))), nil, nil, nil, true);
	end

	if (Altoholic.Options:Get("TooltipCount") == 1) then			-- add count per character
		libTT:AddLine(tooltip, " ", nil, nil, nil, true);
		for CharacterName, c in pairs (V.ItemCount) do
			libTT:AddDoubleLine(tooltip, CharacterName,  TEAL .. c, nil, nil, nil, nil, nil, nil, true);
		end
	end

	if (Altoholic.Options:Get("TooltipTotal") == 1) and (self.CachedTotal) then		-- add total count
		libTT:AddLine(tooltip, self.CachedTotal, nil, nil, nil, true);
	end

	if self.CachedSource then		-- add item source
		libTT:AddLine(tooltip, " ", nil, nil, nil, true);
		libTT:AddLine(tooltip, self.CachedSource, nil, nil, nil, true);
	end

	-- Altoholic:CheckMaterialUtility(itemID)

	if Altoholic.Options:Get("TooltipItemID") == 1 then
		local iLevel = select(4, GetItemInfo(itemID))

		if iLevel then
			libTT:AddLine(tooltip, " ", nil, nil, nil, true);
			libTT:AddDoubleLine(tooltip, "Item ID: " .. GREEN .. itemID,  "iLvl: " .. GREEN .. iLevel, nil, nil, nil, nil, nil, nil, true);
--			tooltip:AddLine(TEAL .. select(10, GetItemInfo(itemID)));		-- texture path
		end
	end

	local companionID = Altoholic:GetCompanionSpellID(itemID)
	if companionID then
		libTT:AddLine(tooltip, "<pets-todo>", nil, nil, nil, true);
		-- self:WhoKnowsPet(companionID, "CRITTER", tooltip)
		return	-- it's certainly not a recipe if we passed here
	end

	local mountID = Altoholic:GetMountSpellID(itemID)
	if mountID then
		libTT:AddLine(tooltip, "<mounts-todo>", nil, nil, nil, true);
		-- self:WhoKnowsPet(mountID, "MOUNT", tooltip)
		return	-- it's certainly not a recipe if we passed here
	end


	if Altoholic.Options:Get("TooltipRecipeInfo") == 0 then return end -- exit if recipe information is not wanted

	local _, _, _, _, _, itemType, itemSubType = ... -- Reuse already called GetItemInfo(itemID)
	if itemType ~= BI["Recipe"] then return end		-- exit if not a recipe
	if itemSubType == BI["Book"] then return end		-- exit if it's a book

	if not self.RecipeCache then
		local tooltipName = tooltip:GetName()
		local reqLevel
		for i = 2, tooltip:NumLines() do			-- parse all tooltip lines, one by one
			local tooltipText = _G[tooltipName .. "TextLeft" .. i]:GetText()
			if tooltipText then
				if string.find(tooltipText, "%d+") then	-- try to find a numeric value ..
					reqLevel = tonumber(string.sub(tooltipText, string.find(tooltipText, "%d+")))
					break
				end
			end
		end
		self.RecipeCache = self:WhoKnowsRecipe(itemSubType, link, reqLevel)
	end

	if self.RecipeCache then
		libTT:AddLine(tooltip, " ", nil, nil, nil, true);
		libTT:AddLine(tooltip, self.RecipeCache, nil, nil, nil, true);
	end
end

if libTT then
  libTT:RegisterTooltip(GameTooltip)
  libTT:RegisterTooltip(ItemRefTooltip)
  libTT:AddCallback(Altoholic.Tooltip.LextGameTooltip, 350)
end

-- Experiment end here