local MAJOR = "LibQTip-1.0-fix" local MINOR = 38 -- Should be manually increased assert(LibStub, MAJOR.." requires LibStub") local lib, oldminor = LibStub:NewLibrary(MAJOR, MINOR) if not lib then return end -- No upgrade needed ------------------------------------------------------------------------------ -- Upvalued globals ------------------------------------------------------------------------------ local _G = getfenv(0) local type = type local select = select local error = error local pairs, ipairs = pairs, ipairs local tonumber, tostring = tonumber, tostring local strfind = string.find local math = math local min, max = math.min, math.max local setmetatable = setmetatable local tinsert, tremove = tinsert, tremove local wipe = wipe local CreateFrame = CreateFrame local UIParent = UIParent ------------------------------------------------------------------------------ -- Tables and locals ------------------------------------------------------------------------------ lib.frameMetatable = lib.frameMetatable or {__index = CreateFrame("Frame")} lib.tipPrototype = lib.tipPrototype or setmetatable({}, lib.frameMetatable) lib.tipMetatable = lib.tipMetatable or {__index = lib.tipPrototype} lib.providerPrototype = lib.providerPrototype or {} lib.providerMetatable = lib.providerMetatable or {__index = lib.providerPrototype} lib.cellPrototype = lib.cellPrototype or setmetatable({}, lib.frameMetatable) lib.cellMetatable = lib.cellMetatable or { __index = lib.cellPrototype } lib.activeTooltips = lib.activeTooltips or {} lib.tooltipHeap = lib.tooltipHeap or {} lib.frameHeap = lib.frameHeap or {} lib.tableHeap = lib.tableHeap or {} local tipPrototype = lib.tipPrototype local tipMetatable = lib.tipMetatable local providerPrototype = lib.providerPrototype local providerMetatable = lib.providerMetatable local cellPrototype = lib.cellPrototype local cellMetatable = lib.cellMetatable local activeTooltips = lib.activeTooltips ------------------------------------------------------------------------------ -- Private methods for Caches and Tooltip ------------------------------------------------------------------------------ local AcquireTooltip, ReleaseTooltip local AcquireCell, ReleaseCell local AcquireTable, ReleaseTable local InitializeTooltip, SetTooltipSize, ResetTooltipSize, FixCellSizes local ClearTooltipScripts local SetFrameScript, ClearFrameScripts ------------------------------------------------------------------------------ -- Cache debugging. ------------------------------------------------------------------------------ --@debug@ local usedTables, usedFrames, usedTooltips = 0, 0, 0 --@end-debug@ ------------------------------------------------------------------------------ -- Internal constants to tweak the layout ------------------------------------------------------------------------------ local TOOLTIP_PADDING = 10 local CELL_MARGIN_H = 6 local CELL_MARGIN_V = 3 ------------------------------------------------------------------------------ -- Public library API ------------------------------------------------------------------------------ --- Create or retrieve the tooltip with the given key. -- If additional arguments are passed, they are passed to :SetColumnLayout for the acquired tooltip. -- @name LibQTip:Acquire(key[, numColumns, column1Justification, column2justification, ...]) -- @param key string or table - the tooltip key. Any value that can be used as a table key is accepted though you should try to provide unique keys to avoid conflicts. -- Numbers and booleans should be avoided and strings should be carefully chosen to avoid namespace clashes - no "MyTooltip" - you have been warned! -- @return tooltip Frame object - the acquired tooltip. -- @usage Acquire a tooltip with at least 5 columns, justification : left, center, left, left, left --
local tip = LibStub('LibQTip-1.0'):Acquire('MyFooBarTooltip', 5, "LEFT", "CENTER")
function lib:Acquire(key, ...) if key == nil then error("attempt to use a nil key", 2) end local tooltip = activeTooltips[key] if not tooltip then tooltip = AcquireTooltip(tostring(key)) InitializeTooltip(tooltip, key) activeTooltips[key] = tooltip end if select('#', ...) > 0 then -- Here we catch any error to properly report it for the calling code local ok, msg = pcall(tooltip.SetColumnLayout, tooltip, ...) if not ok then error(msg, 2) end end return tooltip end function lib:Release(tooltip) local key = tooltip and tooltip.key if not key or activeTooltips[key] ~= tooltip then return end ReleaseTooltip(tooltip) activeTooltips[key] = nil end function lib:IsAcquired(key) if key == nil then error("attempt to use a nil key", 2) end return not not activeTooltips[key] end function lib:IterateTooltips() return pairs(activeTooltips) end ------------------------------------------------------------------------------ -- Frame cache ------------------------------------------------------------------------------ local frameHeap = lib.frameHeap local function AcquireFrame(parent) local frame = tremove(frameHeap) or CreateFrame("Frame") frame:SetParent(parent) --@debug@ usedFrames = usedFrames + 1 --@end-debug@ return frame end local function ReleaseFrame(frame) frame:Hide() frame:SetParent(nil) frame:ClearAllPoints() frame:SetBackdrop(nil) ClearFrameScripts(frame) tinsert(frameHeap, frame) --@debug@ usedFrames = usedFrames - 1 --@end-debug@ end ------------------------------------------------------------------------------ -- Dirty layout handler ------------------------------------------------------------------------------ lib.layoutCleaner = lib.layoutCleaner or CreateFrame('Frame') local layoutCleaner = lib.layoutCleaner layoutCleaner.registry = layoutCleaner.registry or {} function layoutCleaner:RegisterForCleanup(tooltip) self.registry[tooltip] = true self:Show() end function layoutCleaner:CleanupLayouts() self:Hide() for tooltip in pairs(self.registry) do FixCellSizes(tooltip) end wipe(self.registry) end layoutCleaner:SetScript('OnUpdate', layoutCleaner.CleanupLayouts) ------------------------------------------------------------------------------ -- CellProvider and Cell ------------------------------------------------------------------------------ function providerPrototype:AcquireCell() local cell = tremove(self.heap) if not cell then cell = setmetatable(CreateFrame("Frame", nil, UIParent), self.cellMetatable) if type(cell.InitializeCell) == 'function' then cell:InitializeCell() end end self.cells[cell] = true return cell end function providerPrototype:ReleaseCell(cell) if not self.cells[cell] then return end if type(cell.ReleaseCell) == 'function' then cell:ReleaseCell() end self.cells[cell] = nil tinsert(self.heap, cell) end function providerPrototype:GetCellPrototype() return self.cellPrototype, self.cellMetatable end function providerPrototype:IterateCells() return pairs(self.cells) end function lib:CreateCellProvider(baseProvider) local cellBaseMetatable, cellBasePrototype if baseProvider and baseProvider.GetCellPrototype then cellBasePrototype, cellBaseMetatable = baseProvider:GetCellPrototype() else cellBaseMetatable = cellMetatable end local cellPrototype = setmetatable({}, cellBaseMetatable) local cellProvider = setmetatable({}, providerMetatable) cellProvider.heap = {} cellProvider.cells = {} cellProvider.cellPrototype = cellPrototype cellProvider.cellMetatable = { __index = cellPrototype } return cellProvider, cellPrototype, cellBasePrototype end ------------------------------------------------------------------------------ -- Basic label provider ------------------------------------------------------------------------------ if not lib.LabelProvider then lib.LabelProvider, lib.LabelPrototype = lib:CreateCellProvider() end local labelProvider = lib.LabelProvider local labelPrototype = lib.LabelPrototype function labelPrototype:InitializeCell() self.fontString = self:CreateFontString() self.fontString:SetFontObject(GameTooltipText) end function labelPrototype:SetupCell(tooltip, value, justification, font, l_pad, r_pad, max_width, min_width, max_height, min_height, ...) local fs = self.fontString local line = tooltip.lines[self._line] -- detatch fs from cell for size calculations fs:ClearAllPoints() fs:SetFontObject(font or (line.is_header and tooltip:GetHeaderFont() or tooltip:GetFont())) fs:SetJustifyH(justification) fs:SetText(tostring(value)) l_pad = l_pad or 0 r_pad = r_pad or 0 local width = fs:GetStringWidth() + l_pad + r_pad if max_width and min_width and (max_width < min_width) then error("maximum width cannot be lower than minimum width: "..tostring(max_width).." < "..tostring(min_width), 2) end if max_width and (max_width < (l_pad + r_pad)) then error("maximum width cannot be lower than the sum of paddings: "..tostring(max_width).." < "..tostring(l_pad).." + "..tostring(r_pad), 2) end if min_width and width < min_width then width = min_width end if max_width and max_width < width then width = max_width end fs:SetWidth(width - (l_pad + r_pad)) -- Use GetHeight() instead of GetStringHeight() so lines which are longer than width will wrap. local height = fs:GetHeight() height = min(height, max_height or height) height = max(height, min_height or height) -- reanchor fs to cell fs:SetWidth(0) fs:SetPoint("TOPLEFT", self, "TOPLEFT", l_pad, 0) fs:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -r_pad, 0) --~ fs:SetPoint("TOPRIGHT", self, "TOPRIGHT", -r_pad, 0) self._paddingL = l_pad self._paddingR = r_pad return width, height end function labelPrototype:getContentHeight() local fs = self.fontString fs:SetWidth(self:GetWidth() - (self._paddingL + self._paddingR)) local height = self.fontString:GetHeight() fs:SetWidth(0) return height end function labelPrototype:GetPosition() return self._line, self._column end ------------------------------------------------------------------------------ -- Tooltip cache ------------------------------------------------------------------------------ local tooltipHeap = lib.tooltipHeap local trunk = {} local function newFrame(name) for frame in pairs(trunk) do if frame:GetName() == name then trunk[frame] = nil return frame end end return CreateFrame("Frame", name, UIParent) end local function delFrame(frame) trunk[frame] = true end -- Returns a tooltip function AcquireTooltip(name) local tooltip = tremove(tooltipHeap) if not tooltip then tooltip = newFrame(name) --CreateFrame("Frame", name, UIParent) local scrollFrame = CreateFrame("ScrollFrame", nil, tooltip) scrollFrame:SetPoint("TOP", tooltip, "TOP", 0, -TOOLTIP_PADDING) scrollFrame:SetPoint("BOTTOM", tooltip, "BOTTOM", 0, TOOLTIP_PADDING) scrollFrame:SetPoint("LEFT", tooltip, "LEFT", TOOLTIP_PADDING, 0) scrollFrame:SetPoint("RIGHT", tooltip, "RIGHT", -TOOLTIP_PADDING, 0) tooltip.scrollFrame = scrollFrame local scrollChild = CreateFrame("Frame", nil, tooltip.scrollFrame) scrollFrame:SetScrollChild(scrollChild) tooltip.scrollChild = scrollChild setmetatable(tooltip, tipMetatable) end --@debug@ usedTooltips = usedTooltips + 1 --@end-debug@ return tooltip end -- Cleans the tooltip and stores it in the cache function ReleaseTooltip(tooltip) if tooltip.releasing then return end tooltip.releasing = true tooltip:Hide() if tooltip.OnRelease then local success, errorMessage = pcall(tooltip.OnRelease, tooltip) if not success then geterrorhandler()(errorMessage) end tooltip.OnRelease = nil end tooltip.releasing = nil tooltip.key = nil tooltip.step = nil ClearTooltipScripts(tooltip) tooltip:SetAutoHideDelay(nil) tooltip:ClearAllPoints() tooltip:Clear() if tooltip.slider then tooltip.slider:SetValue(0) tooltip.slider:Hide() tooltip.scrollFrame:SetPoint("RIGHT", tooltip, "RIGHT", -TOOLTIP_PADDING, 0) tooltip:EnableMouseWheel(false) end for i, column in ipairs(tooltip.columns) do tooltip.columns[i] = ReleaseFrame(column) end tooltip.columns = ReleaseTable(tooltip.columns) tooltip.lines = ReleaseTable(tooltip.lines) tooltip.colspans = ReleaseTable(tooltip.colspans) layoutCleaner.registry[tooltip] = nil tinsert(tooltipHeap, tooltip) delFrame(tooltip) --@debug@ usedTooltips = usedTooltips - 1 --@end-debug@ end ------------------------------------------------------------------------------ -- Cell 'cache' (just a wrapper to the provider's cache) ------------------------------------------------------------------------------ -- Returns a cell for the given tooltip from the given provider function AcquireCell(tooltip, provider) local cell = provider:AcquireCell(tooltip) cell:SetParent(tooltip.scrollChild) cell:SetFrameLevel(tooltip.scrollChild:GetFrameLevel() + 3) cell._provider = provider return cell end -- Cleans the cell hands it to its provider for storing function ReleaseCell(cell) cell:Hide() cell:ClearAllPoints() cell:SetParent(nil) cell:SetBackdrop(nil) ClearFrameScripts(cell) cell._font = nil cell._justification = nil cell._colSpan = nil cell._line = nil cell._column = nil cell._provider:ReleaseCell(cell) cell._provider = nil end ------------------------------------------------------------------------------ -- Table cache ------------------------------------------------------------------------------ local tableHeap = lib.tableHeap -- Returns a table function AcquireTable() local tbl = tremove(tableHeap) or {} --@debug@ usedTables = usedTables + 1 --@end-debug@ return tbl end -- Cleans the table and stores it in the cache function ReleaseTable(table) wipe(table) tinsert(tableHeap, table) --@debug@ usedTables = usedTables - 1 --@end-debug@ end ------------------------------------------------------------------------------ -- Tooltip prototype ------------------------------------------------------------------------------ function InitializeTooltip(tooltip, key) ---------------------------------------------------------------------- -- (Re)set frame settings ---------------------------------------------------------------------- local backdrop = GameTooltip:GetBackdrop() tooltip:SetBackdrop(backdrop) if backdrop then tooltip:SetBackdropColor(GameTooltip:GetBackdropColor()) tooltip:SetBackdropBorderColor(GameTooltip:GetBackdropBorderColor()) end tooltip:SetScale(GameTooltip:GetScale()) tooltip:SetAlpha(1) tooltip:SetFrameStrata("TOOLTIP") tooltip:SetClampedToScreen(false) ---------------------------------------------------------------------- -- Internal data. Since it's possible to Acquire twice without calling -- release, check for pre-existence. ---------------------------------------------------------------------- tooltip.key = key tooltip.columns = tooltip.columns or AcquireTable() tooltip.lines = tooltip.lines or AcquireTable() tooltip.colspans = tooltip.colspans or AcquireTable() tooltip.regularFont = GameTooltipText tooltip.headerFont = GameTooltipHeaderText tooltip.labelProvider = labelProvider tooltip.cell_margin_h = tooltip.cell_margin_h or CELL_MARGIN_H tooltip.cell_margin_v = tooltip.cell_margin_v or CELL_MARGIN_V ---------------------------------------------------------------------- -- Finishing procedures ---------------------------------------------------------------------- tooltip:SetAutoHideDelay(nil) tooltip:Hide() ResetTooltipSize(tooltip) end function tipPrototype:SetDefaultProvider(myProvider) if not myProvider then return end self.labelProvider = myProvider end function tipPrototype:GetDefaultProvider() return self.labelProvider end local function checkJustification(justification, level, silent) if justification ~= "LEFT" and justification ~= "CENTER" and justification ~= "RIGHT" then if silent then return false end error("invalid justification, must one of LEFT, CENTER or RIGHT, not: "..tostring(justification), level+1) end return true end function tipPrototype:SetColumnLayout(numColumns, ...) if type(numColumns) ~= "number" or numColumns < 1 then error("number of columns must be a positive number, not: "..tostring(numColumns), 2) end for i = 1, numColumns do local justification = select(i, ...) or "LEFT" checkJustification(justification, 2) if self.columns[i] then self.columns[i].justification = justification else self:AddColumn(justification) end end end function tipPrototype:AddColumn(justification) justification = justification or "LEFT" checkJustification(justification, 2) local colNum = #self.columns + 1 local column = self.columns[colNum] or AcquireFrame(self.scrollChild) column:SetFrameLevel(self.scrollChild:GetFrameLevel() + 1) column.justification = justification column.width = 0 column:SetWidth(1) column:SetPoint("TOP", self.scrollChild) column:SetPoint("BOTTOM", self.scrollChild) if colNum > 1 then local h_margin = self.cell_margin_h or CELL_MARGIN_H column:SetPoint("LEFT", self.columns[colNum - 1], "RIGHT", h_margin, 0) SetTooltipSize(self, self.width + h_margin, self.height) else column:SetPoint("LEFT", self.scrollChild) end column:Show() self.columns[colNum] = column return colNum end ------------------------------------------------------------------------------ -- Convenient methods ------------------------------------------------------------------------------ function tipPrototype:Release() lib:Release(self) end function tipPrototype:IsAcquiredBy(key) return key ~= nil and self.key == key end ------------------------------------------------------------------------------ -- Script hooks ------------------------------------------------------------------------------ local RawSetScript = lib.frameMetatable.__index.SetScript function ClearTooltipScripts(tooltip) if tooltip.scripts then for scriptType in pairs(tooltip.scripts) do RawSetScript(tooltip, scriptType, nil) end tooltip.scripts = ReleaseTable(tooltip.scripts) end end function tipPrototype:SetScript(scriptType, handler) RawSetScript(self, scriptType, handler) if handler then if not self.scripts then self.scripts = AcquireTable() end self.scripts[scriptType] = true elseif self.scripts then self.scripts[scriptType] = nil end end -- That might break some addons ; those addons were breaking other -- addons' tooltip though. function tipPrototype:HookScript() geterrorhandler()(":HookScript is not allowed on LibQTip tooltips") end ------------------------------------------------------------------------------ -- Scrollbar data and functions ------------------------------------------------------------------------------ local sliderBackdrop = { ["bgFile"] = [[Interface\Buttons\UI-SliderBar-Background]], ["edgeFile"] = [[Interface\Buttons\UI-SliderBar-Border]], ["tile"] = true, ["edgeSize"] = 8, ["tileSize"] = 8, ["insets"] = { ["left"] = 3, ["right"] = 3, ["top"] = 3, ["bottom"] = 3, }, } local function slider_OnValueChanged(self) self.scrollFrame:SetVerticalScroll(self:GetValue()) end local function tooltip_OnMouseWheel(self, delta) local slider = self.slider local currentValue = slider:GetValue() local minValue, maxValue = slider:GetMinMaxValues() local stepValue = self.step or 10 if delta < 0 and currentValue < maxValue then slider:SetValue(min(maxValue, currentValue + stepValue)) elseif delta > 0 and currentValue > minValue then slider:SetValue(max(minValue, currentValue - stepValue)) end end -- Set the step size for the scroll bar function tipPrototype:SetScrollStep(step) self.step = step end -- will resize the tooltip to fit the screen and show a scrollbar if needed function tipPrototype:UpdateScrolling(maxheight) self:SetClampedToScreen(false) -- all data is in the tooltip; fix colspan width and prevent the layout cleaner from messing up the tooltip later FixCellSizes(self) layoutCleaner.registry[self] = nil local scale = self:GetScale() local topside = self:GetTop() local bottomside = self:GetBottom() local screensize = UIParent:GetHeight() / scale local tipsize = (topside - bottomside) -- if the tooltip would be too high, limit its height and show the slider if bottomside < 0 or topside > screensize or (maxheight and tipsize > maxheight) then local shrink = (bottomside < 0 and (5 - bottomside) or 0) + (topside > screensize and (topside - screensize + 5) or 0) if maxheight and tipsize - shrink > maxheight then shrink = tipsize - maxheight end self:SetHeight(2 * TOOLTIP_PADDING + self.height - shrink) self:SetWidth(2 * TOOLTIP_PADDING + self.width + 20) self.scrollFrame:SetPoint("RIGHT", self, "RIGHT", -(TOOLTIP_PADDING + 20), 0) if not self.slider then local slider = CreateFrame("Slider", nil, self) self.slider = slider slider:SetOrientation("VERTICAL") slider:SetPoint("TOPRIGHT", self, "TOPRIGHT", -TOOLTIP_PADDING, -TOOLTIP_PADDING) slider:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -TOOLTIP_PADDING, TOOLTIP_PADDING) slider:SetBackdrop(sliderBackdrop) slider:SetThumbTexture([[Interface\Buttons\UI-SliderBar-Button-Vertical]]) slider:SetMinMaxValues(0, 1) slider:SetValueStep(1) slider:SetWidth(12) slider.scrollFrame = self.scrollFrame slider:SetScript("OnValueChanged", slider_OnValueChanged) slider:SetValue(0) end self.slider:SetMinMaxValues(0, shrink) self.slider:Show() self:EnableMouseWheel(true) self:SetScript("OnMouseWheel", tooltip_OnMouseWheel) else self:SetHeight(2 * TOOLTIP_PADDING + self.height) self:SetWidth(2 * TOOLTIP_PADDING + self.width) self.scrollFrame:SetPoint("RIGHT", self, "RIGHT", -TOOLTIP_PADDING, 0) if self.slider then self.slider:SetValue(0) self.slider:Hide() self:EnableMouseWheel(false) self:SetScript("OnMouseWheel", nil) end end end ------------------------------------------------------------------------------ -- Tooltip methods for changing its contents. ------------------------------------------------------------------------------ function tipPrototype:Clear() for i, line in ipairs(self.lines) do for j, cell in pairs(line.cells) do if cell then ReleaseCell(cell) end end ReleaseTable(line.cells) line.cells = nil line.is_header = nil ReleaseFrame(line) self.lines[i] = nil end for i, column in ipairs(self.columns) do column.width = 0 column:SetWidth(1) end wipe(self.colspans) self.cell_margin_h = nil self.cell_margin_v = nil ResetTooltipSize(self) end function tipPrototype:SetCellMarginH(size) if #self.lines > 0 then error("Unable to set horizontal margin while the tooltip has lines.", 2) end if not size or type(size) ~= "number" or size < 0 then error("Margin size must be a positive number or zero.", 2) end self.cell_margin_h = size end function tipPrototype:SetCellMarginV(size) if #self.lines > 0 then error("Unable to set vertical margin while the tooltip has lines.", 2) end if not size or type(size) ~= "number" or size < 0 then error("Margin size must be a positive number or zero.", 2) end self.cell_margin_v = size end function SetTooltipSize(tooltip, width, height) tooltip:SetHeight(2 * TOOLTIP_PADDING + height) tooltip.scrollChild:SetHeight(height) tooltip.height = height tooltip:SetWidth(2 * TOOLTIP_PADDING + width) tooltip.scrollChild:SetWidth(width) tooltip.width = width end -- Add 2 pixels to height so dangling letters (g, y, p, j, etc) are not clipped. function ResetTooltipSize(tooltip) local h_margin = tooltip.cell_margin_h or CELL_MARGIN_H SetTooltipSize(tooltip, max(0, (h_margin * (#tooltip.columns - 1)) + (h_margin / 2)), 2) end local function EnlargeColumn(tooltip, column, width) if width > column.width then SetTooltipSize(tooltip, tooltip.width + width - column.width, tooltip.height) column.width = width column:SetWidth(width) end end local function ResizeLine(tooltip, line, height) SetTooltipSize(tooltip, tooltip.width, tooltip.height + height - line.height) line.height = height line:SetHeight(height) end function FixCellSizes(tooltip) local columns = tooltip.columns local colspans = tooltip.colspans local lines = tooltip.lines -- resize columns to make room for the colspans local h_margin = tooltip.cell_margin_h or CELL_MARGIN_H while next(colspans) do local maxNeedCols = nil local maxNeedWidthPerCol = 0 -- calculate the colspan with the highest additional width need per column for colRange, width in pairs(colspans) do local left, right = colRange:match("^(%d+)%-(%d+)$") left, right = tonumber(left), tonumber(right) for col = left, right-1 do width = width - columns[col].width - h_margin end width = width - columns[right].width if width <=0 then colspans[colRange] = nil else width = width / (right - left + 1) if width > maxNeedWidthPerCol then maxNeedCols = colRange maxNeedWidthPerCol = width end end end -- resize all columns for that colspan if maxNeedCols then local left, right = maxNeedCols:match("^(%d+)%-(%d+)$") for col = left, right do EnlargeColumn(tooltip, columns[col], columns[col].width + maxNeedWidthPerCol) end colspans[maxNeedCols] = nil end end --now that the cell width is set, recalculate the rows' height for _, line in ipairs(lines) do if #(line.cells) > 0 then local lineheight = 0 for _, cell in pairs(line.cells) do if cell then lineheight = max(lineheight, cell:getContentHeight()) end end lineheight = min(lineheight, 40) if lineheight > 0 then ResizeLine(tooltip, line, lineheight) end end end end local function _SetCell(tooltip, lineNum, colNum, value, font, justification, colSpan, provider, ...) local line = tooltip.lines[lineNum] local cells = line.cells -- Unset: be quick if value == nil then local cell = cells[colNum] if cell then for i = colNum, colNum + cell._colSpan - 1 do cells[i] = nil end ReleaseCell(cell) end return lineNum, colNum end font = font or (line.is_header and tooltip.headerFont or tooltip.regularFont) -- Check previous cell local cell local prevCell = cells[colNum] if prevCell then -- There is a cell here justification = justification or prevCell._justification colSpan = colSpan or prevCell._colSpan -- Clear the currently marked colspan for i = colNum + 1, colNum + prevCell._colSpan - 1 do cells[i] = nil end if provider == nil or prevCell._provider == provider then -- Reuse existing cell cell = prevCell provider = cell._provider else -- A new cell is required cells[colNum] = ReleaseCell(prevCell) end elseif prevCell == nil then -- Creating a new cell, using meaningful defaults. provider = provider or tooltip.labelProvider justification = justification or tooltip.columns[colNum].justification or "LEFT" colSpan = colSpan or 1 else error("overlapping cells at column "..colNum, 3) end local tooltipWidth = #tooltip.columns local rightColNum if colSpan > 0 then rightColNum = colNum + colSpan - 1 if rightColNum > tooltipWidth then error("ColSpan too big, cell extends beyond right-most column", 3) end else -- Zero or negative: count back from right-most columns rightColNum = max(colNum, tooltipWidth + colSpan) -- Update colspan to its effective value colSpan = 1 + rightColNum - colNum end -- Cleanup colspans for i = colNum + 1, rightColNum do local cell = cells[i] if cell then ReleaseCell(cell) elseif cell == false then error("overlapping cells at column "..i, 3) end cells[i] = false end -- Create the cell if not cell then cell = AcquireCell(tooltip, provider) cells[colNum] = cell end -- Anchor the cell cell:SetPoint("LEFT", tooltip.columns[colNum]) cell:SetPoint("RIGHT", tooltip.columns[rightColNum]) cell:SetPoint("TOP", line) cell:SetPoint("BOTTOM", line) -- Store the cell settings directly into the cell -- That's a bit risky but is really cheap compared to other ways to do it cell._font, cell._justification, cell._colSpan, cell._line, cell._column = font, justification, colSpan, lineNum, colNum -- Setup the cell content local width, height = cell:SetupCell(tooltip, value, justification, font, ...) cell:Show() if colSpan > 1 then -- Postpone width changes until the tooltip is shown local colRange = colNum.."-"..rightColNum tooltip.colspans[colRange] = max(tooltip.colspans[colRange] or 0, width) layoutCleaner:RegisterForCleanup(tooltip) else -- Enlarge the column and tooltip if need be EnlargeColumn(tooltip, tooltip.columns[colNum], width) end -- Enlarge the line and tooltip if need be if height > line.height then SetTooltipSize(tooltip, tooltip.width, tooltip.height + height - line.height) line.height = height line:SetHeight(height) end if rightColNum < tooltipWidth then return lineNum, rightColNum + 1 else return lineNum, nil end end do local function CreateLine(tooltip, font, ...) if #tooltip.columns == 0 then error("column layout should be defined before adding line", 3) end local lineNum = #tooltip.lines + 1 local line = tooltip.lines[lineNum] or AcquireFrame(tooltip.scrollChild) line:SetFrameLevel(tooltip.scrollChild:GetFrameLevel() + 2) line:SetPoint('LEFT', tooltip.scrollChild) line:SetPoint('RIGHT', tooltip.scrollChild) if lineNum > 1 then local v_margin = tooltip.cell_margin_v or CELL_MARGIN_V line:SetPoint('TOP', tooltip.lines[lineNum-1], 'BOTTOM', 0, -v_margin) SetTooltipSize(tooltip, tooltip.width, tooltip.height + v_margin) else line:SetPoint('TOP', tooltip.scrollChild) end tooltip.lines[lineNum] = line line.cells = line.cells or AcquireTable() line.height = 0 line:SetHeight(1) line:Show() local colNum = 1 for i = 1, #tooltip.columns do local value = select(i, ...) if value ~= nil then lineNum, colNum = _SetCell(tooltip, lineNum, i, value, font, nil, 1, tooltip.labelProvider) end end return lineNum, colNum end function tipPrototype:AddLine(...) return CreateLine(self, self.regularFont, ...) end function tipPrototype:AddHeader(...) local line, col = CreateLine(self, self.headerFont, ...) self.lines[line].is_header = true return line, col end end -- do-block local GenericBackdrop = { bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", } function tipPrototype:AddSeparator(height, r, g, b, a) local lineNum, colNum = self:AddLine() local line = self.lines[lineNum] local color = NORMAL_FONT_COLOR height = height or 1 SetTooltipSize(self, self.width, self.height + height) line.height = height line:SetHeight(height) line:SetBackdrop(GenericBackdrop) line:SetBackdropColor(r or color.r, g or color.g, b or color.b, a or 1) return lineNum, colNum end function tipPrototype:SetCellColor(lineNum, colNum, r, g, b, a) local cell = self.lines[lineNum].cells[colNum] if cell then local sr, sg, sb, sa = self:GetBackdropColor() cell:SetBackdrop(GenericBackdrop) cell:SetBackdropColor(r or sr, g or sg, b or sb, a or sa) end end function tipPrototype:SetColumnColor(colNum, r, g, b, a) local column = self.columns[colNum] if column then local sr, sg, sb, sa = self:GetBackdropColor() column:SetBackdrop(GenericBackdrop) column:SetBackdropColor(r or sr, g or sg, b or sb, a or sa) end end function tipPrototype:SetLineColor(lineNum, r, g, b, a) local line = self.lines[lineNum] if line then local sr, sg, sb, sa = self:GetBackdropColor() line:SetBackdrop(GenericBackdrop) line:SetBackdropColor(r or sr, g or sg, b or sb, a or sa) end end do local function checkFont(font, level, silent) local bad = false if not font then bad = true elseif type(font) == "string" then local ref = _G[font] if not ref or type(ref) ~= 'table' or type(ref.IsObjectType) ~= 'function' or not ref:IsObjectType("Font") then bad = true end elseif type(font) ~= 'table' or type(font.IsObjectType) ~= 'function' or not font:IsObjectType("Font") then bad = true end if bad then if silent then return false end error("font must be a Font instance or a string matching the name of a global Font instance, not: "..tostring(font), level + 1) end return true end function tipPrototype:SetFont(font) local is_string = type(font) == "string" checkFont(font, 2) self.regularFont = is_string and _G[font] or font end function tipPrototype:SetHeaderFont(font) local is_string = type(font) == "string" checkFont(font, 2) self.headerFont = is_string and _G[font] or font end -- TODO: fixed argument positions / remove checks for performance? function tipPrototype:SetCell(lineNum, colNum, value, ...) -- Mandatory argument checking if type(lineNum) ~= "number" then error("line number must be a number, not: "..tostring(lineNum), 2) elseif lineNum < 1 or lineNum > #self.lines then error("line number out of range: "..tostring(lineNum), 2) elseif type(colNum) ~= "number" then error("column number must be a number, not: "..tostring(colNum), 2) elseif colNum < 1 or colNum > #self.columns then error("column number out of range: "..tostring(colNum), 2) end -- Variable argument checking local font, justification, colSpan, provider local i, arg = 1, ... if arg == nil or checkFont(arg, 2, true) then i, font, arg = 2, ... end if arg == nil or checkJustification(arg, 2, true) then i, justification, arg = i + 1, select(i, ...) end if arg == nil or type(arg) == 'number' then i, colSpan, arg = i + 1, select(i, ...) end if arg == nil or type(arg) == 'table' and type(arg.AcquireCell) == 'function' then i, provider = i + 1, arg end return _SetCell(self, lineNum, colNum, value, font, justification, colSpan, provider, select(i, ...)) end end -- do-block function tipPrototype:GetFont() return self.regularFont end function tipPrototype:GetHeaderFont() return self.headerFont end function tipPrototype:GetLineCount() return #self.lines end function tipPrototype:GetColumnCount() return #self.columns end ------------------------------------------------------------------------------ -- Frame Scripts ------------------------------------------------------------------------------ local highlight = CreateFrame("Frame", nil, UIParent) highlight:SetFrameStrata("TOOLTIP") highlight:Hide() highlight._texture = highlight:CreateTexture(nil, "OVERLAY") highlight._texture:SetTexture("Interface\\QuestFrame\\UI-QuestTitleHighlight") highlight._texture:SetBlendMode("ADD") highlight._texture:SetAllPoints(highlight) local scripts = { OnEnter = function(frame, ...) highlight:SetParent(frame) highlight:SetAllPoints(frame) highlight:Show() if frame._OnEnter_func then frame:_OnEnter_func(frame._OnEnter_arg, ...) end end, OnLeave = function(frame, ...) highlight:Hide() highlight:ClearAllPoints() highlight:SetParent(nil) if frame._OnLeave_func then frame:_OnLeave_func(frame._OnLeave_arg, ...) end end, OnMouseDown = function(frame, ...) frame:_OnMouseDown_func(frame._OnMouseDown_arg, ...) end, OnMouseUp = function(frame, ...) frame:_OnMouseUp_func(frame._OnMouseUp_arg, ...) end, OnReceiveDrag = function(frame, ...) frame:_OnReceiveDrag_func(frame._OnReceiveDrag_arg, ...) end, } function SetFrameScript(frame, script, func, arg) if not scripts[script] then return end frame["_"..script.."_func"] = func frame["_"..script.."_arg"] = arg if script == "OnMouseDown" or script == "OnMouseUp" or script == "OnReceiveDrag" then if func then frame:SetScript(script, scripts[script]) else frame:SetScript(script, nil) end end -- if at least one script is set, set the OnEnter/OnLeave scripts for the highlight if frame._OnEnter_func or frame._OnLeave_func or frame._OnMouseDown_func or frame._OnMouseUp_func or frame._OnReceiveDrag_func then frame:EnableMouse(true) frame:SetScript("OnEnter", scripts.OnEnter) frame:SetScript("OnLeave", scripts.OnLeave) else frame:EnableMouse(false) frame:SetScript("OnEnter", nil) frame:SetScript("OnLeave", nil) end end function ClearFrameScripts(frame) if frame._OnEnter_func or frame._OnLeave_func or frame._OnMouseDown_func or frame._OnMouseUp_func or frame._OnReceiveDrag_func then frame:EnableMouse(false) frame:SetScript("OnEnter", nil) frame._OnEnter_func = nil frame._OnEnter_arg = nil frame:SetScript("OnLeave", nil) frame._OnLeave_func = nil frame._OnLeave_arg = nil frame:SetScript("OnReceiveDrag", nil) frame._OnReceiveDrag_func = nil frame._OnReceiveDrag_arg = nil frame:SetScript("OnMouseDown", nil) frame._OnMouseDown_func = nil frame._OnMouseDown_arg = nil frame:SetScript("OnMouseUp", nil) frame._OnMouseUp_func = nil frame._OnMouseUp_arg = nil end end function tipPrototype:SetLineScript(lineNum, script, func, arg) SetFrameScript(self.lines[lineNum], script, func, arg) end function tipPrototype:SetColumnScript(colNum, script, func, arg) SetFrameScript(self.columns[colNum], script, func, arg) end function tipPrototype:SetCellScript(lineNum, colNum, script, func, arg) local cell = self.lines[lineNum].cells[colNum] if cell then SetFrameScript(cell, script, func, arg) end end ------------------------------------------------------------------------------ -- Auto-hiding feature ------------------------------------------------------------------------------ -- Script of the auto-hiding child frame local function AutoHideTimerFrame_OnUpdate(self, elapsed) self.checkElapsed = self.checkElapsed + elapsed if self.checkElapsed > 0.1 then if self.parent:IsMouseOver() or (self.alternateFrame and self.alternateFrame:IsMouseOver()) then self.elapsed = 0 else self.elapsed = self.elapsed + self.checkElapsed if self.elapsed >= self.delay then lib:Release(self.parent) end end self.checkElapsed = 0 end end -- Usage: -- :SetAutoHideDelay(0.25) => hides after 0.25sec outside of the tooltip -- :SetAutoHideDelay(0.25, someFrame) => hides after 0.25sec outside of both the tooltip and someFrame -- :SetAutoHideDelay() => disable auto-hiding (default) function tipPrototype:SetAutoHideDelay(delay, alternateFrame) local timerFrame = self.autoHideTimerFrame delay = tonumber(delay) or 0 if delay > 0 then if not timerFrame then timerFrame = AcquireFrame(self) timerFrame:SetScript("OnUpdate", AutoHideTimerFrame_OnUpdate) self.autoHideTimerFrame = timerFrame end timerFrame.parent = self timerFrame.checkElapsed = 0 timerFrame.elapsed = 0 timerFrame.delay = delay timerFrame.alternateFrame = alternateFrame timerFrame:Show() elseif timerFrame then self.autoHideTimerFrame = nil timerFrame.alternateFrame = nil timerFrame:SetScript("OnUpdate", nil) ReleaseFrame(timerFrame) end end ------------------------------------------------------------------------------ -- "Smart" Anchoring ------------------------------------------------------------------------------ local function GetTipAnchor(frame) local x,y = frame:GetCenter() if not x or not y then return "TOPLEFT", "BOTTOMLEFT" end local hhalf = (x > UIParent:GetWidth() * 2/3) and "RIGHT" or (x < UIParent:GetWidth() / 3) and "LEFT" or "" local vhalf = (y > UIParent:GetHeight() / 2) and "TOP" or "BOTTOM" return vhalf..hhalf, frame, (vhalf == "TOP" and "BOTTOM" or "TOP")..hhalf end function tipPrototype:SmartAnchorTo(frame) if not frame then error("Invalid frame provided.", 2) end self:ClearAllPoints() self:SetClampedToScreen(true) self:SetPoint(GetTipAnchor(frame)) end ------------------------------------------------------------------------------ -- Debug slashcmds ------------------------------------------------------------------------------ --@debug@ local print = print local function PrintStats() local tipCache = tostring(#tooltipHeap) local frameCache = tostring(#frameHeap) local tableCache = tostring(#tableHeap) local header = false print("Tooltips used: "..usedTooltips..", Cached: "..tipCache..", Total: "..tipCache + usedTooltips) print("Frames used: "..usedFrames..", Cached: "..frameCache..", Total: "..frameCache + usedFrames) print("Tables used: "..usedTables..", Cached: "..tableCache..", Total: "..tableCache + usedTables) for k, v in pairs(activeTooltips) do if not header then print("Active tooltips:") header = true end print("- "..k) end end SLASH_LibQTip1 = "/qtip" SlashCmdList["LibQTip"] = PrintStats --@end-debug@