diff --git a/Titan/LDBToTitan.lua b/Titan/LDBToTitan.lua deleted file mode 100644 index 03c3560..0000000 --- a/Titan/LDBToTitan.lua +++ /dev/null @@ -1,922 +0,0 @@ ---[[ File -NAME: LibDataBrokerToTitan.lua -DESC: A "bridge" module to ensure proper registration and communication of LDB plugins with Titan Panel ---]] ---[[ API -NAME: Titan LDB overview -DESC: Titan will automatically convert a LDB type addon to a Titan plugin. -Only LDB types listed in the LDB 1.1 spec are supported. Custom types are not supported. - -Supported type -- "launcher" become "icon" plugins - icon* - always shown - OnClick* - - label^ - - right side^ - default - tooltip -- "data source" become "combo" plugins with icon; a tooltip/Click; and optional label - icon^ - - OnClick - - text*^ - or value & suffix - label^ - - OnEnter - - OnLeave - - tooltip - OnTooltipShow - - -- "macro" become "combo" plugins with icon; a tooltip/Click; and optional label - icon^ - - commandtext^ - - label^ - - OnEnter - - OnLeave - - tooltip - OnTooltipShow - - -* required by LDB spec -^ user controlled show / hide -:DESC ---]] - ---[[ doc ------------------------------------------------------------------ --- By Titan Dev team --- Originally by Tristanian aka "TristTitan" as a Titan member --- Created and initially commited on : July 29th, 2008 ------------------------------------------------------------------ ---]] -local xcategories = { --- Titan categories mapping to match addon metadata information - ["Combat"] = "Combat", - ["General"] = "General", - ["Information"] = "Information", - ["Interface"] = "Interface", - ["Profession"] = "Profession", --- Ace2 table mapping to Titan categories in order to match --- addon metadata information - ["Action Bars"] = "Interface", - ["Auction"] = "Information", - ["Audio"] = "Interface", - ["Battlegrounds/PvP"] = "Information", - ["Buffs"] = "Information", - ["Chat/Communication"] = "Interface", - ["Druid"] = "Information", - ["Hunter"] = "Information", - ["Mage"] = "Information", - ["Paladin"] = "Information", - ["Priest"] = "Information", - ["Rogue"] = "Information", - ["Shaman"] = "Information", - ["Warlock"] = "Information", - ["Warrior"] = "Information", - ["Healer"] = "Information", - ["Tank"] = "Information", - ["Caster"] = "Information", --- ["Combat"] = "Combat", - ["Compilations"] = "General", - ["Data Export"] = "General", - ["Development Tools "] = "General", - ["Guild"] = "Information", - ["Frame Modification"] = "Interface", - ["Interface Enhancements"] = "Interface", - ["Inventory"] = "Information", - ["Library"] = "General", - ["Map"] = "Interface", - ["Mail"] = "Information", - ["Miscellaneous"] = "General", - ["Misc"] = "General", - ["Quest"] = "Information", - ["Raid"] = "Information", - ["Tradeskill"] = "Profession", - ["UnitFrame"] = "Interface", -} -local LAUNCHER = "launcher" -local DATA_SOURCE = "data source" -local SupportedDOTypes = {DATA_SOURCE, LAUNCHER, "macro"} -- in the 1.1 spec - --- constants & variables -local CALLBACK_PREFIX = "LibDataBroker_AttributeChanged_" -local NAME_PREFIX = "" --"LDBT_" -local _G = getfenv(0); -local InCombatLockdown = _G.InCombatLockdown; --- Create control frame so we can get events -local LDBToTitan = CreateFrame("Frame", "LDBTitan") -local ldb = LibStub:GetLibrary("LibDataBroker-1.1") -local Tablet, LibQTip = nil, nil -local media = LibStub("LibSharedMedia-3.0") --- generic icon in case the DO does not provide one -local iconTitanDefault = "Interface\\PVPFrame\\\PVP-ArenaPoints-Icon"; - --- Events we want for LDBToTitan -LDBToTitan:RegisterEvent("PLAYER_LOGIN") ---LDBToTitan:RegisterEvent("PLAYER_ENTERING_WORLD") - -local function If_Show_Tooltip() - local use_mod = TitanAllGetVar("UseTooltipModifer") - local use_alt = TitanAllGetVar("TooltipModiferAlt") - local use_ctrl = TitanAllGetVar("TooltipModiferCtrl") - local use_shift = TitanAllGetVar("TooltipModiferShift") - local ok = false - local tmp_txt = "" - if use_mod then - if (use_alt and IsAltKeyDown()) - or (use_ctrl and IsControlKeyDown()) - or (use_shift and IsShiftKeyDown()) - then - ok = true - end - else - ok = true - end - return ok -end - ---[[ Titan -NAME: LDBToTitan:TitanLDBSetOwnerPosition -DESC: Properly anchor tooltips of the Titan (LDB) plugin -VAR: parent -VAR: anchorPoint -VAR: relativeToFrame -VAR: relativePoint -VAR: xOffset -VAR: yOffset -VAR: frame ---]] -function LDBToTitan:TitanLDBSetOwnerPosition(parent, anchorPoint, relativeToFrame, relativePoint, xOffset, yOffset, frame) - if frame:GetName() == "GameTooltip" then - -- Changes for 9.1.5 Removed the background template from the GameTooltip - -- Making changes to it difficult and possibly changing the tooltip globally. - - frame:SetOwner(parent, "ANCHOR_NONE"); - - -- set font size for the Game Tooltip - if not TitanPanelGetVar("DisableTooltipFont") then - if TitanTooltipScaleSet < 1 then - TitanTooltipOrigScale = GameTooltip:GetScale(); - TitanTooltipScaleSet = TitanTooltipScaleSet + 1; - end - frame:SetScale(TitanPanelGetVar("TooltipFont")); - end - end - frame:ClearAllPoints(); - frame:SetPoint(anchorPoint, relativeToFrame, relativePoint, xOffset, yOffset); -end - ---[[ Titan -NAME: LDBToTitan:TitanLDBSetTooltip -DESC: Fill in the tooltip for the Titan (LDB) plugin -VAR: name - Titan id of the plugin -VAR: frame - tooltip frame -VAR: func - tooltip function to be run -OUT: None ---]] -function LDBToTitan:TitanLDBSetTooltip(name, frame, func) --- Check to see if we allow tooltips to be shown - if not TitanPanelGetVar("ToolTipsShown") - or (TitanPanelGetVar("HideTipsInCombat") and InCombatLockdown()) then - return - end - - local button = TitanUtils_GetButton(name); - local scale = TitanPanelGetVar("Scale"); - local offscreenX, offscreenY; - local i = TitanPanel_GetButtonNumber(name); - local bar = TITAN_PANEL_DISPLAY_PREFIX..TitanUtils_GetWhichBar(name) - local vert = TitanBarData[bar].vert - -- Get TOP or BOTTOM for the anchor and relative anchor - local rel_pt, pt - if vert == TITAN_TOP then - pt = "TOP" - rel_pt = "BOTTOM" - else - pt = "BOTTOM" - rel_pt = "TOP" - end - - if _G[bar] then - self:TitanLDBSetOwnerPosition(button, pt.."LEFT", button:GetName(), - rel_pt.."LEFT", -10, 0, frame); -- y 4 * scale - -- Adjust frame position if it's off the screen - offscreenX, offscreenY = TitanUtils_GetOffscreen(frame); - if ( offscreenX == -1 ) then - self:TitanLDBSetOwnerPosition(button, pt.."LEFT", bar, - rel_pt.."LEFT", 0, 0, frame); - elseif ( offscreenX == 1 ) then - self:TitanLDBSetOwnerPosition(button, pt.."RIGHT", bar, - rel_pt.."RIGHT", 0, 0, frame); - end - else - end - - if func and If_Show_Tooltip() then func(frame) end; -- TODO: use pcall?? - frame:Show(); -end - ---[[ Titan -NAME: LDBToTitan:TitanLDBHandleScripts -DESC: Script Handler for the Titan (LDB) plugin -VAR: event - event to process -VAR: name - id of the plugin -VAR: _ - not used -VAR: func - function to be run -VAR: obj - LDB object -OUT: None -NOTE: -- This implementation will work fine for a static tooltip but may have implications for dynamic ones so for now, we'll only set it once (no callback) and see what happens -:NOTE ---]] -function LDBToTitan:TitanLDBHandleScripts(event, name, _, func, obj) - local TitanPluginframe = _G["TitanPanel"..NAME_PREFIX..name.."Button"]; - - -- tooltip - if event:find("tooltip") and not event:find("OnTooltipShow") then - local pluginframe = _G[obj.tooltip] or obj.tooltip - if pluginframe then - TitanPluginframe:SetScript("OnEnter", function(self) - TitanPanelButton_OnEnter(self); - LDBToTitan:TitanLDBSetTooltip(NAME_PREFIX..name, pluginframe, nil) - end - ) - - TitanPluginframe:SetScript("OnMouseDown", function(self) - pluginframe:Hide(); - end - ) - - if pluginframe:GetScript("OnLeave") then - -- do nothing - else - TitanPluginframe:SetScript("OnLeave", function(self) - if obj.OnLeave then - obj.OnLeave(self) - end - pluginframe:Hide(); - TitanPanelButton_OnLeave(self); - end - ) - end - - if pluginframe:GetName()~="GameTooltip" then - if pluginframe:GetScript("OnShow") then - -- do nothing - else - pluginframe:SetScript("OnShow", function(self) - LDBToTitan:TitanLDBSetTooltip(NAME_PREFIX..name, pluginframe, nil) - end - ) - end - end - end - - -- OnTooltipShow - elseif event:find("OnTooltipShow") then - TitanPluginframe:SetScript("OnEnter", function(self) - if TITAN_PANEL_MOVING == 0 and func then - LDBToTitan:TitanLDBSetTooltip(NAME_PREFIX..name, GameTooltip, func); - end - TitanPanelButton_OnEnter(self); - end - ) - TitanPluginframe:SetScript("OnLeave", function(self) - GameTooltip:Hide(); - TitanPanelButton_OnLeave(self); - end - ) - - -- OnDoubleClick - elseif event:find("OnDoubleClick") and not event:find("OnClick") then - TitanPluginframe:SetScript("OnDoubleClick", function(self, button) - if TITAN_PANEL_MOVING == 0 then - func(self, button) - end - end - ) - - -- OnClick - elseif event:find("OnClick") then - TitanPluginframe:SetScript("OnClick", function(self, button) - if TITAN_PANEL_MOVING == 0 then - func(self, button) - end - -- implement a safeguard, since the DO may actually use - -- Blizzy dropdowns ! - if not TitanPanelRightClickMenu_IsVisible() then - TitanPanelButton_OnClick(self, button); - else - TitanUtils_CloseAllControlFrames(); - end - end - ) - -- OnEnter - else - TitanPluginframe:SetScript("OnEnter", function(self) - -- Check for tooltip libs without embedding them - if AceLibrary and AceLibrary:HasInstance("Tablet-2.0") then - Tablet = AceLibrary("Tablet-2.0") - end - LibQTip = LibStub("LibQTip-1.0", true) - -- Check to see if we allow tooltips to be shown - if not TitanPanelGetVar("ToolTipsShown") - or (TitanPanelGetVar("HideTipsInCombat") and InCombatLockdown()) then - -- if a plugin is using tablet, then detach and close the tooltip - if Tablet and Tablet:IsRegistered(TitanPluginframe) - and Tablet:IsAttached(TitanPluginframe) then - Tablet:Detach(TitanPluginframe); - Tablet:Close(TitanPluginframe); - end - return; - else - -- if a plugin is using tablet, then re-attach the tooltip - -- (it will auto-open on mouseover) - if Tablet and Tablet:IsRegistered(TitanPluginframe) - and not Tablet:IsAttached(TitanPluginframe) then - Tablet:Attach(TitanPluginframe); - end - end - -- if a plugin is using tablet then set its transparency - -- and font size accordingly - if Tablet and Tablet:IsRegistered(TitanPluginframe) then - Tablet:SetTransparency(TitanPluginframe, TitanPanelGetVar("TooltipTrans")) - if not TitanPanelGetVar("DisableTooltipFont") then - Tablet:SetFontSizePercent(TitanPluginframe, TitanPanelGetVar("TooltipFont")) - elseif TitanPanelGetVar("DisableTooltipFont") - and Tablet:GetFontSizePercent(TitanPluginframe)~=1 then - Tablet:SetFontSizePercent(TitanPluginframe, 1) - end - end - -- set original tooltip scale for GameTooltip - if not TitanPanelGetVar("DisableTooltipFont") then - TitanTooltipOrigScale = GameTooltip:GetScale(); - end - -- call OnEnter on LDB Object - if TITAN_PANEL_MOVING == 0 and func and If_Show_Tooltip() then - func(self) - end - - TitanPanelButton_OnEnter(self); - -- LibQTip-1.0 support code - if LibQTip then - local tt = nil - local key, tip - for key, tip in LibQTip:IterateTooltips() do - if tip then - local _, relativeTo = tip:GetPoint() - if relativeTo - and relativeTo:GetName() == TitanPluginframe:GetName() then - tt = tip - break - end - end - end - if tt then - -- set transparency - local red, green, blue, _ = tt:GetBackdropColor() - local red2, green2, blue2, _ = tt:GetBackdropBorderColor() - tt:SetBackdropColor(red,green,blue, - TitanPanelGetVar("TooltipTrans")) - tt:SetBackdropBorderColor(red2,green2,blue2, - TitanPanelGetVar("TooltipTrans")) - end - end - -- /LibQTip-1.0 support code - end - ) - - -- OnLeave - TitanPluginframe:SetScript("OnLeave", function(self) - if obj.OnLeave then - obj.OnLeave(self) - end - TitanPanelButton_OnLeave(self); - end - ) - end -end - ---[[ Titan -NAME: LDBToTitan:TitanLDBTextUpdate -DESC: Text callback for the Titan (LDB) plugin when the LDB addon changes display text of the LDB object -VAR: _ - not used -VAR: name - id of the plugin -VAR: event - event to process -VAR: attr - LDB obj attribute (field) that changed -VAR: value - new value of attr -VAR: dataobj - LDB object -OUT: None ---]] -function LDBToTitan:TitanLDBTextUpdate(_, name, attr, value, dataobj) - -- just in case the LDB is active before Titan can register it... - if not Titan__InitializedPEW then - -- plugins have not been registered yet. - return - end - -- This check is overkill but just in case... - local plugin = TitanUtils_GetPlugin(NAME_PREFIX..name) - local ldb = plugin and plugin.LDBVariables - if not ldb then - -- This plugin has not been registered - return - end - - -- Accept the various display elements and update the Titan plugin - if attr == "value" then ldb.value = value end - if attr == "suffix" then ldb.suffix = value end - if attr == "text" then ldb.text = value end - if attr == "label" then ldb.label = value end - - -- Now update the button with the change - TitanPanelButton_UpdateButton(NAME_PREFIX..name) -end - ---[[ Titan -NAME: TitanLDBShowText -DESC: Text callback for the Titan (LDB) plugin when the LDB addon changes display text -VAR: name - id of the plugin -OUT: label of text to show -OUT: text to show ---]] -function TitanLDBShowText(name) - -- Set 'label1' and 'value1' for the Titan button display - local nametrim = string.gsub (name, "LDBT_", ""); - local fontstring = _G["TitanPanel"..NAME_PREFIX..nametrim..TITAN_PANEL_BUTTON_TEXT]; - local separator = ": " - local lab1, val1 = "", "" - local plugin = TitanUtils_GetPlugin(name) - local ldb = plugin and plugin.LDBVariables - - if ldb then -- sanity check - -- Check for display label - if TitanGetVar(name, "ShowLabelText") then - lab1 = (ldb.label or "") - else - lab1 = "" - end - - if lab1 == "" then - -- leave alone - else - lab1 = lab1..separator - end - - -- Check for display text - -- Check for display text - -- .text is required to show - -- .value is the text of the value - 100.0 in 100.0 FPS - -- .suffix is the text after the value - FPS in 100.0 FPS - if TitanGetVar(name, "ShowRegularText") then - val1 = (ldb.text or "") - else - val1 = "" - end - else - -- return values will be empty strings - end - - if lab1 == "" then - lab1 = nil - else - lab1 = TitanUtils_GetNormalText(lab1) - end - if val1 == "" then - val1 = nil - else - val1 = TitanGetVar(name, "ShowColoredText") - and TitanUtils_GetGreenText(val1) or TitanUtils_GetHighlightText(val1) - end - return lab1, val1 -end - ---[[ Titan -NAME: LDBToTitan:TitanLDBTextUpdate -DESC: Icon callback for the Titan (LDB) plugin when the LDB addon changes the icon of the LDB object -VAR: _ - not used -VAR: name - id of the plugin -VAR: attr - LDB obj attribute (field) that changed -VAR: value - new value of attr -VAR: dataobj - LDB object -OUT: None ---]] -function LDBToTitan:TitanLDBIconUpdate(_, name, attr, value, dataobj) - -- just in case the LDB is active before Titan can register it... - if not Titan__InitializedPEW then - -- no plugins are registered yet - return - end - -- This check is overkill but just in case... - local plugin = TitanUtils_GetPlugin(NAME_PREFIX..name) - local ldb = plugin and plugin.LDBVariables - if not ldb then - -- This plugin is not registered yet - return - end - - if attr == "icon" then - TitanPlugins[NAME_PREFIX..name].icon = value; - TitanPanelButton_SetButtonIcon(NAME_PREFIX..name); - end - - -- support for iconCoords, iconR, iconG, iconB attributes - if attr == "iconCoords" then - TitanPanelButton_SetButtonIcon(NAME_PREFIX..name, value); - end - - if attr == "iconR" or attr == "iconB" or attr == "iconG" then - TitanPanelButton_SetButtonIcon(NAME_PREFIX..name, nil, - dataobj.iconR, dataobj.iconG, dataobj.iconB); - end -end - ---[[ Titan -NAME: TitanLDBRefreshButton -DESC: Refresh all text & icon for LDB addons that were successfully registered -VAR: None -OUT: None -NOTE: -- Ensure all the LDB buttons are updated. -- This is called once x seconds after PEW. This helps close the gap where LDB addons set their text on their PEW event -:NOTE ---]] -function TitanLDBRefreshButton() --- TitanDebug("LDB: RefreshButton") - for name, obj in ldb:DataObjectIterator() do - if obj then - local unused = nil - LDBToTitan:TitanLDBTextUpdate(unused, name, "text", (obj.text or ""), obj) - LDBToTitan:TitanLDBIconUpdate(unused, name, "icon", (obj.icon or iconTitanDefault), obj) - else --- TitanDebug("LDB: '"..name.."' no refresh") - end - end -end - ---[[ Titan -NAME: LDBToTitan:TitanLDBCreateObject -DESC: New DO (Data Object) gets created here -VAR: _ - not used -VAR: name - id of the plugin -VAR: obj - LDB object -OUT: None -NOTE: -- This is the heart of the LDB to Titan. It reads the LDB DO (Data Object)and creates a Titan plugin. -- This takes a stricter interpretation of the LDB 1.1 spec rather than guessing what LDB addon developers intended. -:NOTE ---]] -function LDBToTitan:TitanLDBCreateObject(_, name, obj) - if TITAN_PANEL_VARS.debug.ldb_setup then - TitanDebug(tostring(name).." Attempting to register "); - end - - -- couple sanity checks - if not obj or not name then - if TITAN_PANEL_VARS.debug.ldb_setup then - TitanDebug("LDB request to create Titan plugin was unrecognizable!!!!"); - end - return - end - - -- anything to pass to the developer / user - local notes = "" - - -- sanity check for supported types - obj.type = obj.type or "Unknown" - local supported = false -- assume failure - for idx in ipairs(SupportedDOTypes) do - if obj.type and obj.type == SupportedDOTypes[idx] then - supported = true - end - end - if supported then - -- all is good - continue plugin creation - else - -- Create enough of a plugin to tell the user / developer - -- that this plugin failed miserably - local issue = "Unsupported LDB type '"..tostring(obj.type).."'" - local plugin = - { - self = nil, - button = nil, - isChild = nil, - name = (name or "?"), - issue = issue, - notes = "", - status = TITAN_REGISTER_FAILED, - category = "", - plugin_type = (obj.type or ""), - } - TitanUtils_PluginFail(plugin) - if TITAN_PANEL_VARS.debug.ldb_setup then - TitanDebug(TITAN_REGISTER_FAILED.." "..issue); - end - return -- get out, there is nothing more that can be done - end - - -- - -- Handle the display attributes of the DO and register the appropriate callbacks - -- - -- Init the display elements of the plugin - local ldb__label = obj.label or "" - local ldb__suffix = obj.suffix or "" - local ldb__value = obj.value or "" - local ldb__text = obj.text or "" - local ldb__icon = obj.icon or iconTitanDefault - - -- if .icon exists honor it and assume the addon may change it - if obj.icon then - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_icon", "TitanLDBIconUpdate") - end - - -- LAUNCHER text display elements - if obj.type == LAUNCHER then - if obj.label then - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_label", "TitanLDBTextUpdate") - elseif obj.text then - -- This is a 'be nice' check. It technically violates the 1.1 spec. - -- Blank the .text so the rest of the routines work - ldb__label = obj.text - obj.text = "" - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_text", "TitanLDBTextUpdate") - notes = notes.."\n" - .."This is a LDB '"..LAUNCHER - .."' without .label using .text instead!!!!" - end - end - if Titan__InitializedPEW then - notes = notes.."\n" - .."Will be registered as single LDB plugin after the normal registration." - end - -- DATA_SOURCE text display elements - if obj.type == DATA_SOURCE then - -- .text so always allow it - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_text", "TitanLDBTextUpdate") - if obj.label then - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_label", "TitanLDBTextUpdate") - end - if obj.suffix then - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_suffix", "TitanLDBTextUpdate") - end - if obj.value then - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_value", "TitanLDBTextUpdate") - end - end - - -- - -- These are icon extensions listed within the 1.1 spec - -- - -- support for iconCoords, iconR, iconG, iconB attributes - -- Due to the callbacks being fired these can easily affect - -- performance, BEWARE when using them ! - -- - -- capture the icon coords & color for the Titan plugin - if obj.iconCoords then - self:TitanLDBIconUpdate(nil, name, "iconCoords", obj.iconCoords, obj) - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_iconCoords", "TitanLDBIconUpdate") - end - if obj.iconR and obj.iconG and obj.iconB then - self:TitanLDBIconUpdate(nil, name, "iconR", obj.iconR, obj) - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_iconR", "TitanLDBIconUpdate") - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_iconG", "TitanLDBIconUpdate") - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_iconB", "TitanLDBIconUpdate") - end - - -- - -- Setup the Titan plugin for this LDB addon - -- - - -- Create the appropriate Titan registry for the DO - local registry = { - id = NAME_PREFIX..name, - ldb = tostring(obj.type), - -- per 1.1 spec if .label exists use it else use data object's name - menuText = obj.label or name, - buttonTextFunction = "TitanLDBShowText", - icon = ldb__icon, - iconWidth = 16, - controlVariables = { - ShowIcon = true, - ShowLabelText = true, - ShowRegularText = false, - ShowColoredText = false, - DisplayOnRightSide = true - }, - savedVariables = { - ShowIcon = true, - ShowLabelText = true, - ShowRegularText = true, - ShowColoredText = false, - DisplayOnRightSide = false - }, - LDBVariables = { - value = ldb__value, - suffix = ldb__suffix, - text = ldb__text, - label = ldb__label, - name = name, - type = (obj.type or ""), - }, - notes = notes, - iconCoords = (obj.iconCoords or nil), - iconR = (obj.iconR or nil), - iconB = (obj.iconB or nil), - iconG = (obj.iconG or nil), - }; - - if TITAN_PANEL_VARS.debug.ldb_setup then - TitanDebug("" - .." type: '"..tostring(registry.ldb).."' " - ) - end - - -- Set the plugin category, if it exists, else default to "General" - -- Per the 1.1 LDB spec we check for a tocname attrib first, - -- if found we use it, if not we assume that the DO "name" - -- attribute is the same as the actual - -- addon name, which might not always be the case. - -- Titan defaults again to "General" if no categoy is found - -- via a check in the menu implementation, later on. - local addoncategory, addonversion; - local tempname = obj.tocname or name; - - -- This was a sanity check but does not allow for multiple - -- LDB to be within an addon yet act as their own addon. --- if IsAddOnLoaded(tempname) then - addoncategory = GetAddOnMetadata(tempname, "X-Category"); - registry["category"]= (addoncategory and xcategories[addoncategory]) - or (obj.category) - or nil - addonversion = GetAddOnMetadata(tempname, "Version") - or (obj.version) - or "" - registry["version"]= addonversion; --- end - - -- Depending on the LDB type set the control and saved Variables appropriately - if obj.type == LAUNCHER then - -- controls - -- one interpretation of the LDB spec is launchers - -- should always have an icon. - registry["controlVariables"].ShowIcon = true; - registry["controlVariables"].ShowRegularText = false; -- no text - -- defaults - registry["savedVariables"].ShowRegularText = false; - registry["savedVariables"].DisplayOnRightSide = true; -- start on right side - end - - if obj.type == DATA_SOURCE then - -- controls - registry["controlVariables"].ShowRegularText = true; - -- defaults - registry["savedVariables"].ShowRegularText = true; - end - - -- - -- Create the Titan frame for this LDB addon - -- Titan _OnLoad will be used to request the plugin be registered by Titan - local newTitanFrame -- a frame - if obj.type == "macro" then -- custom - newTitanFrame = CreateFrame("Button", - "TitanPanel"..NAME_PREFIX..name.."Button", - UIParent, "TitanPanelComboTemplate") --- UIParent, "SecureActionButtonTemplate, TitanPanelComboTemplate") - newTitanFrame:RegisterForClicks("AnyUp", "AnyDown") - newTitanFrame:SetMouseClickEnabled(true) - newTitanFrame:SetAttribute("type", "macro") --- newTitanFrame:SetAttribute("macro", obj.commandtext) - newTitanFrame:SetAttribute("macrotext", obj.commandtext) - newTitanFrame:SetScript("OnClick", function(self, button, down) - SecureUnitButton_OnClick(self, button, down) - --TitanPanelBarButton_OnClick(self, button) - end) ---[[ -print("LDB macrotext" -.." "..tostring(obj.commandtext).."" -) ---]] - if TITAN_PANEL_VARS.debug.ldb_setup then - TitanDebug("" - .." macrotext cmd: '"..tostring(obj.commandtext).."' " - ) - end - else - newTitanFrame = CreateFrame("Button", - "TitanPanel"..NAME_PREFIX..name.."Button", - UIParent, "TitanPanelComboTemplate") - end - - newTitanFrame.TitanCreatedBy = "LDB" - newTitanFrame.TitanType = "macro" - newTitanFrame.TitanName = (name or "?") - newTitanFrame.TitanAction = (obj.commandtext or "None") - - newTitanFrame.registry = registry - newTitanFrame:SetFrameStrata("FULLSCREEN"); - newTitanFrame:SetToplevel(true); - newTitanFrame:RegisterForClicks("LeftButtonUp", "RightButtonUp"); - - -- Use the routines given by the DO in this precedence - -- tooltip > OnEnter > OnTooltipShow > - -- or register a callback in case it is created later. Per the 1.1 LDB spec - if obj.tooltip then - self:TitanLDBHandleScripts("tooltip", name, nil, obj.tooltip, obj) - elseif obj.OnEnter then - self:TitanLDBHandleScripts("OnEnter", name, nil, obj.OnEnter, obj) - elseif obj.OnTooltipShow then - self:TitanLDBHandleScripts("OnTooltipShow", name, nil, obj.OnTooltipShow, obj) - else - self:TitanLDBHandleScripts("OnEnter", name, nil, nil, obj) - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_OnEnter", "TitanLDBHandleScripts") - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_OnTooltipShow", "TitanLDBHandleScripts") - end - - -- Use the OnClick given by the DO - -- or register a callback in case it is created later. - if obj.OnClick then - self:TitanLDBHandleScripts("OnClick", name, nil, obj.OnClick) - else - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_OnClick", "TitanLDBHandleScripts") - end - - -- - -- OnDoubleClick is UNDOCUMENTED in the 1.1 spec - -- but was implemented by the original developer - -- - -- Use the OnDoubleClick given by the DO - -- or register a callback in case it is created later. - if obj.OnDoubleClick then - self:TitanLDBHandleScripts("OnDoubleClick", name, nil, obj.OnDoubleClick) - else - ldb.RegisterCallback(self, - CALLBACK_PREFIX..name.."_OnDoubleClick", "TitanLDBHandleScripts") - end - - if TITAN_PANEL_VARS.debug.ldb_setup then - TitanDebug("" - .." id: '"..tostring(registry.id).."' " - .." type: '"..tostring(registry.ldb).."' " - .." type: '"..tostring(registry.ldb).."' " - ) - end - if TITAN_PANEL_VARS.debug.ldb_setup then - TitanDebug("" - .." id: '"..tostring(registry.id).."' " - .." registered" - ) - end - - -- If plugins have already been registered and loaded then get this one loaded - -- This works because the .registry is now set - if Titan__InitializedPEW then ---[[ -print("LDB late" -.." id: '"..tostring(registry.id).."' " -) ---]] - TitanUtils_RegisterPluginList() --- TitanPanel_PlayerEnteringWorld() - end -end - ---[[ Titan -NAME: LDBToTitan:SetScript -DESC: OnEvent handler for LDBToTitan -VAR: event - string -VAR: function -OUT: None -NOTE: -- PLAYER_LOGIN - Read through all the LDB object created so far and create cooresponding Titan plugins. -:NOTE ---]] -LDBToTitan:SetScript("OnEvent", function(self, event, ...) - if (event == "PLAYER_LOGIN") then - self:UnregisterEvent("PLAYER_LOGIN") - -- In case a LDB plugin is created later... - ldb.RegisterCallback(self, - "LibDataBroker_DataObjectCreated", "TitanLDBCreateObject") - - -- Register the LDB plugins that have been created so far - for name, obj in ldb:DataObjectIterator() do - self:TitanLDBCreateObject(nil, name, obj) - --TitanDebug("Registered "..name.."."); - end - end - ---[[ - if (event == "PLAYER_ENTERING_WORLD") then - self:UnregisterEvent("PLAYER_ENTERING_WORLD") - end ---]] -end -) \ No newline at end of file diff --git a/Titan/LibDataBroker-1.1.lua b/Titan/LibDataBroker-1.1.lua deleted file mode 100644 index 4182f2e..0000000 --- a/Titan/LibDataBroker-1.1.lua +++ /dev/null @@ -1,90 +0,0 @@ - -assert(LibStub, "LibDataBroker-1.1 requires LibStub") -assert(LibStub:GetLibrary("CallbackHandler-1.0", true), "LibDataBroker-1.1 requires CallbackHandler-1.0") - -local lib, oldminor = LibStub:NewLibrary("LibDataBroker-1.1", 4) -if not lib then return end -oldminor = oldminor or 0 - - -lib.callbacks = lib.callbacks or LibStub:GetLibrary("CallbackHandler-1.0"):New(lib) -lib.attributestorage, lib.namestorage, lib.proxystorage = lib.attributestorage or {}, lib.namestorage or {}, lib.proxystorage or {} -local attributestorage, namestorage, callbacks = lib.attributestorage, lib.namestorage, lib.callbacks - -if oldminor < 2 then - lib.domt = { - __metatable = "access denied", - __index = function(self, key) return attributestorage[self] and attributestorage[self][key] end, - } -end - -if oldminor < 3 then - lib.domt.__newindex = function(self, key, value) - if not attributestorage[self] then attributestorage[self] = {} end - if attributestorage[self][key] == value then return end - attributestorage[self][key] = value - local name = namestorage[self] - if not name then return end - callbacks:Fire("LibDataBroker_AttributeChanged", name, key, value, self) - callbacks:Fire("LibDataBroker_AttributeChanged_"..name, name, key, value, self) - callbacks:Fire("LibDataBroker_AttributeChanged_"..name.."_"..key, name, key, value, self) - callbacks:Fire("LibDataBroker_AttributeChanged__"..key, name, key, value, self) - end -end - -if oldminor < 2 then - function lib:NewDataObject(name, dataobj) - if self.proxystorage[name] then return end - - if dataobj then - assert(type(dataobj) == "table", "Invalid dataobj, must be nil or a table") - self.attributestorage[dataobj] = {} - for i,v in pairs(dataobj) do - self.attributestorage[dataobj][i] = v - dataobj[i] = nil - end - end - dataobj = setmetatable(dataobj or {}, self.domt) - self.proxystorage[name], self.namestorage[dataobj] = dataobj, name - self.callbacks:Fire("LibDataBroker_DataObjectCreated", name, dataobj) - return dataobj - end -end - -if oldminor < 1 then - function lib:DataObjectIterator() - return pairs(self.proxystorage) - end - - function lib:GetDataObjectByName(dataobjectname) - return self.proxystorage[dataobjectname] - end - - function lib:GetNameByDataObject(dataobject) - return self.namestorage[dataobject] - end -end - -if oldminor < 4 then - local next = pairs(attributestorage) - function lib:pairs(dataobject_or_name) - local t = type(dataobject_or_name) - assert(t == "string" or t == "table", "Usage: ldb:pairs('dataobjectname') or ldb:pairs(dataobject)") - - local dataobj = self.proxystorage[dataobject_or_name] or dataobject_or_name - assert(attributestorage[dataobj], "Data object not found") - - return next, attributestorage[dataobj], nil - end - - local ipairs_iter = ipairs(attributestorage) - function lib:ipairs(dataobject_or_name) - local t = type(dataobject_or_name) - assert(t == "string" or t == "table", "Usage: ldb:ipairs('dataobjectname') or ldb:ipairs(dataobject)") - - local dataobj = self.proxystorage[dataobject_or_name] or dataobject_or_name - assert(attributestorage[dataobj], "Data object not found") - - return ipairs_iter, attributestorage[dataobj], 0 - end -end diff --git a/Titan/Titan.lua b/Titan/Titan.lua new file mode 100644 index 0000000..8169034 --- /dev/null +++ b/Titan/Titan.lua @@ -0,0 +1,2215 @@ +--[[ File +NAME: TitanPanel.lua +DESC: Contains the basic routines of Titan. All the event handler routines, initialization routines, Titan menu routines, and select plugin handler routines. +--]] + +-- Locals +local TPC = TITAN_PANEL_CONSTANTS -- shortcut +local TITAN_PANEL_BUTTONS_INIT_FLAG = nil; + +local TITAN_PANEL_FROM_TOP = -25; +local TITAN_PANEL_FROM_BOTTOM = 25; +local TITAN_PANEL_FROM_BOTTOM_MAIN = 1; +local TITAN_PANEL_FROM_TOP_MAIN = 1; + +local _G = getfenv(0); +local InCombatLockdown = _G.InCombatLockdown; +local IsTitanPanelReset = nil; +local new_toon = false + +-- Library references +local L = LibStub("AceLocale-3.0"):GetLocale(TITAN_ID, true) +local AceTimer = LibStub("AceTimer-3.0") +local media = LibStub("LibSharedMedia-3.0") +local AceConfigDialog = LibStub("AceConfigDialog-3.0") + +-- TitanDebug (cmd.." : "..p1.." "..p2.." "..p3.." "..#cmd_list) + +-------------------------------------------------------------- +-- +function TitanPanel_OkToReload() + StaticPopupDialogs["TITAN_RESET_RELOAD"] = { + text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]) + .."\n\n"..L["TITAN_PANEL_RESET_WARNING"], + button1 = ACCEPT, + button2 = CANCEL, + OnAccept = function(self) + ReloadUI() + end, + showAlert = 1, + timeout = 0, + whileDead = 1, + hideOnEscape = 1 + }; + StaticPopup_Show("TITAN_RESET_RELOAD"); +end + +--[[ Titan +NAME: TitanPanel_ResetToDefault +DESC: Give the user a 'are you sure'. If the user accepts then reset current toon back to default Titan settings. +VAR: None +OUT: None +NOTE: +- Even if the user was using global profiles they will not when this is done. +:NOTE +--]] +function TitanPanel_ResetToDefault() + StaticPopupDialogs["TITAN_RESET_BAR"] = { + text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]) + .."\n\n"..L["TITAN_PANEL_RESET_WARNING"], + button1 = ACCEPT, + button2 = CANCEL, + OnAccept = function(self) + TitanVariables_UseSettings(TitanSettings.Player, TITAN_PROFILE_RESET); + IsTitanPanelReset = true; + ReloadUI() + end, + showAlert = 1, + timeout = 0, + whileDead = 1, + hideOnEscape = 1 + }; + StaticPopup_Show("TITAN_RESET_BAR"); +end + +--[[ Titan +NAME: TitanPanel_SaveCustomProfile +DESC: The user wants to save a custom Titan profile. Show the user the dialog boxes to make it happen. +VAR: None +OUT: None +NOTE: +- The profile is written to the Titan saved variables. A reload of the UI is needed to ensure the profile is written to disk for the user to load later. +:NOTE +--]] +function TitanPanel_SaveCustomProfile() + -- Create the dialog box code we'll need... + + -- helper to actually write the profile to the Titan saved vars + local function Write_profile(name) + local currentprofilevalue, _, _ = TitanUtils_GetPlayer() + local profileName = TitanUtils_CreateName(name, TITAN_CUSTOM_PROFILE_POSTFIX) + TitanSettings.Players[profileName] = + TitanSettings.Players[currentprofilevalue] + TitanPrint(L["TITAN_PANEL_MENU_PROFILE_SAVE_PENDING"] + .."'"..name.."'" + , "info") + end + -- helper to ask the user to overwrite a profile + local function Overwrite_profile(name) + local dialogFrame = + StaticPopup_Show("TITAN_OVERWRITE_CUSTOM_PROFILE", name); + if dialogFrame then + dialogFrame.data = name; + end + end + -- helper to handle getting the profile name from the user + local function Get_profile_name(self) + local rawprofileName = self.editBox:GetText(); + -- remove any spaces the user may have typed in the name + local conc2profileName = string.gsub( rawprofileName, " ", "" ); + if conc2profileName == "" then return; end + -- no '@' is allowed or it will mess with the Titan profile naming convention + local concprofileName = string.gsub( conc2profileName, TITAN_AT, "-" ); + local profileName = TitanUtils_CreateName(concprofileName, TITAN_CUSTOM_PROFILE_POSTFIX) + if TitanSettings.Players[profileName] then + -- Warn the user of an existing profile + Overwrite_profile(rawprofileName) + self:Hide(); + return; + else + -- Save the requested profile + Write_profile(rawprofileName) + self:Hide(); + StaticPopup_Show("TITAN_RELOADUI"); + end + end + -- Dialog box to warn the user that the UI will be reloaded + -- This ensures the profile is written to disk + StaticPopupDialogs["TITAN_RELOADUI"] = { + text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]).."\n\n" + ..L["TITAN_PANEL_MENU_PROFILE_RELOADUI"], + button1 = "OKAY", + OnAccept = function(self) + ReloadUI(); -- ensure profile is written to disk + end, + showAlert = 1, + whileDead = 1, + timeout = 0, + }; + + -- Dialog box to warn the user that an existing profile will be overwritten. + StaticPopupDialogs["TITAN_OVERWRITE_CUSTOM_PROFILE"] = { + text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]).."\n\n" + ..L["TITAN_PANEL_MENU_PROFILE_ALREADY_EXISTS"], + button1 = ACCEPT, + button2 = CANCEL, + OnAccept = function(self, data) + Write_profile(data) + self:Hide(); + StaticPopup_Show("TITAN_RELOADUI"); + end, + showAlert = 1, + whileDead = 1, + timeout = 0, + hideOnEscape = 1 + }; + + -- Dialog box to save the profile. + StaticPopupDialogs["TITAN_SAVE_CUSTOM_PROFILE"] = { + text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]).."\n\n" + ..L["TITAN_PANEL_MENU_PROFILE_SAVE_CUSTOM_TITLE"], + button1 = ACCEPT, + button2 = CANCEL, + hasEditBox = 1, + maxLetters = 20, + OnAccept = function(self) + -- self refers to this frame with the Accept button + Get_profile_name(self) + end, + OnShow = function(self) + self.editBox:SetFocus(); + end, + OnHide = function(self) + self.editBox:SetText(""); + end, + EditBoxOnEnterPressed = function(self) + -- We need to get the parent because self refers to the edit box. + Get_profile_name(self:GetParent()) + end, + EditBoxOnEscapePressed = function(self) + self:GetParent():Hide(); + end, + timeout = 0, + exclusive = 1, + whileDead = 1, + hideOnEscape = 1 + }; + + StaticPopup_Show("TITAN_SAVE_CUSTOM_PROFILE"); + + -- Can NOT cleanup. Execution does not stop when a dialog box is invoked! +-- StaticPopupDialogs["TITAN_RELOADUI"] = {} +-- StaticPopupDialogs["TITAN_OVERWRITE_CUSTOM_PROFILE"] = {} +-- StaticPopupDialogs["TITAN_SAVE_CUSTOM_PROFILE"] = {} + +end + +--[[ Titan +NAME: TitanSetPanelFont +DESC: Set or change the font and font size of text on the Titan bar. This affects ALL plugins. +VAR: fontname - The text name of the font to use. Defaults to Titan default if none given. +VAR: fontsize - The size of the font to use. Defaults to Titan default if none given. +OUT: None +NOTE: +- Each registered plugin will have its font updated. Then all plugins will be refreshed to show the new font. +:NOTE +--]] +function TitanSetPanelFont(fontname, fontsize) + -- a couple of arg checks to avoid unpleasant things... + if not fontname then fontname = TPC.FONT_NAME end + if not fontsize then fontsize = TPC.FONT_SIZE end + local index,id; + local newfont = media:Fetch("font", fontname) + for index, id in pairs(TitanPluginsIndex) do + local button = TitanUtils_GetButton(id); + local buttonText = _G[button:GetName()..TITAN_PANEL_TEXT]; + if buttonText then + buttonText:SetFont(newfont, fontsize); + end + -- account for plugins with child buttons + local childbuttons = {button:GetChildren()}; + for _, child in ipairs(childbuttons) do + if child then + local bname = _G[child:GetName()] + if bname then + local childbuttonText = _G[child:GetName()..TITAN_PANEL_TEXT]; + if childbuttonText then + childbuttonText:SetFont(newfont, fontsize); + end + end + end + end + end + TitanPanel_RefreshPanelButtons(); +end + + +--[[ local +NAME: TitanPanel_CreateABar +DESC: Helper to add scripts to the Titan bar passed in. +VAR: frame - The frame name (string) of the Titan bar to create +OUT: None +NOTE: +- This also creates the hider bar in case the user want to use auto hide. +:NOTE +--]] +local function TitanPanel_CreateABar(frame) + if frame then + local bar_name = TitanBarData[frame].name + local bar_width = TitanBarData[frame].width + + if bar_name then + -- Set script handlers for display + _G[frame]:RegisterForClicks("LeftButtonUp", "RightButtonUp"); + _G[frame]:SetScript("OnEnter", function(self) TitanPanelBarButton_OnEnter(self) end) + _G[frame]:SetScript("OnLeave", function(self) TitanPanelBarButton_OnLeave(self) end) + _G[frame]:SetScript("OnClick", function(self, button) TitanPanelBarButton_OnClick(self, button) end) + _G[frame]:SetWidth(bar_width) + + local hide_name = TitanBarData[frame].hider + if hide_name then + -- Set script handlers for display + _G[hide_name]:RegisterForClicks("LeftButtonUp", "RightButtonUp"); + _G[hide_name]:SetScript("OnEnter", function(self) TitanPanelBarButtonHider_OnEnter(self) end) + _G[hide_name]:SetScript("OnLeave", function(self) TitanPanelBarButtonHider_OnLeave(self) end) + _G[hide_name]:SetScript("OnClick", function(self, button) TitanPanelBarButton_OnClick(self, button) end) + + _G[hide_name]:SetFrameStrata("BACKGROUND") + _G[hide_name]:SetWidth(bar_width) + _G[hide_name]:SetHeight(TITAN_PANEL_BAR_HEIGHT/2); + end + + -- Set the display bar + local container = _G[frame] + container:SetHeight(TITAN_PANEL_BAR_HEIGHT); + -- Set local identifier + local container_text = _G[frame.."_Text"] + if container_text then -- was used for debug/creating of the independent bars + container_text:SetText(tostring(bar_name)) + -- for now show it + container:Show() + end + end + else + end +end + +-------------------------------------------------------------- +_G[TITAN_PANEL_CONTROL]:RegisterEvent("ADDON_LOADED"); +-- +-- Event routine : redirects to TitanPanelBarButton:<registered event> routines below. +_G[TITAN_PANEL_CONTROL]:SetScript("OnEvent", function(_, event, ...) + _G[TITAN_PANEL_CONTROL][event](_G[TITAN_PANEL_CONTROL], ...) +end) + + +--[[ Titan +NAME: TitanPanel_PlayerEnteringWorld +DESC: Do all the setup needed when a user logs in / reload UI / enter or leave an instance. +VAR: None +OUT: None +NOTE: +- This is called after the 'player entering world' event is fired by Blizz. +- This is also used when a LDB plugin is created after Titan runs the 'player entering world' code. +:NOTE +--]] +function TitanPanel_PlayerEnteringWorld(reload) +--[[ +print("PEW" +.." "..tostring(Titan__InitializedPEW).."" +) +--]] + if Titan__InitializedPEW then + -- Currently no additional steps needed + else + -- Get Profile and Saved Vars + new_toon = TitanVariables_InitTitanSettings(); + if TitanAllGetVar("Silenced") then + -- No header output + else + TitanPrint("", "header") + end + + if not ServerTimeOffsets then + ServerTimeOffsets = {}; + end + if not ServerHourFormat then + ServerHourFormat = {}; + end + + -- Set the two anchors in their default positions + -- until the Titan bars are drawn + TitanPanelTopAnchor:ClearAllPoints(); + TitanPanelTopAnchor:SetPoint("TOPLEFT", "UIParent", "TOPLEFT", 0, 0); + TitanPanelBottomAnchor:ClearAllPoints(); + TitanPanelBottomAnchor:SetPoint("BOTTOMLEFT", "UIParent", "BOTTOMLEFT", 0, 0); + + -- Ensure the bars are created before the plugins are registered. + for idx, v in pairs (TitanBarData) do + TitanPanelButton_CreateBar(idx) + end + Titan_AutoHide_Create_Frames() + + local realmName = GetRealmName() + + if ServerTimeOffsets[realmName] then + TitanSetVar(TITAN_CLOCK_ID, "OffsetHour", ServerTimeOffsets[realmName]) + elseif TitanGetVar(TITAN_CLOCK_ID, "OffsetHour") then + ServerTimeOffsets[realmName] = TitanGetVar(TITAN_CLOCK_ID, "OffsetHour") + end + + if ServerHourFormat[realmName] then + TitanSetVar(TITAN_CLOCK_ID, "Format", ServerHourFormat[realmName]) + elseif TitanGetVar(TITAN_CLOCK_ID, "Format") then + ServerHourFormat[realmName] = TitanGetVar(TITAN_CLOCK_ID, "Format") + end + + -- Check to see if we should kill off the OrderHallCommandBar + if not TitanAllGetVar("OrderHall") then + local TitanPanelAce = LibStub("AceAddon-3.0"):NewAddon("TitanPanelOHCB", "AceHook-3.0") + TitanPanelAce:SecureHook("OrderHall_CheckCommandBar", + function() + if OrderHallCommandBar then + OrderHallCommandBar:Hide() + OrderHallCommandBar:UnregisterAllEvents() + OrderHallCommandBar.Show = function () end + end + end + ) + else + local TitanPanelAce = LibStub("AceAddon-3.0"):NewAddon("TitanPanelOHCB", "AceHook-3.0") + TitanPanelAce:Unhook("OrderHall_CheckCommandBar") + end + + end + local _ = nil + TitanSettings.Player,_,_ = TitanUtils_GetPlayer() + -- Some addons wait to create their LDB component or a Titan addon could + -- create additional buttons as needed. + -- So we need to sync their variables and set them up + TitanUtils_RegisterPluginList() + + -- Init detailed settings only after plugins are registered! + local profile_action = nil + if new_toon then + profile_action = TITAN_PROFILE_RESET + else + profile_action = TITAN_PROFILE_INIT + end + + TitanVariables_UseSettings(nil, profile_action) + + -- all addons are loaded so update the config (options) + -- some could have registered late... + TitanUpdateConfig("init") + + -- Init panel font + local isfontvalid = media:IsValid("font", TitanPanelGetVar("FontName")) + if isfontvalid then + TitanSetPanelFont(TitanPanelGetVar("FontName"), TitanPanelGetVar("FontSize")) + else + -- if the selected font is not valid, revert to default (Friz Quadrata TT) + TitanPanelSetVar("FontName", TPC.FONT_NAME); + TitanSetPanelFont(TPC.FONT_NAME, TitanPanelGetVar("FontSize")) + end + + -- Init panel frame strata + TitanVariables_SetPanelStrata(TitanPanelGetVar("FrameStrata")) + + -- Titan Panel has initialized its variables and registered plugins. + -- Allow Titan - and others - to adjust the bars + Titan__InitializedPEW = true + + -- Move frames +-- TitanMovable_SecureFrames() + + -- Also sync LDB object text with their created Titan plugin + TitanLDBRefreshButton() +end + +-------------------------------------------------------------- +-- +-- Event handlers +-- +--[===[ + local WoWClassicEra, WoWClassicTBC, WoWWOTLKC, WoWRetail + if wowversion < 20000 then + WoWClassicEra = true + elseif wowversion < 30000 then + WoWClassicTBC = true + elseif wowversion < 40000 then + WoWWOTLKC = true + elseif wowversion > 90000 then + WoWRetail = true + else + -- n/a + end +--]===] +function TitanPanelBarButton:ADDON_LOADED(addon) + if addon == TITAN_ID then + -- Determine WoW TOC Version + local wowversion = select(4, GetBuildInfo()) + if wowversion >= 100000 then -- Initialize Titan + -- Event registration + _G[TITAN_PANEL_CONTROL]:RegisterEvent("PLAYER_ENTERING_WORLD"); + _G[TITAN_PANEL_CONTROL]:RegisterEvent("CVAR_UPDATE"); + _G[TITAN_PANEL_CONTROL]:RegisterEvent("PLAYER_LOGOUT"); + + -- For the pet battle - for now we'll hide the Titan bars... + -- Cannot seem to move the 'top' part of the pet battle frame. + _G[TITAN_PANEL_CONTROL]:RegisterEvent("PET_BATTLE_OPENING_START"); + _G[TITAN_PANEL_CONTROL]:RegisterEvent("PET_BATTLE_CLOSE"); + + -- Hide Titan bars in combat (global or per bar); may be useful when using Short bars + _G[TITAN_PANEL_CONTROL]:RegisterEvent("PLAYER_REGEN_ENABLED"); + _G[TITAN_PANEL_CONTROL]:RegisterEvent("PLAYER_REGEN_DISABLED"); + + -- User request to hide Top bar(s) in BG or arena; more areas later? + _G[TITAN_PANEL_CONTROL]:RegisterEvent("ZONE_CHANGED"); + _G[TITAN_PANEL_CONTROL]:RegisterEvent("ZONE_CHANGED_INDOORS"); + _G[TITAN_PANEL_CONTROL]:RegisterEvent("ZONE_CHANGED_NEW_AREA"); + else + -- User loaded wrong Titan version; tried to use retail on Classic or Classic Era + -- Could save the user grief; Titan could mangle the saved vars on a version mismatch. + TitanPrint("Titan did not initialize!!!!" + , "error") + TitanPrint("This version needs API released with " + .." "..tostring(EXPANSION_NAME9).."" + .." (10.00.xx)" + , "error") + end + -- Unregister event - saves a few event calls. + self:UnregisterEvent("ADDON_LOADED"); + self.ADDON_LOADED = nil + end +end + +function TitanPanelBarButton:PLAYER_ENTERING_WORLD(arg1, arg2) + local call_success = nil + local ret_val = nil + +--[[ +print("PLAYER_ENTERING_WORLD" +.." "..tostring(arg1).."" +.." "..tostring(arg2).."" +) +--]] + call_success, -- needed for pcall + ret_val = -- actual return values + pcall (TitanPanel_PlayerEnteringWorld, arg2) + -- pcall does not allow errors to propagate out. Any error + -- is returned as text with the success / fail. + -- Think of it as a try - catch block + if call_success then + -- Titan initialized properly + else + -- something really bad occured... + TitanPrint("Titan could not initialize!!!! Cleaning up...", "error") + TitanPrint("--"..ret_val, "error") + -- Clean up best we can and tell the user to submit a ticket. + -- This could be the 1st log in or a reload (reload, instance, boat, ...) + + -- Hide the bars. At times they are there but at 0% transparency. + -- They can be over the Blizz action bars creating havoc. + TitanPrint("-- Hiding Titan bars...", "warning") + TitanPanelBarButton_HideAllBars() + + -- Remove the options pages + TitanUpdateConfig("nuke") + -- What else to clean up??? + + -- raise the error to WoW for display, if display errors is set. + -- This *must be* the last statement of the routine! + error(ret_val, 1) + end +end + +function TitanPanelBarButton:CVAR_UPDATE(cvarname, cvarvalue) + if cvarname == "USE_UISCALE" + or cvarname == "WINDOWED_MODE" + or cvarname == "uiScale" then + if TitanPlayerSettings and TitanPanelGetVar("Scale") then + TitanPanel_InitPanelBarButton() -- TitanPanel_SetScale() + end + end +end + +function TitanPanelBarButton:PLAYER_LOGOUT() + if not IsTitanPanelReset then + -- for debug + if TitanPanelRegister then + TitanPanelRegister.ToBe = TitanPluginToBeRegistered + TitanPanelRegister.ToBeNum = TitanPluginToBeRegisteredNum + TitanPanelRegister.TitanPlugins = TitanPlugins + end + end + Titan__InitializedPEW = nil +end + +function TitanPanelBarButton:ZONE_CHANGED() + TitanPanelBarButton_DisplayBarsWanted("ZONE_CHANGED") +end + +function TitanPanelBarButton:ZONE_CHANGED_INDOORS() + TitanPanelBarButton_DisplayBarsWanted("ZONE_CHANGED_INDOORS") +end + +function TitanPanelBarButton:ZONE_CHANGED_NEW_AREA() + TitanPanelBarButton_DisplayBarsWanted("ZONE_CHANGED_NEW_AREA") +end + +function TitanPanelBarButton:PET_BATTLE_OPENING_START() +--print("PET_BATTLE_OPENING_START") + TitanPanelBarButton_DisplayBarsWanted("PET_BATTLE_OPENING_START") +end + +function TitanPanelBarButton:PET_BATTLE_CLOSE() +--print("PET_BATTLE_CLOSE") + TitanPanelBarButton_DisplayBarsWanted("PET_BATTLE_CLOSE") +end + +local in_combat = false -- seems InCombatLockdown may not be set fast enough to reliably hide bars... +function TitanPanelBarButton:PLAYER_REGEN_ENABLED() + in_combat = false + TitanPanelBarButton_DisplayBarsWanted("PLAYER_REGEN_ENABLED") +end + +function TitanPanelBarButton:PLAYER_REGEN_DISABLED() + in_combat = true + TitanPanelBarButton_DisplayBarsWanted("PLAYER_REGEN_DISABLED") +end +-- + +--[[ Titan +NAME: TitanPanelBarButton_OnClick +DESC: Handle the button clicks on any Titan bar. +VAR: self - expected to be a Titan bar +VAR: button - which mouse button was clicked +OUT: None +NOTE: +- This only reacts to the right or left mouse click without modifiers. +- Used in the set script for the Titan display and hider frames +:NOTE +--]] +function TitanPanelBarButton_OnClick(self, button) + -- ensure that the right-click menu will not appear on "hidden" bottom bar(s) +--[[ +print("_OnClick" +.." "..tostring(bar).."" +) +--]] + if (button == "LeftButton") then + TitanUtils_CloseAllControlFrames(); + TitanUtils_CloseRightClickMenu(); + elseif (button == "RightButton") then + TitanUtils_CloseAllControlFrames(); + TitanPanelRightClickMenu_Close(); + -- Show RightClickMenu anyway + TitanPanelRightClickMenu_Toggle(self) + end +end + +-- +-- Slash command handler +-- +--[[ local +NAME: TitanPanel_ParseSlashCmd +DESC: Helper to parse the user commands. +VAR: cmd - user string from the command 'window' +OUT: table - table of 'words' the user typed in +NOTE: +- each 'word' in words table is made lower case for comparison simplicity +:NOTE +--]] +local function TitanPanel_ParseSlashCmd(cmd) + local words = {} + for w in string.gmatch (cmd, "%w+") do + words [#words + 1] = (w and string.lower(w) or "?") + end +--[[ + local tmp = "" + for idx,v in pairs (words) do + tmp = tmp.."'"..words[idx].."' " + end + + TitanDebug (tmp.." : "..#words) +--]] + return words +end + +--[[ local +NAME: handle_slash_help +DESC: Helper to tell the user the relevant Titan commands. +VAR: cmd - string 'all' | 'reset' | 'gui' | 'silent' +OUT: None +NOTE: +- Depending on cmd put to chat the appropriate help +:NOTE +--]] +local function handle_slash_help(cmd) + cmd = cmd or "all" + + -- Give the user the general help if we can not figure out what they want + TitanPrint("", "header") + -- Cannot count registered plugins after initial registration TitanUtils_RegisterPluginList() + + if cmd == "reset" then + TitanPrint(L["TITAN_PANEL_SLASH_RESET_0"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_RESET_1"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_RESET_2"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_RESET_3"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_RESET_4"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_RESET_5"], "plain") + end + if cmd == "gui" then + TitanPrint(L["TITAN_PANEL_SLASH_GUI_0"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_GUI_1"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_GUI_2"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_GUI_3"], "plain") + end + if cmd == "profile" then + TitanPrint(L["TITAN_PANEL_SLASH_PROFILE_0"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_PROFILE_1"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_PROFILE_2"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_PROFILE_3"], "plain") + end + if cmd == "silent" then + TitanPrint(L["TITAN_PANEL_SLASH_SILENT_0"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_SILENT_1"], "plain") + end + if cmd == "orderhall" then + TitanPrint(L["TITAN_PANEL_SLASH_ORDERHALL_0"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_ORDERHALL_1"], "plain") + end + if cmd == "help" then + TitanPrint(L["TITAN_PANEL_SLASH_HELP_0"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_HELP_1"], "plain") + end + if cmd == "all" then + TitanPrint(L["TITAN_PANEL_SLASH_ALL_0"], "plain") + TitanPrint(L["TITAN_PANEL_SLASH_ALL_1"], "plain") + end +end + +--[[ local +NAME: handle_reset_cmds +DESC: Helper to execute the various reset commands from the user. +VAR: cmd_list - A table containing the list of 'words' the user typed in +OUT: None +--]] +local function handle_reset_cmds(cmd_list) + local cmd = cmd_list[1] + local p1 = cmd_list[2] or nil + -- sanity check + if (not cmd == "reset") then + return + end + + if p1 == nil then + TitanPanel_ResetToDefault(); + elseif p1 == "tipfont" then + TitanPanelSetVar("TooltipFont", 1); + GameTooltip:SetScale(TitanPanelGetVar("TooltipFont")); + TitanPrint(L["TITAN_PANEL_SLASH_RESP1"], "info") + elseif p1 == "tipalpha" then + TitanPanelSetVar("TooltipTrans", 1); + local red, green, blue, _ = GameTooltip:GetBackdropColor(); + local red2, green2, blue2, _ = GameTooltip:GetBackdropBorderColor(); + GameTooltip:SetBackdropColor(red,green,blue,TitanPanelGetVar("TooltipTrans")); + GameTooltip:SetBackdropBorderColor(red2,green2,blue2,TitanPanelGetVar("TooltipTrans")); + TitanPrint(L["TITAN_PANEL_SLASH_RESP2"], "info") + elseif p1 == "panelscale" then + if not InCombatLockdown() then + TitanPanelSetVar("Scale", 1); + TitanPanel_InitPanelBarButton() -- TitanPanel_SetScale() + TitanPrint(L["TITAN_PANEL_SLASH_RESP3"], "info") + else + TitanPrint(L["TITAN_PANEL_MENU_IN_COMBAT_LOCKDOWN"], "warning") + end + elseif p1 == "spacing" then + TitanPanelSetVar("ButtonSpacing", 20); + TitanPanel_InitPanelButtons(); + TitanPrint(L["TITAN_PANEL_SLASH_RESP4"], "info") + else + handle_slash_help("reset") + end +end + +--[[ local +NAME: handle_giu_cmds +DESC: Helper to execute the gui related commands from the user. +VAR: cmd_list - A table containing the list of 'words' the user typed in +OUT: None +--]] +local function handle_giu_cmds(cmd_list) + local cmd = cmd_list[1] + local p1 = cmd_list[2] or nil + -- sanity check + if (not cmd == "gui") then + return + end + +-- DF changed how options are called. The best I get is the Titan 'about', not deeper. + Settings.OpenToCategory(TITAN_PANEL_CONFIG.topic.About, TITAN_PANEL_CONFIG.topic.scale) +-- so the below does not work as expected... + +end + +--[[ local +NAME: handle_profile_cmds +DESC: Helper to execute the profile related commands from the user. +VAR: cmd_list - A table containing the list of 'words' the user typed in +OUT: None +--]] +local function handle_profile_cmds(cmd_list) + local cmd = cmd_list[1] + local p1 = cmd_list[2] or nil + local p2 = cmd_list[3] or nil + local p3 = cmd_list[4] or nil + -- sanity check + if (not cmd == "profile") then + return + end + + if p1 == "use" and p2 and p3 then + if TitanAllGetVar("GlobalProfileUse") then + TitanPrint(L["TITAN_PANEL_GLOBAL_ERR_1"], "info") + else + TitanVariables_UseSettings(TitanUtils_CreateName(p2, p3), TITAN_PROFILE_USE) + end + else + handle_slash_help("profile") + end +end + +--[[ local +NAME: handle_silent_cmds +DESC: Helper to execute the silent commands from the user. +VAR: cmd_list - A table containing the list of 'words' the user typed in +OUT: None +--]] +local function handle_silent_cmds(cmd_list) + local cmd = cmd_list[1] + local p1 = cmd_list[2] or nil + -- sanity check + if (not cmd == "silent") then + return + end + + if TitanAllGetVar("Silenced") then + TitanAllSetVar("Silenced", false); + TitanPrint(L["TITAN_PANEL_MENU_SILENT_LOAD"].." ".. L["TITAN_PANEL_MENU_DISABLED"], "info") + else + TitanAllSetVar("Silenced", true); + TitanPrint(L["TITAN_PANEL_MENU_SILENT_LOAD"].." ".. L["TITAN_PANEL_MENU_ENABLED"], "info") + end +end + +--[[ local +NAME: handle_orderhall_cmds +DESC: Helper to execute the orderhall commands from the user. +VAR: cmd_list - A table containing the list of 'words' the user typed in +OUT: None +--]] +local function handle_orderhall_cmds(cmd_list) + local cmd = cmd_list[1] + local p1 = cmd_list[2] or nil + -- sanity check + if (not cmd == "orderhall") then + return + end + + if TitanAllGetVar("OrderHall") then + TitanAllSetVar("OrderHall", false); + TitanPrint(L["TITAN_PANEL_MENU_HIDE_ORDERHALL"].." ".. L["TITAN_PANEL_MENU_ENABLED"], "info") + StaticPopupDialogs["TITAN_RELOAD"] = { + text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]).."\n\n" + ..L["TITAN_PANEL_RELOAD"], + button1 = ACCEPT, + button2 = CANCEL, + OnAccept = function(self) + ReloadUI(); + end, + showAlert = 1, + timeout = 0, + whileDead = 1, + hideOnEscape = 1 + }; + StaticPopup_Show("TITAN_RELOAD"); + else + TitanAllSetVar("OrderHall", true); + TitanPrint(L["TITAN_PANEL_MENU_HIDE_ORDERHALL"].." ".. L["TITAN_PANEL_MENU_DISABLED"], "info") + StaticPopupDialogs["TITAN_RELOAD"] = { + text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]).."\n\n" + ..L["TITAN_PANEL_RELOAD"], + button1 = ACCEPT, + button2 = CANCEL, + OnAccept = function(self) + ReloadUI(); + end, + showAlert = 1, + timeout = 0, + whileDead = 1, + hideOnEscape = 1 + }; + StaticPopup_Show("TITAN_RELOAD"); + end +end + +--[[ local +NAME: handle_help_cmds +DESC: Helper to execute the help commands from the user. +VAR: cmd_list - A table containing the list of 'words' the user typed in +OUT: None +--]] +local function handle_help_cmds(cmd_list) + local cmd = cmd_list[1] + local p1 = cmd_list[2] or nil + -- sanity check + if (not cmd == "help") then + return + end + + handle_slash_help(p1 or "all") +end + +--[[ local +NAME: TitanPanel_RegisterSlashCmd +DESC: Helper to parse and execute all the Titan slash commands from the user. +VAR: cmd - The command (string) the user typed in +OUT: None +--]] +local function TitanPanel_RegisterSlashCmd(cmd_str) + local cmd_list = {} + -- parse what the user typed + cmd_list = TitanPanel_ParseSlashCmd(cmd_str) + local cmd = cmd_list[1] or "" + local p1 = cmd_list[2] or "" + local p2 = cmd_list[3] or "" + local p3 = cmd_list[4] or "" + + if (cmd == "reset") then + handle_reset_cmds(cmd_list) + elseif (cmd == "gui") then + handle_giu_cmds(cmd_list) + elseif (cmd == "profile") then + handle_profile_cmds(cmd_list) + elseif (cmd == "silent") then + handle_silent_cmds(p1) + elseif (cmd == "orderhall") then + handle_orderhall_cmds(p1) + elseif (cmd == "help") then + handle_slash_help(p1) + else + handle_slash_help("all") + end +end + +-------------------------------------------------------------- +-- +-- Register slash commands for Titan Panel +SlashCmdList["TitanPanel"] = TitanPanel_RegisterSlashCmd; +SLASH_TitanPanel1 = "/titanpanel"; +SLASH_TitanPanel2 = "/titan"; + +-------------------------------------------------------------- +-- +-- Texture routines +local function Set_Color(frame, tex, color) + +--[[ +print("_Set bar color" +.." "..tostring(TitanBarData[frame].tex_name).."" +--.." "..tostring(tex:GetName()).."" +.." "..tostring(format("%0.1f", color.r)).."" +.." "..tostring(format("%0.1f", color.g)).."" +.." "..tostring(format("%0.1f", color.b)).."" +.." "..tostring(format("%0.1f", color.alpha)).."" +) +--]] + _G[frame]:SetBackdrop({ + bgFile="Interface\\Tooltips\\UI-Tooltip-Background", +-- edgeFile="Interface\\Tooltips\\UI-Tooltip-Border", +-- edgeFile="Interface\\DialogFrame\\UI-DialogBox-Gold-Border", + edgeFile="Interface\\Glues\\Common\\TextPanel-Border", + tile = true, + tileEdge = true, +-- insets = { left = 1, right = 1, top = 1, bottom = 1 }, + tileSize = 8, + edgeSize = 8, + }) + + _G[frame]:SetBackdropBorderColor( + TOOLTIP_DEFAULT_COLOR.r, + TOOLTIP_DEFAULT_COLOR.g, + TOOLTIP_DEFAULT_COLOR.b); + _G[frame]:SetBackdropColor( + color.r, + color.g, + color.b, + color.alpha); +--[[ + -- Apply the texture to the bar, using the system repeat to fill it + tex:SetColorTexture( + color.r, + color.g, + color.b, + color.alpha + ) + tex:SetAllPoints() + tex:SetHorizTile(true) -- ensures repeat; 'smears' if not sest to true + tex:SetVertTile(true) -- ensures image is 'full' height of frame +--]] +end + +local function Set_Skin(frame, tex, skin) + -- Use the texture / skin per user selectable options + + -- skins are in two parts - top & bottom... + -- TODO : have Short bars choose top or bottom skin?? + local edge = "" + if TitanBarData[frame].vert == TITAN_BOTTOM + then + edge = TITAN_BOTTOM + else + edge = TITAN_TOP + end + + -- Apply the texture to the bar, using the system repeat to fill it + local texture_file = skin.path.."TitanPanelBackground"..edge.."0" +--[[ +print("_Skin" +.." "..tostring(TitanBarData[frame].tex_name.."" +--.." "..tostring(tex:GetName()).."" +.." "..tostring(skin.path).."" +--.."\n "..tostring(edge).."" +--.." "..tostring(skin.alpha).."" +--.."\n "..tostring(tex:GetTexture()).."" +) +--]] +--[[ -- appears seeting image this way just smears image... + _G[frame]:SetBackdrop({ + bgFile=texture_file, +-- edgeFile=nil, + tile = true, +-- tileSize = 256, +-- tileEdge = true, +-- insets = { left = 1, right = 1, top = 1, bottom = 1 }, +-- tileSize = 8, +-- edgeSize = 8, + }) +--]] + tex:SetAllPoints() + tex:SetHorizTile(true) -- ensures repeat; 'smears' if not sest to true + tex:SetTexture(texture_file, "REPEAT") + tex:SetVertTile(true) -- ensures image is 'full' height of frame +-- tex:SetHeight(TITAN_PANEL_BAR_TEXTURE_HEIGHT) -- leaves a gap if used + tex:SetAlpha(skin.alpha) +end + +function TitanPanel_SetBarTexture(frame) + if frame and TitanBarData[frame] then + -- proceed + else + return + end + + -- Create the path & file name to the texture + local tex = TitanBarData[frame].tex_name + if _G[tex] then + titanTexture = _G[tex] + else + titanTexture = _G[frame]:CreateTexture(tex, "BACKGROUND") + end + titanTexture:SetTexture() + _G[frame]:SetBackdrop({ + bgFile="", + }) + +--[[ +print("_Tex" +.." "..tostring(TitanBarData[frame].name).."" +--.." "..tostring(tex).."" +.." "..tostring(titanTexture:GetName()).."" +--.." "..tostring(skin.path).."" +--.."\n "..tostring(edge).."" +--.." "..tostring(skin.alpha).."" +--.."\n "..tostring(tex:GetTexture()).."" +.." "..tostring(TitanBarDataVars["Global"].texure).."" +.." "..tostring(TitanBarDataVars[frame].texure).."" +) +--]] + -- Use the texture / skin per user selectable options + if TitanBarDataVars["Global"].texure == TitanVars.SKIN then + Set_Skin(frame, titanTexture, TitanBarDataVars["Global"].skin) -- tex_path = TitanPanelGetVar("TexturePath") + elseif TitanBarDataVars["Global"].texure == TitanVars.COLOR then + Set_Color(frame, titanTexture, TitanBarDataVars["Global"].color) + elseif TitanBarDataVars[frame].texure == TitanVars.SKIN then + Set_Skin(frame, titanTexture, TitanBarDataVars[frame].skin) + elseif TitanBarDataVars[frame].texure == TitanVars.COLOR then + Set_Color(frame, titanTexture, TitanBarDataVars[frame].color) + end +end + +-------------------------------------------------------------- +-- +-- auto hide event handlers +--[[ Titan +NAME: TitanPanelBarButton_OnLeave +DESC: On leaving the display check if we have to hide the Titan bar. A timer is used - when it expires the bar is hid. +VAR: self - expected to be a Titan bar +OUT: None +--]] +function TitanPanelBarButton_OnLeave(self) + local frame = (self and self:GetName() or nil) + local bar = (TitanBarData[frame] and TitanBarData[frame].name or nil) + + -- if auto hide is active then let the timer hide the bar + local hide = (bar and TitanBarDataVars[frame].auto_hide or nil) +-- local hide = (bar and TitanPanelGetVar(bar.."_Hide") or nil) + if hide then + Titan_AutoHide_Timers(frame, "Leave") + end +end + +--[[ Titan +NAME: TitanPanelBarButton_OnEnter +DESC: No code - this is a place holder for the XML template. +VAR: self - expected to be a Titan bar +OUT: None +--]] +function TitanPanelBarButton_OnEnter(self) + -- no work to do +end + +--[[ Titan +NAME: TitanPanelBarButtonHider_OnLeave +DESC: No code - this is a place holder for the XML template. +VAR: self - expected to be a Titan bar +OUT: None +--]] +function TitanPanelBarButtonHider_OnLeave(self) + -- no work to do +end + +--[[ Titan +NAME: TitanPanelBarButtonHider_OnEnter +DESC: On entering the hider check if we need to show the display bar. +VAR: self - expected to be a Titan hider bar +OUT: None +NOTE: +- No action is taken if the user is on combat. +:NOTE +--]] +function TitanPanelBarButtonHider_OnEnter(self) + -- make sure self is valid + local index = self and self:GetName() or nil + if not index then return end -- sanity check + + -- so the bar does not 'appear' when moused over in combat + if TitanPanelGetVar("LockAutoHideInCombat") and InCombatLockdown() then return end + + -- find the relevant bar data + local frame = nil + for idx,v in pairs (TitanBarData) do + if index == TitanBarData[idx].hider then + frame = idx + end + end + -- Now process that bar + if frame then + Titan_AutoHide_Timers(frame, "Enter") + TitanPanelBarButton_Show(frame) + end +end + +-------------------------------------------------------------- +-- +-- Titan Bar + +--[[ Titan +NAME: TitanPanelBarButton_ForceLDBLaunchersRight +DESC: Force all plugins created from LDB addons, visible or not, to be on the right side of the Titan bar. Any visible plugin will be forced to the right side on the same bar it is currently on. +VAR: None +OUT: None +--]] +function TitanPanelBarButton_ForceLDBLaunchersRight() + local plugin, index, id; + for index, id in pairs(TitanPluginsIndex) do + plugin = TitanUtils_GetPlugin(id); + if plugin.ldb == "launcher" + and not TitanGetVar(id, "DisplayOnRightSide") then + TitanToggleVar(id, "DisplayOnRightSide"); + local button = TitanUtils_GetButton(id); + local buttonText = _G[button:GetName()..TITAN_PANEL_TEXT]; + if not TitanGetVar(id, "ShowIcon") then + TitanToggleVar(id, "ShowIcon"); + end + TitanPanelButton_UpdateButton(id); + if buttonText then + buttonText:SetText("") + button:SetWidth(16); + TitanPlugins[id].buttonTextFunction = nil; + _G["TitanPanel"..id..TITAN_PANEL_BUTTON_TEXT] = nil; + if button:IsVisible() then + local bar = TitanUtils_GetWhichBar(id) + TitanPanel_RemoveButton(id); + TitanUtils_AddButtonOnBar(bar, id) + end + end + end + end +end + +--[[ local +NAME: TitanAnchors +DESC: Helper to create the 'anchor' frames used by other addons that need to adjust so Titan can be visible. The anchor frames are adjusted depending on which Titan bars the user selects to show. +VAR: None +OUT: None +NOTE: +- TitanPanelTopAnchor - the frame at the bottom of the top bar(s) shown. +- TitanPanelBottomAnchor - the frame at the top of the bottom bar(s) shown. +:NOTE +--]] +local function TitanAnchors() + local anchor_top = TitanMovable_GetPanelYOffset(TITAN_PANEL_PLACE_TOP) + local anchor_bot = TitanMovable_GetPanelYOffset(TITAN_PANEL_PLACE_BOTTOM) + anchor_top = anchor_top <= TITAN_WOW_SCREEN_TOP and anchor_top or TITAN_WOW_SCREEN_TOP + anchor_bot = anchor_bot >= TITAN_WOW_SCREEN_BOT and anchor_bot or TITAN_WOW_SCREEN_BOT + + local top_point, top_rel_to, top_rel_point, top_x, top_y = TitanPanelTopAnchor:GetPoint(TitanPanelTopAnchor:GetNumPoints()) + local bot_point, bot_rel_to, bot_rel_point, bot_x, bot_y = TitanPanelBottomAnchor:GetPoint(TitanPanelBottomAnchor:GetNumPoints()) + top_y = floor(tonumber(top_y) + 0.5) + bot_y = floor(tonumber(bot_y) + 0.5) +--[[ +TitanDebug("Anc top: "..top_y.." bot: "..bot_y +.." a_top: "..anchor_top.." a_bot: "..anchor_bot +) +--]] + if top_y ~= anchor_top then + TitanPanelTopAnchor:ClearAllPoints() + TitanPanelTopAnchor:SetPoint(top_point, top_rel_to, top_rel_point, top_x, anchor_top); + + end + if bot_y ~= anchor_bot then + TitanPanelBottomAnchor:ClearAllPoints() + TitanPanelBottomAnchor:SetPoint(bot_point, bot_rel_to, bot_rel_point, bot_x, anchor_bot) + + end +end + +--[[ Titan +NAME: TitanPanelBarButton_DisplayBarsWanted +DESC: Show all the Titan bars the user has selected. +VAR: None +OUT: None +--]] +function TitanPanelBarButton_DisplayBarsWanted(reason) +--[===[ +print("_DisplayBarsWanted" +.." "..tostring(reason).."" +) +--]===] + -- Check all bars to see if the user has requested they be shown + for idx,v in pairs (TitanBarData) do + -- Show / hide plus kick auto hide, if needed + Titan_AutoHide_Init(idx) + end + + -- Set anchors for other addons to use. + TitanAnchors() +end + +--[[ Titan +NAME: TitanPanelBarButton_HideAllBars +DESC: This routine will hide all the Titan bars (and hiders) regardless of what the user has selected. +VAR: None +OUT: None +NOTE: +- For example when the pet battle is active. We cannot figure out how to move the pet battle frame so we are punting and hiding Titan... +- We only need to hide the bars (and hiders) - not adjust frames +:NOTE +--]] +function TitanPanelBarButton_HideAllBars() + for idx,v in pairs (TitanBarData) do + TitanPanelBarButton_Hide(idx) + end +end + +--[[ Titan +NAME: TitanPanelBarButton_HideTopBars +DESC: This routine will hide the bars Titan bars (and hiders) regardless of what the user has selected. +VAR: None +OUT: None +NOTE: +- For example when the class hall +- We only need to hide the bars (and hiders) - not adjust frames +:NOTE +--]] +function TitanPanelBarButton_HideTopBars() + if TitanBarDataVars[TITAN_PANEL_DISPLAY_PREFIX.."Bar"].show then +-- if TitanPanelGetVar("Bar_Show") then + TitanPanelBarButton_Hide(TITAN_PANEL_DISPLAY_PREFIX.."Bar") + end + if TitanBarDataVars[TITAN_PANEL_DISPLAY_PREFIX.."Bar2"].show then +-- if TitanPanelGetVar("Bar2_Show") then + TitanPanelBarButton_Hide(TITAN_PANEL_DISPLAY_PREFIX.."Bar2") + end +end + +--[[ Titan +NAME: TitanPanelBarButton_HideBottomBars +DESC: This routine will hide the bottom Titan bars (and hiders) regardless of what the user has selected. +VAR: None +OUT: None +NOTE: +- For example when the override bar is being used +- We only need to hide the bars (and hiders) - not adjust frames +:NOTE +--]] +function TitanPanelBarButton_HideBottomBars() + if TitanBarDataVars[TITAN_PANEL_DISPLAY_PREFIX.."AuxBar"].show then +-- if TitanPanelGetVar("AuxBar_Show") then + TitanPanelBarButton_Hide(TITAN_PANEL_DISPLAY_PREFIX.."AuxBar") + end + if TitanBarDataVars[TITAN_PANEL_DISPLAY_PREFIX.."AuxBar2"].show then +-- if TitanPanelGetVar("AuxBar2_Show") then + TitanPanelBarButton_Hide(TITAN_PANEL_DISPLAY_PREFIX.."AuxBar2") + end +end + +local function showBar(frame_str) + -- Conditions where this bar should not be shown... + local flag = true -- only set false for known conditions + + if frame_str == TITAN_PANEL_DISPLAY_PREFIX.."Bar" + or frame_str == TITAN_PANEL_DISPLAY_PREFIX.."Bar2" + then + -- ===== Battleground or Arena : User selected + if (TitanPanelGetVar("HideBarsInPVP")) + and (C_PvP.IsBattleground() + or C_PvP.IsArena() +-- or GetZoneText() == "Stormwind City" +-- or GetZoneText() == "Tempest Keep" + ) + then + flag = false + end + -- ===== In Pet Battle + if C_PetBattles.IsInBattle() + then + flag = false + end + end + + -- ===== In Combat : User selected + if TitanBarDataVars[frame_str].hide_in_combat + or TitanPanelGetVar("HideBarsInCombat") then + if in_combat then -- InCombatLockdown() too slow + flag = false + end + end +--[[ +print("showBar" +--.." "..tostring(C_PetBattles.IsInBattle()).."" +.." > "..tostring(flag).."" +) +--]] + return flag +end + +--[[ Titan +NAME: TitanPanelBarButton_Show +DESC: Show / hide the given Titan bar based on the user selection. +VAR: frame - expected to be a Titan bar name (string) +OUT: None +NOTE: +- Hide moves rather than just 'not shown'. Otherwise the buttons will stay visible defeating the purpose of hide. +:NOTE +--]] +function TitanPanelBarButton_Show(frame) + local display = _G[frame]; + local bar = TitanBarData[frame].name + + if display and TitanBarData[frame].name + then + local x, y, w = TitanVariables_GetBarPos(frame) + local show = TitanBarData[frame].show + local bott = TitanBarData[frame].bott + + -- Show the display bar if the user requested it + -- And there are no conditions preventing... + if TitanBarDataVars[frame].show -- User requested + and showBar(frame) -- No preventing condition + then + display:ClearAllPoints(); +--[===[ +local sx, sy = TitanUtils_ScreenSize(false) +print("TB_Show" +--.." "..tostring(frame).."" +.." "..tostring(bar).."" +.." "..tostring(TitanBarDataVars[frame].show).."" +) +print(">>" +--.." "..tostring(show.pt).."" +--.." "..tostring(show.rel_fr).."" +--.." "..tostring(show.rel_pt).."" +.." x:"..tostring(format("%0.1f", x)).."" +.." y:"..tostring(format("%0.1f", y)).."" +.." w:"..tostring(format("%0.1f", w)).."" +.." sx:"..tostring(format("%0.1f", sx)).."" +.." sy:"..tostring(format("%0.1f", sy)).."" +) +--]===] + if TitanBarData[frame].user_move then + display:SetPoint(show.pt, show.rel_fr, show.rel_pt, x, y) + else + display:SetPoint(show.pt, show.rel_fr, show.rel_pt, x, y) + local h = TITAN_PANEL_BAR_HEIGHT -- / UIParent:GetEffectiveScale() -- adjust scale so it is full height + display:SetPoint(bott.pt, bott.rel_fr, bott.rel_pt, x, y - h) + end + TitanPanel_SetBarTexture(frame) + + if TitanBarData[frame].hider then + _G[TitanBarData[frame].hider]:Hide() + else + -- not allowed for this bar + end + else + -- The user has not elected to show this bar + TitanPanelBarButton_Hide(frame) + end + end +end + +--[[ Titan +NAME: TitanPanelBarButton_Hide +DESC: Hide the given Titan bar based on the user selection. +VAR: frame - expected to be a Titan bar name (string) +OUT: None +NOTE: +- Hide moves rather than just 'not shown'. Otherwise the buttons will stay visible defeating the purpose of hide. +- Also moves the hider bar if auto hide is not selected. +:NOTE +--]] +function TitanPanelBarButton_Hide(frame) + if TITAN_PANEL_MOVING == 1 then return end + + local display = _G[frame] + local data = TitanBarData[frame] + + if display and data + then + local x, y, w = TitanVariables_GetBarPos(frame) + -- This moves rather than hides. If we just hide then the plugins will still show. + -- Hide by ensuriing the Y offset is off the screen. + display:ClearAllPoints() + local h = (math.abs(y) + TITAN_PANEL_BAR_HEIGHT * 2) * (-1 * y) + local h = data.hide_y +--[[ +print("_Hide" +--.." "..tostring(frame).."" +.." "..tostring(data.name).."" +.." "..tostring(TitanBarDataVars[frame].show).."" +.." "..tostring(h).."" +) +--]] + if TitanBarData[frame].user_move then + display:SetPoint(data.show.pt, data.show.rel_fr, data.show.rel_pt, x, h) + else + display:SetPoint(data.show.pt, data.show.rel_fr, data.show.rel_pt, x, h) + display:SetPoint(data.bott.pt, data.bott.rel_fr, data.bott.rel_pt, x, h - TITAN_PANEL_BAR_HEIGHT) + end + + if TitanBarData[frame].hider then + local hider = _G[data.hider] + if TitanBarDataVars[frame].show + and TitanBarDataVars[frame].auto_hide then +-- if (TitanPanelGetVar(data.name.."_Show")) and (TitanPanelGetVar(data.name.."_Hide")) then + -- Auto hide is requested so show the hider bar in the right place + hider:ClearAllPoints(); + hider:SetPoint(data.show.pt, data.show.rel_fr, data.show.rel_pt, x, y); + hider:Show() + else + -- The bar was not requested + hider:Hide() + end + else + -- not allowed for this bar + end + end +end + +--[[ Titan +NAME: TitanPanel_InitPanelButtons +DESC: Show all user selected plugins on the Titan bar(s) then justify per the user selection. +VAR: None +OUT: None +--]] +function TitanPanel_InitPanelButtons() + local button + local r_prior = {} + local l_prior = {} + local scale = TitanPanelGetVar("Scale"); + local button_spacing = TitanPanelGetVar("ButtonSpacing") * scale + local icon_spacing = TitanPanelGetVar("IconSpacing") * scale + + local prior = {} + -- set prior to the starting offsets + -- The right side plugins are set here. + -- Justify adjusts the left side start according to the user setting + -- The effect is left side plugins has spacing on the right side and + -- right side plugins have spacing on the left. + for idx,v in pairs (TitanBarData) do + local bar = TitanBarData[idx].name + local y_off = TitanBarData[idx].plugin_y_offset + prior[bar] = { + right = { + button = TITAN_PANEL_DISPLAY_PREFIX..bar, + anchor = "RIGHT", + x = 5, -- Offset of first plugin to right side of screen + y = y_off, + }, + left = { + button = TITAN_PANEL_DISPLAY_PREFIX..bar, + anchor = "LEFT", + x = 0, -- Justify adjusts - center or not + y = y_off, + }, + } + end +-- + TitanPanelBarButton_DisplayBarsWanted("TitanPanel_InitPanelButtons"); + + -- Position all the buttons + for i = 1, table.maxn(TitanPanelSettings.Buttons) do + + local id = TitanPanelSettings.Buttons[i]; + if ( TitanUtils_IsPluginRegistered(id) ) then + local i = TitanPanel_GetButtonNumber(id); + button = TitanUtils_GetButton(id); + + -- If the plugin has asked to be on the right + if TitanUtils_ToRight(id) then + -- ========================= + -- position the plugin relative to the prior plugin + -- or the bar if it is the 1st + r_prior = prior[TitanPanelSettings.Location[i]].right + -- ========================= + button:ClearAllPoints(); + button:SetPoint("RIGHT", _G[r_prior.button]:GetName(), r_prior.anchor, (-(r_prior.x) * scale), r_prior.y); + + -- ========================= + -- capture the button for the next plugin + r_prior.button = "TitanPanel"..id.."Button" + -- set prior[x] the anchor points and offsets for the next plugin + r_prior.anchor = "LEFT" + r_prior.x = icon_spacing + r_prior.y = 0 + -- ========================= + else + -- handle plugins on the left side of the bar + -- + -- ========================= + -- position the plugin relative to the prior plugin + -- or the bar if it is the 1st + l_prior = prior[TitanPanelSettings.Location[i]].left +--[===[ +print("Bar plugins" +.." "..tostring(i).."" +.." "..tostring(TitanPanelSettings.Location[i]).."" +.." "..tostring(id).."" +) +--]===] + -- ========================= + -- + button:ClearAllPoints(); + button:SetPoint("LEFT", _G[l_prior.button]:GetName(), l_prior.anchor, l_prior.x * scale, l_prior.y); + + -- ========================= + -- capture the next plugin + l_prior.button = "TitanPanel"..id.."Button" + -- set prior[x] (anchor points and offsets) for the next plugin + l_prior.anchor = "RIGHT" + l_prior.x = (button_spacing) + l_prior.y = 0 + -- ========================= + end + button:Show(); + end + end + -- Set panel button init flag + TITAN_PANEL_BUTTONS_INIT_FLAG = 1; + TitanPanelButton_Justify(); +end + +--[[ Titan +NAME: TitanPanel_ReOrder +DESC: Reorder all the shown all user selected plugins on the Titan bar(s). Typically used after a button has been removed / hidden. +VAR: index - the index of the plugin removed so the list can be updated +OUT: None +--]] +function TitanPanel_ReOrder(index) + for i = index, table.getn(TitanPanelSettings.Buttons) do + TitanPanelSettings.Location[i] = TitanPanelSettings.Location[i+1] + end +end + +--[[ Titan +NAME: TitanPanel_RemoveButton +DESC: Remove a plugin then show all the shown all user selected plugins on the Titan bar(s). +VAR: id - the plugin name (string) +OUT: None +NOTE: +- This cancels all timers of name "TitanPanel"..id as a safeguard to destroy any active plugin timers based on a fixed naming convention : TitanPanel..id, eg. "TitanPanelClock" this prevents "rogue" timers being left behind by lack of an OnHide check +:NOTE +--]] +function TitanPanel_RemoveButton(id) + if ( not TitanPanelSettings ) then + return; + end + + local i = TitanPanel_GetButtonNumber(id) + local currentButton = TitanUtils_GetButton(id); + + -- safeguard ... + if id then AceTimer.CancelAllTimers("TitanPanel"..id) end + + TitanPanel_ReOrder(i); + table.remove(TitanPanelSettings.Buttons, TitanUtils_GetCurrentIndex(TitanPanelSettings.Buttons, id)); +--TitanDebug("_Remove: "..(id or "?").." "..(i or "?")) + if currentButton then + currentButton:Hide(); + end + -- Show the existing buttons + TitanPanel_InitPanelButtons(); +end + +--[[ Titan +NAME: TitanPanel_GetButtonNumber +DESC: Get the index of the given plugin from the Titan plugin displayed list. +VAR: id - the plugin name (string) +OUT: index of the plugin in the Titan plugin list or the end of the list. The routine returns +1 if not found so it is 'safe' to update / add to the Location +--]] +function TitanPanel_GetButtonNumber(id) + if (TitanPanelSettings) then + for i = 1, table.getn(TitanPanelSettings.Buttons) do + if(TitanPanelSettings.Buttons[i] == id) then + return i; + end + end + return table.getn(TitanPanelSettings.Buttons)+1; + else + return 0; + end +end + +--[[ Titan +NAME: TitanPanel_RefreshPanelButtons +DESC: Update / refresh each plugin from the Titan plugin list. Used when a Titan option is changed that effects all plugins. +VAR: None +OUT: None +--]] +function TitanPanel_RefreshPanelButtons() + if (TitanPanelSettings) then + for i = 1, table.getn(TitanPanelSettings.Buttons) do + TitanPanelButton_UpdateButton(TitanPanelSettings.Buttons[i], 1); + end + end +end + +--[[ Titan +NAME: TitanPanelButton_Justify +DESC: Justify the plugins on each Titan bar. Used when the user changes the 'center' option on a Titan bar. +VAR: None +OUT: None +--]] +function TitanPanelButton_Justify() + -- Only the left side buttons are justified. + if ( not TITAN_PANEL_BUTTONS_INIT_FLAG or not TitanPanelSettings ) then + return; + end + if InCombatLockdown() then +--TitanDebug("_Justify during combat!!!") + return; + -- Issue 856 where some taint is caused if the plugin size is updated during combat. Seems since Mists was released... + end + + local bar + local y_offset + local firstLeftButton + local scale = TitanPanelGetVar("Scale"); + local button_spacing = TitanPanelGetVar("ButtonSpacing") * scale + local icon_spacing = TitanPanelGetVar("IconSpacing") * scale + local leftWidth = 0; + local rightWidth = 0; + local counter = 0; + local align = 0; + local center_offset = 0; + + -- Look at each bar for plugins. + for idx,v in pairs (TitanBarData) do + bar = TitanBarData[idx].name + y_offset = TitanBarData[idx].plugin_y_offset + x_offset = TitanBarData[idx].plugin_x_offset + firstLeftButton = TitanUtils_GetButton(TitanPanelSettings.Buttons[TitanUtils_GetFirstButtonOnBar (bar, TITAN_LEFT)]) + align = TitanBarDataVars[idx].align --TitanPanelGetVar(bar.."_Align") + leftWidth = 0; + rightWidth = 0; + counter = 0; + -- If there is a plugin on this bar then justify the first button. + -- The other buttons are relative to the first. + if ( firstLeftButton ) then + if ( align == TITAN_PANEL_BUTTONS_ALIGN_LEFT ) then + -- Now offset the plugins + firstLeftButton:ClearAllPoints(); + firstLeftButton:SetPoint("LEFT", idx, "LEFT", x_offset, y_offset); + end + -- Center if requested + if ( align == TITAN_PANEL_BUTTONS_ALIGN_CENTER ) then + leftWidth = 0; + rightWidth = 0; + counter = 0; + -- Calc the total width of the icons so we know where to start + for index, id in pairs(TitanPanelSettings.Buttons) do + local button = TitanUtils_GetButton(id); + if button and button:GetWidth() then + if TitanUtils_GetWhichBar(id) == bar then + if (TitanGetVar(id, "DisplayOnRightSide")) then + rightWidth = rightWidth + + icon_spacing + + button:GetWidth(); + else + counter = counter + 1; + leftWidth = leftWidth + + button_spacing + + button:GetWidth() + end + end + end + end + -- Now offset the plugins on the bar + firstLeftButton:ClearAllPoints(); + -- remove the last spacing otherwise the buttons appear justified too far left + center_offset = (0 - (leftWidth-button_spacing) / 2) + firstLeftButton:SetPoint("LEFT", idx, "CENTER", center_offset, y_offset); + end + end + end +end + +-------------------------------------------------------------- +-- +-- Local routines for Titan menu creation + +local R_ADDONS = "Addons_" +local R_PLUGIN = "Plugin_" +local R_SETTINGS = "Settings" +local R_PROFILE = "Profile_" + +--[[ local +NAME: BuildMainMenu +DESC: Show main Titan (right click) menu. +VAR: None +OUT: None +--]] +local function BuildMainMenu(frame) + local locale_bar = TitanBarData[frame].locale_name + local info = {}; + ----------------- + -- Menu title + TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_TITLE"].." - "..locale_bar); + TitanPanelRightClickMenu_AddSeparator(TitanPanelRightClickMenu_GetDropdownLevel()); + + TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_PLUGINS"]); + + ----------------- + -- Plugin Categories + for index, id in pairs(L["TITAN_PANEL_MENU_CATEGORIES"]) do + info = {}; + info.notCheckable = true + info.text = L["TITAN_PANEL_MENU_CATEGORIES"][index]; + info.value = R_ADDONS .. TITAN_PANEL_BUTTONS_PLUGIN_CATEGORY[index]; + info.hasArrow = 1; + TitanPanelRightClickMenu_AddButton(info); + end + + TitanPanelRightClickMenu_AddSeparator(TitanPanelRightClickMenu_GetDropdownLevel()); + + ----------------- + -- Options - just one button to open the first Titan option screen + info = {}; + info.notCheckable = true + info.text = L["TITAN_PANEL_MENU_CONFIGURATION"]; + info.value = "Bars"; + info.func = function() + TitanUpdateConfig("init") + Settings.OpenToCategory(TITAN_PANEL_CONFIG.topic.About) + end + TitanPanelRightClickMenu_AddButton(info); + + TitanPanelRightClickMenu_AddSeparator(TitanPanelRightClickMenu_GetDropdownLevel()); + + ----------------- + -- Profiles + TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_PROFILES"]); + + ----------------- + -- Load/Delete + info = {}; + info.notCheckable = true + info.text = L["TITAN_PANEL_MENU_MANAGE_SETTINGS"]; + info.value = R_SETTINGS + info.hasArrow = 1; + -- lock this menu in combat + if InCombatLockdown() then + info.disabled = 1; + info.hasArrow = nil; + info.text = info.text.." " + .._G["GREEN_FONT_COLOR_CODE"] + ..L["TITAN_PANEL_MENU_IN_COMBAT_LOCKDOWN"]; + end + TitanPanelRightClickMenu_AddButton(info); + + ----------------- + -- Save + info = {}; + info.notCheckable = true + info.text = L["TITAN_PANEL_MENU_SAVE_SETTINGS"]; + info.value = "SettingsCustom"; + info.func = TitanPanel_SaveCustomProfile; + -- lock this menu in combat + if InCombatLockdown() then + info.disabled = 1; + info.text = info.text.." " + .._G["GREEN_FONT_COLOR_CODE"] + ..L["TITAN_PANEL_MENU_IN_COMBAT_LOCKDOWN"]; + end + TitanPanelRightClickMenu_AddButton(info); + + local glob, toon, player, server = TitanUtils_GetGlobalProfile() + info = {}; + info.text = "Use Global Profile" + info.value = "Use Global Profile" + info.func = function() + TitanUtils_SetGlobalProfile(not glob, toon) + TitanVariables_UseSettings(nil, TITAN_PROFILE_USE) + end; + info.checked = glob --TitanAllGetVar("GlobalProfileUse") + info.keepShownOnClick = nil + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + + TitanPanelRightClickMenu_AddSeparator(TitanPanelRightClickMenu_GetDropdownLevel()); + + ----------------- + -- Hide this bar + info = {}; + info.text = (HIDE or "Hide") + info.value = "HideMe" + info.notCheckable = true + info.arg1 = frame; + info.func = function(self, frame_str) + TitanBarDataVars[frame_str].show = not TitanBarDataVars[frame_str].show + TitanPanelBarButton_DisplayBarsWanted(frame_str.." user clicked Hide") + end + info.keepShownOnClick = nil + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + +end + +--[[ local +NAME: BuildServerProfilesMenu +DESC: Show list of servers / custom submenu off Profiles/Manage from the Titan (right click) menu. +VAR: None +OUT: None +--]] +local function BuildServerProfilesMenu() + local info = {}; + local servers = {}; + local player = nil; + local server = nil; + local s, e, ident; + local setonce = 0; + + if ( TitanPanelRightClickMenu_GetDropdMenuValue() == R_SETTINGS ) then + TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_PROFILE_SERVERS"], + TitanPanelRightClickMenu_GetDropdownLevel()); + -- Normal profile per toon + for index, id in pairs(TitanSettings.Players) do + player, server = TitanUtils_ParseName(index) + + if TitanUtils_GetCurrentIndex(servers, server) == nil then + if server ~= TITAN_CUSTOM_PROFILE_POSTFIX then + table.insert(servers, server); + info = {}; + info.notCheckable = true + info.text = server; + info.value = R_PROFILE..server; + info.hasArrow = 1; + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + end + end + end + -- Custom profiles + for index, id in pairs(TitanSettings.Players) do + player, server = TitanUtils_ParseName(index) + + if TitanUtils_GetCurrentIndex(servers, server) == nil then + if server == TITAN_CUSTOM_PROFILE_POSTFIX then + if setonce and setonce == 0 then + TitanPanelRightClickMenu_AddTitle("", TitanPanelRightClickMenu_GetDropdownLevel()); + TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_PROFILE_CUSTOM"], TitanPanelRightClickMenu_GetDropdownLevel()); + setonce = 1; + end + info = {}; + info.notCheckable = true + info.text = player; + info.value = R_PROFILE..player; + info.hasArrow = 1; + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + end + end + end + end +end + +--[[ local +NAME: TitanPanel_PlayerSettingsMenu +DESC: Show list of toons submenu off Profiles/Manage/<server or custom> from the Titan right click menu. +VAR: None +OUT: None +NOTE: +- There are 2 level 3 menus possible + 1) Under profiles, then value could be the server of a saved toon + 2) Under plugins value could be the options of a plugin +:NOTE +--]] +local function BuildPluginMenu() + -- + local info = {}; + + -- Handle the plugins + + for index, id in pairs(TitanPluginsIndex) do + local plugin = TitanUtils_GetPlugin(id) +-- local _, _, menu_plugin = string.find(TitanPanelRightClickMenu_GetDropdMenuValue(), R_PLUGIN.."(.-)") + local par_val = TitanPanelRightClickMenu_GetDropdMenuValue() + local menu_plugin = string.gsub(par_val, R_PLUGIN, "") +-- if plugin.id and plugin.id == TitanPanelRightClickMenu_GetDropdMenuValue() then + if plugin.id and plugin.id == menu_plugin then + --title + info = {}; + info.text = TitanPlugins[plugin.id].menuText; + info.notCheckable = true + info.notClickable = 1; + info.isTitle = 1; + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + + --ShowIcon + if plugin.controlVariables.ShowIcon then + info = {}; + info.text = L["TITAN_PANEL_MENU_SHOW_ICON"]; + info.value = plugin.id + info.arg1 = plugin.id + info.func = function(self, p_id) -- (self, info.arg1, info.arg2) + TitanPanelRightClickMenu_ToggleVar({p_id, "ShowIcon", nil}) + end + info.keepShownOnClick = 1; + info.checked = TitanGetVar(plugin.id, "ShowIcon"); + info.disabled = nil; + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + end + + --ShowLabel + if plugin.controlVariables.ShowLabelText then + info = {}; + info.text = L["TITAN_PANEL_MENU_SHOW_LABEL_TEXT"]; + info.value = plugin.id + info.arg1 = plugin.id + info.func = function(self, p_id) -- (self, info.arg1, info.arg2) + TitanPanelRightClickMenu_ToggleVar({p_id, "ShowLabelText", nil}) + end + info.keepShownOnClick = 1; + info.checked = TitanGetVar(plugin.id, "ShowLabelText"); + info.disabled = nil; + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + end + + --ShowRegularText (LDB data sources only atm) + if plugin.controlVariables.ShowRegularText then + info = {}; + info.text = L["TITAN_PANEL_MENU_SHOW_PLUGIN_TEXT"] + info.value = plugin.id + info.arg1 = plugin.id + info.func = function(self, p_id) -- (self, info.arg1, info.arg2) + TitanPanelRightClickMenu_ToggleVar({p_id, "ShowRegularText", nil}) + end + info.keepShownOnClick = 1; + info.checked = TitanGetVar(plugin.id, "ShowRegularText"); + info.disabled = nil; + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + end + + --ShowColoredText + if plugin.controlVariables.ShowColoredText then + info = {}; + info.text = L["TITAN_PANEL_MENU_SHOW_COLORED_TEXT"]; + info.value = plugin.id + info.arg1 = plugin.id + info.func = function(self, p_id) -- (self, info.arg1, info.arg2) + TitanPanelRightClickMenu_ToggleVar({p_id, "ShowColoredText", nil}) + end + info.keepShownOnClick = 1; + info.checked = TitanGetVar(plugin.id, "ShowColoredText"); + info.disabled = nil; + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + end + + -- Right-side plugin + if plugin.controlVariables.DisplayOnRightSide then + info = {}; + info.text = L["TITAN_PANEL_MENU_LDB_SIDE"]; + info.value = plugin.id + info.arg1 = plugin.id + info.func = function(self, p_id) -- (self, info.arg1, info.arg2) + TitanToggleVar(p_id, "DisplayOnRightSide", false) + local bar = TitanUtils_GetWhichBar(p_id) + TitanPanel_RemoveButton(p_id); + TitanUtils_AddButtonOnBar(bar, p_id); + end + info.checked = TitanGetVar(plugin.id, "DisplayOnRightSide"); + info.disabled = nil; + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + end + end + end +end + +local function BuildProfileMenu() + -- + local info = {}; + local setonce = 0; + + -- + -- Handle the profiles + -- +-- for index, id in pairs(TitanSettings.Players) do + for idx = 1, #TitanVars.players do + local index = TitanVars.players[idx] + local player, server = TitanUtils_ParseName(index) + local off = (index == TitanSettings.Player) + or ((index == TitanAllGetVar("GlobalProfileUse")) and (TitanAllGetVar("GlobalProfileUse"))) + local par_val = TitanPanelRightClickMenu_GetDropdMenuValue() + local menu_val = string.gsub(par_val, R_PROFILE, "") + + -- handle custom profiles here + if server == TITAN_CUSTOM_PROFILE_POSTFIX + and player == menu_val then + info = {}; + info.notCheckable = true + info.disabled = TitanAllGetVar("GlobalProfileUse") + info.text = L["TITAN_PANEL_MENU_LOAD_SETTINGS"]; + info.value = index; + info.func = function() + TitanVariables_UseSettings(index, TITAN_PROFILE_USE) + end + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + + info = {}; + info.notCheckable = true + info.disabled = off + info.text = L["TITAN_PANEL_MENU_DELETE_SETTINGS"]; + info.value = index; + info.arg1 = index; + info.func = function(self, player) -- (self, info.arg1, info.arg2) + if TitanSettings.Players[player] then + TitanSettings.Players[player] = nil; + profname = TitanUtils_ParseName(index) + TitanPrint( + L["TITAN_PANEL_MENU_PROFILE"] + .." '"..profname.."' " + ..L["TITAN_PANEL_MENU_PROFILE_DELETED"] + , "info") + TitanPanelRightClickMenu_Close(); + end + end + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + end -- if server and player + + -- handle regular profiles here + if server == menu_val then + -- Set the label once + if setonce and setonce == 0 then + TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_PROFILE_CHARS"], TitanPanelRightClickMenu_GetDropdownLevel()); + setonce = 1; + end + info = {}; + info.notCheckable = true + info.text = player; + info.value = index; + info.hasArrow = 1; + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + end + end -- for players +end + +--[[ local +NAME: BuildAProfileMenu +DESC: Show save / load submenu off Profiles/Manage/<server or custom>/<profile> from the Titan (right click) menu. +VAR: None +OUT: None +--]] +local function BuildAProfileMenu() + local info = {}; + + info = {}; + info.notCheckable = true + info.disabled = TitanAllGetVar("GlobalProfileUse") + info.text = L["TITAN_PANEL_MENU_LOAD_SETTINGS"]; + info.value = TitanPanelRightClickMenu_GetDropdMenuValue(); + info.func = function() + TitanVariables_UseSettings(TitanPanelRightClickMenu_GetDropdMenuValue(), TITAN_PROFILE_USE) + end + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + + info = {}; + info.notCheckable = true + info.disabled = (TitanPanelRightClickMenu_GetDropdMenuValue() == TitanSettings.Player) + or ((TitanPanelRightClickMenu_GetDropdMenuValue() == TitanAllGetVar("GlobalProfileName")) + and (TitanAllGetVar("GlobalProfileUse"))) + info.text = L["TITAN_PANEL_MENU_DELETE_SETTINGS"]; + info.value = TitanPanelRightClickMenu_GetDropdMenuValue(); + info.func = function() + -- do not delete if current profile - .disabled + if TitanSettings.Players[info.value] then + TitanSettings.Players[info.value] = nil; + TitanPrint( + L["TITAN_PANEL_MENU_PROFILE"] + .." '"..info.value.."' " + ..L["TITAN_PANEL_MENU_PROFILE_DELETED"] + , "info") + TitanPanelRightClickMenu_Close(); + end + end + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); +end + +--[[ local +NAME: BuildPluginCategoryMenu +DESC: Show the submenu with list of plugin off the category from the Titan (right click) menu. +VAR: None +OUT: None +--]] +local function BuildPluginCategoryMenu(frame) + local info = {}; + local plugin; + + for index, id in pairs(TitanPluginsIndex) do + plugin = TitanUtils_GetPlugin(id); + if not plugin.category then + plugin.category = "General"; + end + if ( TitanPanelRightClickMenu_GetDropdMenuValue() == R_ADDONS .. plugin.category ) then + if not TitanGetVar(id, "ForceBar") + or (TitanGetVar(id, "ForceBar") == TitanBarData[frame].name) then + info = {}; + if plugin.version ~= nil and TitanPanelGetVar("VersionShown") then + info.text = plugin.menuText + ..TitanUtils_GetGreenText(" (v"..plugin.version..")") + else + info.text = plugin.menuText; + end + if plugin.controlVariables then + info.hasArrow = 1; + end + info.value = R_PLUGIN..id; -- for next level dropdown + info.arg1 = frame; + info.arg2 = id; + info.func = function(self, frame_str, plugin_id) -- (self, info.arg1, info.arg2) + -- frame_str is the bar the user clicked to get the menu... + local bar = TitanBarData[frame_str].name + + if TitanPanel_IsPluginShown(plugin_id) then + TitanPanel_RemoveButton(plugin_id); + else + TitanUtils_AddButtonOnBar(bar, plugin_id) + end + end + info.checked = TitanPanel_IsPluginShown(id) or nil + info.keepShownOnClick = 1; + TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); + end + end + end +end + +--[[ Titan +NAME: TitanPanelRightClickMenu_PrepareBarMenu +DESC: This is the controller to show the proper level of the Titan (right click) menu. +VAR: self - expected to be the Tian bar that was right clicked +OUT: None +--]] +function TitanPanelRightClickMenu_PrepareBarMenu(self) + -- Determine which bar was clicked on + -- This MUST match the convention used in TitanPanel.xml to declare + -- the dropdown menu. ($parentRightClickMenu) + local s, e, frame = string.find(self:GetName(), "(.*)RightClickMenu"); + local lev = (TitanPanelRightClickMenu_GetDropdownLevel() or 1) +--[[ +print("_prep R click" +.." "..tostring(frame).."" +.." "..tostring(lev).."" +) +--]] + + -- Level 1 + if lev == 1 then + BuildMainMenu(frame) + end + + -- Level 2 + if ( lev == 2 ) then + if string.find(TitanPanelRightClickMenu_GetDropdMenuValue(), R_ADDONS) then + BuildPluginCategoryMenu(frame) + end + + if ( TitanPanelRightClickMenu_GetDropdMenuValue() == R_SETTINGS ) then + BuildServerProfilesMenu() + end + return; + end + + -- Level 3 + if ( lev == 3 ) then + if string.find(TitanPanelRightClickMenu_GetDropdMenuValue(), R_PLUGIN) then + BuildPluginMenu() + end + if string.find(TitanPanelRightClickMenu_GetDropdMenuValue(), R_PROFILE) then + BuildProfileMenu() + end + return; + end + + -- Level 4 + if ( lev == 4 ) then + BuildAProfileMenu() -- only load / delete profiles for now + return; + end + +end + +--[[ Titan +NAME: TitanPanel_IsPluginShown +DESC: Determine if the given plugin is shown on a Titan bar. The Titan bar could be not shown or on auto hide and the plugin will still be 'shown'. +VAR: id - plugin name (string) +OUT: int - index of the plugin or nil +--]] +function TitanPanel_IsPluginShown(id) + if ( id and TitanPanelSettings ) then + return TitanUtils_TableContainsValue(TitanPanelSettings.Buttons, id); + end +end + +--[[ Titan +NAME: TitanPanel_GetPluginSide +DESC: Determine if the given plugin is or would be on right or left of a Titan bar. This returns right or left regardless of whether the plugin is 'shown'. +VAR: id - plugin name (string) +OUT: string - "Right" or "Left" +--]] +function TitanPanel_GetPluginSide(id) + if ( TitanGetVar(id, "DisplayOnRightSide") ) then + return TITAN_RIGHT; + else + return TITAN_LEFT; + end +end diff --git a/Titan/Titan.toc b/Titan/Titan.toc index 151544f..d57aade 100644 --- a/Titan/Titan.toc +++ b/Titan/Titan.toc @@ -14,9 +14,19 @@ ## X-License: All rights reserved (See license.txt) ## X-WoWI-ID: 8092 -embeds.xml +libs\Ace\LibStub\LibStub.lua +libs\Ace\CallbackHandler-1.0\CallbackHandler-1.0.xml +libs\Ace\AceAddon-3.0\AceAddon-3.0.xml +libs\Ace\AceHook-3.0\AceHook-3.0.xml +libs\Ace\AceTimer-3.0\AceTimer-3.0.xml +libs\Ace\AceGUI-3.0\AceGUI-3.0.xml +libs\Ace\AceConfig-3.0\AceConfig-3.0.xml +libs\Ace\AceLocale-3.0\AceLocale-3.0.xml +libs\Ace\LibSharedMedia-3.0\lib.xml +libs\Ace\AceGUI-3.0-SharedMediaWidgets\widget.xml +libs\Ace\LibQTip-1.0\lib.xml -LibDataBroker-1.1.lua +libs\LibDataBroker-1.1.lua locale\Localization.lua locale\Localization.BR.lua @@ -32,10 +42,11 @@ locale\Localization.TW.lua TitanUtils.lua TitanVariables.lua -TitanPanelTemplate.xml +TitanTemplate.xml +TitanTemplate.lua TitanMovable.lua TitanConfig.lua TitanAutoHide.lua -TitanPanel.xml -TitanPanel.lua -LDBToTitan.lua +Titan.xml +Titan.lua +TitanLDB.lua diff --git a/Titan/TitanLDB.lua b/Titan/TitanLDB.lua new file mode 100644 index 0000000..584a1f5 --- /dev/null +++ b/Titan/TitanLDB.lua @@ -0,0 +1,922 @@ +--[[ File +NAME: LibDataBrokerToTitan.lua +DESC: A "bridge" module to ensure proper registration and communication of LDB plugins with Titan Panel +--]] +--[[ API +NAME: Titan LDB overview +DESC: Titan will automatically convert a LDB type addon to a Titan plugin. +Only LDB types listed in the LDB 1.1 spec are supported. Custom types are not supported. + +Supported type +- "launcher" become "icon" plugins + icon* - always shown + OnClick* - + label^ - + right side^ - default + tooltip +- "data source" become "combo" plugins with icon; a tooltip/Click; and optional label + icon^ - + OnClick - + text*^ - or value & suffix + label^ - + OnEnter - + OnLeave - + tooltip + OnTooltipShow - + +- "macro" become "combo" plugins with icon; a tooltip/Click; and optional label + icon^ - + commandtext^ - + label^ - + OnEnter - + OnLeave - + tooltip + OnTooltipShow - + +* required by LDB spec +^ user controlled show / hide +:DESC +--]] + +--[[ doc +----------------------------------------------------------------- +-- By Titan Dev team +-- Originally by Tristanian aka "TristTitan" as a Titan member +-- Created and initially commited on : July 29th, 2008 +----------------------------------------------------------------- +--]] +local xcategories = { +-- Titan categories mapping to match addon metadata information + ["Combat"] = "Combat", + ["General"] = "General", + ["Information"] = "Information", + ["Interface"] = "Interface", + ["Profession"] = "Profession", +-- Ace2 table mapping to Titan categories in order to match +-- addon metadata information + ["Action Bars"] = "Interface", + ["Auction"] = "Information", + ["Audio"] = "Interface", + ["Battlegrounds/PvP"] = "Information", + ["Buffs"] = "Information", + ["Chat/Communication"] = "Interface", + ["Druid"] = "Information", + ["Hunter"] = "Information", + ["Mage"] = "Information", + ["Paladin"] = "Information", + ["Priest"] = "Information", + ["Rogue"] = "Information", + ["Shaman"] = "Information", + ["Warlock"] = "Information", + ["Warrior"] = "Information", + ["Healer"] = "Information", + ["Tank"] = "Information", + ["Caster"] = "Information", +-- ["Combat"] = "Combat", + ["Compilations"] = "General", + ["Data Export"] = "General", + ["Development Tools "] = "General", + ["Guild"] = "Information", + ["Frame Modification"] = "Interface", + ["Interface Enhancements"] = "Interface", + ["Inventory"] = "Information", + ["Library"] = "General", + ["Map"] = "Interface", + ["Mail"] = "Information", + ["Miscellaneous"] = "General", + ["Misc"] = "General", + ["Quest"] = "Information", + ["Raid"] = "Information", + ["Tradeskill"] = "Profession", + ["UnitFrame"] = "Interface", +} +local LAUNCHER = "launcher" +local DATA_SOURCE = "data source" +local SupportedDOTypes = {DATA_SOURCE, LAUNCHER, "macro"} -- in the 1.1 spec + +-- constants & variables +local CALLBACK_PREFIX = "LibDataBroker_AttributeChanged_" +local NAME_PREFIX = "" --"LDBT_" +local _G = getfenv(0); +local InCombatLockdown = _G.InCombatLockdown; +-- Create control frame so we can get events +local LDBToTitan = CreateFrame("Frame", "LDBTitan") +local ldb = LibStub:GetLibrary("LibDataBroker-1.1") +local Tablet, LibQTip = nil, nil +local media = LibStub("LibSharedMedia-3.0") +-- generic icon in case the DO does not provide one +local iconTitanDefault = "Interface\\PVPFrame\\\PVP-ArenaPoints-Icon"; + +-- Events we want for LDBToTitan +LDBToTitan:RegisterEvent("PLAYER_LOGIN") +--LDBToTitan:RegisterEvent("PLAYER_ENTERING_WORLD") + +local function If_Show_Tooltip() + local use_mod = TitanAllGetVar("UseTooltipModifer") + local use_alt = TitanAllGetVar("TooltipModiferAlt") + local use_ctrl = TitanAllGetVar("TooltipModiferCtrl") + local use_shift = TitanAllGetVar("TooltipModiferShift") + local ok = false + local tmp_txt = "" + if use_mod then + if (use_alt and IsAltKeyDown()) + or (use_ctrl and IsControlKeyDown()) + or (use_shift and IsShiftKeyDown()) + then + ok = true + end + else + ok = true + end + return ok +end + +--[[ Titan +NAME: LDBToTitan:TitanLDBSetOwnerPosition +DESC: Properly anchor tooltips of the Titan (LDB) plugin +VAR: parent +VAR: anchorPoint +VAR: relativeToFrame +VAR: relativePoint +VAR: xOffset +VAR: yOffset +VAR: frame +--]] +function LDBToTitan:TitanLDBSetOwnerPosition(parent, anchorPoint, relativeToFrame, relativePoint, xOffset, yOffset, frame) + if frame:GetName() == "GameTooltip" then + -- Changes for 9.1.5 Removed the background template from the GameTooltip + -- Making changes to it difficult and possibly changing the tooltip globally. + + frame:SetOwner(parent, "ANCHOR_NONE"); + + -- set font size for the Game Tooltip + if not TitanPanelGetVar("DisableTooltipFont") then + if TitanTooltipScaleSet < 1 then + TitanTooltipOrigScale = GameTooltip:GetScale(); + TitanTooltipScaleSet = TitanTooltipScaleSet + 1; + end + frame:SetScale(TitanPanelGetVar("TooltipFont")); + end + end + frame:ClearAllPoints(); + frame:SetPoint(anchorPoint, relativeToFrame, relativePoint, xOffset, yOffset); +end + +--[[ Titan +NAME: LDBToTitan:TitanLDBSetTooltip +DESC: Fill in the tooltip for the Titan (LDB) plugin +VAR: name - Titan id of the plugin +VAR: frame - tooltip frame +VAR: func - tooltip function to be run +OUT: None +--]] +function LDBToTitan:TitanLDBSetTooltip(name, frame, func) +-- Check to see if we allow tooltips to be shown + if not TitanPanelGetVar("ToolTipsShown") + or (TitanPanelGetVar("HideTipsInCombat") and InCombatLockdown()) then + return + end + + local button = TitanUtils_GetButton(name); + local scale = TitanPanelGetVar("Scale"); + local offscreenX, offscreenY; + local i = TitanPanel_GetButtonNumber(name); + local bar = TITAN_PANEL_DISPLAY_PREFIX..TitanUtils_GetWhichBar(name) + local vert = TitanBarData[bar].vert + -- Get TOP or BOTTOM for the anchor and relative anchor + local rel_pt, pt + if vert == TITAN_TOP then + pt = "TOP" + rel_pt = "BOTTOM" + else + pt = "BOTTOM" + rel_pt = "TOP" + end + + if _G[bar] then + self:TitanLDBSetOwnerPosition(button, pt.."LEFT", button:GetName(), + rel_pt.."LEFT", -10, 0, frame); -- y 4 * scale + -- Adjust frame position if it's off the screen + offscreenX, offscreenY = TitanUtils_GetOffscreen(frame); + if ( offscreenX == -1 ) then + self:TitanLDBSetOwnerPosition(button, pt.."LEFT", bar, + rel_pt.."LEFT", 0, 0, frame); + elseif ( offscreenX == 1 ) then + self:TitanLDBSetOwnerPosition(button, pt.."RIGHT", bar, + rel_pt.."RIGHT", 0, 0, frame); + end + else + end + + if func and If_Show_Tooltip() then func(frame) end; -- TODO: use pcall?? + frame:Show(); +end + +--[[ Titan +NAME: LDBToTitan:TitanLDBHandleScripts +DESC: Script Handler for the Titan (LDB) plugin +VAR: event - event to process +VAR: name - id of the plugin +VAR: _ - not used +VAR: func - function to be run +VAR: obj - LDB object +OUT: None +NOTE: +- This implementation will work fine for a static tooltip but may have implications for dynamic ones so for now, we'll only set it once (no callback) and see what happens +:NOTE +--]] +function LDBToTitan:TitanLDBHandleScripts(event, name, _, func, obj) + local TitanPluginframe = _G["TitanPanel"..NAME_PREFIX..name.."Button"]; + + -- tooltip + if event:find("tooltip") and not event:find("OnTooltipShow") then + local pluginframe = _G[obj.tooltip] or obj.tooltip + if pluginframe then + TitanPluginframe:SetScript("OnEnter", function(self) + TitanPanelButton_OnEnter(self); + LDBToTitan:TitanLDBSetTooltip(NAME_PREFIX..name, pluginframe, nil) + end + ) + + TitanPluginframe:SetScript("OnMouseDown", function(self) + pluginframe:Hide(); + end + ) + + if pluginframe:GetScript("OnLeave") then + -- do nothing + else + TitanPluginframe:SetScript("OnLeave", function(self) + if obj.OnLeave then + obj.OnLeave(self) + end + pluginframe:Hide(); + TitanPanelButton_OnLeave(self); + end + ) + end + + if pluginframe:GetName()~="GameTooltip" then + if pluginframe:GetScript("OnShow") then + -- do nothing + else + pluginframe:SetScript("OnShow", function(self) + LDBToTitan:TitanLDBSetTooltip(NAME_PREFIX..name, pluginframe, nil) + end + ) + end + end + end + + -- OnTooltipShow + elseif event:find("OnTooltipShow") then + TitanPluginframe:SetScript("OnEnter", function(self) + if TITAN_PANEL_MOVING == 0 and func then + LDBToTitan:TitanLDBSetTooltip(NAME_PREFIX..name, GameTooltip, func); + end + TitanPanelButton_OnEnter(self); + end + ) + TitanPluginframe:SetScript("OnLeave", function(self) + GameTooltip:Hide(); + TitanPanelButton_OnLeave(self); + end + ) + + -- OnDoubleClick + elseif event:find("OnDoubleClick") and not event:find("OnClick") then + TitanPluginframe:SetScript("OnDoubleClick", function(self, button) + if TITAN_PANEL_MOVING == 0 then + func(self, button) + end + end + ) + + -- OnClick + elseif event:find("OnClick") then + TitanPluginframe:SetScript("OnClick", function(self, button) + if TITAN_PANEL_MOVING == 0 then + func(self, button) + end + -- implement a safeguard, since the DO may actually use + -- Blizzy dropdowns ! + if not TitanPanelRightClickMenu_IsVisible() then + TitanPanelButton_OnClick(self, button); + else + TitanUtils_CloseAllControlFrames(); + end + end + ) + -- OnEnter + else + TitanPluginframe:SetScript("OnEnter", function(self) + -- Check for tooltip libs without embedding them + if AceLibrary and AceLibrary:HasInstance("Tablet-2.0") then + Tablet = AceLibrary("Tablet-2.0") + end + LibQTip = LibStub("LibQTip-1.0", true) + -- Check to see if we allow tooltips to be shown + if not TitanPanelGetVar("ToolTipsShown") + or (TitanPanelGetVar("HideTipsInCombat") and InCombatLockdown()) then + -- if a plugin is using tablet, then detach and close the tooltip + if Tablet and Tablet:IsRegistered(TitanPluginframe) + and Tablet:IsAttached(TitanPluginframe) then + Tablet:Detach(TitanPluginframe); + Tablet:Close(TitanPluginframe); + end + return; + else + -- if a plugin is using tablet, then re-attach the tooltip + -- (it will auto-open on mouseover) + if Tablet and Tablet:IsRegistered(TitanPluginframe) + and not Tablet:IsAttached(TitanPluginframe) then + Tablet:Attach(TitanPluginframe); + end + end + -- if a plugin is using tablet then set its transparency + -- and font size accordingly + if Tablet and Tablet:IsRegistered(TitanPluginframe) then + Tablet:SetTransparency(TitanPluginframe, TitanPanelGetVar("TooltipTrans")) + if not TitanPanelGetVar("DisableTooltipFont") then + Tablet:SetFontSizePercent(TitanPluginframe, TitanPanelGetVar("TooltipFont")) + elseif TitanPanelGetVar("DisableTooltipFont") + and Tablet:GetFontSizePercent(TitanPluginframe)~=1 then + Tablet:SetFontSizePercent(TitanPluginframe, 1) + end + end + -- set original tooltip scale for GameTooltip + if not TitanPanelGetVar("DisableTooltipFont") then + TitanTooltipOrigScale = GameTooltip:GetScale(); + end + -- call OnEnter on LDB Object + if TITAN_PANEL_MOVING == 0 and func and If_Show_Tooltip() then + func(self) + end + + TitanPanelButton_OnEnter(self); + -- LibQTip-1.0 support code + if LibQTip then + local tt = nil + local key, tip + for key, tip in LibQTip:IterateTooltips() do + if tip then + local _, relativeTo = tip:GetPoint() + if relativeTo + and relativeTo:GetName() == TitanPluginframe:GetName() then + tt = tip + break + end + end + end + if tt then + -- set transparency + local red, green, blue, _ = tt:GetBackdropColor() + local red2, green2, blue2, _ = tt:GetBackdropBorderColor() + tt:SetBackdropColor(red,green,blue, + TitanPanelGetVar("TooltipTrans")) + tt:SetBackdropBorderColor(red2,green2,blue2, + TitanPanelGetVar("TooltipTrans")) + end + end + -- /LibQTip-1.0 support code + end + ) + + -- OnLeave + TitanPluginframe:SetScript("OnLeave", function(self) + if obj.OnLeave then + obj.OnLeave(self) + end + TitanPanelButton_OnLeave(self); + end + ) + end +end + +--[[ Titan +NAME: LDBToTitan:TitanLDBTextUpdate +DESC: Text callback for the Titan (LDB) plugin when the LDB addon changes display text of the LDB object +VAR: _ - not used +VAR: name - id of the plugin +VAR: event - event to process +VAR: attr - LDB obj attribute (field) that changed +VAR: value - new value of attr +VAR: dataobj - LDB object +OUT: None +--]] +function LDBToTitan:TitanLDBTextUpdate(_, name, attr, value, dataobj) + -- just in case the LDB is active before Titan can register it... + if not Titan__InitializedPEW then + -- plugins have not been registered yet. + return + end + -- This check is overkill but just in case... + local plugin = TitanUtils_GetPlugin(NAME_PREFIX..name) + local ldb = plugin and plugin.LDBVariables + if not ldb then + -- This plugin has not been registered + return + end + + -- Accept the various display elements and update the Titan plugin + if attr == "value" then ldb.value = value end + if attr == "suffix" then ldb.suffix = value end + if attr == "text" then ldb.text = value end + if attr == "label" then ldb.label = value end + + -- Now update the button with the change + TitanPanelButton_UpdateButton(NAME_PREFIX..name) +end + +--[[ Titan +NAME: TitanLDBShowText +DESC: Text callback for the Titan (LDB) plugin when the LDB addon changes display text +VAR: name - id of the plugin +OUT: label of text to show +OUT: text to show +--]] +function TitanLDBShowText(name) + -- Set 'label1' and 'value1' for the Titan button display + local nametrim = string.gsub (name, "LDBT_", ""); + local fontstring = _G["TitanPanel"..NAME_PREFIX..nametrim..TITAN_PANEL_BUTTON_TEXT]; + local separator = ": " + local lab1, val1 = "", "" + local plugin = TitanUtils_GetPlugin(name) + local ldb = plugin and plugin.LDBVariables + + if ldb then -- sanity check + -- Check for display label + if TitanGetVar(name, "ShowLabelText") then + lab1 = (ldb.label or "") + else + lab1 = "" + end + + if lab1 == "" then + -- leave alone + else + lab1 = lab1..separator + end + + -- Check for display text + -- Check for display text + -- .text is required to show + -- .value is the text of the value - 100.0 in 100.0 FPS + -- .suffix is the text after the value - FPS in 100.0 FPS + if TitanGetVar(name, "ShowRegularText") then + val1 = (ldb.text or "") + else + val1 = "" + end + else + -- return values will be empty strings + end + + if lab1 == "" then + lab1 = nil + else + lab1 = TitanUtils_GetNormalText(lab1) + end + if val1 == "" then + val1 = nil + else + val1 = TitanGetVar(name, "ShowColoredText") + and TitanUtils_GetGreenText(val1) or TitanUtils_GetHighlightText(val1) + end + return lab1, val1 +end + +--[[ Titan +NAME: LDBToTitan:TitanLDBTextUpdate +DESC: Icon callback for the Titan (LDB) plugin when the LDB addon changes the icon of the LDB object +VAR: _ - not used +VAR: name - id of the plugin +VAR: attr - LDB obj attribute (field) that changed +VAR: value - new value of attr +VAR: dataobj - LDB object +OUT: None +--]] +function LDBToTitan:TitanLDBIconUpdate(_, name, attr, value, dataobj) + -- just in case the LDB is active before Titan can register it... + if not Titan__InitializedPEW then + -- no plugins are registered yet + return + end + -- This check is overkill but just in case... + local plugin = TitanUtils_GetPlugin(NAME_PREFIX..name) + local ldb = plugin and plugin.LDBVariables + if not ldb then + -- This plugin is not registered yet + return + end + + if attr == "icon" then + TitanPlugins[NAME_PREFIX..name].icon = value; + TitanPanelButton_SetButtonIcon(NAME_PREFIX..name); + end + + -- support for iconCoords, iconR, iconG, iconB attributes + if attr == "iconCoords" then + TitanPanelButton_SetButtonIcon(NAME_PREFIX..name, value); + end + + if attr == "iconR" or attr == "iconB" or attr == "iconG" then + TitanPanelButton_SetButtonIcon(NAME_PREFIX..name, nil, + dataobj.iconR, dataobj.iconG, dataobj.iconB); + end +end + +--[[ Titan +NAME: TitanLDBRefreshButton +DESC: Refresh all text & icon for LDB addons that were successfully registered +VAR: None +OUT: None +NOTE: +- Ensure all the LDB buttons are updated. +- This is called once x seconds after PEW. This helps close the gap where LDB addons set their text on their PEW event +:NOTE +--]] +function TitanLDBRefreshButton() +-- TitanDebug("LDB: RefreshButton") + for name, obj in ldb:DataObjectIterator() do + if obj then + local unused = nil + LDBToTitan:TitanLDBTextUpdate(unused, name, "text", (obj.text or ""), obj) + LDBToTitan:TitanLDBIconUpdate(unused, name, "icon", (obj.icon or iconTitanDefault), obj) + else +-- TitanDebug("LDB: '"..name.."' no refresh") + end + end +end + +--[[ Titan +NAME: LDBToTitan:TitanLDBCreateObject +DESC: New DO (Data Object) gets created here +VAR: _ - not used +VAR: name - id of the plugin +VAR: obj - LDB object +OUT: None +NOTE: +- This is the heart of the LDB to Titan. It reads the LDB DO (Data Object)and creates a Titan plugin. +- This takes a stricter interpretation of the LDB 1.1 spec rather than guessing what LDB addon developers intended. +:NOTE +--]] +function LDBToTitan:TitanLDBCreateObject(_, name, obj) + if TITAN_PANEL_VARS.debug.ldb_setup then + TitanDebug(tostring(name).." Attempting to register "); + end + + -- couple sanity checks + if not obj or not name then + if TITAN_PANEL_VARS.debug.ldb_setup then + TitanDebug("LDB request to create Titan plugin was unrecognizable!!!!"); + end + return + end + + -- anything to pass to the developer / user + local notes = "" + + -- sanity check for supported types + obj.type = obj.type or "Unknown" + local supported = false -- assume failure + for idx in ipairs(SupportedDOTypes) do + if obj.type and obj.type == SupportedDOTypes[idx] then + supported = true + end + end + if supported then + -- all is good - continue plugin creation + else + -- Create enough of a plugin to tell the user / developer + -- that this plugin failed miserably + local issue = "Unsupported LDB type '"..tostring(obj.type).."'" + local plugin = + { + self = nil, + button = nil, + isChild = nil, + name = (name or "?"), + issue = issue, + notes = "", + status = TITAN_REGISTER_FAILED, + category = "", + plugin_type = (obj.type or ""), + } + TitanUtils_PluginFail(plugin) + if TITAN_PANEL_VARS.debug.ldb_setup then + TitanDebug(TITAN_REGISTER_FAILED.." "..issue); + end + return -- get out, there is nothing more that can be done + end + + -- + -- Handle the display attributes of the DO and register the appropriate callbacks + -- + -- Init the display elements of the plugin + local ldb__label = obj.label or "" + local ldb__suffix = obj.suffix or "" + local ldb__value = obj.value or "" + local ldb__text = obj.text or "" + local ldb__icon = obj.icon or iconTitanDefault + + -- if .icon exists honor it and assume the addon may change it + if obj.icon then + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_icon", "TitanLDBIconUpdate") + end + + -- LAUNCHER text display elements + if obj.type == LAUNCHER then + if obj.label then + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_label", "TitanLDBTextUpdate") + elseif obj.text then + -- This is a 'be nice' check. It technically violates the 1.1 spec. + -- Blank the .text so the rest of the routines work + ldb__label = obj.text + obj.text = "" + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_text", "TitanLDBTextUpdate") + notes = notes.."\n" + .."This is a LDB '"..LAUNCHER + .."' without .label using .text instead!!!!" + end + end + if Titan__InitializedPEW then + notes = notes.."\n" + .."Will be registered as single LDB plugin after the normal registration." + end + -- DATA_SOURCE text display elements + if obj.type == DATA_SOURCE then + -- .text so always allow it + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_text", "TitanLDBTextUpdate") + if obj.label then + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_label", "TitanLDBTextUpdate") + end + if obj.suffix then + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_suffix", "TitanLDBTextUpdate") + end + if obj.value then + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_value", "TitanLDBTextUpdate") + end + end + + -- + -- These are icon extensions listed within the 1.1 spec + -- + -- support for iconCoords, iconR, iconG, iconB attributes + -- Due to the callbacks being fired these can easily affect + -- performance, BEWARE when using them ! + -- + -- capture the icon coords & color for the Titan plugin + if obj.iconCoords then + self:TitanLDBIconUpdate(nil, name, "iconCoords", obj.iconCoords, obj) + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_iconCoords", "TitanLDBIconUpdate") + end + if obj.iconR and obj.iconG and obj.iconB then + self:TitanLDBIconUpdate(nil, name, "iconR", obj.iconR, obj) + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_iconR", "TitanLDBIconUpdate") + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_iconG", "TitanLDBIconUpdate") + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_iconB", "TitanLDBIconUpdate") + end + + -- + -- Setup the Titan plugin for this LDB addon + -- + + -- Create the appropriate Titan registry for the DO + local registry = { + id = NAME_PREFIX..name, + ldb = tostring(obj.type), + -- per 1.1 spec if .label exists use it else use data object's name + menuText = obj.label or name, + buttonTextFunction = "TitanLDBShowText", + icon = ldb__icon, + iconWidth = 16, + controlVariables = { + ShowIcon = true, + ShowLabelText = true, + ShowRegularText = false, + ShowColoredText = false, + DisplayOnRightSide = true + }, + savedVariables = { + ShowIcon = true, + ShowLabelText = true, + ShowRegularText = true, + ShowColoredText = false, + DisplayOnRightSide = false + }, + LDBVariables = { + value = ldb__value, + suffix = ldb__suffix, + text = ldb__text, + label = ldb__label, + name = name, + type = (obj.type or ""), + }, + notes = notes, + iconCoords = (obj.iconCoords or nil), + iconR = (obj.iconR or nil), + iconB = (obj.iconB or nil), + iconG = (obj.iconG or nil), + }; + + if TITAN_PANEL_VARS.debug.ldb_setup then + TitanDebug("" + .." type: '"..tostring(registry.ldb).."' " + ) + end + + -- Set the plugin category, if it exists, else default to "General" + -- Per the 1.1 LDB spec we check for a tocname attrib first, + -- if found we use it, if not we assume that the DO "name" + -- attribute is the same as the actual + -- addon name, which might not always be the case. + -- Titan defaults again to "General" if no categoy is found + -- via a check in the menu implementation, later on. + local addoncategory, addonversion; + local tempname = obj.tocname or name; + + -- This was a sanity check but does not allow for multiple + -- LDB to be within an addon yet act as their own addon. +-- if IsAddOnLoaded(tempname) then + addoncategory = GetAddOnMetadata(tempname, "X-Category"); + registry["category"]= (addoncategory and xcategories[addoncategory]) + or (obj.category) + or nil + addonversion = GetAddOnMetadata(tempname, "Version") + or (obj.version) + or "" + registry["version"]= addonversion; +-- end + + -- Depending on the LDB type set the control and saved Variables appropriately + if obj.type == LAUNCHER then + -- controls + -- one interpretation of the LDB spec is launchers + -- should always have an icon. + registry["controlVariables"].ShowIcon = true; + registry["controlVariables"].ShowRegularText = false; -- no text + -- defaults + registry["savedVariables"].ShowRegularText = false; + registry["savedVariables"].DisplayOnRightSide = true; -- start on right side + end + + if obj.type == DATA_SOURCE then + -- controls + registry["controlVariables"].ShowRegularText = true; + -- defaults + registry["savedVariables"].ShowRegularText = true; + end + + -- + -- Create the Titan frame for this LDB addon + -- Titan _OnLoad will be used to request the plugin be registered by Titan + local newTitanFrame -- a frame + if obj.type == "macro" then -- custom + newTitanFrame = CreateFrame("Button", + "TitanPanel"..NAME_PREFIX..name.."Button", + UIParent, "TitanPanelComboTemplate") +-- UIParent, "SecureActionButtonTemplate, TitanPanelComboTemplate") + newTitanFrame:RegisterForClicks("AnyUp", "AnyDown") + newTitanFrame:SetMouseClickEnabled(true) + newTitanFrame:SetAttribute("type", "macro") +-- newTitanFrame:SetAttribute("macro", obj.commandtext) + newTitanFrame:SetAttribute("macrotext", obj.commandtext) + newTitanFrame:SetScript("OnClick", function(self, button, down) + SecureUnitButton_OnClick(self, button, down) + --TitanPanelBarButton_OnClick(self, button) + end) +--[[ +print("LDB macrotext" +.." "..tostring(obj.commandtext).."" +) +--]] + if TITAN_PANEL_VARS.debug.ldb_setup then + TitanDebug("" + .." macrotext cmd: '"..tostring(obj.commandtext).."' " + ) + end + else + newTitanFrame = CreateFrame("Button", + "TitanPanel"..NAME_PREFIX..name.."Button", + UIParent, "TitanPanelComboTemplate") + end + + newTitanFrame.TitanCreatedBy = "LDB" + newTitanFrame.TitanType = "macro" + newTitanFrame.TitanName = (name or "?") + newTitanFrame.TitanAction = (obj.commandtext or "None") + + newTitanFrame.registry = registry + newTitanFrame:SetFrameStrata("FULLSCREEN"); + newTitanFrame:SetToplevel(true); + newTitanFrame:RegisterForClicks("LeftButtonUp", "RightButtonUp"); + + -- Use the routines given by the DO in this precedence + -- tooltip > OnEnter > OnTooltipShow > + -- or register a callback in case it is created later. Per the 1.1 LDB spec + if obj.tooltip then + self:TitanLDBHandleScripts("tooltip", name, nil, obj.tooltip, obj) + elseif obj.OnEnter then + self:TitanLDBHandleScripts("OnEnter", name, nil, obj.OnEnter, obj) + elseif obj.OnTooltipShow then + self:TitanLDBHandleScripts("OnTooltipShow", name, nil, obj.OnTooltipShow, obj) + else + self:TitanLDBHandleScripts("OnEnter", name, nil, nil, obj) + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_OnEnter", "TitanLDBHandleScripts") + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_OnTooltipShow", "TitanLDBHandleScripts") + end + + -- Use the OnClick given by the DO + -- or register a callback in case it is created later. + if obj.OnClick then + self:TitanLDBHandleScripts("OnClick", name, nil, obj.OnClick) + else + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_OnClick", "TitanLDBHandleScripts") + end + + -- + -- OnDoubleClick is UNDOCUMENTED in the 1.1 spec + -- but was implemented by the original developer + -- + -- Use the OnDoubleClick given by the DO + -- or register a callback in case it is created later. + if obj.OnDoubleClick then + self:TitanLDBHandleScripts("OnDoubleClick", name, nil, obj.OnDoubleClick) + else + ldb.RegisterCallback(self, + CALLBACK_PREFIX..name.."_OnDoubleClick", "TitanLDBHandleScripts") + end + + if TITAN_PANEL_VARS.debug.ldb_setup then + TitanDebug("" + .." id: '"..tostring(registry.id).."' " + .." type: '"..tostring(registry.ldb).."' " + .." type: '"..tostring(registry.ldb).."' " + ) + end + if TITAN_PANEL_VARS.debug.ldb_setup then + TitanDebug("" + .." id: '"..tostring(registry.id).."' " + .." registered" + ) + end + + -- If plugins have already been registered and loaded then get this one loaded + -- This works because the .registry is now set + if Titan__InitializedPEW then +--[[ +print("LDB late" +.." id: '"..tostring(registry.id).."' " +) +--]] + TitanUtils_RegisterPluginList() +-- TitanPanel_PlayerEnteringWorld() + end +end + +--[[ Titan +NAME: LDBToTitan:SetScript +DESC: OnEvent handler for LDBToTitan +VAR: event - string +VAR: function +OUT: None +NOTE: +- PLAYER_LOGIN - Read through all the LDB object created so far and create cooresponding Titan plugins. +:NOTE +--]] +LDBToTitan:SetScript("OnEvent", function(self, event, ...) + if (event == "PLAYER_LOGIN") then + self:UnregisterEvent("PLAYER_LOGIN") + -- In case a LDB plugin is created later... + ldb.RegisterCallback(self, + "LibDataBroker_DataObjectCreated", "TitanLDBCreateObject") + + -- Register the LDB plugins that have been created so far + for name, obj in ldb:DataObjectIterator() do + self:TitanLDBCreateObject(nil, name, obj) + --TitanDebug("Registered "..name.."."); + end + end + +--[[ + if (event == "PLAYER_ENTERING_WORLD") then + self:UnregisterEvent("PLAYER_ENTERING_WORLD") + end +--]] +end +) \ No newline at end of file diff --git a/Titan/TitanPanel.lua b/Titan/TitanPanel.lua deleted file mode 100644 index e364fb2..0000000 --- a/Titan/TitanPanel.lua +++ /dev/null @@ -1,2188 +0,0 @@ ---[[ File -NAME: TitanPanel.lua -DESC: Contains the basic routines of Titan. All the event handler routines, initialization routines, Titan menu routines, and select plugin handler routines. ---]] - --- Locals -local TPC = TITAN_PANEL_CONSTANTS -- shortcut -local TITAN_PANEL_BUTTONS_INIT_FLAG = nil; - -local TITAN_PANEL_FROM_TOP = -25; -local TITAN_PANEL_FROM_BOTTOM = 25; -local TITAN_PANEL_FROM_BOTTOM_MAIN = 1; -local TITAN_PANEL_FROM_TOP_MAIN = 1; - -local _G = getfenv(0); -local InCombatLockdown = _G.InCombatLockdown; -local IsTitanPanelReset = nil; -local new_toon = false - --- Library references -local L = LibStub("AceLocale-3.0"):GetLocale(TITAN_ID, true) -local AceTimer = LibStub("AceTimer-3.0") -local media = LibStub("LibSharedMedia-3.0") -local AceConfigDialog = LibStub("AceConfigDialog-3.0") - --- TitanDebug (cmd.." : "..p1.." "..p2.." "..p3.." "..#cmd_list) - --------------------------------------------------------------- --- -function TitanPanel_OkToReload() - StaticPopupDialogs["TITAN_RESET_RELOAD"] = { - text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]) - .."\n\n"..L["TITAN_PANEL_RESET_WARNING"], - button1 = ACCEPT, - button2 = CANCEL, - OnAccept = function(self) - ReloadUI() - end, - showAlert = 1, - timeout = 0, - whileDead = 1, - hideOnEscape = 1 - }; - StaticPopup_Show("TITAN_RESET_RELOAD"); -end - ---[[ Titan -NAME: TitanPanel_ResetToDefault -DESC: Give the user a 'are you sure'. If the user accepts then reset current toon back to default Titan settings. -VAR: None -OUT: None -NOTE: -- Even if the user was using global profiles they will not when this is done. -:NOTE ---]] -function TitanPanel_ResetToDefault() - StaticPopupDialogs["TITAN_RESET_BAR"] = { - text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]) - .."\n\n"..L["TITAN_PANEL_RESET_WARNING"], - button1 = ACCEPT, - button2 = CANCEL, - OnAccept = function(self) - TitanVariables_UseSettings(TitanSettings.Player, TITAN_PROFILE_RESET); - IsTitanPanelReset = true; - ReloadUI() - end, - showAlert = 1, - timeout = 0, - whileDead = 1, - hideOnEscape = 1 - }; - StaticPopup_Show("TITAN_RESET_BAR"); -end - ---[[ Titan -NAME: TitanPanel_SaveCustomProfile -DESC: The user wants to save a custom Titan profile. Show the user the dialog boxes to make it happen. -VAR: None -OUT: None -NOTE: -- The profile is written to the Titan saved variables. A reload of the UI is needed to ensure the profile is written to disk for the user to load later. -:NOTE ---]] -function TitanPanel_SaveCustomProfile() - -- Create the dialog box code we'll need... - - -- helper to actually write the profile to the Titan saved vars - local function Write_profile(name) - local currentprofilevalue, _, _ = TitanUtils_GetPlayer() - local profileName = TitanUtils_CreateName(name, TITAN_CUSTOM_PROFILE_POSTFIX) - TitanSettings.Players[profileName] = - TitanSettings.Players[currentprofilevalue] - TitanPrint(L["TITAN_PANEL_MENU_PROFILE_SAVE_PENDING"] - .."'"..name.."'" - , "info") - end - -- helper to ask the user to overwrite a profile - local function Overwrite_profile(name) - local dialogFrame = - StaticPopup_Show("TITAN_OVERWRITE_CUSTOM_PROFILE", name); - if dialogFrame then - dialogFrame.data = name; - end - end - -- helper to handle getting the profile name from the user - local function Get_profile_name(self) - local rawprofileName = self.editBox:GetText(); - -- remove any spaces the user may have typed in the name - local conc2profileName = string.gsub( rawprofileName, " ", "" ); - if conc2profileName == "" then return; end - -- no '@' is allowed or it will mess with the Titan profile naming convention - local concprofileName = string.gsub( conc2profileName, TITAN_AT, "-" ); - local profileName = TitanUtils_CreateName(concprofileName, TITAN_CUSTOM_PROFILE_POSTFIX) - if TitanSettings.Players[profileName] then - -- Warn the user of an existing profile - Overwrite_profile(rawprofileName) - self:Hide(); - return; - else - -- Save the requested profile - Write_profile(rawprofileName) - self:Hide(); - StaticPopup_Show("TITAN_RELOADUI"); - end - end - -- Dialog box to warn the user that the UI will be reloaded - -- This ensures the profile is written to disk - StaticPopupDialogs["TITAN_RELOADUI"] = { - text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]).."\n\n" - ..L["TITAN_PANEL_MENU_PROFILE_RELOADUI"], - button1 = "OKAY", - OnAccept = function(self) - ReloadUI(); -- ensure profile is written to disk - end, - showAlert = 1, - whileDead = 1, - timeout = 0, - }; - - -- Dialog box to warn the user that an existing profile will be overwritten. - StaticPopupDialogs["TITAN_OVERWRITE_CUSTOM_PROFILE"] = { - text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]).."\n\n" - ..L["TITAN_PANEL_MENU_PROFILE_ALREADY_EXISTS"], - button1 = ACCEPT, - button2 = CANCEL, - OnAccept = function(self, data) - Write_profile(data) - self:Hide(); - StaticPopup_Show("TITAN_RELOADUI"); - end, - showAlert = 1, - whileDead = 1, - timeout = 0, - hideOnEscape = 1 - }; - - -- Dialog box to save the profile. - StaticPopupDialogs["TITAN_SAVE_CUSTOM_PROFILE"] = { - text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]).."\n\n" - ..L["TITAN_PANEL_MENU_PROFILE_SAVE_CUSTOM_TITLE"], - button1 = ACCEPT, - button2 = CANCEL, - hasEditBox = 1, - maxLetters = 20, - OnAccept = function(self) - -- self refers to this frame with the Accept button - Get_profile_name(self) - end, - OnShow = function(self) - self.editBox:SetFocus(); - end, - OnHide = function(self) - self.editBox:SetText(""); - end, - EditBoxOnEnterPressed = function(self) - -- We need to get the parent because self refers to the edit box. - Get_profile_name(self:GetParent()) - end, - EditBoxOnEscapePressed = function(self) - self:GetParent():Hide(); - end, - timeout = 0, - exclusive = 1, - whileDead = 1, - hideOnEscape = 1 - }; - - StaticPopup_Show("TITAN_SAVE_CUSTOM_PROFILE"); - - -- Can NOT cleanup. Execution does not stop when a dialog box is invoked! --- StaticPopupDialogs["TITAN_RELOADUI"] = {} --- StaticPopupDialogs["TITAN_OVERWRITE_CUSTOM_PROFILE"] = {} --- StaticPopupDialogs["TITAN_SAVE_CUSTOM_PROFILE"] = {} - -end - ---[[ Titan -NAME: TitanSetPanelFont -DESC: Set or change the font and font size of text on the Titan bar. This affects ALL plugins. -VAR: fontname - The text name of the font to use. Defaults to Titan default if none given. -VAR: fontsize - The size of the font to use. Defaults to Titan default if none given. -OUT: None -NOTE: -- Each registered plugin will have its font updated. Then all plugins will be refreshed to show the new font. -:NOTE ---]] -function TitanSetPanelFont(fontname, fontsize) - -- a couple of arg checks to avoid unpleasant things... - if not fontname then fontname = TPC.FONT_NAME end - if not fontsize then fontsize = TPC.FONT_SIZE end - local index,id; - local newfont = media:Fetch("font", fontname) - for index, id in pairs(TitanPluginsIndex) do - local button = TitanUtils_GetButton(id); - local buttonText = _G[button:GetName()..TITAN_PANEL_TEXT]; - if buttonText then - buttonText:SetFont(newfont, fontsize); - end - -- account for plugins with child buttons - local childbuttons = {button:GetChildren()}; - for _, child in ipairs(childbuttons) do - if child then - local bname = _G[child:GetName()] - if bname then - local childbuttonText = _G[child:GetName()..TITAN_PANEL_TEXT]; - if childbuttonText then - childbuttonText:SetFont(newfont, fontsize); - end - end - end - end - end - TitanPanel_RefreshPanelButtons(); -end - - ---[[ local -NAME: TitanPanel_CreateABar -DESC: Helper to add scripts to the Titan bar passed in. -VAR: frame - The frame name (string) of the Titan bar to create -OUT: None -NOTE: -- This also creates the hider bar in case the user want to use auto hide. -:NOTE ---]] -local function TitanPanel_CreateABar(frame) - if frame then - local bar_name = TitanBarData[frame].name - local bar_width = TitanBarData[frame].width - - if bar_name then - -- Set script handlers for display - _G[frame]:RegisterForClicks("LeftButtonUp", "RightButtonUp"); - _G[frame]:SetScript("OnEnter", function(self) TitanPanelBarButton_OnEnter(self) end) - _G[frame]:SetScript("OnLeave", function(self) TitanPanelBarButton_OnLeave(self) end) - _G[frame]:SetScript("OnClick", function(self, button) TitanPanelBarButton_OnClick(self, button) end) - _G[frame]:SetWidth(bar_width) - - local hide_name = TitanBarData[frame].hider - if hide_name then - -- Set script handlers for display - _G[hide_name]:RegisterForClicks("LeftButtonUp", "RightButtonUp"); - _G[hide_name]:SetScript("OnEnter", function(self) TitanPanelBarButtonHider_OnEnter(self) end) - _G[hide_name]:SetScript("OnLeave", function(self) TitanPanelBarButtonHider_OnLeave(self) end) - _G[hide_name]:SetScript("OnClick", function(self, button) TitanPanelBarButton_OnClick(self, button) end) - - _G[hide_name]:SetFrameStrata("BACKGROUND") - _G[hide_name]:SetWidth(bar_width) - _G[hide_name]:SetHeight(TITAN_PANEL_BAR_HEIGHT/2); - end - - -- Set the display bar - local container = _G[frame] - container:SetHeight(TITAN_PANEL_BAR_HEIGHT); - -- Set local identifier - local container_text = _G[frame.."_Text"] - if container_text then -- was used for debug/creating of the independent bars - container_text:SetText(tostring(bar_name)) - -- for now show it - container:Show() - end - end - else - end -end - --------------------------------------------------------------- -_G[TITAN_PANEL_CONTROL]:RegisterEvent("ADDON_LOADED"); --- --- Event routine : redirects to TitanPanelBarButton:<registered event> routines below. -_G[TITAN_PANEL_CONTROL]:SetScript("OnEvent", function(_, event, ...) - _G[TITAN_PANEL_CONTROL][event](_G[TITAN_PANEL_CONTROL], ...) -end) - - ---[[ Titan -NAME: TitanPanel_PlayerEnteringWorld -DESC: Do all the setup needed when a user logs in / reload UI / enter or leave an instance. -VAR: None -OUT: None -NOTE: -- This is called after the 'player entering world' event is fired by Blizz. -- This is also used when a LDB plugin is created after Titan runs the 'player entering world' code. -:NOTE ---]] -function TitanPanel_PlayerEnteringWorld(reload) ---[[ -print("PEW" -.." "..tostring(Titan__InitializedPEW).."" -) ---]] - if Titan__InitializedPEW then - -- Currently no additional steps needed - else - -- Get Profile and Saved Vars - new_toon = TitanVariables_InitTitanSettings(); - if TitanAllGetVar("Silenced") then - -- No header output - else - TitanPrint("", "header") - end - - if not ServerTimeOffsets then - ServerTimeOffsets = {}; - end - if not ServerHourFormat then - ServerHourFormat = {}; - end - - -- Set the two anchors in their default positions - -- until the Titan bars are drawn - TitanPanelTopAnchor:ClearAllPoints(); - TitanPanelTopAnchor:SetPoint("TOPLEFT", "UIParent", "TOPLEFT", 0, 0); - TitanPanelBottomAnchor:ClearAllPoints(); - TitanPanelBottomAnchor:SetPoint("BOTTOMLEFT", "UIParent", "BOTTOMLEFT", 0, 0); - - -- Ensure the bars are created before the plugins are registered. - for idx, v in pairs (TitanBarData) do - TitanPanelButton_CreateBar(idx) - end - Titan_AutoHide_Create_Frames() - - local realmName = GetRealmName() - - if ServerTimeOffsets[realmName] then - TitanSetVar(TITAN_CLOCK_ID, "OffsetHour", ServerTimeOffsets[realmName]) - elseif TitanGetVar(TITAN_CLOCK_ID, "OffsetHour") then - ServerTimeOffsets[realmName] = TitanGetVar(TITAN_CLOCK_ID, "OffsetHour") - end - - if ServerHourFormat[realmName] then - TitanSetVar(TITAN_CLOCK_ID, "Format", ServerHourFormat[realmName]) - elseif TitanGetVar(TITAN_CLOCK_ID, "Format") then - ServerHourFormat[realmName] = TitanGetVar(TITAN_CLOCK_ID, "Format") - end - - -- Check to see if we should kill off the OrderHallCommandBar - if not TitanAllGetVar("OrderHall") then - local TitanPanelAce = LibStub("AceAddon-3.0"):NewAddon("TitanPanelOHCB", "AceHook-3.0") - TitanPanelAce:SecureHook("OrderHall_CheckCommandBar", - function() - if OrderHallCommandBar then - OrderHallCommandBar:Hide() - OrderHallCommandBar:UnregisterAllEvents() - OrderHallCommandBar.Show = function () end - end - end - ) - else - local TitanPanelAce = LibStub("AceAddon-3.0"):NewAddon("TitanPanelOHCB", "AceHook-3.0") - TitanPanelAce:Unhook("OrderHall_CheckCommandBar") - end - - end - local _ = nil - TitanSettings.Player,_,_ = TitanUtils_GetPlayer() - -- Some addons wait to create their LDB component or a Titan addon could - -- create additional buttons as needed. - -- So we need to sync their variables and set them up - TitanUtils_RegisterPluginList() - - -- Init detailed settings only after plugins are registered! - local profile_action = nil - if new_toon then - profile_action = TITAN_PROFILE_RESET - else - profile_action = TITAN_PROFILE_INIT - end - - TitanVariables_UseSettings(nil, profile_action) - - -- all addons are loaded so update the config (options) - -- some could have registered late... - TitanUpdateConfig("init") - - -- Init panel font - local isfontvalid = media:IsValid("font", TitanPanelGetVar("FontName")) - if isfontvalid then - TitanSetPanelFont(TitanPanelGetVar("FontName"), TitanPanelGetVar("FontSize")) - else - -- if the selected font is not valid, revert to default (Friz Quadrata TT) - TitanPanelSetVar("FontName", TPC.FONT_NAME); - TitanSetPanelFont(TPC.FONT_NAME, TitanPanelGetVar("FontSize")) - end - - -- Init panel frame strata - TitanVariables_SetPanelStrata(TitanPanelGetVar("FrameStrata")) - - -- Titan Panel has initialized its variables and registered plugins. - -- Allow Titan - and others - to adjust the bars - Titan__InitializedPEW = true - - -- Move frames --- TitanMovable_SecureFrames() - - -- Also sync LDB object text with their created Titan plugin - TitanLDBRefreshButton() -end - --------------------------------------------------------------- --- --- Event handlers --- ---[===[ - local WoWClassicEra, WoWClassicTBC, WoWWOTLKC, WoWRetail - if wowversion < 20000 then - WoWClassicEra = true - elseif wowversion < 30000 then - WoWClassicTBC = true - elseif wowversion < 40000 then - WoWWOTLKC = true - elseif wowversion > 90000 then - WoWRetail = true - else - -- n/a - end ---]===] -function TitanPanelBarButton:ADDON_LOADED(addon) - if addon == TITAN_ID then - -- Determine WoW TOC Version - local wowversion = select(4, GetBuildInfo()) - if wowversion >= 100000 then -- Initialize Titan - -- Event registration - _G[TITAN_PANEL_CONTROL]:RegisterEvent("PLAYER_ENTERING_WORLD"); - _G[TITAN_PANEL_CONTROL]:RegisterEvent("CVAR_UPDATE"); - _G[TITAN_PANEL_CONTROL]:RegisterEvent("PLAYER_LOGOUT"); - - -- For the pet battle - for now we'll hide the Titan bars... - -- Cannot seem to move the 'top' part of the pet battle frame. - _G[TITAN_PANEL_CONTROL]:RegisterEvent("PET_BATTLE_OPENING_START"); - _G[TITAN_PANEL_CONTROL]:RegisterEvent("PET_BATTLE_CLOSE"); - - -- Hide Titan bars in combat (global or per bar); may be useful when using Short bars - _G[TITAN_PANEL_CONTROL]:RegisterEvent("PLAYER_REGEN_ENABLED"); - _G[TITAN_PANEL_CONTROL]:RegisterEvent("PLAYER_REGEN_DISABLED"); - - -- User request to hide Top bar(s) in BG or arena; more areas later? - _G[TITAN_PANEL_CONTROL]:RegisterEvent("ZONE_CHANGED"); - _G[TITAN_PANEL_CONTROL]:RegisterEvent("ZONE_CHANGED_INDOORS"); - _G[TITAN_PANEL_CONTROL]:RegisterEvent("ZONE_CHANGED_NEW_AREA"); - else - -- User loaded wrong Titan version; tried to use retail on Classic or Classic Era - -- Could save the user grief; Titan could mangle the saved vars on a version mismatch. - TitanPrint("Titan did not initialize!!!!" - , "error") - TitanPrint("This version needs API released with " - .." "..tostring(EXPANSION_NAME9).."" - .." (10.00.xx)" - , "error") - end - -- Unregister event - saves a few event calls. - self:UnregisterEvent("ADDON_LOADED"); - self.ADDON_LOADED = nil - end -end - -function TitanPanelBarButton:PLAYER_ENTERING_WORLD(arg1, arg2) - local call_success = nil - local ret_val = nil - ---[[ -print("PLAYER_ENTERING_WORLD" -.." "..tostring(arg1).."" -.." "..tostring(arg2).."" -) ---]] - call_success, -- needed for pcall - ret_val = -- actual return values - pcall (TitanPanel_PlayerEnteringWorld, arg2) - -- pcall does not allow errors to propagate out. Any error - -- is returned as text with the success / fail. - -- Think of it as sort of a try - catch block - if call_success then - -- Titan initialized properly - else - -- something really bad occured... - TitanPrint("Titan could not initialize!!!! Cleaning up...", "error") - TitanPrint("--"..ret_val, "error") - -- Clean up best we can and tell the user to submit a ticket. - -- This could be the 1st log in or a reload (reload, instance, boat, ...) - - -- Hide the bars. At times they are there but at 0% transparency. - -- They can be over the Blizz action bars creating havoc. - TitanPrint("-- Hiding Titan bars...", "warning") - TitanPanelBarButton_HideAllBars() - - -- Remove the options pages - TitanUpdateConfig("nuke") - -- What else to clean up??? - - -- raise the error to WoW for display, if display errors is set. - -- This *must be* the last statement of the routine! - error(ret_val, 1) - end -end - -function TitanPanelBarButton:CVAR_UPDATE(cvarname, cvarvalue) - if cvarname == "USE_UISCALE" - or cvarname == "WINDOWED_MODE" - or cvarname == "uiScale" then - if TitanPlayerSettings and TitanPanelGetVar("Scale") then - TitanPanel_InitPanelBarButton() -- TitanPanel_SetScale() - end - end -end - -function TitanPanelBarButton:PLAYER_LOGOUT() - if not IsTitanPanelReset then - -- for debug - if TitanPanelRegister then - TitanPanelRegister.ToBe = TitanPluginToBeRegistered - TitanPanelRegister.ToBeNum = TitanPluginToBeRegisteredNum - TitanPanelRegister.TitanPlugins = TitanPlugins - end - end - Titan__InitializedPEW = nil -end - -function TitanPanelBarButton:ZONE_CHANGED() - TitanPanelBarButton_DisplayBarsWanted("ZONE_CHANGED") -end - -function TitanPanelBarButton:ZONE_CHANGED_INDOORS() - TitanPanelBarButton_DisplayBarsWanted("ZONE_CHANGED_INDOORS") -end - -function TitanPanelBarButton:ZONE_CHANGED_NEW_AREA() - TitanPanelBarButton_DisplayBarsWanted("ZONE_CHANGED_NEW_AREA") -end - -function TitanPanelBarButton:PET_BATTLE_OPENING_START() ---print("PET_BATTLE_OPENING_START") - TitanPanelBarButton_DisplayBarsWanted("PET_BATTLE_OPENING_START") - -- Hide all bars and hiders --- TitanPanelBarButton_HideAllBars() -end - -function TitanPanelBarButton:PET_BATTLE_CLOSE() ---print("PET_BATTLE_CLOSE") - TitanPanelBarButton_DisplayBarsWanted("PET_BATTLE_CLOSE") -end - -local in_combat = false -- seems InCombatLockdown may not be set fast enough to reliably hide bars... -function TitanPanelBarButton:PLAYER_REGEN_ENABLED() - in_combat = false - TitanPanelBarButton_DisplayBarsWanted("PLAYER_REGEN_ENABLED") -end - -function TitanPanelBarButton:PLAYER_REGEN_DISABLED() - in_combat = true - TitanPanelBarButton_DisplayBarsWanted("PLAYER_REGEN_DISABLED") -end --- - ---[[ Titan -NAME: TitanPanelBarButton_OnClick -DESC: Handle the button clicks on any Titan bar. -VAR: self - expected to be a Titan bar -VAR: button - which mouse button was clicked -OUT: None -NOTE: -- This only reacts to the right or left mouse click without modifiers. -- Used in the set script for the Titan display and hider frames -:NOTE ---]] -function TitanPanelBarButton_OnClick(self, button) - -- ensure that the right-click menu will not appear on "hidden" bottom bar(s) ---[[ -print("_OnClick" -.." "..tostring(bar).."" -) ---]] - if (button == "LeftButton") then - TitanUtils_CloseAllControlFrames(); - TitanUtils_CloseRightClickMenu(); - elseif (button == "RightButton") then - TitanUtils_CloseAllControlFrames(); - TitanPanelRightClickMenu_Close(); - -- Show RightClickMenu anyway - TitanPanelRightClickMenu_Toggle(self) - end -end - --- --- Slash command handler --- ---[[ local -NAME: TitanPanel_ParseSlashCmd -DESC: Helper to parse the user commands. -VAR: cmd - user string from the command 'window' -OUT: table - table of 'words' the user typed in -NOTE: -- each 'word' in words table is made lower case for comparison simplicity -:NOTE ---]] -local function TitanPanel_ParseSlashCmd(cmd) - local words = {} - for w in string.gmatch (cmd, "%w+") do - words [#words + 1] = (w and string.lower(w) or "?") - end ---[[ - local tmp = "" - for idx,v in pairs (words) do - tmp = tmp.."'"..words[idx].."' " - end - - TitanDebug (tmp.." : "..#words) ---]] - return words -end - ---[[ local -NAME: handle_slash_help -DESC: Helper to tell the user the relevant Titan commands. -VAR: cmd - string 'all' | 'reset' | 'gui' | 'silent' -OUT: None -NOTE: -- Depending on cmd put to chat the appropriate help -:NOTE ---]] -local function handle_slash_help(cmd) - cmd = cmd or "all" - - -- Give the user the general help if we can not figure out what they want - TitanPrint("", "header") - -- Cannot count registered plugins after initial registration TitanUtils_RegisterPluginList() - - if cmd == "reset" then - TitanPrint(L["TITAN_PANEL_SLASH_RESET_0"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_RESET_1"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_RESET_2"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_RESET_3"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_RESET_4"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_RESET_5"], "plain") - end - if cmd == "gui" then - TitanPrint(L["TITAN_PANEL_SLASH_GUI_0"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_GUI_1"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_GUI_2"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_GUI_3"], "plain") - end - if cmd == "profile" then - TitanPrint(L["TITAN_PANEL_SLASH_PROFILE_0"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_PROFILE_1"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_PROFILE_2"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_PROFILE_3"], "plain") - end - if cmd == "silent" then - TitanPrint(L["TITAN_PANEL_SLASH_SILENT_0"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_SILENT_1"], "plain") - end - if cmd == "orderhall" then - TitanPrint(L["TITAN_PANEL_SLASH_ORDERHALL_0"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_ORDERHALL_1"], "plain") - end - if cmd == "help" then - TitanPrint(L["TITAN_PANEL_SLASH_HELP_0"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_HELP_1"], "plain") - end - if cmd == "all" then - TitanPrint(L["TITAN_PANEL_SLASH_ALL_0"], "plain") - TitanPrint(L["TITAN_PANEL_SLASH_ALL_1"], "plain") - end -end - ---[[ local -NAME: handle_reset_cmds -DESC: Helper to execute the various reset commands from the user. -VAR: cmd_list - A table containing the list of 'words' the user typed in -OUT: None ---]] -local function handle_reset_cmds(cmd_list) - local cmd = cmd_list[1] - local p1 = cmd_list[2] or nil - -- sanity check - if (not cmd == "reset") then - return - end - - if p1 == nil then - TitanPanel_ResetToDefault(); - elseif p1 == "tipfont" then - TitanPanelSetVar("TooltipFont", 1); - GameTooltip:SetScale(TitanPanelGetVar("TooltipFont")); - TitanPrint(L["TITAN_PANEL_SLASH_RESP1"], "info") - elseif p1 == "tipalpha" then - TitanPanelSetVar("TooltipTrans", 1); - local red, green, blue, _ = GameTooltip:GetBackdropColor(); - local red2, green2, blue2, _ = GameTooltip:GetBackdropBorderColor(); - GameTooltip:SetBackdropColor(red,green,blue,TitanPanelGetVar("TooltipTrans")); - GameTooltip:SetBackdropBorderColor(red2,green2,blue2,TitanPanelGetVar("TooltipTrans")); - TitanPrint(L["TITAN_PANEL_SLASH_RESP2"], "info") - elseif p1 == "panelscale" then - if not InCombatLockdown() then - TitanPanelSetVar("Scale", 1); - TitanPanel_InitPanelBarButton() -- TitanPanel_SetScale() - TitanPrint(L["TITAN_PANEL_SLASH_RESP3"], "info") - else - TitanPrint(L["TITAN_PANEL_MENU_IN_COMBAT_LOCKDOWN"], "warning") - end - elseif p1 == "spacing" then - TitanPanelSetVar("ButtonSpacing", 20); - TitanPanel_InitPanelButtons(); - TitanPrint(L["TITAN_PANEL_SLASH_RESP4"], "info") - else - handle_slash_help("reset") - end -end - ---[[ local -NAME: handle_giu_cmds -DESC: Helper to execute the gui related commands from the user. -VAR: cmd_list - A table containing the list of 'words' the user typed in -OUT: None ---]] -local function handle_giu_cmds(cmd_list) - local cmd = cmd_list[1] - local p1 = cmd_list[2] or nil - -- sanity check - if (not cmd == "gui") then - return - end - --- DF changed how options are called. The best I get is the Titan 'about', not deeper. - Settings.OpenToCategory(TITAN_PANEL_CONFIG.topic.About, TITAN_PANEL_CONFIG.topic.scale) --- so the below does not work as expected... - -end - ---[[ local -NAME: handle_profile_cmds -DESC: Helper to execute the profile related commands from the user. -VAR: cmd_list - A table containing the list of 'words' the user typed in -OUT: None ---]] -local function handle_profile_cmds(cmd_list) - local cmd = cmd_list[1] - local p1 = cmd_list[2] or nil - local p2 = cmd_list[3] or nil - local p3 = cmd_list[4] or nil - -- sanity check - if (not cmd == "profile") then - return - end - - if p1 == "use" and p2 and p3 then - if TitanAllGetVar("GlobalProfileUse") then - TitanPrint(L["TITAN_PANEL_GLOBAL_ERR_1"], "info") - else - TitanVariables_UseSettings(TitanUtils_CreateName(p2, p3), TITAN_PROFILE_USE) - end - else - handle_slash_help("profile") - end -end - ---[[ local -NAME: handle_silent_cmds -DESC: Helper to execute the silent commands from the user. -VAR: cmd_list - A table containing the list of 'words' the user typed in -OUT: None ---]] -local function handle_silent_cmds(cmd_list) - local cmd = cmd_list[1] - local p1 = cmd_list[2] or nil - -- sanity check - if (not cmd == "silent") then - return - end - - if TitanAllGetVar("Silenced") then - TitanAllSetVar("Silenced", false); - TitanPrint(L["TITAN_PANEL_MENU_SILENT_LOAD"].." ".. L["TITAN_PANEL_MENU_DISABLED"], "info") - else - TitanAllSetVar("Silenced", true); - TitanPrint(L["TITAN_PANEL_MENU_SILENT_LOAD"].." ".. L["TITAN_PANEL_MENU_ENABLED"], "info") - end -end - ---[[ local -NAME: handle_orderhall_cmds -DESC: Helper to execute the orderhall commands from the user. -VAR: cmd_list - A table containing the list of 'words' the user typed in -OUT: None ---]] -local function handle_orderhall_cmds(cmd_list) - local cmd = cmd_list[1] - local p1 = cmd_list[2] or nil - -- sanity check - if (not cmd == "orderhall") then - return - end - - if TitanAllGetVar("OrderHall") then - TitanAllSetVar("OrderHall", false); - TitanPrint(L["TITAN_PANEL_MENU_HIDE_ORDERHALL"].." ".. L["TITAN_PANEL_MENU_ENABLED"], "info") - StaticPopupDialogs["TITAN_RELOAD"] = { - text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]).."\n\n" - ..L["TITAN_PANEL_RELOAD"], - button1 = ACCEPT, - button2 = CANCEL, - OnAccept = function(self) - ReloadUI(); - end, - showAlert = 1, - timeout = 0, - whileDead = 1, - hideOnEscape = 1 - }; - StaticPopup_Show("TITAN_RELOAD"); - else - TitanAllSetVar("OrderHall", true); - TitanPrint(L["TITAN_PANEL_MENU_HIDE_ORDERHALL"].." ".. L["TITAN_PANEL_MENU_DISABLED"], "info") - StaticPopupDialogs["TITAN_RELOAD"] = { - text = TitanUtils_GetNormalText(L["TITAN_PANEL_MENU_TITLE"]).."\n\n" - ..L["TITAN_PANEL_RELOAD"], - button1 = ACCEPT, - button2 = CANCEL, - OnAccept = function(self) - ReloadUI(); - end, - showAlert = 1, - timeout = 0, - whileDead = 1, - hideOnEscape = 1 - }; - StaticPopup_Show("TITAN_RELOAD"); - end -end - ---[[ local -NAME: handle_help_cmds -DESC: Helper to execute the help commands from the user. -VAR: cmd_list - A table containing the list of 'words' the user typed in -OUT: None ---]] -local function handle_help_cmds(cmd_list) - local cmd = cmd_list[1] - local p1 = cmd_list[2] or nil - -- sanity check - if (not cmd == "help") then - return - end - - handle_slash_help(p1 or "all") -end - ---[[ local -NAME: TitanPanel_RegisterSlashCmd -DESC: Helper to parse and execute all the Titan slash commands from the user. -VAR: cmd - The command (string) the user typed in -OUT: None ---]] -local function TitanPanel_RegisterSlashCmd(cmd_str) - local cmd_list = {} - -- parse what the user typed - cmd_list = TitanPanel_ParseSlashCmd(cmd_str) - local cmd = cmd_list[1] or "" - local p1 = cmd_list[2] or "" - local p2 = cmd_list[3] or "" - local p3 = cmd_list[4] or "" - - if (cmd == "reset") then - handle_reset_cmds(cmd_list) - elseif (cmd == "gui") then - handle_giu_cmds(cmd_list) - elseif (cmd == "profile") then - handle_profile_cmds(cmd_list) - elseif (cmd == "silent") then - handle_silent_cmds(p1) - elseif (cmd == "orderhall") then - handle_orderhall_cmds(p1) - elseif (cmd == "help") then - handle_slash_help(p1) - else - handle_slash_help("all") - end -end - --------------------------------------------------------------- --- --- Register slash commands for Titan Panel -SlashCmdList["TitanPanel"] = TitanPanel_RegisterSlashCmd; -SLASH_TitanPanel1 = "/titanpanel"; -SLASH_TitanPanel2 = "/titan"; - --------------------------------------------------------------- --- --- Texture routines -local function Set_Color(frame, tex, color) - ---[[ -print("_Set bar color" -.." "..tostring(TitanBarData[frame].tex_name).."" ---.." "..tostring(tex:GetName()).."" -.." "..tostring(format("%0.1f", color.r)).."" -.." "..tostring(format("%0.1f", color.g)).."" -.." "..tostring(format("%0.1f", color.b)).."" -.." "..tostring(format("%0.1f", color.alpha)).."" -) ---]] - _G[frame]:SetBackdrop({ - bgFile="Interface\\Tooltips\\UI-Tooltip-Background", --- edgeFile="Interface\\Tooltips\\UI-Tooltip-Border", --- edgeFile="Interface\\DialogFrame\\UI-DialogBox-Gold-Border", - edgeFile="Interface\\Glues\\Common\\TextPanel-Border", - tile = true, - tileEdge = true, --- insets = { left = 1, right = 1, top = 1, bottom = 1 }, - tileSize = 8, - edgeSize = 8, - }) - - _G[frame]:SetBackdropBorderColor( - TOOLTIP_DEFAULT_COLOR.r, - TOOLTIP_DEFAULT_COLOR.g, - TOOLTIP_DEFAULT_COLOR.b); - _G[frame]:SetBackdropColor( - color.r, - color.g, - color.b, - color.alpha); ---[[ - -- Apply the texture to the bar, using the system repeat to fill it - tex:SetColorTexture( - color.r, - color.g, - color.b, - color.alpha - ) - tex:SetAllPoints() - tex:SetHorizTile(true) -- ensures repeat; 'smears' if not sest to true - tex:SetVertTile(true) -- ensures image is 'full' height of frame ---]] -end - -local function Set_Skin(frame, tex, skin) - -- Use the texture / skin per user selectable options - - -- skins are in two parts - top & bottom... - -- TODO : have Short bars choose top or bottom skin?? - local edge = "" - if TitanBarData[frame].vert == TITAN_BOTTOM - then - edge = TITAN_BOTTOM - else - edge = TITAN_TOP - end - - -- Apply the texture to the bar, using the system repeat to fill it - local texture_file = skin.path.."TitanPanelBackground"..edge.."0" ---[[ -print("_Skin" -.." "..tostring(TitanBarData[frame].tex_name.."" ---.." "..tostring(tex:GetName()).."" -.." "..tostring(skin.path).."" ---.."\n "..tostring(edge).."" ---.." "..tostring(skin.alpha).."" ---.."\n "..tostring(tex:GetTexture()).."" -) ---]] ---[[ -- appears seeting image this way just smears image... - _G[frame]:SetBackdrop({ - bgFile=texture_file, --- edgeFile=nil, - tile = true, --- tileSize = 256, --- tileEdge = true, --- insets = { left = 1, right = 1, top = 1, bottom = 1 }, --- tileSize = 8, --- edgeSize = 8, - }) ---]] - tex:SetAllPoints() - tex:SetHorizTile(true) -- ensures repeat; 'smears' if not sest to true - tex:SetTexture(texture_file, "REPEAT") - tex:SetVertTile(true) -- ensures image is 'full' height of frame --- tex:SetHeight(TITAN_PANEL_BAR_TEXTURE_HEIGHT) -- leaves a gap if used - tex:SetAlpha(skin.alpha) -end - -function TitanPanel_SetBarTexture(frame) - if frame and TitanBarData[frame] then - -- proceed - else - return - end - - -- Create the path & file name to the texture - local tex = TitanBarData[frame].tex_name - if _G[tex] then - titanTexture = _G[tex] - else - titanTexture = _G[frame]:CreateTexture(tex, "BACKGROUND") - end - titanTexture:SetTexture() - _G[frame]:SetBackdrop({ - bgFile="", - }) - ---[[ -print("_Tex" -.." "..tostring(TitanBarData[frame].name).."" ---.." "..tostring(tex).."" -.." "..tostring(titanTexture:GetName()).."" ---.." "..tostring(skin.path).."" ---.."\n "..tostring(edge).."" ---.." "..tostring(skin.alpha).."" ---.."\n "..tostring(tex:GetTexture()).."" -.." "..tostring(TitanBarDataVars["Global"].texure).."" -.." "..tostring(TitanBarDataVars[frame].texure).."" -) ---]] - -- Use the texture / skin per user selectable options - if TitanBarDataVars["Global"].texure == TitanVars.SKIN then - Set_Skin(frame, titanTexture, TitanBarDataVars["Global"].skin) -- tex_path = TitanPanelGetVar("TexturePath") - elseif TitanBarDataVars["Global"].texure == TitanVars.COLOR then - Set_Color(frame, titanTexture, TitanBarDataVars["Global"].color) - elseif TitanBarDataVars[frame].texure == TitanVars.SKIN then - Set_Skin(frame, titanTexture, TitanBarDataVars[frame].skin) - elseif TitanBarDataVars[frame].texure == TitanVars.COLOR then - Set_Color(frame, titanTexture, TitanBarDataVars[frame].color) - end -end - --------------------------------------------------------------- --- --- auto hide event handlers ---[[ Titan -NAME: TitanPanelBarButton_OnLeave -DESC: On leaving the display check if we have to hide the Titan bar. A timer is used - when it expires the bar is hid. -VAR: self - expected to be a Titan bar -OUT: None ---]] -function TitanPanelBarButton_OnLeave(self) - local frame = (self and self:GetName() or nil) - local bar = (TitanBarData[frame] and TitanBarData[frame].name or nil) - - -- if auto hide is active then let the timer hide the bar - local hide = (bar and TitanBarDataVars[frame].auto_hide or nil) --- local hide = (bar and TitanPanelGetVar(bar.."_Hide") or nil) - if hide then - Titan_AutoHide_Timers(frame, "Leave") - end -end - ---[[ Titan -NAME: TitanPanelBarButton_OnEnter -DESC: No code - this is a place holder for the XML template. -VAR: self - expected to be a Titan bar -OUT: None ---]] -function TitanPanelBarButton_OnEnter(self) - -- no work to do -end - ---[[ Titan -NAME: TitanPanelBarButtonHider_OnLeave -DESC: No code - this is a place holder for the XML template. -VAR: self - expected to be a Titan bar -OUT: None ---]] -function TitanPanelBarButtonHider_OnLeave(self) - -- no work to do -end - ---[[ Titan -NAME: TitanPanelBarButtonHider_OnEnter -DESC: On entering the hider check if we need to show the display bar. -VAR: self - expected to be a Titan hider bar -OUT: None -NOTE: -- No action is taken if the user is on combat. -:NOTE ---]] -function TitanPanelBarButtonHider_OnEnter(self) - -- make sure self is valid - local index = self and self:GetName() or nil - if not index then return end -- sanity check - - -- so the bar does not 'appear' when moused over in combat - if TitanPanelGetVar("LockAutoHideInCombat") and InCombatLockdown() then return end - - -- find the relevant bar data - local frame = nil - for idx,v in pairs (TitanBarData) do - if index == TitanBarData[idx].hider then - frame = idx - end - end - -- Now process that bar - if frame then - Titan_AutoHide_Timers(frame, "Enter") - TitanPanelBarButton_Show(frame) - end -end - --------------------------------------------------------------- --- --- Titan Bar - ---[[ Titan -NAME: TitanPanelBarButton_ForceLDBLaunchersRight -DESC: Force all plugins created from LDB addons, visible or not, to be on the right side of the Titan bar. Any visible plugin will be forced to the right side on the same bar it is currently on. -VAR: None -OUT: None ---]] -function TitanPanelBarButton_ForceLDBLaunchersRight() - local plugin, index, id; - for index, id in pairs(TitanPluginsIndex) do - plugin = TitanUtils_GetPlugin(id); - if plugin.ldb == "launcher" - and not TitanGetVar(id, "DisplayOnRightSide") then - TitanToggleVar(id, "DisplayOnRightSide"); - local button = TitanUtils_GetButton(id); - local buttonText = _G[button:GetName()..TITAN_PANEL_TEXT]; - if not TitanGetVar(id, "ShowIcon") then - TitanToggleVar(id, "ShowIcon"); - end - TitanPanelButton_UpdateButton(id); - if buttonText then - buttonText:SetText("") - button:SetWidth(16); - TitanPlugins[id].buttonTextFunction = nil; - _G["TitanPanel"..id..TITAN_PANEL_BUTTON_TEXT] = nil; - if button:IsVisible() then - local bar = TitanUtils_GetWhichBar(id) - TitanPanel_RemoveButton(id); - TitanUtils_AddButtonOnBar(bar, id) - end - end - end - end -end - ---[[ local -NAME: TitanAnchors -DESC: Helper to create the 'anchor' frames used by other addons that need to adjust so Titan can be visible. The anchor frames are adjusted depending on which Titan bars the user selects to show. -VAR: None -OUT: None -NOTE: -- TitanPanelTopAnchor - the frame at the bottom of the top bar(s) shown. -- TitanPanelBottomAnchor - the frame at the top of the bottom bar(s) shown. -:NOTE ---]] -local function TitanAnchors() - local anchor_top = TitanMovable_GetPanelYOffset(TITAN_PANEL_PLACE_TOP) - local anchor_bot = TitanMovable_GetPanelYOffset(TITAN_PANEL_PLACE_BOTTOM) - anchor_top = anchor_top <= TITAN_WOW_SCREEN_TOP and anchor_top or TITAN_WOW_SCREEN_TOP - anchor_bot = anchor_bot >= TITAN_WOW_SCREEN_BOT and anchor_bot or TITAN_WOW_SCREEN_BOT - - local top_point, top_rel_to, top_rel_point, top_x, top_y = TitanPanelTopAnchor:GetPoint(TitanPanelTopAnchor:GetNumPoints()) - local bot_point, bot_rel_to, bot_rel_point, bot_x, bot_y = TitanPanelBottomAnchor:GetPoint(TitanPanelBottomAnchor:GetNumPoints()) - top_y = floor(tonumber(top_y) + 0.5) - bot_y = floor(tonumber(bot_y) + 0.5) ---[[ -TitanDebug("Anc top: "..top_y.." bot: "..bot_y -.." a_top: "..anchor_top.." a_bot: "..anchor_bot -) ---]] - if top_y ~= anchor_top then - TitanPanelTopAnchor:ClearAllPoints() - TitanPanelTopAnchor:SetPoint(top_point, top_rel_to, top_rel_point, top_x, anchor_top); - - end - if bot_y ~= anchor_bot then - TitanPanelBottomAnchor:ClearAllPoints() - TitanPanelBottomAnchor:SetPoint(bot_point, bot_rel_to, bot_rel_point, bot_x, anchor_bot) - - end -end - ---[[ Titan -NAME: TitanPanelBarButton_DisplayBarsWanted -DESC: Show all the Titan bars the user has selected. -VAR: None -OUT: None ---]] -function TitanPanelBarButton_DisplayBarsWanted(reason) ---[===[ -print("_DisplayBarsWanted" -.." "..tostring(reason).."" -) ---]===] - -- Check all bars to see if the user has requested they be shown - for idx,v in pairs (TitanBarData) do - -- Show / hide plus kick auto hide, if needed - Titan_AutoHide_Init(idx) - end - - -- Set anchors for other addons to use. - TitanAnchors() -end - ---[[ Titan -NAME: TitanPanelBarButton_HideAllBars -DESC: This routine will hide all the Titan bars (and hiders) regardless of what the user has selected. -VAR: None -OUT: None -NOTE: -- For example when the pet battle is active. We cannot figure out how to move the pet battle frame so we are punting and hiding Titan... -- We only need to hide the bars (and hiders) - not adjust frames -:NOTE ---]] -function TitanPanelBarButton_HideAllBars() - for idx,v in pairs (TitanBarData) do - TitanPanelBarButton_Hide(idx) - end -end - ---[[ Titan -NAME: TitanPanelBarButton_HideTopBars -DESC: This routine will hide the bars Titan bars (and hiders) regardless of what the user has selected. -VAR: None -OUT: None -NOTE: -- For example when the class hall -- We only need to hide the bars (and hiders) - not adjust frames -:NOTE ---]] -function TitanPanelBarButton_HideTopBars() - if TitanBarDataVars[TITAN_PANEL_DISPLAY_PREFIX.."Bar"].show then --- if TitanPanelGetVar("Bar_Show") then - TitanPanelBarButton_Hide(TITAN_PANEL_DISPLAY_PREFIX.."Bar") - end - if TitanBarDataVars[TITAN_PANEL_DISPLAY_PREFIX.."Bar2"].show then --- if TitanPanelGetVar("Bar2_Show") then - TitanPanelBarButton_Hide(TITAN_PANEL_DISPLAY_PREFIX.."Bar2") - end -end - ---[[ Titan -NAME: TitanPanelBarButton_HideBottomBars -DESC: This routine will hide the bottom Titan bars (and hiders) regardless of what the user has selected. -VAR: None -OUT: None -NOTE: -- For example when the override bar is being used -- We only need to hide the bars (and hiders) - not adjust frames -:NOTE ---]] -function TitanPanelBarButton_HideBottomBars() - if TitanBarDataVars[TITAN_PANEL_DISPLAY_PREFIX.."AuxBar"].show then --- if TitanPanelGetVar("AuxBar_Show") then - TitanPanelBarButton_Hide(TITAN_PANEL_DISPLAY_PREFIX.."AuxBar") - end - if TitanBarDataVars[TITAN_PANEL_DISPLAY_PREFIX.."AuxBar2"].show then --- if TitanPanelGetVar("AuxBar2_Show") then - TitanPanelBarButton_Hide(TITAN_PANEL_DISPLAY_PREFIX.."AuxBar2") - end -end - -local function showBar(frame_str) - -- Conditions where this bar should not be shown... - local flag = true -- only set false for known conditions - - if frame_str == TITAN_PANEL_DISPLAY_PREFIX.."Bar" - or frame_str == TITAN_PANEL_DISPLAY_PREFIX.."Bar2" - then - -- ===== Battleground or Arena : User selected - if (TitanPanelGetVar("HideBarsInPVP")) - and (C_PvP.IsBattleground() - or C_PvP.IsArena() --- or GetZoneText() == "Stormwind City" --- or GetZoneText() == "Tempest Keep" - ) - then - flag = false - end - -- ===== In Pet Battle - if C_PetBattles.IsInBattle() - then - flag = false - end - end - - -- ===== In Combat : User selected - if TitanBarDataVars[frame_str].hide_in_combat - or TitanPanelGetVar("HideBarsInCombat") then - if in_combat then -- InCombatLockdown() too slow - flag = false - end - end ---[[ -print("showBar" ---.." "..tostring(C_PetBattles.IsInBattle()).."" -.." > "..tostring(flag).."" -) ---]] - return flag -end - ---[[ Titan -NAME: TitanPanelBarButton_Show -DESC: Show / hide the given Titan bar based on the user selection. -VAR: frame - expected to be a Titan bar name (string) -OUT: None -NOTE: -- Hide moves rather than just 'not shown'. Otherwise the buttons will stay visible defeating the purpose of hide. -:NOTE ---]] -function TitanPanelBarButton_Show(frame) - local display = _G[frame]; - local bar = TitanBarData[frame].name - - if display and TitanBarData[frame].name - then - local x, y, w = TitanVariables_GetBarPos(frame) - local show = TitanBarData[frame].show - local bott = TitanBarData[frame].bott - - -- Show the display bar if the user requested it - -- And there are no conditions preventing... - if TitanBarDataVars[frame].show -- User requested - and showBar(frame) -- No preventing condition - then - display:ClearAllPoints(); ---[===[ -local sx, sy = TitanUtils_ScreenSize(false) -print("TB_Show" ---.." "..tostring(frame).."" -.." "..tostring(bar).."" -.." "..tostring(TitanBarDataVars[frame].show).."" -) -print(">>" ---.." "..tostring(show.pt).."" ---.." "..tostring(show.rel_fr).."" ---.." "..tostring(show.rel_pt).."" -.." x:"..tostring(format("%0.1f", x)).."" -.." y:"..tostring(format("%0.1f", y)).."" -.." w:"..tostring(format("%0.1f", w)).."" -.." sx:"..tostring(format("%0.1f", sx)).."" -.." sy:"..tostring(format("%0.1f", sy)).."" -) ---]===] - if TitanBarData[frame].user_move then - display:SetPoint(show.pt, show.rel_fr, show.rel_pt, x, y) - else - display:SetPoint(show.pt, show.rel_fr, show.rel_pt, x, y) - local h = TITAN_PANEL_BAR_HEIGHT -- / UIParent:GetEffectiveScale() -- adjust scale so it is full height - display:SetPoint(bott.pt, bott.rel_fr, bott.rel_pt, x, y - h) - end - TitanPanel_SetBarTexture(frame) - - if TitanBarData[frame].hider then - _G[TitanBarData[frame].hider]:Hide() - else - -- not allowed for this bar - end - else - -- The user has not elected to show this bar - TitanPanelBarButton_Hide(frame) - end - end -end - ---[[ Titan -NAME: TitanPanelBarButton_Hide -DESC: Hide the given Titan bar based on the user selection. -VAR: frame - expected to be a Titan bar name (string) -OUT: None -NOTE: -- Hide moves rather than just 'not shown'. Otherwise the buttons will stay visible defeating the purpose of hide. -- Also moves the hider bar if auto hide is not selected. -:NOTE ---]] -function TitanPanelBarButton_Hide(frame) - if TITAN_PANEL_MOVING == 1 then return end - - local display = _G[frame] - local data = TitanBarData[frame] - - if display and data - then - local x, y, w = TitanVariables_GetBarPos(frame) - -- This moves rather than hides. If we just hide then the plugins will still show. - -- Hide by ensuriing the Y offset is off the screen. - display:ClearAllPoints() - local h = (math.abs(y) + TITAN_PANEL_BAR_HEIGHT * 2) * (-1 * y) - local h = data.hide_y ---[[ -print("_Hide" ---.." "..tostring(frame).."" -.." "..tostring(data.name).."" -.." "..tostring(TitanBarDataVars[frame].show).."" -.." "..tostring(h).."" -) ---]] - if TitanBarData[frame].user_move then - display:SetPoint(data.show.pt, data.show.rel_fr, data.show.rel_pt, x, h) - else - display:SetPoint(data.show.pt, data.show.rel_fr, data.show.rel_pt, x, h) - display:SetPoint(data.bott.pt, data.bott.rel_fr, data.bott.rel_pt, x, h - TITAN_PANEL_BAR_HEIGHT) - end - - if TitanBarData[frame].hider then - local hider = _G[data.hider] - if TitanBarDataVars[frame].show - and TitanBarDataVars[frame].auto_hide then --- if (TitanPanelGetVar(data.name.."_Show")) and (TitanPanelGetVar(data.name.."_Hide")) then - -- Auto hide is requested so show the hider bar in the right place - hider:ClearAllPoints(); - hider:SetPoint(data.show.pt, data.show.rel_fr, data.show.rel_pt, x, y); - hider:Show() - else - -- The bar was not requested - hider:Hide() - end - else - -- not allowed for this bar - end - end -end - ---[[ Titan -NAME: TitanPanel_InitPanelButtons -DESC: Show all user selected plugins on the Titan bar(s) then justify per the user selection. -VAR: None -OUT: None ---]] -function TitanPanel_InitPanelButtons() - local button - local r_prior = {} - local l_prior = {} - local scale = TitanPanelGetVar("Scale"); - local button_spacing = TitanPanelGetVar("ButtonSpacing") * scale - local icon_spacing = TitanPanelGetVar("IconSpacing") * scale - - local prior = {} - -- set prior to the starting offsets - -- The right side plugins are set here. - -- Justify adjusts the left side start according to the user setting - -- The effect is left side plugins has spacing on the right side and - -- right side plugins have spacing on the left. - for idx,v in pairs (TitanBarData) do - local bar = TitanBarData[idx].name - local y_off = TitanBarData[idx].plugin_y_offset - prior[bar] = { - right = { - button = TITAN_PANEL_DISPLAY_PREFIX..bar, - anchor = "RIGHT", - x = 5, -- Offset of first plugin to right side of screen - y = y_off, - }, - left = { - button = TITAN_PANEL_DISPLAY_PREFIX..bar, - anchor = "LEFT", - x = 0, -- Justify adjusts - center or not - y = y_off, - }, - } - end --- - TitanPanelBarButton_DisplayBarsWanted("TitanPanel_InitPanelButtons"); - - -- Position all the buttons - for i = 1, table.maxn(TitanPanelSettings.Buttons) do - - local id = TitanPanelSettings.Buttons[i]; - if ( TitanUtils_IsPluginRegistered(id) ) then - local i = TitanPanel_GetButtonNumber(id); - button = TitanUtils_GetButton(id); - - -- If the plugin has asked to be on the right - if TitanUtils_ToRight(id) then - -- ========================= - -- position the plugin relative to the prior plugin - -- or the bar if it is the 1st - r_prior = prior[TitanPanelSettings.Location[i]].right - -- ========================= - button:ClearAllPoints(); - button:SetPoint("RIGHT", _G[r_prior.button]:GetName(), r_prior.anchor, (-(r_prior.x) * scale), r_prior.y); - - -- ========================= - -- capture the button for the next plugin - r_prior.button = "TitanPanel"..id.."Button" - -- set prior[x] the anchor points and offsets for the next plugin - r_prior.anchor = "LEFT" - r_prior.x = icon_spacing - r_prior.y = 0 - -- ========================= - else - -- handle plugins on the left side of the bar - -- - -- ========================= - -- position the plugin relative to the prior plugin - -- or the bar if it is the 1st - l_prior = prior[TitanPanelSettings.Location[i]].left ---[===[ -print("Bar plugins" -.." "..tostring(i).."" -.." "..tostring(TitanPanelSettings.Location[i]).."" -.." "..tostring(id).."" -) ---]===] - -- ========================= - -- - button:ClearAllPoints(); - button:SetPoint("LEFT", _G[l_prior.button]:GetName(), l_prior.anchor, l_prior.x * scale, l_prior.y); - - -- ========================= - -- capture the next plugin - l_prior.button = "TitanPanel"..id.."Button" - -- set prior[x] (anchor points and offsets) for the next plugin - l_prior.anchor = "RIGHT" - l_prior.x = (button_spacing) - l_prior.y = 0 - -- ========================= - end - button:Show(); - end - end - -- Set panel button init flag - TITAN_PANEL_BUTTONS_INIT_FLAG = 1; - TitanPanelButton_Justify(); -end - ---[[ Titan -NAME: TitanPanel_ReOrder -DESC: Reorder all the shown all user selected plugins on the Titan bar(s). Typically used after a button has been removed / hidden. -VAR: index - the index of the plugin removed so the list can be updated -OUT: None ---]] -function TitanPanel_ReOrder(index) - for i = index, table.getn(TitanPanelSettings.Buttons) do - TitanPanelSettings.Location[i] = TitanPanelSettings.Location[i+1] - end -end - ---[[ Titan -NAME: TitanPanel_RemoveButton -DESC: Remove a plugin then show all the shown all user selected plugins on the Titan bar(s). -VAR: id - the plugin name (string) -OUT: None -NOTE: -- This cancels all timers of name "TitanPanel"..id as a safeguard to destroy any active plugin timers based on a fixed naming convention : TitanPanel..id, eg. "TitanPanelClock" this prevents "rogue" timers being left behind by lack of an OnHide check -:NOTE ---]] -function TitanPanel_RemoveButton(id) - if ( not TitanPanelSettings ) then - return; - end - - local i = TitanPanel_GetButtonNumber(id) - local currentButton = TitanUtils_GetButton(id); - - -- safeguard ... - if id then AceTimer.CancelAllTimers("TitanPanel"..id) end - - TitanPanel_ReOrder(i); - table.remove(TitanPanelSettings.Buttons, TitanUtils_GetCurrentIndex(TitanPanelSettings.Buttons, id)); ---TitanDebug("_Remove: "..(id or "?").." "..(i or "?")) - if currentButton then - currentButton:Hide(); - end - -- Show the existing buttons - TitanPanel_InitPanelButtons(); -end - ---[[ Titan -NAME: TitanPanel_GetButtonNumber -DESC: Get the index of the given plugin from the Titan plugin displayed list. -VAR: id - the plugin name (string) -OUT: index of the plugin in the Titan plugin list or the end of the list. The routine returns +1 if not found so it is 'safe' to update / add to the Location ---]] -function TitanPanel_GetButtonNumber(id) - if (TitanPanelSettings) then - for i = 1, table.getn(TitanPanelSettings.Buttons) do - if(TitanPanelSettings.Buttons[i] == id) then - return i; - end - end - return table.getn(TitanPanelSettings.Buttons)+1; - else - return 0; - end -end - ---[[ Titan -NAME: TitanPanel_RefreshPanelButtons -DESC: Update / refresh each plugin from the Titan plugin list. Used when a Titan option is changed that effects all plugins. -VAR: None -OUT: None ---]] -function TitanPanel_RefreshPanelButtons() - if (TitanPanelSettings) then - for i = 1, table.getn(TitanPanelSettings.Buttons) do - TitanPanelButton_UpdateButton(TitanPanelSettings.Buttons[i], 1); - end - end -end - ---[[ Titan -NAME: TitanPanelButton_Justify -DESC: Justify the plugins on each Titan bar. Used when the user changes the 'center' option on a Titan bar. -VAR: None -OUT: None ---]] -function TitanPanelButton_Justify() - -- Only the left side buttons are justified. - if ( not TITAN_PANEL_BUTTONS_INIT_FLAG or not TitanPanelSettings ) then - return; - end - if InCombatLockdown() then ---TitanDebug("_Justify during combat!!!") - return; - -- Issue 856 where some taint is caused if the plugin size is updated during combat. Seems since Mists was released... - end - - local bar - local y_offset - local firstLeftButton - local scale = TitanPanelGetVar("Scale"); - local button_spacing = TitanPanelGetVar("ButtonSpacing") * scale - local icon_spacing = TitanPanelGetVar("IconSpacing") * scale - local leftWidth = 0; - local rightWidth = 0; - local counter = 0; - local align = 0; - local center_offset = 0; - - -- Look at each bar for plugins. - for idx,v in pairs (TitanBarData) do - bar = TitanBarData[idx].name - y_offset = TitanBarData[idx].plugin_y_offset - x_offset = TitanBarData[idx].plugin_x_offset - firstLeftButton = TitanUtils_GetButton(TitanPanelSettings.Buttons[TitanUtils_GetFirstButtonOnBar (bar, TITAN_LEFT)]) - align = TitanBarDataVars[idx].align --TitanPanelGetVar(bar.."_Align") - leftWidth = 0; - rightWidth = 0; - counter = 0; - -- If there is a plugin on this bar then justify the first button. - -- The other buttons are relative to the first. - if ( firstLeftButton ) then - if ( align == TITAN_PANEL_BUTTONS_ALIGN_LEFT ) then - -- Now offset the plugins - firstLeftButton:ClearAllPoints(); - firstLeftButton:SetPoint("LEFT", idx, "LEFT", x_offset, y_offset); - end - -- Center if requested - if ( align == TITAN_PANEL_BUTTONS_ALIGN_CENTER ) then - leftWidth = 0; - rightWidth = 0; - counter = 0; - -- Calc the total width of the icons so we know where to start - for index, id in pairs(TitanPanelSettings.Buttons) do - local button = TitanUtils_GetButton(id); - if button and button:GetWidth() then - if TitanUtils_GetWhichBar(id) == bar then - if (TitanGetVar(id, "DisplayOnRightSide")) then - rightWidth = rightWidth - + icon_spacing - + button:GetWidth(); - else - counter = counter + 1; - leftWidth = leftWidth - + button_spacing - + button:GetWidth() - end - end - end - end - -- Now offset the plugins on the bar - firstLeftButton:ClearAllPoints(); - -- remove the last spacing otherwise the buttons appear justified too far left - center_offset = (0 - (leftWidth-button_spacing) / 2) - firstLeftButton:SetPoint("LEFT", idx, "CENTER", center_offset, y_offset); - end - end - end -end - --------------------------------------------------------------- --- --- Local routines for Titan menu creation - ---[[ local -NAME: TitanPanel_MainMenu -DESC: Show main Titan (right click) menu. -VAR: None -OUT: None ---]] -local function TitanPanel_MainMenu(frame) - local locale_bar = TitanBarData[frame].locale_name - local info = {}; - ----------------- - -- Menu title - TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_TITLE"].." - "..locale_bar); - TitanPanelRightClickMenu_AddSeparator(TitanPanelRightClickMenu_GetDropdownLevel()); - - TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_PLUGINS"]); - - ----------------- - -- Plugin Categories - for index, id in pairs(L["TITAN_PANEL_MENU_CATEGORIES"]) do - info = {}; - info.notCheckable = true - info.text = L["TITAN_PANEL_MENU_CATEGORIES"][index]; - info.value = "Addons_" .. TITAN_PANEL_BUTTONS_PLUGIN_CATEGORY[index]; - info.hasArrow = 1; - TitanPanelRightClickMenu_AddButton(info); - end - - TitanPanelRightClickMenu_AddSeparator(TitanPanelRightClickMenu_GetDropdownLevel()); - - ----------------- - -- Options - just one button to open the first Titan option screen - info = {}; - info.notCheckable = true - info.text = L["TITAN_PANEL_MENU_CONFIGURATION"]; - info.value = "Bars"; - info.func = function() - TitanUpdateConfig("init") - Settings.OpenToCategory(TITAN_PANEL_CONFIG.topic.About) - end - TitanPanelRightClickMenu_AddButton(info); - - TitanPanelRightClickMenu_AddSeparator(TitanPanelRightClickMenu_GetDropdownLevel()); - - ----------------- - -- Profiles - TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_PROFILES"]); - - ----------------- - -- Load/Delete - info = {}; - info.notCheckable = true - info.text = L["TITAN_PANEL_MENU_MANAGE_SETTINGS"]; - info.value = "Settings"; - info.hasArrow = 1; - -- lock this menu in combat - if InCombatLockdown() then - info.disabled = 1; - info.hasArrow = nil; - info.text = info.text.." " - .._G["GREEN_FONT_COLOR_CODE"] - ..L["TITAN_PANEL_MENU_IN_COMBAT_LOCKDOWN"]; - end - TitanPanelRightClickMenu_AddButton(info); - - ----------------- - -- Save - info = {}; - info.notCheckable = true - info.text = L["TITAN_PANEL_MENU_SAVE_SETTINGS"]; - info.value = "SettingsCustom"; - info.func = TitanPanel_SaveCustomProfile; - -- lock this menu in combat - if InCombatLockdown() then - info.disabled = 1; - info.text = info.text.." " - .._G["GREEN_FONT_COLOR_CODE"] - ..L["TITAN_PANEL_MENU_IN_COMBAT_LOCKDOWN"]; - end - TitanPanelRightClickMenu_AddButton(info); - - local glob, toon, player, server = TitanUtils_GetGlobalProfile() - info = {}; - info.text = "Use Global Profile" - info.value = "Use Global Profile" - info.func = function() - TitanUtils_SetGlobalProfile(not glob, toon) - TitanVariables_UseSettings(nil, TITAN_PROFILE_USE) - end; - info.checked = glob --TitanAllGetVar("GlobalProfileUse") - info.keepShownOnClick = nil - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - - TitanPanelRightClickMenu_AddSeparator(TitanPanelRightClickMenu_GetDropdownLevel()); - - ----------------- - -- Hide this bar - info = {}; - info.text = (HIDE or "Hide") - info.value = "" - info.notCheckable = true - info.arg1 = frame; - info.func = function(self, frame_str) - TitanBarDataVars[frame_str].show = not TitanBarDataVars[frame_str].show - TitanPanelBarButton_DisplayBarsWanted(frame_str.." user clicked Hide") - end - info.keepShownOnClick = nil - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - -end - ---[[ local -NAME: TitanPanel_ServerSettingsMenu -DESC: Show list of servers / custom submenu off Profiles/Manage from the Titan (right click) menu. -VAR: None -OUT: None ---]] -local function TitanPanel_ServerSettingsMenu() - local info = {}; - local servers = {}; - local player = nil; - local server = nil; - local s, e, ident; - local setonce = 0; - - if ( TitanPanelRightClickMenu_GetDropdMenuValue() == "Settings" ) then - TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_PROFILE_SERVERS"], - TitanPanelRightClickMenu_GetDropdownLevel()); - -- Normal profile per toon - for index, id in pairs(TitanSettings.Players) do - player, server = TitanUtils_ParseName(index) - - if TitanUtils_GetCurrentIndex(servers, server) == nil then - if server ~= TITAN_CUSTOM_PROFILE_POSTFIX then - table.insert(servers, server); - info = {}; - info.notCheckable = true - info.text = server; - info.value = server; - info.hasArrow = 1; - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - end - end - end - -- Custom profiles - for index, id in pairs(TitanSettings.Players) do - player, server = TitanUtils_ParseName(index) - - if TitanUtils_GetCurrentIndex(servers, server) == nil then - if server == TITAN_CUSTOM_PROFILE_POSTFIX then - if setonce and setonce == 0 then - TitanPanelRightClickMenu_AddTitle("", TitanPanelRightClickMenu_GetDropdownLevel()); - TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_PROFILE_CUSTOM"], TitanPanelRightClickMenu_GetDropdownLevel()); - setonce = 1; - end - info = {}; - info.notCheckable = true - info.text = player; - info.value = player; - info.hasArrow = 1; - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - end - end - end - end -end - ---[[ Titan -NAME: TitanPanel_PlayerSettingsMenu -DESC: Show list of toons submenu off Profiles/Manage/<server or custom> from the Titan (right click) menu. -VAR: None -OUT: None -NOTE: -- There are 2 level 3 menus possible - 1) Under profiles, then value could be the server of a saved toon - 2) Under plugins value could be the options of a plugin -:NOTE ---]] -local function TitanPanel_PlayerSettingsMenu() - -- - local info = {}; - local player = nil; - local server = nil; - local s, e, ident; - local plugin, profname; - local setonce = 0; - local off = nil - - -- - -- Handle the profiles - -- - for index, id in pairs(TitanSettings.Players) do - player, server = TitanUtils_ParseName(index) - off = (index == TitanSettings.Player) - or ((index == TitanAllGetVar("GlobalProfileUse")) and (TitanAllGetVar("GlobalProfileUse"))) - - -- handle custom profiles here - if server == TITAN_CUSTOM_PROFILE_POSTFIX - and player == TitanPanelRightClickMenu_GetDropdMenuValue() then - info = {}; - info.notCheckable = true - info.disabled = TitanAllGetVar("GlobalProfileUse") - info.text = L["TITAN_PANEL_MENU_LOAD_SETTINGS"]; - info.value = index; - info.func = function() - TitanVariables_UseSettings(index, TITAN_PROFILE_USE) - end - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - - info = {}; - info.notCheckable = true - info.disabled = off - info.text = L["TITAN_PANEL_MENU_DELETE_SETTINGS"]; - info.value = index; - info.func = function() - if TitanSettings.Players[info.value] then - TitanSettings.Players[info.value] = nil; - profname = TitanUtils_ParseName(index) - TitanPrint( - L["TITAN_PANEL_MENU_PROFILE"] - .." '"..profname.."' " - ..L["TITAN_PANEL_MENU_PROFILE_DELETED"] - , "info") - TitanPanelRightClickMenu_Close(); - end - end - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - end -- if server and player - - -- handle regular profiles here - if server == TitanPanelRightClickMenu_GetDropdMenuValue() then - -- Set the label once - if setonce and setonce == 0 then - TitanPanelRightClickMenu_AddTitle(L["TITAN_PANEL_MENU_PROFILE_CHARS"], TitanPanelRightClickMenu_GetDropdownLevel()); - setonce = 1; - end - info = {}; - info.notCheckable = true - info.text = player; - info.value = index; - info.hasArrow = 1; - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - end - end -- for players - - -- Handle the plugins - - for index, id in pairs(TitanPluginsIndex) do - plugin = TitanUtils_GetPlugin(id); - if plugin.id and plugin.id == TitanPanelRightClickMenu_GetDropdMenuValue() then - --title - info = {}; - info.text = TitanPlugins[plugin.id].menuText; - info.notCheckable = true - info.notClickable = 1; - info.isTitle = 1; - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - - --ShowIcon - if plugin.controlVariables.ShowIcon then - info = {}; - info.text = L["TITAN_PANEL_MENU_SHOW_ICON"]; - info.value = {plugin.id, "ShowIcon", nil}; - info.func = function() - TitanPanelRightClickMenu_ToggleVar({info.value[1], "ShowIcon", nil}) - end - info.keepShownOnClick = 1; - info.checked = TitanGetVar(info.value[1], "ShowIcon"); - info.disabled = nil; - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - end - - --ShowLabel - if plugin.controlVariables.ShowLabelText then - info = {}; - info.text = L["TITAN_PANEL_MENU_SHOW_LABEL_TEXT"]; - info.value = {plugin.id, "ShowLabelText", nil}; - info.func = function() - TitanPanelRightClickMenu_ToggleVar({info.value[1], "ShowLabelText", nil}) - end - info.keepShownOnClick = 1; - info.checked = TitanGetVar(info.value[1], "ShowLabelText"); - info.disabled = nil; - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - end - - --ShowRegularText (LDB data sources only atm) - if plugin.controlVariables.ShowRegularText then - info = {}; - info.text = L["TITAN_PANEL_MENU_SHOW_PLUGIN_TEXT"] - info.value = {plugin.id, "ShowRegularText", nil}; - info.func = function() - TitanPanelRightClickMenu_ToggleVar({info.value[1], "ShowRegularText", nil}) - end - info.keepShownOnClick = 1; - info.checked = TitanGetVar(info.value[1], "ShowRegularText"); - info.disabled = nil; - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - end - - --ShowColoredText - if plugin.controlVariables.ShowColoredText then - info = {}; - info.text = L["TITAN_PANEL_MENU_SHOW_COLORED_TEXT"]; - info.value = {plugin.id, "ShowColoredText", nil}; - info.func = function() - TitanPanelRightClickMenu_ToggleVar({info.value[1], "ShowColoredText", nil}) - end - info.keepShownOnClick = 1; - info.checked = TitanGetVar(info.value[1], "ShowColoredText"); - info.disabled = nil; - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - end - - -- Right-side plugin - if plugin.controlVariables.DisplayOnRightSide then - info = {}; - info.text = L["TITAN_PANEL_MENU_LDB_SIDE"]; - info.value = {plugin.id, "DisplayOnRightSide", nil}; - info.func = function () - TitanToggleVar(info.value[1], "DisplayOnRightSide") - local bar = TitanUtils_GetWhichBar(id) - TitanPanel_RemoveButton(id); - TitanUtils_AddButtonOnBar(bar, id); - end - info.checked = TitanGetVar(info.value[1], "DisplayOnRightSide"); - info.disabled = nil; - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - end - end - end -end - ---[[ Titan -NAME: TitanPanel_SettingsSelectionMenu -DESC: Show save / load submenu off Profiles/Manage/<server or custom>/<profile> from the Titan (right click) menu. -VAR: None -OUT: None ---]] -local function TitanPanel_SettingsSelectionMenu() - local info = {}; - - info = {}; - info.notCheckable = true - info.disabled = TitanAllGetVar("GlobalProfileUse") - info.text = L["TITAN_PANEL_MENU_LOAD_SETTINGS"]; - info.value = TitanPanelRightClickMenu_GetDropdMenuValue(); - info.func = function() - TitanVariables_UseSettings(TitanPanelRightClickMenu_GetDropdMenuValue(), TITAN_PROFILE_USE) - end - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - - info = {}; - info.notCheckable = true - info.disabled = (TitanPanelRightClickMenu_GetDropdMenuValue() == TitanSettings.Player) - or ((TitanPanelRightClickMenu_GetDropdMenuValue() == TitanAllGetVar("GlobalProfileName")) - and (TitanAllGetVar("GlobalProfileUse"))) - info.text = L["TITAN_PANEL_MENU_DELETE_SETTINGS"]; - info.value = TitanPanelRightClickMenu_GetDropdMenuValue(); - info.func = function() - -- do not delete if current profile - .disabled - if TitanSettings.Players[info.value] then - TitanSettings.Players[info.value] = nil; - TitanPrint( - L["TITAN_PANEL_MENU_PROFILE"] - .." '"..info.value.."' " - ..L["TITAN_PANEL_MENU_PROFILE_DELETED"] - , "info") - TitanPanelRightClickMenu_Close(); - end - end - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); -end - ---[[ Titan -NAME: TitanPanel_BuildOtherPluginsMenu -DESC: Show the submenu with list of plugin off the category from the Titan (right click) menu. -VAR: None -OUT: None ---]] -local function TitanPanel_BuildOtherPluginsMenu(frame) - local info = {}; - local plugin; - - for index, id in pairs(TitanPluginsIndex) do - plugin = TitanUtils_GetPlugin(id); - if not plugin.category then - plugin.category = "General"; - end - if ( TitanPanelRightClickMenu_GetDropdMenuValue() == "Addons_" .. plugin.category ) then - if not TitanGetVar(id, "ForceBar") - or (TitanGetVar(id, "ForceBar") == TitanBarData[frame].name) then - info = {}; - if plugin.version ~= nil and TitanPanelGetVar("VersionShown") then - info.text = plugin.menuText - ..TitanUtils_GetGreenText(" (v"..plugin.version..")") - else - info.text = plugin.menuText; - end - if plugin.controlVariables then - info.hasArrow = 1; - end - info.value = id; -- for next level dropdown - info.arg1 = frame; - info.arg2 = id; - info.func = function(self, frame_str, plugin_id) -- (self, info.arg1, info.arg2) - -- frame_str is the bar the user clicked to get the menu... - local bar = TitanBarData[frame_str].name - - if TitanPanel_IsPluginShown(plugin_id) then - TitanPanel_RemoveButton(plugin_id); - else - TitanUtils_AddButtonOnBar(bar, plugin_id) - end - end - info.checked = TitanPanel_IsPluginShown(id) or nil - info.keepShownOnClick = 1; - TitanPanelRightClickMenu_AddButton(info, TitanPanelRightClickMenu_GetDropdownLevel()); - end - end - end -end - ---[[ Titan -NAME: TitanPanelRightClickMenu_PrepareBarMenu -DESC: This is the controller to show the proper level of the Titan (right click) menu. -VAR: self - expected to be the Tian bar that was right clicked -OUT: None ---]] -function TitanPanelRightClickMenu_PrepareBarMenu(self) - -- Determine which bar was clicked on - -- This MUST match the convention used in TitanPanel.xml to declare - -- the dropdown menu. ($parentRightClickMenu) - local s, e, frame = string.find(self:GetName(), "(.*)RightClickMenu"); - local lev = (TitanPanelRightClickMenu_GetDropdownLevel() or 1) ---[[ -print("_prep R click" -.." "..tostring(frame).."" -.." "..tostring(lev).."" -) ---]] - - -- Level 1 - if lev == 1 then - TitanPanel_MainMenu(frame) - end - - -- Level 2 - if ( lev == 2 ) then - TitanPanel_BuildOtherPluginsMenu(frame); - TitanPanel_ServerSettingsMenu(); - return; - end - - -- Level 3 - if ( lev == 3 ) then - TitanPanel_PlayerSettingsMenu(); - return; - end - - -- Level 4 - if ( lev == 4 ) then - TitanPanel_SettingsSelectionMenu(); - return; - end - -end - ---[[ Titan -NAME: TitanPanel_IsPluginShown -DESC: Determine if the given plugin is shown on a Titan bar. The Titan bar could be not shown or on auto hide and the plugin will still be 'shown'. -VAR: id - plugin name (string) -OUT: int - index of the plugin or nil ---]] -function TitanPanel_IsPluginShown(id) - if ( id and TitanPanelSettings ) then - return TitanUtils_TableContainsValue(TitanPanelSettings.Buttons, id); - end -end - ---[[ Titan -NAME: TitanPanel_GetPluginSide -DESC: Determine if the given plugin is or would be on right or left of a Titan bar. This returns right or left regardless of whether the plugin is 'shown'. -VAR: id - plugin name (string) -OUT: string - "Right" or "Left" ---]] -function TitanPanel_GetPluginSide(id) - if ( TitanGetVar(id, "DisplayOnRightSide") ) then - return TITAN_RIGHT; - else - return TITAN_LEFT; - end -end diff --git a/Titan/TitanPanelTemplate.lua b/Titan/TitanPanelTemplate.lua deleted file mode 100644 index e4765a3..0000000 --- a/Titan/TitanPanelTemplate.lua +++ /dev/null @@ -1,1550 +0,0 @@ ---[[ File -NAME: TitanPanelTemplate.lua -DESC: Contains the routines to handle a frame created as a Titan plugin. ---]] ---[[ API -NAME: TitanPanelTemplate overview -DESC: See TitanPanelButtonTemplate.xml also. - -A Titan plugin is a frame created using one of the button types in TitanPanelButtonTemplate.xml which inherits TitanPanelButtonTemplate. -The available plugin types are: -TitanPanelTextTemplate - A frame that only displays text ("$parentText") -TitanPanelIconTemplate - A frame that only displays an icon ("$parentIcon") -TitanPanelComboTemplate - A frame that displays an icon then text ("$parentIcon" "$parentText") - -Most plugins use the combo template. - -TitanPanelButtonTemplate.xml contains other templates available to be used. -TitanOptionsSliderTemplate - A frame that contains the basics of a slider control. See TitanVolume for an example. -TitanPanelChildButtonTemplate - A frame that allows a plugin within a plugin. The older version of TitanGold was an example. This may not be used anymore. - -Each template contains: -- a frame to handle a menu invoked by a right mouse click ("$parentRightClickMenu") -- default event handlers for - <OnLoad> - TitanPanelButton_OnLoad(self); - </OnLoad> - <OnShow> - TitanPanelButton_OnShow(self); - </OnShow> - <OnClick> - TitanPanelButton_OnClick(self, button); - </OnClick> - <OnEnter> - TitanPanelButton_OnEnter(self); - </OnEnter> - <OnLeave> - TitanPanelButton_OnLeave(self); - </OnLeave> -If these events are overridden then the default routine needs to be included! -:DESC ---]] - --- Globals - --- Constants -local TITAN_PANEL_LABEL_SEPARATOR = " " -local TITAN_PANEL_BUTTON_WIDTH_CHANGE_TOLERANCE = 10; -local TITAN_PANEL_BUTTON_TYPE_TEXT = 1; -local TITAN_PANEL_BUTTON_TYPE_ICON = 2; -local TITAN_PANEL_BUTTON_TYPE_COMBO = 3; -local TITAN_PANEL_BUTTON_TYPE_CUSTOM = 4; -local pluginOnEnter = nil; -local TITAN_PANEL_MOVE_ADDON = nil; -local TITAN_PANEL_DROPOFF_ADDON = nil; - --- Library instances -local LibQTip = nil -local _G = getfenv(0); -local InCombatLockdown = _G.InCombatLockdown; -local media = LibStub("LibSharedMedia-3.0") - --- ---========================== --- Routines to handle moving and sizing of short bars --- - -local function CheckBarBounds(self, width) - local result = {} - local err = "" - local res = "" - - local f_name = self:GetName() - local bar_name = TitanBarData[f_name].name - local locale_name = TitanBarData[f_name].locale_name - - if TitanBarData[f_name].user_move - and TitanBarDataVars[f_name].show - then - local tscale = TitanPanelGetVar("Scale") ---[===[ -print("CheckBounds" -.." '"..tostring(bar_name).."'" -.." "..(width == 0 and "drag" or "width").."" -.." T "..tostring(format("%0.1f", tscale)).."" -.." UI "..tostring(format("%0.1f", UIParent:GetEffectiveScale())).."" -) ---]===] - -- Assumes BOTTOMLEFT of screen per Short bar defaults. - -- Top and right adjust an addition pixel, - -- if resolution is not 'pixel perfect' rounding could cause algorithm to think bar is off screen - local orig_w = self:GetWidth() - local l_off = self:GetLeft() - local r_off = self:GetRight() - local t_off = self:GetTop() - local b_off = self:GetBottom() - local screen_right, screen_top = TitanUtils_ScreenSize() - - local w = 0 - local x_off = 0 - local y_off = 0 - local w_off = 0 -local show_errs = true - if (width == 0) then -- drag and drop - -- Keep the width - w_off = orig_w ---[===[ -print(">>CheckBounds" -.." '"..tostring(bar_name).."'" -.." l "..tostring(format("%0.1f", l_off)).."" -.." r "..tostring(format("%0.1f", r_off)).."" -.." t "..tostring(format("%0.1f", t_off)).."" -.." b "..tostring(format("%0.1f", b_off)).."" -.." et "..tostring(format("%0.1f", (t_off * tscale))).."" -) ---]===] - -- Assume all ok :) - x_off = l_off - y_off = b_off - res = "Ok" - if l_off < 0 then - x_off = 0 - err = "Off left side of screen, leaving on the edge." - res = "Off L" - elseif r_off > screen_right then - x_off = (screen_right - orig_w) - 1 - err = "Off right side of screen, leaving on the edge." - res = "Off R" - end - if show_errs and err ~= "" then - TitanPrint(locale_name.." "..err.."!!!!" - .." ["..tostring(format("%0.1f", x_off)).."]" - .." ["..tostring(format("%0.1f", y_off)).."]" - , "warning") - end - if (t_off * tscale) > screen_top then - y_off = b_off - ((t_off * tscale) - screen_top) - 1 - err = "Off top of screen, leaving on the edge." - res = "Off T" - elseif b_off < 0 then - y_off = 0 - err = "Off bottom of screen, leaving on the edge." - res = "Off B" - end - if show_errs and err ~= "" then - TitanPrint(locale_name.." "..err.."!!!!" - .." ["..tostring(format("%0.1f", x_off)).."]" - .." ["..tostring(format("%0.1f", y_off)).."]" - , "warning") - end - else -- width change - local min_w, min_h, max_w, max_h = self:GetResizeBounds() - -- Keep the X and Y - x_off = l_off - y_off = b_off - - w = orig_w + width - if w < min_w then - -- do nothing - too small - w_off = min_w - err = "Width too small. Set to min width." - res = "Too small" - elseif w > max_w then - w_off = max_w - err = "Width too big. Set to max width." -- too wide - res = "Too big" - elseif x_off + w > screen_right then - w_off = orig_w - err = "Off right side of screen, leaving on the edge." - res = "Off R" - else - w_off = w - res = "Ok" - end - self:SetSize(w_off, TITAN_PANEL_BAR_HEIGHT) - if show_errs and err ~= "" then - TitanPrint(locale_name.." "..err.."!!!!" - .." ["..tostring(format("%0.1f", orig_w)).."]" - .." ["..tostring(format("%0.1f", w_off)).."]" - , "warning") - end - end - ---[===[ ---[[ -print(">>CheckBounds" -.." '"..tostring(bar_name).."'" -.." '"..tostring(res).."'" -.."\n" -.." x "..tostring(format("%0.1f", l_off)).."" -.." => "..tostring(format("%0.1f", x_off)).."" -.."\n" -.." y "..tostring(format("%0.1f", b_off)).."" -.." => "..tostring(format("%0.1f", y_off)).."" -.."\n" -.." w "..tostring(format("%0.1f", orig_w)).."" -.." + "..tostring(format("%0.1f", width)).."" -.." = "..tostring(format("%0.1f", w_off)).."" -.."\n" -.." s "..tostring(format("%0.1f", screen_right)).."w" -.." x "..tostring(format("%0.1f", screen_top)).."h" -) ---]] ---]===] - - TitanVariables_SetBarPos(self, false, x_off, y_off, w_off) - else - -- Controlled with anchor points; cannot move so no check is needed - end - - if err == "" then - -- all is good - result.ok = true - else - result.ok = false - end - ---[[ -print("CheckBounds" -.." '"..tostring(locale_name).."'" -.." w "..tostring(format("%0.1f", orig_w)).."" -.." + "..tostring(format("%0.1f", w)).."" -.." = "..tostring(format("%0.1f", self:GetWidth())).."" -) -print(">>" -.." x "..tostring(format("%0.1f", x_off)).."" -.." => "..tostring(format("%0.1f", result.x)).."" -) -print(">>" -.." y "..tostring(format("%0.1f", y_off)).."" -.." => "..tostring(format("%0.1f", result.y)).."" -) -print(">>" -.." w "..tostring(format("%0.1f", self:GetWidth())).."" -.." s "..tostring(format("%0.1f", screen_edge)).."" -) ---]] - return result -end - -local function OnMoveStart(self) - if IsShiftKeyDown() then - if self:IsMovable() then - self.isMoving = true ---[[ -print("OnMoveStart" -.." "..tostring(self:GetName()).."" -.." "..tostring(IsShiftKeyDown()).."" -.." "..tostring(IsAltKeyDown()).."" -.."\n" -.." x "..tostring(format("%0.1f", self:GetLeft())).."" -.." y "..tostring(format("%0.1f", self:GetTop())).."" -) ---]] - self:StartMoving() - _G.GameTooltip:Hide() - end - else - -- Do not move - end -end - -local function OnMovingStop(self) - - self:StopMovingOrSizing() - self.isMoving = nil - - local res = CheckBarBounds(self, 0) ---[[ -print("OnMovingStop" -.." "..tostring(self:GetName()).."" -.." x: "..tostring(res.x).."" -.." y: "..tostring(res.y).."" -.." ok: "..tostring(res.ok).."" -) ---]] - if res.ok then - else - end - -- Seems overkill - this will recalc all bars... - TitanPanel_InitPanelBarButton("OnMovingStop") -end - -local function OnMouseWheel(self, d) - if IsShiftKeyDown() then - local old_w = self:GetWidth() - local res = CheckBarBounds(self, d) - if res.ok then - end ---[[ -print("wheel" -.." "..tostring(f_name).."" -.." old: "..tostring(old_w).."" -.." new: "..tostring(self:GetWidth()).."" -.." ok: "..tostring(res.ok).."" -) ---]] - -- Seems overkill - this will recalc all bars but recalc of textures could be needed... - TitanPanel_InitPanelBarButton("OnMouseWheel") - end -end - ---========================== - ---[[ local -NAME: TitanPanel_SetScale -DESC: Set the scale of each plugin and each Titan bar. -VAR: None -OUT: None ---]] -function TitanPanel_SetScale() - local scale = TitanPanelGetVar("Scale"); - - -- Set all the Titan bars - for idx,v in pairs (TitanBarData) do - local bar_name = TITAN_PANEL_DISPLAY_PREFIX..TitanBarData[idx].name - _G[bar_name]:SetScale(scale) - end - -- Set all the registered plugins - for index, value in pairs(TitanPlugins) do - if index then - TitanUtils_GetButton(index):SetScale(scale); - end - end -end - ---[[ local -NAME: TitanTooltip_AddTooltipText -DESC: Helper to add a line of tooltip text to the tooltip. -VAR: text - string -OUT: None -NOTE: -- Append a "\n" to the end if there is not one already there -:NOTE ---]] -local function TitanTooltip_AddTooltipText(text) - if ( text ) then - -- Append a "\n" to the end - if ( string.sub(text, -1, -1) ~= "\n" ) then - text = text.."\n"; - end - - -- See if the string is intended for a double column - for text1, text2 in string.gmatch(text, "([^\t\n]*)\t?([^\t\n]*)\n") do - if ( text2 ~= "" ) then - -- Add as double wide - GameTooltip:AddDoubleLine(text1, text2); - elseif ( text1 ~= "" ) then - -- Add single column line - GameTooltip:AddLine(text1); - else - -- Assume a blank line - GameTooltip:AddLine("\n"); - end - end - end -end - ---[[ local -NAME: TitanTooltip_SetOwnerPosition -DESC: Set both the parent and the position of GameTooltip for the plugin tooltip. -VAR: parent - reference to the frame to attach the tooltip to -VAR: anchorPoint - tooltip anchor location (side or corner) to use -VAR: relativeToFrame - string name name of the frame, usually the plugin), to attach the tooltip to -VAR: relativePoint - parent anchor location (side or corner) to use -VAR: xOffset - X offset from the anchor point -VAR: yOffset - Y offset from the anchor point -VAR: frame - reference to the tooltip -OUT: None ---]] -local function TitanTooltip_SetOwnerPosition(parent, anchorPoint, relativeToFrame, relativePoint, xOffset, yOffset, frame) - if not frame then - frame = _G["GameTooltip"] - end - -- Changes for 9.1.5 Removed the background template from the GameTooltip - -- Making changes to it difficult and possibly changing the tooltip globally. - - frame:SetOwner(parent, "ANCHOR_NONE"); - frame:SetPoint(anchorPoint, relativeToFrame, relativePoint, - xOffset, yOffset); - - -- set font size for the Game Tooltip - if not TitanPanelGetVar("DisableTooltipFont") then - if TitanTooltipScaleSet < 1 then - TitanTooltipOrigScale = frame:GetScale(); - TitanTooltipScaleSet = TitanTooltipScaleSet + 1; - end - frame:SetScale(TitanPanelGetVar("TooltipFont")); - end -end - ---[[ local -NAME: TitanTooltip_SetGameTooltip -DESC: Helper to set the tooltip of the given Titan plugin. -First check for a custom function. If no function then use the plugin tooltip title and text. -VAR: self - frame reference of the plugin -OUT: None -NOTE: -- If a custom function is given pcall (protected call) is used in case the function errors out. Currently the error is allowed to occur silently because it could generate a lot of text to chat. -:NOTE ---]] -local function TitanTooltip_SetGameTooltip(self) - if ( self.tooltipCustomFunction ) then ---[ - local tmp_txt = "" - local call_success - call_success, -- for pcall - tmp_txt = pcall (self.tooltipCustomFunction) ---]] --- self.tooltipCustomFunction(); - elseif ( self.tooltipTitle ) then - GameTooltip:SetText(self.tooltipTitle, - HIGHLIGHT_FONT_COLOR.r, HIGHLIGHT_FONT_COLOR.g, HIGHLIGHT_FONT_COLOR.b); - if ( self.tooltipText ) then - TitanTooltip_AddTooltipText(self.tooltipText); - end - end - - GameTooltip:Show(); -end - ---[[ local -NAME: TitanTooltip_SetPanelTooltip -DESC: Helper to set the screen position of the tooltip of the given Titan plugin. -VAR: self - frame reference of the plugin -VAR: id - string name of the plugin -VAR: frame - reference to the tooltip -OUT: None ---]] -local function TitanTooltip_SetPanelTooltip(self, id, frame) - -- sanity checks - if not TitanPanelGetVar("ToolTipsShown") - or (TitanPanelGetVar("HideTipsInCombat") and InCombatLockdown()) then return end - - if not self.tooltipCustomFunction and not self.tooltipTitle then return end - - -- Set GameTooltip - local button = TitanUtils_GetButton(id); - local offscreenX, offscreenY; - local bar = TITAN_PANEL_DISPLAY_PREFIX..TitanUtils_GetWhichBar(id) - - -- Adjust the Y offset as needed - local rel_y = self:GetTop() - GameTooltip:GetHeight() - if rel_y > 0 then - pt = "TOP"; - rel_pt = "BOTTOM"; - else - -- too close to bottom of screen - pt = "BOTTOM"; - rel_pt = "TOP"; - end - local rel_x = self:GetLeft() + GameTooltip:GetHeight() - if ( rel_x < GetScreenWidth() ) then - -- menu will fit - pt = pt.."LEFT"; - rel_pt = rel_pt.."LEFT"; - else - pt = pt.."RIGHT"; - rel_pt = rel_pt.."RIGHT"; - end - ---[[ -print("_tooltip" -.." "..tostring(self:GetName()).."" -.." "..tostring(pt).."" -.." "..tostring(rel_pt).."" -.." "..tostring(format("%0.1f", GameTooltip:GetWidth())).."" -.." "..tostring(format("%0.1f", GameTooltip:GetHeight())).."" -) ---]] - TitanTooltip_SetOwnerPosition(button, pt, button:GetName(), rel_pt, 0, 0, frame) - TitanTooltip_SetGameTooltip(self); -end - ---[[ local -NAME: TitanPanelButton_SetTooltip -DESC: Set the tooltip of the given Titan plugin. -VAR: self - frame reference of the plugin -VAR: id - string name of the plugin ---]] -local function TitanPanelButton_SetTooltip(self, id) - -- ensure that the 'self' passed is a valid frame reference - if not self:GetName() then return end - - local call_success = nil - local tmp_txt = "" - local use_mod = TitanAllGetVar("UseTooltipModifer") - local use_alt = TitanAllGetVar("TooltipModiferAlt") - local use_ctrl = TitanAllGetVar("TooltipModiferCtrl") - local use_shift = TitanAllGetVar("TooltipModiferShift") - local ok = false - - if use_mod then - if (use_alt and IsAltKeyDown()) - or (use_ctrl and IsControlKeyDown()) - or (use_shift and IsShiftKeyDown()) - then - ok = true - end - else - ok = true - end - - self.tooltipCustomFunction = nil; - if ok and (id and TitanUtils_IsPluginRegistered(id)) then - local plugin = TitanUtils_GetPlugin(id); - if ( plugin.tooltipCustomFunction ) then - self.tooltipCustomFunction = plugin.tooltipCustomFunction; - TitanTooltip_SetPanelTooltip(self, id); - elseif ( plugin.tooltipTitle ) then - local tooltipTextFunc = _G[plugin.tooltipTextFunction]; - if ( tooltipTextFunc ) then - - if ok then -- display the tooltip - self.tooltipTitle = plugin.tooltipTitle; - call_success, -- for pcall - tmp_txt = pcall (tooltipTextFunc); - self.tooltipText = tmp_txt - -- self.tooltipText = tooltipTextFunc(); - TitanTooltip_SetPanelTooltip(self, id); - end - end - end - end -end - ---[[ local -NAME: TitanPanelButton_IsText -DESC: Is the given Titan plugin of type text? -VAR: id - string name of the plugin -OUT: boolean ---]] -local function TitanPanelButton_IsText(id) - if (TitanPanelButton_GetType(id) == TITAN_PANEL_BUTTON_TYPE_TEXT) then - return 1; - end -end - ---[[ local -NAME: TitanPanelButton_IsCombo -DESC: Is the given Titan plugin of type combo? -VAR: id - string name of the plugin -OUT: boolean ---]] -local function TitanPanelButton_IsCombo(id) - if (TitanPanelButton_GetType(id) == TITAN_PANEL_BUTTON_TYPE_COMBO) then - return 1; - end -end - ---[[ Titan -NAME: TitanPanelButton_IsIcon -DESC: Is the given Titan plugin of type icon? -VAR: id - string name of the plugin -OUT: boolean ---]] -function TitanPanelButton_IsIcon(id) - if (TitanPanelButton_GetType(id) == TITAN_PANEL_BUTTON_TYPE_ICON) then - return 1; - end -end - ---[[ local -NAME: TitanPanelButton_IsCustom -DESC: Is the given Titan plugin of type custom? -VAR: id - string name of the plugin -OUT: boolean ---]] -local function TitanPanelButton_IsCustom(id) - if (TitanPanelButton_GetType(id) == TITAN_PANEL_BUTTON_TYPE_CUSTOM) then - return 1; - end -end - ---[[ local -NAME: TitanPanelButton_OnDragStart -DESC: Handle the OnDragStart event of the given Titan plugin. -VAR: self - frame reference of the plugin -VAR: ChildButton - boolean -OUT: None -NOTE: -- Do nothing if the user has locked plugins or if in combat. -- Set the .isMoving of the plugin (frame) so other routine can check it. -- Set TITAN_PANEL_MOVING so any Titan routine will know a 'drag & drop' is in progress. -- Set TITAN_PANEL_MOVE_ADDON so sanity checks can be done on the 'drop'. -:NOTE ---]] -local function TitanPanelButton_OnDragStart(self, ChildButton) - if TitanPanelGetVar("LockButtons") or InCombatLockdown() then return end - - local frname = self; - if ChildButton then - frname = self:GetParent(); - end - - -- Clear button positions or we'll grab the button and all buttons 'after' - local i,j; - for i, j in pairs(TitanPanelSettings.Buttons) do - local pluginid = _G["TitanPanel"..TitanPanelSettings.Buttons[i].."Button"]; - if pluginid then - pluginid:ClearAllPoints() - end - end - - -- Start the drag; close any tooltips and open control frames - frname:StartMoving(); - frname.isMoving = true; - TitanUtils_CloseAllControlFrames(); - TitanPanelRightClickMenu_Close(); - if AceLibrary then - if AceLibrary:HasInstance("Dewdrop-2.0") then - AceLibrary("Dewdrop-2.0"):Close() - end - if AceLibrary:HasInstance("Tablet-2.0") then - AceLibrary("Tablet-2.0"):Close() - end - end - GameTooltip:Hide(); - -- LibQTip-1.0 support code - LibQTip = LibStub("LibQTip-1.0", true) - if LibQTip then - local key, tip - for key, tip in LibQTip:IterateTooltips() do - if tip then - local _, relativeTo = tip:GetPoint() - if relativeTo and relativeTo:GetName() == self:GetName() then - tip:Hide() - break - end - end - end - end - -- /LibQTip-1.0 support code - - -- Hold the plugin id so we can do checks on the drop - TITAN_PANEL_MOVE_ADDON = TitanUtils_GetButtonID(self:GetName()); - if ChildButton then - TITAN_PANEL_MOVE_ADDON = - TitanUtils_GetButtonID(self:GetParent():GetName()); - end - -- Tell Titan that a drag & drop is in process - TITAN_PANEL_MOVING = 1; - -- Store the OnEnter handler so the tooltip does not show - or other oddities - pluginOnEnter = self:GetScript("OnEnter") - self:SetScript("OnEnter", nil) -end - ---[[ local -NAME: TitanPanelButton_OnDragStop -DESC: Handle the OnDragStop event of the given Titan plugin. -VAR: self - frame reference of the plugin -VAR: ChildButton - boolean -OUT: None -NOTE: -- Clear the .isMoving of the plugin (frame). -- Clear TITAN_PANEL_MOVING. -- Clear TITAN_PANEL_MOVE_ADDON. -:NOTE ---]] -local function TitanPanelButton_OnDragStop(self, ChildButton) - if TitanPanelGetVar("LockButtons") then - return - end - local ok_to_move = true - local nonmovableFrom = false; - local nonmovableTo = false; - local frname = self; - if ChildButton then - frname = self:GetParent(); - end - if TITAN_PANEL_MOVING == 1 then - frname:StopMovingOrSizing(); - frname.isMoving = false; - TITAN_PANEL_MOVING = 0; - - -- See if the plugin is supposed to stay on the bar it is on - if TitanGetVar(TITAN_PANEL_MOVE_ADDON, "ForceBar") then - ok_to_move = false - end - - -- eventually there could be several reasons to not allow - -- the plugin to move - if ok_to_move then - local i,j; - for i, j in pairs(TitanPanelSettings.Buttons) do - local pluginid = - _G["TitanPanel"..TitanPanelSettings.Buttons[i].."Button"]; - if (pluginid and MouseIsOver(pluginid)) and frname ~= pluginid then - TITAN_PANEL_DROPOFF_ADDON = TitanPanelSettings.Buttons[i]; - end - end - - -- switching sides is not allowed - nonmovableFrom = TitanUtils_ToRight(TITAN_PANEL_MOVE_ADDON) - nonmovableTo = TitanUtils_ToRight(TITAN_PANEL_DROPOFF_ADDON) - if nonmovableTo ~= nonmovableFrom then - TITAN_PANEL_DROPOFF_ADDON = nil; - end - - if TITAN_PANEL_DROPOFF_ADDON == nil then - -- See if the plugin was dropped on a bar rather than - -- another plugin. - local bar - local tbar = nil - -- Find which bar it was dropped on - for idx,v in pairs(TitanBarData) do - bar = idx - if (bar and MouseIsOver(_G[bar])) then - tbar = bar - end - end - - if tbar then - TitanPanel_RemoveButton(TITAN_PANEL_MOVE_ADDON) - TitanUtils_AddButtonOnBar(TitanBarData[tbar].name, TITAN_PANEL_MOVE_ADDON) - else - -- not sure what the user did... - end - else - -- plugin was dropped on another plugin - swap (for now) - local dropoff = TitanUtils_GetCurrentIndex(TitanPanelSettings.Buttons - ,TITAN_PANEL_DROPOFF_ADDON); - local pickup = TitanUtils_GetCurrentIndex(TitanPanelSettings.Buttons - ,TITAN_PANEL_MOVE_ADDON); - local dropoffbar = TitanUtils_GetWhichBar(TITAN_PANEL_DROPOFF_ADDON); - local pickupbar = TitanUtils_GetWhichBar(TITAN_PANEL_MOVE_ADDON); - - if dropoff ~= nil and dropoff ~= "" then - -- TODO: Change to 'insert' rather than swap - TitanPanelSettings.Buttons[dropoff] = TITAN_PANEL_MOVE_ADDON; - TitanPanelSettings.Location[dropoff] = dropoffbar; - TitanPanelSettings.Buttons[pickup] = TITAN_PANEL_DROPOFF_ADDON; - TitanPanelSettings.Location[pickup] = pickupbar; - end - end - end - - -- This is important! The start drag cleared the button positions so - -- the buttons need to be put back properly. - TitanPanel_InitPanelButtons(); - TITAN_PANEL_MOVE_ADDON = nil; - TITAN_PANEL_DROPOFF_ADDON = nil; - -- Restore the OnEnter script handler - if pluginOnEnter then self:SetScript("OnEnter", pluginOnEnter) end - pluginOnEnter = nil; - end -end - ---[[ API -NAME: TitanOptionSlider_TooltipText -DESC: Set the color of the tooltip text to normal (white) with the value in green. -VAR: text - the label for value -VAR: value - the value -OUT: string - encoded color string of text and value ---]] -function TitanOptionSlider_TooltipText(text, value) - return (text or "?") .. " " .. GREEN_FONT_COLOR_CODE .. value .. FONT_COLOR_CODE_CLOSE; -end - ---[[ API -NAME: TitanPanelButton_OnLoad -DESC: Handle the OnLoad event of the requested Titan plugin. Ensure the plugin is set to be registered. -VAR: isChildButton - boolean -NOTE: -- This is called from the Titan plugin frame in the OnLoad event - usually as the frame is created. -- This starts the plugin registration process. See TitanUtils for more details on plugin registration. -- The plugin registration is a two step process because not all addons create Titan plugins in the frame create. The Titan feature of converting LDB addons to Titan plugins is an example. -:NOTE ---]] -function TitanPanelButton_OnLoad(self, isChildButton) -- Used by plugins - TitanUtils_PluginToRegister(self, isChildButton) -end - ---[[ API -NAME: TitanPanelPluginHandle_OnUpdate -DESC: A method to refresh the display of a Titan plugin. -VAR: table - the frame of the plugin -VAR: oldarg - nil or command -NOTE: -- This is used by some plugins. It is not used within Titan. -- The expected usage is either: -1) Table contains {<plugin id>, <update command>} -2) table = <plugin id> and oldarg = <update command> -- oldarg - nil or command -1 = refresh button -2 = refresh tooltip -3 = refresh button and tooltip -:NOTE ---]] -function TitanPanelPluginHandle_OnUpdate(table, oldarg) -- Used by plugins - local id, updateType = nil, nil - -- set the id and updateType - -- old method - if table and type(table) == "string" and oldarg then - id = table - updateType = oldarg - end - -- new method - if table and type(table) == "table" then - if table[1] then id = table[1] end - if table[2] then updateType = table[2] end - end - - -- id is required - if id then - if updateType == TITAN_PANEL_UPDATE_BUTTON - or updateType == TITAN_PANEL_UPDATE_ALL then - TitanPanelButton_UpdateButton(id) - end - - if (updateType == TITAN_PANEL_UPDATE_TOOLTIP - or updateType == TITAN_PANEL_UPDATE_ALL) - and MouseIsOver(_G["TitanPanel"..id.."Button"]) then - if TitanPanelRightClickMenu_IsVisible() or TITAN_PANEL_MOVING == 1 then - return - end - - TitanPanelButton_SetTooltip(_G["TitanPanel"..id.."Button"], id) - end - end -end - ---[[ API -NAME: TitanPanelDetectPluginMethod -DESC: Poorly named routine that sets the OnDragStart & OnDragStop scripts of a Titan plugin. -VAR: id - the string name of the plugin -VAR: isChildButton - boolean ---]] -function TitanPanelDetectPluginMethod(id, isChildButton) - -- Ensure the id is not nil - if not id then return end - local TitanPluginframe = _G["TitanPanel"..id.."Button"]; - if isChildButton then - TitanPluginframe = _G[id]; - end - -- Ensure the frame is valid - if not TitanPluginframe and TitanPluginframe:GetName() then return end -- sanity check... - - -- Set the OnDragStart script - TitanPluginframe:SetScript("OnDragStart", function(self) - if not IsShiftKeyDown() - and not IsControlKeyDown() - and not IsAltKeyDown() then - if isChildButton then - TitanPanelButton_OnDragStart(self, true); - else - TitanPanelButton_OnDragStart(self); - end - end - end) - - -- Set the OnDragStop script - TitanPluginframe:SetScript("OnDragStop", function(self) - if isChildButton then - TitanPanelButton_OnDragStop(self, true) - else - TitanPanelButton_OnDragStop(self); - end - end) ---[[ - -- Set the key down script - for modifiers - TitanPluginframe:SetScript("OnKeyDown", function(self) - if IsModifierKeyDown() then - TitanPanelButton_SetTooltip(self, id) - end - end) - - -- Set the key up script - for modifiers - TitanPluginframe:SetScript("OnKeyUp", function(self) - if IsModifierKeyDown() then - -- ? do nothing - else - GameTooltip:Hide() - end - end) ---]] -end - ---[[ API -NAME: TitanPanelButton_OnShow -DESC: Handle the OnShow event of the requested Titan plugin. -VAR:self - frame reference of the plugin ---]] -function TitanPanelButton_OnShow(self) -- Used by plugins - local id = nil; - -- ensure that the 'self' passed is a valid frame reference - if self and self:GetName() then - id = TitanUtils_GetButtonID(self:GetName()); - end - -- ensure that id is a valid Titan plugin - if (id) then - TitanPanelButton_UpdateButton(id, 1); - end -end - ---[[ API -NAME: TitanPanelButton_OnClick -DESC: Handle the OnClick mouse event of the requested Titan plugin. -VAR: self - frame reference of the plugin -VAR: button - mouse button that was clicked -VAR: isChildButton - boolean ! NO LONGER USED ! -NOTE: -- Only the left and right mouse buttons are handled by Titan. -:NOTE ---]] -function TitanPanelButton_OnClick(self, button, isChildButton) -- Used by plugins - local id - -- ensure that the 'self' passed is a valid frame reference - if self and self:GetName() then - id = TitanUtils_Ternary(isChildButton, - TitanUtils_GetParentButtonID(self:GetName()), - TitanUtils_GetButtonID(self:GetName())); - end - ---[[ -if self.TitanType == "macro" then -print("TPB OnClick" -.." "..tostring(self:GetName()).." " -.." "..tostring(button).." " -.." "..tostring(issecure()).." " -.." "..tostring(self:GetAttribute("type")).." " -.." "..tostring(self:GetAttribute("macrotext")).." " -) -end ---]] - if id then - local controlFrame = TitanUtils_GetControlFrame(id); - - if (button == "LeftButton") then - local isControlFrameShown; - if (not controlFrame) then - isControlFrameShown = false; - elseif (controlFrame:IsVisible()) then - isControlFrameShown = false; - else - isControlFrameShown = true; - end - - TitanUtils_CloseAllControlFrames(); - TitanPanelRightClickMenu_Close(); - - local position = TitanUtils_GetWhichBar(id) - if (isControlFrameShown) then - - -- Note: This uses anchor points to place the control frame relative to the plugin on the screen. - local parent = self:GetName() -- plugin with the control frame - local point = "" -- point of the control frame - local rel_point = "" -- The middle - top or bottom edge - of the plugin to anchor to - --[[ Mar 2023 : removed reference to Titan bar reference - Instead use the relative position on the screen to show the control (plugin) - frame properly. - NOTE: If Titan bars need a left click to show a control frame the offset - will need to be changed to use the cursor position like right click menu!! - --]] - if (self:GetTop() - controlFrame:GetHeight()) > 0 then - point = "TOP" - rel_point = "BOTTOM" - else -- below screen - point = "BOTTOM" - rel_point = "TOP" - end - - local x = 0 - local y = 0 - - controlFrame:ClearAllPoints(); - controlFrame:SetPoint(point.."LEFT", parent, rel_point, 0, 0) -- default left of plugin - - -- Adjust control frame position if it's off the screen - local offscreenX, offscreenY = TitanUtils_GetOffscreen(controlFrame); - if ( offscreenX == -1 ) then - -- Off to left of screen which should not happen... - elseif ( offscreenX == 1 ) then - -- off to right of screen, flip to right of plugin - controlFrame:ClearAllPoints(); - controlFrame:SetPoint(point.."RIGHT", parent, rel_point, 0, 0) - end - - controlFrame:Show(); - end - elseif (button == "RightButton") then - TitanUtils_CloseAllControlFrames(); - -- Show RightClickMenu anyway - TitanPanelRightClickMenu_Close(); - TitanPanelRightClickMenu_Toggle(self); - end - - GameTooltip:Hide(); - end -end - ---[[ API -NAME: TitanPanelButton_OnEnter -DESC: Handle the OnEnter cursor event of the requested Titan plugin. -VAR: self - frame reference of the plugin -VAR: isChildButton - boolean -NOTE: -- The cursor has moved over the plugin so show the plugin tooltip. -- Save same hassle by doing nothing if the tooltip is already shown or if the cursor is moving. -- If the "is moving" is set the user is dragging this plugin around so do nothing here. -:NOTE ---]] -function TitanPanelButton_OnEnter(self, isChildButton) -- Used by plugins - local id = nil; - -- ensure that the 'self' passed is a valid frame reference - if self and self:GetName() then - id = TitanUtils_Ternary(isChildButton, - TitanUtils_GetParentButtonID(self:GetName()), - TitanUtils_GetButtonID(self:GetName())); - end - - if (id) then - local controlFrame = TitanUtils_GetControlFrame(id); - if (controlFrame and controlFrame:IsVisible()) then - return; - elseif (TitanPanelRightClickMenu_IsVisible()) then - return; - else - if TITAN_PANEL_MOVING == 0 then - TitanPanelButton_SetTooltip(self, id); - end - if self.isMoving then - GameTooltip:Hide(); - end - end - end -end - ---[[ API -NAME: TitanPanelButton_OnLeave -DESC: Handle the OnLeave cursor event of the requested Titan plugin. -VAR: self - frame reference of the plugin -VAR: isChildButton - boolean -NOTE: -- The cursor has moved off the plugin so hide the plugin tooltip. -:NOTE ---]] -function TitanPanelButton_OnLeave(self, isChildButton) - local id = nil; - -- ensure that the 'self' passed is a valid frame reference - if self and self:GetName() then - id = TitanUtils_Ternary(isChildButton, - TitanUtils_GetParentButtonID(self:GetName()), - TitanUtils_GetButtonID(self:GetName())); - end - - if (id) then - GameTooltip:Hide(); - end - - if not TitanPanelGetVar("DisableTooltipFont") then - -- reset original Tooltip Scale - GameTooltip:SetScale(TitanTooltipOrigScale); - TitanTooltipScaleSet = 0; - end -end - --- local routines for Update Button ---[[ local -NAME: TitanPanelButton_SetButtonText -DESC: Set / update the text of the given Titan plugin. -VAR: id - string name of the plugin -NOTE: -- The plugin is expected to tell Titan what routine is to be called in <self>.registry.buttonTextFunction. -- The text routine is called in protected mode (pcall) to ensure the Titan main routines still run. -:NOTE ---]] -local format_with_label = { [0] = "" } -for idx = 1, 4 do format_with_label[idx] = "%s%s" .. (TITAN_PANEL_LABEL_SEPARATOR .. "%s%s"):rep(idx - 1) end -local function TitanPanelButton_SetButtonText(id) - if not (id and TitanUtils_IsPluginRegistered(id)) then return end - - local buttonTextFunction = _G[TitanUtils_GetPlugin(id).buttonTextFunction]; - if not buttonTextFunction then return end - local button = TitanUtils_GetButton(id); - local buttonText = _G[button:GetName()..TITAN_PANEL_TEXT]; - - local newfont = media:Fetch("font", TitanPanelGetVar("FontName")) - if newfont then - buttonText:SetFont(newfont, TitanPanelGetVar("FontSize")) - end - - -- We'll be paranoid here and call the button text in protected mode. - -- In case the button text fails it will not take Titan with it... - local call_success, -- for pcall - label1, value1, label2, value2, label3, value3, label4, value4 = - pcall(buttonTextFunction, id) - - if call_success then - -- All is good - else - buttonText:SetText("<?>") ---[[ - local msg = tostring(id).." '"..label1.."'" - TitanPrint(msg, "error") ---]] - return - end - - --===================================== - -- Determine the label value pairs : 1 - 4 - -- Each could be custom per user - -- - -- NummLabelsSeen - used for the config to avoid confusing user - -- Plugin MUST have been shown at least once. - - -- In the case of first label only (no value), set the button and return. - if label1 and - not (label2 or label3 or label4 - or value1 or value2 or value3 or value4) then - buttonText:SetText(label1) - - TitanSetVar(id, "NumLabelsSeen", 1) - - return - end - - - local show_label = TitanGetVar(id, "ShowLabelText") - local values = 0 - if label1 or value1 then - values = 1 - if show_label then - if TitanGetVar(id, "CustomLabelTextShow") then - -- override the label per the user - label1 = TitanGetVar(id, "CustomLabelText") - else - end - else - label1 = "" - end - if label2 or value2 then - values = 2 - if show_label then - if TitanGetVar(id, "CustomLabel2TextShow") then - -- override the label per the user - label2 = TitanGetVar(id, "CustomLabel2Text") - else - end - else - label2 = "" - end - if label3 or value3 then - if show_label then - if TitanGetVar(id, "CustomLabel3TextShow") then - -- override the label per the user - label3 = TitanGetVar(id, "CustomLabel3Text") - else - end - else - label3 = "" - end - values = 3 - if label4 or value4 then - values = 4 - if show_label then - if TitanGetVar(id, "CustomLabel43TextShow") then - -- override the label per the user - label4 = TitanGetVar(id, "CustomLabel4Text") - else - end - else - label4 = "" - end - end - end - end - end - - TitanSetVar(id, "NumLabelsSeen", values) - - -- values tells which format to use from the array - buttonText:SetFormattedText(format_with_label[values], - label1 or "", value1 or "", - label2 or "", value2 or "", - label3 or "", value3 or "", - label4 or "", value4 or "" - ) -end - ---[[ local -NAME: TitanPanelButton_SetTextButtonWidth -DESC: Set the text width of the given Titan plugin that is text only. -VAR: id - string name of the plugin -VAR: setButtonWidth - new width -NOTE: -- Titan uses a tolerance setting to prevent endless updating of the text width. -:NOTE ---]] -local function TitanPanelButton_SetTextButtonWidth(id, setButtonWidth) - if (id) then - local button = TitanUtils_GetButton(id); - local text = _G[button:GetName()..TITAN_PANEL_TEXT]; - if ( setButtonWidth - or button:GetWidth() == 0 - or button:GetWidth() - text:GetWidth() > TITAN_PANEL_BUTTON_WIDTH_CHANGE_TOLERANCE - or button:GetWidth() - text:GetWidth() < -TITAN_PANEL_BUTTON_WIDTH_CHANGE_TOLERANCE ) then - button:SetWidth(text:GetWidth()); - TitanPanelButton_Justify(); - end - end -end - ---[[ local -NAME: TitanPanelButton_SetIconButtonWidth -DESC: Set the icon width of the given Titan plugin that is icon only. -VAR: id - string name of the plugin -NOTE: -- The plugin is expected to tell Titan what the icon width is in <self>.registry.iconButtonWidth. -:NOTE ---]] -local function TitanPanelButton_SetIconButtonWidth(id) - if (id) then - local button = TitanUtils_GetButton(id); - if ( TitanUtils_GetPlugin(id).iconButtonWidth ) then - button:SetWidth(TitanUtils_GetPlugin(id).iconButtonWidth); - end - end -end - ---[[ local -NAME: TitanPanelButton_SetComboButtonWidth -DESC: Set the icon width of the given Titan plugin that is a combo - icon & text. -VAR: id - string name of the plugin -VAR: setButtonWidth - new width -NOTE: -- The plugin is expected to tell Titan what the icon width is in <self>.registry.iconButtonWidth. -:NOTE ---]] -local function TitanPanelButton_SetComboButtonWidth(id, setButtonWidth) - if (id) then - local button = TitanUtils_GetButton(id) - if not button then return end -- sanity check - - local text = _G[button:GetName()..TITAN_PANEL_TEXT]; - local icon = _G[button:GetName().."Icon"]; - local iconWidth, iconButtonWidth, newButtonWidth; - - -- Get icon button width - iconButtonWidth = 0; - if ( TitanUtils_GetPlugin(id).iconButtonWidth ) then - iconButtonWidth = TitanUtils_GetPlugin(id).iconButtonWidth; - elseif ( icon:GetWidth() ) then - iconButtonWidth = icon:GetWidth(); - end - - if ( TitanGetVar(id, "ShowIcon") and ( iconButtonWidth ~= 0 ) ) then - icon:Show(); - text:ClearAllPoints(); - text:SetPoint("LEFT", icon:GetName(), "RIGHT", 2, 1); - - newButtonWidth = text:GetWidth() + iconButtonWidth; - else - icon:Hide(); - text:ClearAllPoints(); - text:SetPoint("LEFT", button:GetName(), "LEFT", 0, 1); - - newButtonWidth = text:GetWidth(); - end - - if ( setButtonWidth - or button:GetWidth() == 0 - or button:GetWidth() - newButtonWidth > TITAN_PANEL_BUTTON_WIDTH_CHANGE_TOLERANCE - or button:GetWidth() - newButtonWidth < -TITAN_PANEL_BUTTON_WIDTH_CHANGE_TOLERANCE ) - then - button:SetWidth(newButtonWidth); - TitanPanelButton_Justify(); - end - end -end - ---[[ API -NAME: TitanPanelButton_UpdateButton -DESC: Update the display of the given Titan plugin. -VAR: id - string name of the plugin -VAR: setButtonWidth - new width ---]] -function TitanPanelButton_UpdateButton(id, setButtonWidth) -- Used by plugins - local button, id = TitanUtils_GetButton(id); - local plugin = TitanUtils_GetPlugin(id) - -- safeguard to avoid errors - if not TitanUtils_IsPluginRegistered(id) then return end - - if ( TitanPanelButton_IsText(id) ) then - -- Update textButton - TitanPanelButton_SetButtonText(id); - TitanPanelButton_SetTextButtonWidth(id, setButtonWidth); - - elseif ( TitanPanelButton_IsIcon(id) ) then - -- Update iconButton - TitanPanelButton_SetButtonIcon(id, (plugin.iconCoords or nil), - (plugin.iconR or nil),(plugin.iconG or nil),(plugin.iconB or nil) - ); - TitanPanelButton_SetIconButtonWidth(id); - - elseif ( TitanPanelButton_IsCombo(id) ) then - -- Update comboButton - TitanPanelButton_SetButtonText(id); - TitanPanelButton_SetButtonIcon(id, (plugin.iconCoords or nil), - (plugin.iconR or nil),(plugin.iconG or nil),(plugin.iconB or nil) - ); - TitanPanelButton_SetComboButtonWidth(id, setButtonWidth); - end -end - - ---[[ API -NAME: TitanPanelButton_UpdateTooltip -DESC: Update the tooltip of the given Titan plugin. -VAR: self - frame reference of the plugin ---]] -function TitanPanelButton_UpdateTooltip(self) -- Used by plugins - if not self then return end - if (GameTooltip:IsOwned(self)) then - local id = TitanUtils_GetButtonID(self:GetName()); - - TitanPanelButton_SetTooltip(self, id); - end -end - ---[[ API -NAME: TitanPanelButton_SetButtonIcon -DESC: Set the icon of the given Titan plugin. -VAR: id - string name of the plugin -VAR: iconCoords - if given, this is the placing of the icon within the plugin -VAR: iconR - if given, this is the Red (RBG) setting of the icon -VAR: iconG - if given, this is the Green (RBG) setting of the icon -VAR: iconB - if given, this is the Blue (RBG) setting of the icon ---]] -function TitanPanelButton_SetButtonIcon(id, iconCoords, iconR, iconG, iconB) - if (id and TitanUtils_IsPluginRegistered(id)) then - local button = TitanUtils_GetButton(id); - local icon = _G[button:GetName().."Icon"]; - local iconTexture = TitanUtils_GetPlugin(id).icon; - local iconWidth = TitanUtils_GetPlugin(id).iconWidth; - - if (iconTexture) and icon then - icon:SetTexture(iconTexture); - end - if (iconWidth) and icon then - icon:SetWidth(iconWidth); - end - - -- support for iconCoords, iconR, iconG, iconB attributes - if iconCoords and icon then - icon:SetTexCoord(unpack(iconCoords)) - end - if iconR and iconG and iconB and icon then - icon:SetVertexColor(iconR, iconG, iconB) - end - end -end - ---[[ Titan -NAME: TitanPanelButton_GetType -DESC: Get the type of the given Titan plugin. -VAR: id - string name of the plugin -OUT: type - The type of the plugin (text, icon, combo (default)) -NOTE: -- This assumes that the developer is playing nice and is using the Titan templates as is... -:NOTE ---]] -function TitanPanelButton_GetType(id) - -- id is required - if (not id) then - return; - end - - local button = TitanUtils_GetButton(id); - local type; - if button then - local text = _G[button:GetName()..TITAN_PANEL_TEXT]; - local icon = _G[button:GetName().."Icon"]; - - if (text and icon) then - type = TITAN_PANEL_BUTTON_TYPE_COMBO; - elseif (text and not icon) then - type = TITAN_PANEL_BUTTON_TYPE_TEXT; - elseif (not text and icon) then - type = TITAN_PANEL_BUTTON_TYPE_ICON; - elseif (not text and not icon) then - type = TITAN_PANEL_BUTTON_TYPE_CUSTOM; - end - else - type = TITAN_PANEL_BUTTON_TYPE_COMBO; - end - - return type; -end - ---[[ Titan -NAME: TitanPanelButton_ApplyBarPos -DESC: Apply saved Bar position to the Bar frame. -VAR: frame_str - string name of the Bar frame -OUT: None -NOTE: -- Bit of a sledge hammer; used when loading a profile over the current so the Bars are properly placed. -:NOTE ---]] -function TitanPanelButton_ApplyBarPos(frame_str) - local frame = _G[frame_str] - local bdata = TitanBarData[frame] - local fdata = TitanBarDataVars[frame_str] - if frame and bdata and fdata then - frame:ClearAllPoints(); - if bdata.user_move then - frame:SetPoint(bdata.show.pt, bdata.show.rel_fr, bdata.show.rel_pt, fdata.off_x, fdata.off_y) - else - -- Set full bar, ignore - end - end -end - ---[[ Titan -NAME: TitanOptionsSliderTemplate_OnLoad -DESC: Loads the Backdrop for TitanOptionsSliderTemplate with new 9.0 API -VAR: self - The frame ---]] -function TitanOptionsSliderTemplate_OnLoad(self) - self:SetBackdrop({ - bgFile="Interface\\Buttons\\UI-SliderBar-Background", - edgeFile="Interface\\Buttons\\UI-SliderBar-Border", - tile = true, - insets = { - left = 6, - right = 6, - top = 3, - bottom = 3, - }, - tileSize = 8, - edgeSize = 8, - }) -end - ---[[ Titan -NAME: TitanPanel_InitPanelBarButton -DESC: Set the scale, texture (graphic), and transparancy of all the Titan bars based on the user selection. -VAR: None -OUT: None ---]] -function TitanPanel_InitPanelBarButton() - -- Set initial Panel Scale - TitanPanel_SetScale(); - - for idx,v in pairs (TitanBarData) do --- CheckBarBounds(_G[idx], 0) - TitanPanel_SetBarTexture(idx) - end - - TitanPanelBarButton_DisplayBarsWanted("InitPanelBarButton") -end - --- ---========================== --- Routines to handle creation of Titan bars --- ---[[ Titan -NAME: TitanPanelButton_CreateBar(frame_str) -DESC: Create a Titan bar that can show plugins. -VAR: frame_str - name of the frame -NOTE: -- This assumes ... -:NOTE ---]] -function TitanPanelButton_CreateBar(frame_str) - local this_bar = frame_str - local a_bar = CreateFrame("Button", this_bar, UIParent, "Titan_Bar__Display_Template") - - local bar_data = TitanBarData[this_bar] - - -- ====== - -- Scripts - a_bar:SetScript("OnEnter", function(self) TitanPanelBarButton_OnEnter(self) end) - a_bar:SetScript("OnLeave", function(self) TitanPanelBarButton_OnLeave(self) end) - a_bar:SetFrameStrata("DIALOG") - - local x, y, w = TitanVariables_GetBarPos(frame_str) - local sx, sy = TitanUtils_ScreenSize() ---[[ -print("_Create bar" -.." "..tostring(bar_data.name).."" -.."\n " -.." "..tostring(bar_data.name).."" -.." "..tostring(bar_data.show.pt).."" -.." "..tostring(bar_data.show.rel_fr).."" -.." "..tostring(bar_data.show.rel_pt).."" -.."\n " -.." "..tostring(bar_data.name).."" -.." "..tostring(format("%0.1f", x)).."" -.." "..tostring(format("%0.1f", y)).."" -.." "..tostring(format("%0.1f", w)).."" -) ---]] - if bar_data.user_move then - a_bar:SetPoint(bar_data.show.pt, bar_data.show.rel_fr, bar_data.show.rel_pt, x, y) - a_bar:SetMovable(true) - a_bar:SetResizable(true) - a_bar:EnableMouse(true) - a_bar:RegisterForDrag("LeftButton") - a_bar:SetScript("OnDragStart", OnMoveStart) - a_bar:SetScript("OnDragStop", OnMovingStop) - a_bar:SetScript("OnMouseWheel", OnMouseWheel) - a_bar:SetSize(w, TITAN_PANEL_BAR_HEIGHT) - else - -- Static full width bar - a_bar:SetPoint(bar_data.show.pt, bar_data.show.rel_fr, bar_data.show.rel_pt, x, y) - a_bar:SetPoint(bar_data.show.pt, bar_data.show.rel_fr, bar_data.show.rel_pt, x, y - TITAN_PANEL_BAR_HEIGHT) - end - - -- ====== - -- Bounds only effective on Short bars for now - -- Min : No smaller than the padding & one icon - -- Max : No wider than the screen - -- does not seem to work to restrict size automatically... - a_bar:SetResizeBounds(TitanBarData[this_bar].plugin_x_offset + 16, TITAN_PANEL_BAR_HEIGHT, sx, TITAN_PANEL_BAR_HEIGHT) - - a_bar:RegisterForClicks("LeftButtonUp", "RightButtonUp"); - a_bar:SetScript("OnClick", function(self, button) TitanPanelBarButton_OnClick(self, button) end) - - -- ====== - -- Frame for right clicks - f = CreateFrame("Frame", this_bar.."RightClickMenu", UIParent, "UIDropDownMenuTemplate") - - -- ====== - -- Hider for auto hide feature - local hide_bar_name = TITAN_PANEL_HIDE_PREFIX..bar_data.name - if bar_data.hider then ---[[ -print("_Create hide bar" -.." "..tostring(bar_data.name).."" -.." "..tostring(hide_bar_name).."" -) ---]] - - local hide_bar = CreateFrame("Button", hide_bar_name, UIParent, "TitanPanelBarButtonHiderTemplate") - hide_bar:SetFrameStrata("DIALOG") - hide_bar:SetPoint(bar_data.show.pt, bar_data.show.rel_fr, bar_data.show.rel_pt, x, -y) - - -- Set script handlers for display - hide_bar:RegisterForClicks("LeftButtonUp", "RightButtonUp"); - hide_bar:SetScript("OnEnter", function(self) TitanPanelBarButtonHider_OnEnter(self) end) - hide_bar:SetScript("OnLeave", function(self) TitanPanelBarButtonHider_OnLeave(self) end) - hide_bar:SetScript("OnClick", function(self, button) TitanPanelBarButton_OnClick(self, button) end) - - hide_bar:SetFrameStrata("BACKGROUND") - hide_bar:SetSize(sx, TITAN_PANEL_BAR_HEIGHT) - else - -- Not allowed for this bar - end -end - diff --git a/Titan/TitanPanelTemplate.xml b/Titan/TitanPanelTemplate.xml deleted file mode 100644 index 7624d06..0000000 --- a/Titan/TitanPanelTemplate.xml +++ /dev/null @@ -1,173 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="TitanPanelTemplate.lua" /> - <Button name="TitanPanelButtonTemplate" hidden="true" movable="true" virtual="true"> - <Scripts> - <OnLoad> - TitanPanelButton_OnLoad(self); - </OnLoad> - <OnShow> - TitanPanelButton_OnShow(self); - </OnShow> - <OnClick> - TitanPanelButton_OnClick(self, button); - </OnClick> - <OnEnter> - TitanPanelButton_OnEnter(self); - </OnEnter> - <OnLeave> - TitanPanelButton_OnLeave(self); - </OnLeave> - </Scripts> - </Button> - <Button name="TitanPanelChildButtonTemplate" hidden="true" virtual="true"> - <Scripts> - <OnLoad> - TitanPanelButton_OnLoad(self, true); - </OnLoad> - <OnClick> - TitanPanelButton_OnClick(self, button, true); - </OnClick> - <OnEnter> - TitanPanelButton_OnEnter(self, true); - </OnEnter> - <OnLeave> - TitanPanelButton_OnLeave(self, true); - </OnLeave> - </Scripts> - </Button> - <Button name="TitanPanelTextTemplate" inherits="TitanPanelButtonTemplate" virtual="true"> - <Size> - <AbsDimension x="0" y="16" /> - </Size> - <ButtonText name="$parentText" inherits="GameFontNormalSmall" justifyH="LEFT"> - <Anchors> - <Anchor point="LEFT"> - <Offset> - <AbsDimension x="0" y="1" /> - </Offset> - </Anchor> - </Anchors> - </ButtonText> - <PushedTextOffset> - <AbsDimension x="0" y="0"/> - </PushedTextOffset> - </Button> - <Button name="TitanPanelIconTemplate" inherits="TitanPanelButtonTemplate" virtual="true"> - <Size> - <AbsDimension x="16" y="16" /> - </Size> - <Layers> - <Layer level="ARTWORK"> - <Texture name="$parentIcon"> - <Size> - <AbsDimension x="16" y="16"/> - </Size> - <Anchors> - <Anchor point="LEFT" /> - </Anchors> - </Texture> - </Layer> - </Layers> - </Button> - <Button name="TitanPanelComboTemplate" inherits="TitanPanelButtonTemplate" virtual="true"> - <Size> - <AbsDimension x="0" y="16" /> - </Size> - <Layers> - <Layer level="ARTWORK"> - <Texture name="$parentIcon"> - <Size> - <AbsDimension x="0" y="16"/> - </Size> - <Anchors> - <Anchor point="LEFT" /> - </Anchors> - </Texture> - </Layer> - </Layers> - <ButtonText name="$parentText" inherits="GameFontNormalSmall" justifyH="LEFT" /> - <PushedTextOffset> - <AbsDimension x="0" y="0"/> - </PushedTextOffset> - </Button> - <Slider name="TitanOptionsSliderTemplate" orientation="VERTICAL" inherits="BackdropTemplate" virtual="true" enableMouse="true" > - <Size> - <AbsDimension x="10" y="100"/> - </Size> - <HitRectInsets> - <AbsInset left="-10" right="-10" top="0" bottom="0"/> - </HitRectInsets> - <Layers> - <Layer level="ARTWORK"> - <FontString name="$parentText" inherits="GameFontGreenSmall"> - <Anchors> - <Anchor point="LEFT" relativePoint="RIGHT"> - <Offset> - <AbsDimension x="2" y="0" /> - </Offset> - </Anchor> - </Anchors> - </FontString> - <FontString name="$parentLow" inherits="GameFontHighlightSmall" text="LOW"> - <Anchors> - <Anchor point="BOTTOM" relativePoint="TOP"> - <Offset> - <AbsDimension x="0" y="3"/> - </Offset> - </Anchor> - </Anchors> - </FontString> - <FontString name="$parentHigh" inherits="GameFontHighlightSmall" text="HIGH"> - <Anchors> - <Anchor point="TOP" relativePoint="BOTTOM"> - <Offset> - <AbsDimension x="0" y="0"/> - </Offset> - </Anchor> - </Anchors> - </FontString> - </Layer> - </Layers> - <ThumbTexture name="$parentThumb" file="Interface\Buttons\UI-SliderBar-Button-Vertical"> - <Size> - <AbsDimension x="32" y="32"/> - </Size> - </ThumbTexture> - <Scripts> - <!-- DF Appears Blizz moved EnableMouseWheel from declaration to code --> - <OnLoad> - TitanOptionsSliderTemplate_OnLoad(self); - - self:EnableMouseWheel(true); - </OnLoad> - </Scripts> - </Slider> - - <GameTooltip name="TitanPanelTooltip" inherits="GameTooltipTemplate" parent="UIParent" hidden="true"/> - <Button name="TitanPanelBarButtonHiderTemplate" frameStrata="BACKGROUND" toplevel="true" movable="true" parent="UIParent" virtual="true"> - <Scripts> - <OnLoad> - self:RegisterForClicks("LeftButtonUp", "RightButtonDown") - </OnLoad> - </Scripts> - <Size> - <AbsDimension x="2560" y="24"/> - </Size> - </Button> - - <!-- - This is a control frame used to capture events Titan is interested in. - Other buttons will be used for display. - --> - <Button name="TitanPanelBarButton" frameStrata="BACKGROUND" parent="UIParent"> - <Size> - <AbsDimension x="0" y="0"/> - </Size> - </Button> - - <Button name="Titan_Bar__Display_Template" frameStrata="DIALOG" inherits="BackdropTemplate" - toplevel="true" movable="true" parent="UIParent" virtual="true"> - </Button> - -</Ui> diff --git a/Titan/TitanTemplate.lua b/Titan/TitanTemplate.lua new file mode 100644 index 0000000..e7a40bd --- /dev/null +++ b/Titan/TitanTemplate.lua @@ -0,0 +1,1550 @@ +--[[ File +NAME: TitanPanelTemplate.lua +DESC: Contains the routines to handle a frame created as a Titan plugin. +--]] +--[[ API +NAME: TitanPanelTemplate overview +DESC: See TitanPanelButtonTemplate.xml also. + +A Titan plugin is a frame created using one of the button types in TitanPanelButtonTemplate.xml which inherits TitanPanelButtonTemplate. +The available plugin types are: +TitanPanelTextTemplate - A frame that only displays text ("$parentText") +TitanPanelIconTemplate - A frame that only displays an icon ("$parentIcon") +TitanPanelComboTemplate - A frame that displays an icon then text ("$parentIcon" "$parentText") + +Most plugins use the combo template. + +TitanPanelButtonTemplate.xml contains other templates available to be used. +TitanOptionsSliderTemplate - A frame that contains the basics of a slider control. See TitanVolume for an example. +TitanPanelChildButtonTemplate - A frame that allows a plugin within a plugin. The older version of TitanGold was an example. This may not be used anymore. + +Each template contains: +- a frame to handle a menu invoked by a right mouse click ("$parentRightClickMenu") +- default event handlers for + <OnLoad> + TitanPanelButton_OnLoad(self); + </OnLoad> + <OnShow> + TitanPanelButton_OnShow(self); + </OnShow> + <OnClick> + TitanPanelButton_OnClick(self, button); + </OnClick> + <OnEnter> + TitanPanelButton_OnEnter(self); + </OnEnter> + <OnLeave> + TitanPanelButton_OnLeave(self); + </OnLeave> +If these events are overridden then the default routine needs to be included! +:DESC +--]] + +-- Globals + +-- Constants +local TITAN_PANEL_LABEL_SEPARATOR = " " +local TITAN_PANEL_BUTTON_WIDTH_CHANGE_TOLERANCE = 10; +local TITAN_PANEL_BUTTON_TYPE_TEXT = 1; +local TITAN_PANEL_BUTTON_TYPE_ICON = 2; +local TITAN_PANEL_BUTTON_TYPE_COMBO = 3; +local TITAN_PANEL_BUTTON_TYPE_CUSTOM = 4; +local pluginOnEnter = nil; +local TITAN_PANEL_MOVE_ADDON = nil; +local TITAN_PANEL_DROPOFF_ADDON = nil; + +-- Library instances +local LibQTip = nil +local _G = getfenv(0); +local InCombatLockdown = _G.InCombatLockdown; +local media = LibStub("LibSharedMedia-3.0") + +-- +--========================== +-- Routines to handle moving and sizing of short bars +-- + +local function CheckBarBounds(self, width) + local result = {} + local err = "" + local res = "" + + local f_name = self:GetName() + local bar_name = TitanBarData[f_name].name + local locale_name = TitanBarData[f_name].locale_name + + if TitanBarData[f_name].user_move + and TitanBarDataVars[f_name].show + then + local tscale = TitanPanelGetVar("Scale") +--[===[ +print("CheckBounds" +.." '"..tostring(bar_name).."'" +.." "..(width == 0 and "drag" or "width").."" +.." T "..tostring(format("%0.1f", tscale)).."" +.." UI "..tostring(format("%0.1f", UIParent:GetEffectiveScale())).."" +) +--]===] + -- Assumes BOTTOMLEFT of screen per Short bar defaults. + -- Top and right adjust an addition pixel, + -- if resolution is not 'pixel perfect' rounding could cause algorithm to think bar is off screen + local orig_w = self:GetWidth() + local l_off = self:GetLeft() + local r_off = self:GetRight() + local t_off = self:GetTop() + local b_off = self:GetBottom() + local screen_right, screen_top = TitanUtils_ScreenSize() + + local w = 0 + local x_off = 0 + local y_off = 0 + local w_off = 0 +local show_errs = true + if (width == 0) then -- drag and drop + -- Keep the width + w_off = orig_w +--[===[ +print(">>CheckBounds" +.." '"..tostring(bar_name).."'" +.." l "..tostring(format("%0.1f", l_off)).."" +.." r "..tostring(format("%0.1f", r_off)).."" +.." t "..tostring(format("%0.1f", t_off)).."" +.." b "..tostring(format("%0.1f", b_off)).."" +.." et "..tostring(format("%0.1f", (t_off * tscale))).."" +) +--]===] + -- Assume all ok :) + x_off = l_off + y_off = b_off + res = "Ok" + if l_off < 0 then + x_off = 0 + err = "Off left side of screen, leaving on the edge." + res = "Off L" + elseif r_off > screen_right then + x_off = (screen_right - orig_w) - 1 + err = "Off right side of screen, leaving on the edge." + res = "Off R" + end + if show_errs and err ~= "" then + TitanPrint(locale_name.." "..err.."!!!!" + .." ["..tostring(format("%0.1f", x_off)).."]" + .." ["..tostring(format("%0.1f", y_off)).."]" + , "warning") + end + if (t_off * tscale) > screen_top then + y_off = b_off - ((t_off * tscale) - screen_top) - 1 + err = "Off top of screen, leaving on the edge." + res = "Off T" + elseif b_off < 0 then + y_off = 0 + err = "Off bottom of screen, leaving on the edge." + res = "Off B" + end + if show_errs and err ~= "" then + TitanPrint(locale_name.." "..err.."!!!!" + .." ["..tostring(format("%0.1f", x_off)).."]" + .." ["..tostring(format("%0.1f", y_off)).."]" + , "warning") + end + else -- width change + local min_w, min_h, max_w, max_h = self:GetResizeBounds() + -- Keep the X and Y + x_off = l_off + y_off = b_off + + w = orig_w + width + if w < min_w then + -- do nothing - too small + w_off = min_w + err = "Width too small. Set to min width." + res = "Too small" + elseif w > max_w then + w_off = max_w + err = "Width too big. Set to max width." -- too wide + res = "Too big" + elseif x_off + w > screen_right then + w_off = orig_w + err = "Off right side of screen, leaving on the edge." + res = "Off R" + else + w_off = w + res = "Ok" + end + self:SetSize(w_off, TITAN_PANEL_BAR_HEIGHT) + if show_errs and err ~= "" then + TitanPrint(locale_name.." "..err.."!!!!" + .." ["..tostring(format("%0.1f", orig_w)).."]" + .." ["..tostring(format("%0.1f", w_off)).."]" + , "warning") + end + end + +--[===[ +--[[ +print(">>CheckBounds" +.." '"..tostring(bar_name).."'" +.." '"..tostring(res).."'" +.."\n" +.." x "..tostring(format("%0.1f", l_off)).."" +.." => "..tostring(format("%0.1f", x_off)).."" +.."\n" +.." y "..tostring(format("%0.1f", b_off)).."" +.." => "..tostring(format("%0.1f", y_off)).."" +.."\n" +.." w "..tostring(format("%0.1f", orig_w)).."" +.." + "..tostring(format("%0.1f", width)).."" +.." = "..tostring(format("%0.1f", w_off)).."" +.."\n" +.." s "..tostring(format("%0.1f", screen_right)).."w" +.." x "..tostring(format("%0.1f", screen_top)).."h" +) +--]] +--]===] + + TitanVariables_SetBarPos(self, false, x_off, y_off, w_off) + else + -- Controlled with anchor points; cannot move so no check is needed + end + + if err == "" then + -- all is good + result.ok = true + else + result.ok = false + end + +--[[ +print("CheckBounds" +.." '"..tostring(locale_name).."'" +.." w "..tostring(format("%0.1f", orig_w)).."" +.." + "..tostring(format("%0.1f", w)).."" +.." = "..tostring(format("%0.1f", self:GetWidth())).."" +) +print(">>" +.." x "..tostring(format("%0.1f", x_off)).."" +.." => "..tostring(format("%0.1f", result.x)).."" +) +print(">>" +.." y "..tostring(format("%0.1f", y_off)).."" +.." => "..tostring(format("%0.1f", result.y)).."" +) +print(">>" +.." w "..tostring(format("%0.1f", self:GetWidth())).."" +.." s "..tostring(format("%0.1f", screen_edge)).."" +) +--]] + return result +end + +local function OnMoveStart(self) + if IsShiftKeyDown() then + if self:IsMovable() then + self.isMoving = true +--[[ +print("OnMoveStart" +.." "..tostring(self:GetName()).."" +.." "..tostring(IsShiftKeyDown()).."" +.." "..tostring(IsAltKeyDown()).."" +.."\n" +.." x "..tostring(format("%0.1f", self:GetLeft())).."" +.." y "..tostring(format("%0.1f", self:GetTop())).."" +) +--]] + self:StartMoving() + _G.GameTooltip:Hide() + end + else + -- Do not move + end +end + +local function OnMovingStop(self) + + self:StopMovingOrSizing() + self.isMoving = nil + + local res = CheckBarBounds(self, 0) +--[[ +print("OnMovingStop" +.." "..tostring(self:GetName()).."" +.." x: "..tostring(res.x).."" +.." y: "..tostring(res.y).."" +.." ok: "..tostring(res.ok).."" +) +--]] + if res.ok then + else + end + -- Seems overkill - this will recalc all bars... + TitanPanel_InitPanelBarButton("OnMovingStop") +end + +local function OnMouseWheel(self, d) + if IsShiftKeyDown() then + local old_w = self:GetWidth() + local res = CheckBarBounds(self, d) + if res.ok then + end +--[[ +print("wheel" +.." "..tostring(f_name).."" +.." old: "..tostring(old_w).."" +.." new: "..tostring(self:GetWidth()).."" +.." ok: "..tostring(res.ok).."" +) +--]] + -- Seems overkill - this will recalc all bars but recalc of textures could be needed... + TitanPanel_InitPanelBarButton("OnMouseWheel") + end +end + +--========================== + +--[[ local +NAME: TitanPanel_SetScale +DESC: Set the scale of each plugin and each Titan bar. +VAR: None +OUT: None +--]] +function TitanPanel_SetScale() + local scale = TitanPanelGetVar("Scale"); + + -- Set all the Titan bars + for idx,v in pairs (TitanBarData) do + local bar_name = TITAN_PANEL_DISPLAY_PREFIX..TitanBarData[idx].name + _G[bar_name]:SetScale(scale) + end + -- Set all the registered plugins + for index, value in pairs(TitanPlugins) do + if index then + TitanUtils_GetButton(index):SetScale(scale); + end + end +end + +--[[ local +NAME: TitanTooltip_AddTooltipText +DESC: Helper to add a line of tooltip text to the tooltip. +VAR: text - string +OUT: None +NOTE: +- Append a "\n" to the end if there is not one already there +:NOTE +--]] +local function TitanTooltip_AddTooltipText(text) + if ( text ) then + -- Append a "\n" to the end + if ( string.sub(text, -1, -1) ~= "\n" ) then + text = text.."\n"; + end + + -- See if the string is intended for a double column + for text1, text2 in string.gmatch(text, "([^\t\n]*)\t?([^\t\n]*)\n") do + if ( text2 ~= "" ) then + -- Add as double wide + GameTooltip:AddDoubleLine(text1, text2); + elseif ( text1 ~= "" ) then + -- Add single column line + GameTooltip:AddLine(text1); + else + -- Assume a blank line + GameTooltip:AddLine("\n"); + end + end + end +end + +--[[ local +NAME: TitanTooltip_SetOwnerPosition +DESC: Set both the parent and the position of GameTooltip for the plugin tooltip. +VAR: parent - reference to the frame to attach the tooltip to +VAR: anchorPoint - tooltip anchor location (side or corner) to use +VAR: relativeToFrame - string name name of the frame, usually the plugin), to attach the tooltip to +VAR: relativePoint - parent anchor location (side or corner) to use +VAR: xOffset - X offset from the anchor point +VAR: yOffset - Y offset from the anchor point +VAR: frame - reference to the tooltip +OUT: None +--]] +local function TitanTooltip_SetOwnerPosition(parent, anchorPoint, relativeToFrame, relativePoint, xOffset, yOffset, frame) + if not frame then + frame = _G["GameTooltip"] + end + -- Changes for 9.1.5 Removed the background template from the GameTooltip + -- Making changes to it difficult and possibly changing the tooltip globally. + + frame:SetOwner(parent, "ANCHOR_NONE"); + frame:SetPoint(anchorPoint, relativeToFrame, relativePoint, + xOffset, yOffset); + + -- set font size for the Game Tooltip + if not TitanPanelGetVar("DisableTooltipFont") then + if TitanTooltipScaleSet < 1 then + TitanTooltipOrigScale = frame:GetScale(); + TitanTooltipScaleSet = TitanTooltipScaleSet + 1; + end + frame:SetScale(TitanPanelGetVar("TooltipFont")); + end +end + +--[[ local +NAME: TitanTooltip_SetGameTooltip +DESC: Helper to set the tooltip of the given Titan plugin. +First check for a custom function. If no function then use the plugin tooltip title and text. +VAR: self - frame reference of the plugin +OUT: None +NOTE: +- If a custom function is given pcall (protected call) is used in case the function errors out. Currently the error is allowed to occur silently because it could generate a lot of text to chat. +:NOTE +--]] +local function TitanTooltip_SetGameTooltip(self) + if ( self.tooltipCustomFunction ) then +--[ + local tmp_txt = "" + local call_success + call_success, -- for pcall + tmp_txt = pcall (self.tooltipCustomFunction) +--]] +-- self.tooltipCustomFunction(); + elseif ( self.tooltipTitle ) then + GameTooltip:SetText(self.tooltipTitle, + HIGHLIGHT_FONT_COLOR.r, HIGHLIGHT_FONT_COLOR.g, HIGHLIGHT_FONT_COLOR.b); + if ( self.tooltipText ) then + TitanTooltip_AddTooltipText(self.tooltipText); + end + end + + GameTooltip:Show(); +end + +--[[ local +NAME: TitanTooltip_SetPanelTooltip +DESC: Helper to set the screen position of the tooltip of the given Titan plugin. +VAR: self - frame reference of the plugin +VAR: id - string name of the plugin +VAR: frame - reference to the tooltip +OUT: None +--]] +local function TitanTooltip_SetPanelTooltip(self, id, frame) + -- sanity checks + if not TitanPanelGetVar("ToolTipsShown") + or (TitanPanelGetVar("HideTipsInCombat") and InCombatLockdown()) then return end + + if not self.tooltipCustomFunction and not self.tooltipTitle then return end + + -- Set GameTooltip + local button = TitanUtils_GetButton(id); + local offscreenX, offscreenY; + local bar = TITAN_PANEL_DISPLAY_PREFIX..TitanUtils_GetWhichBar(id) + + -- Adjust the Y offset as needed + local rel_y = self:GetTop() - GameTooltip:GetHeight() + if rel_y > 0 then + pt = "TOP"; + rel_pt = "BOTTOM"; + else + -- too close to bottom of screen + pt = "BOTTOM"; + rel_pt = "TOP"; + end + local rel_x = self:GetLeft() + GameTooltip:GetHeight() + if ( rel_x < GetScreenWidth() ) then + -- menu will fit + pt = pt.."LEFT"; + rel_pt = rel_pt.."LEFT"; + else + pt = pt.."RIGHT"; + rel_pt = rel_pt.."RIGHT"; + end + +--[[ +print("_tooltip" +.." "..tostring(self:GetName()).."" +.." "..tostring(pt).."" +.." "..tostring(rel_pt).."" +.." "..tostring(format("%0.1f", GameTooltip:GetWidth())).."" +.." "..tostring(format("%0.1f", GameTooltip:GetHeight())).."" +) +--]] + TitanTooltip_SetOwnerPosition(button, pt, button:GetName(), rel_pt, 0, 0, frame) + TitanTooltip_SetGameTooltip(self); +end + +--[[ local +NAME: TitanPanelButton_SetTooltip +DESC: Set the tooltip of the given Titan plugin. +VAR: self - frame reference of the plugin +VAR: id - string name of the plugin +--]] +local function TitanPanelButton_SetTooltip(self, id) + -- ensure that the 'self' passed is a valid frame reference + if not self:GetName() then return end + + local call_success = nil + local tmp_txt = "" + local use_mod = TitanAllGetVar("UseTooltipModifer") + local use_alt = TitanAllGetVar("TooltipModiferAlt") + local use_ctrl = TitanAllGetVar("TooltipModiferCtrl") + local use_shift = TitanAllGetVar("TooltipModiferShift") + local ok = false + + if use_mod then + if (use_alt and IsAltKeyDown()) + or (use_ctrl and IsControlKeyDown()) + or (use_shift and IsShiftKeyDown()) + then + ok = true + end + else + ok = true + end + + self.tooltipCustomFunction = nil; + if ok and (id and TitanUtils_IsPluginRegistered(id)) then + local plugin = TitanUtils_GetPlugin(id); + if ( plugin.tooltipCustomFunction ) then + self.tooltipCustomFunction = plugin.tooltipCustomFunction; + TitanTooltip_SetPanelTooltip(self, id); + elseif ( plugin.tooltipTitle ) then + local tooltipTextFunc = _G[plugin.tooltipTextFunction]; + if ( tooltipTextFunc ) then + + if ok then -- display the tooltip + self.tooltipTitle = plugin.tooltipTitle; + call_success, -- for pcall + tmp_txt = pcall (tooltipTextFunc); + self.tooltipText = tmp_txt + -- self.tooltipText = tooltipTextFunc(); + TitanTooltip_SetPanelTooltip(self, id); + end + end + end + end +end + +--[[ local +NAME: TitanPanelButton_IsText +DESC: Is the given Titan plugin of type text? +VAR: id - string name of the plugin +OUT: boolean +--]] +local function TitanPanelButton_IsText(id) + if (TitanPanelButton_GetType(id) == TITAN_PANEL_BUTTON_TYPE_TEXT) then + return 1; + end +end + +--[[ local +NAME: TitanPanelButton_IsCombo +DESC: Is the given Titan plugin of type combo? +VAR: id - string name of the plugin +OUT: boolean +--]] +local function TitanPanelButton_IsCombo(id) + if (TitanPanelButton_GetType(id) == TITAN_PANEL_BUTTON_TYPE_COMBO) then + return 1; + end +end + +--[[ Titan +NAME: TitanPanelButton_IsIcon +DESC: Is the given Titan plugin of type icon? +VAR: id - string name of the plugin +OUT: boolean +--]] +function TitanPanelButton_IsIcon(id) + if (TitanPanelButton_GetType(id) == TITAN_PANEL_BUTTON_TYPE_ICON) then + return 1; + end +end + +--[[ local +NAME: TitanPanelButton_IsCustom +DESC: Is the given Titan plugin of type custom? +VAR: id - string name of the plugin +OUT: boolean +--]] +local function TitanPanelButton_IsCustom(id) + if (TitanPanelButton_GetType(id) == TITAN_PANEL_BUTTON_TYPE_CUSTOM) then + return 1; + end +end + +--[[ local +NAME: TitanPanelButton_OnDragStart +DESC: Handle the OnDragStart event of the given Titan plugin. +VAR: self - frame reference of the plugin +VAR: ChildButton - boolean +OUT: None +NOTE: +- Do nothing if the user has locked plugins or if in combat. +- Set the .isMoving of the plugin (frame) so other routine can check it. +- Set TITAN_PANEL_MOVING so any Titan routine will know a 'drag & drop' is in progress. +- Set TITAN_PANEL_MOVE_ADDON so sanity checks can be done on the 'drop'. +:NOTE +--]] +local function TitanPanelButton_OnDragStart(self, ChildButton) + if TitanPanelGetVar("LockButtons") or InCombatLockdown() then return end + + local frname = self; + if ChildButton then + frname = self:GetParent(); + end + + -- Clear button positions or we'll grab the button and all buttons 'after' + local i,j; + for i, j in pairs(TitanPanelSettings.Buttons) do + local pluginid = _G["TitanPanel"..TitanPanelSettings.Buttons[i].."Button"]; + if pluginid then + pluginid:ClearAllPoints() + end + end + + -- Start the drag; close any tooltips and open control frames + frname:StartMoving(); + frname.isMoving = true; + TitanUtils_CloseAllControlFrames(); + TitanPanelRightClickMenu_Close(); + if AceLibrary then + if AceLibrary:HasInstance("Dewdrop-2.0") then + AceLibrary("Dewdrop-2.0"):Close() + end + if AceLibrary:HasInstance("Tablet-2.0") then + AceLibrary("Tablet-2.0"):Close() + end + end + GameTooltip:Hide(); + -- LibQTip-1.0 support code + LibQTip = LibStub("LibQTip-1.0", true) + if LibQTip then + local key, tip + for key, tip in LibQTip:IterateTooltips() do + if tip then + local _, relativeTo = tip:GetPoint() + if relativeTo and relativeTo:GetName() == self:GetName() then + tip:Hide() + break + end + end + end + end + -- /LibQTip-1.0 support code + + -- Hold the plugin id so we can do checks on the drop + TITAN_PANEL_MOVE_ADDON = TitanUtils_GetButtonID(self:GetName()); + if ChildButton then + TITAN_PANEL_MOVE_ADDON = + TitanUtils_GetButtonID(self:GetParent():GetName()); + end + -- Tell Titan that a drag & drop is in process + TITAN_PANEL_MOVING = 1; + -- Store the OnEnter handler so the tooltip does not show - or other oddities + pluginOnEnter = self:GetScript("OnEnter") + self:SetScript("OnEnter", nil) +end + +--[[ local +NAME: TitanPanelButton_OnDragStop +DESC: Handle the OnDragStop event of the given Titan plugin. +VAR: self - frame reference of the plugin +VAR: ChildButton - boolean +OUT: None +NOTE: +- Clear the .isMoving of the plugin (frame). +- Clear TITAN_PANEL_MOVING. +- Clear TITAN_PANEL_MOVE_ADDON. +:NOTE +--]] +local function TitanPanelButton_OnDragStop(self, ChildButton) + if TitanPanelGetVar("LockButtons") then + return + end + local ok_to_move = true + local nonmovableFrom = false; + local nonmovableTo = false; + local frname = self; + if ChildButton then + frname = self:GetParent(); + end + if TITAN_PANEL_MOVING == 1 then + frname:StopMovingOrSizing(); + frname.isMoving = false; + TITAN_PANEL_MOVING = 0; + + -- See if the plugin is supposed to stay on the bar it is on + if TitanGetVar(TITAN_PANEL_MOVE_ADDON, "ForceBar") then + ok_to_move = false + end + + -- eventually there could be several reasons to not allow + -- the plugin to move + if ok_to_move then + local i,j; + for i, j in pairs(TitanPanelSettings.Buttons) do + local pluginid = + _G["TitanPanel"..TitanPanelSettings.Buttons[i].."Button"]; + if (pluginid and MouseIsOver(pluginid)) and frname ~= pluginid then + TITAN_PANEL_DROPOFF_ADDON = TitanPanelSettings.Buttons[i]; + end + end + + -- switching sides is not allowed + nonmovableFrom = TitanUtils_ToRight(TITAN_PANEL_MOVE_ADDON) + nonmovableTo = TitanUtils_ToRight(TITAN_PANEL_DROPOFF_ADDON) + if nonmovableTo ~= nonmovableFrom then + TITAN_PANEL_DROPOFF_ADDON = nil; + end + + if TITAN_PANEL_DROPOFF_ADDON == nil then + -- See if the plugin was dropped on a bar rather than + -- another plugin. + local bar + local tbar = nil + -- Find which bar it was dropped on + for idx,v in pairs(TitanBarData) do + bar = idx + if (bar and MouseIsOver(_G[bar])) then + tbar = bar + end + end + + if tbar then + TitanPanel_RemoveButton(TITAN_PANEL_MOVE_ADDON) + TitanUtils_AddButtonOnBar(TitanBarData[tbar].name, TITAN_PANEL_MOVE_ADDON) + else + -- not sure what the user did... + end + else + -- plugin was dropped on another plugin - swap (for now) + local dropoff = TitanUtils_GetCurrentIndex(TitanPanelSettings.Buttons + ,TITAN_PANEL_DROPOFF_ADDON); + local pickup = TitanUtils_GetCurrentIndex(TitanPanelSettings.Buttons + ,TITAN_PANEL_MOVE_ADDON); + local dropoffbar = TitanUtils_GetWhichBar(TITAN_PANEL_DROPOFF_ADDON); + local pickupbar = TitanUtils_GetWhichBar(TITAN_PANEL_MOVE_ADDON); + + if dropoff ~= nil and dropoff ~= "" then + -- TODO: Change to 'insert' rather than swap + TitanPanelSettings.Buttons[dropoff] = TITAN_PANEL_MOVE_ADDON; + TitanPanelSettings.Location[dropoff] = dropoffbar; + TitanPanelSettings.Buttons[pickup] = TITAN_PANEL_DROPOFF_ADDON; + TitanPanelSettings.Location[pickup] = pickupbar; + end + end + end + + -- This is important! The start drag cleared the button positions so + -- the buttons need to be put back properly. + TitanPanel_InitPanelButtons(); + TITAN_PANEL_MOVE_ADDON = nil; + TITAN_PANEL_DROPOFF_ADDON = nil; + -- Restore the OnEnter script handler + if pluginOnEnter then self:SetScript("OnEnter", pluginOnEnter) end + pluginOnEnter = nil; + end +end + +--[[ API +NAME: TitanOptionSlider_TooltipText +DESC: Set the color of the tooltip text to normal (white) with the value in green. +VAR: text - the label for value +VAR: value - the value +OUT: string - encoded color string of text and value +--]] +function TitanOptionSlider_TooltipText(text, value) + return (text or "?") .. " " .. GREEN_FONT_COLOR_CODE .. value .. FONT_COLOR_CODE_CLOSE; +end + +--[[ API +NAME: TitanPanelButton_OnLoad +DESC: Handle the OnLoad event of the requested Titan plugin. Ensure the plugin is set to be registered. +VAR: isChildButton - boolean +NOTE: +- This is called from the Titan plugin frame in the OnLoad event - usually as the frame is created. +- This starts the plugin registration process. See TitanUtils for more details on plugin registration. +- The plugin registration is a two step process because not all addons create Titan plugins in the frame create. The Titan feature of converting LDB addons to Titan plugins is an example. +:NOTE +--]] +function TitanPanelButton_OnLoad(self, isChildButton) -- Used by plugins + TitanUtils_PluginToRegister(self, isChildButton) +end + +--[[ API +NAME: TitanPanelPluginHandle_OnUpdate +DESC: A method to refresh the display of a Titan plugin. +VAR: table - the frame of the plugin +VAR: oldarg - nil or command +NOTE: +- This is used by some plugins. It is not used within Titan. +- The expected usage is either: +1) Table contains {<plugin id>, <update command>} +2) table = <plugin id> and oldarg = <update command> +- oldarg - nil or command +1 = refresh button +2 = refresh tooltip +3 = refresh button and tooltip +:NOTE +--]] +function TitanPanelPluginHandle_OnUpdate(table, oldarg) -- Used by plugins + local id, updateType = nil, nil + -- set the id and updateType + -- old method + if table and type(table) == "string" and oldarg then + id = table + updateType = oldarg + end + -- new method + if table and type(table) == "table" then + if table[1] then id = table[1] end + if table[2] then updateType = table[2] end + end + + -- id is required + if id then + if updateType == TITAN_PANEL_UPDATE_BUTTON + or updateType == TITAN_PANEL_UPDATE_ALL then + TitanPanelButton_UpdateButton(id) + end + + if (updateType == TITAN_PANEL_UPDATE_TOOLTIP + or updateType == TITAN_PANEL_UPDATE_ALL) + and MouseIsOver(_G["TitanPanel"..id.."Button"]) then + if TitanPanelRightClickMenu_IsVisible() or TITAN_PANEL_MOVING == 1 then + return + end + + TitanPanelButton_SetTooltip(_G["TitanPanel"..id.."Button"], id) + end + end +end + +--[[ API +NAME: TitanPanelDetectPluginMethod +DESC: Poorly named routine that sets the OnDragStart & OnDragStop scripts of a Titan plugin. +VAR: id - the string name of the plugin +VAR: isChildButton - boolean +--]] +function TitanPanelDetectPluginMethod(id, isChildButton) + -- Ensure the id is not nil + if not id then return end + local TitanPluginframe = _G["TitanPanel"..id.."Button"]; + if isChildButton then + TitanPluginframe = _G[id]; + end + -- Ensure the frame is valid + if not TitanPluginframe and TitanPluginframe:GetName() then return end -- sanity check... + + -- Set the OnDragStart script + TitanPluginframe:SetScript("OnDragStart", function(self) + if not IsShiftKeyDown() + and not IsControlKeyDown() + and not IsAltKeyDown() then + if isChildButton then + TitanPanelButton_OnDragStart(self, true); + else + TitanPanelButton_OnDragStart(self); + end + end + end) + + -- Set the OnDragStop script + TitanPluginframe:SetScript("OnDragStop", function(self) + if isChildButton then + TitanPanelButton_OnDragStop(self, true) + else + TitanPanelButton_OnDragStop(self); + end + end) +--[[ + -- Set the key down script - for modifiers + TitanPluginframe:SetScript("OnKeyDown", function(self) + if IsModifierKeyDown() then + TitanPanelButton_SetTooltip(self, id) + end + end) + + -- Set the key up script - for modifiers + TitanPluginframe:SetScript("OnKeyUp", function(self) + if IsModifierKeyDown() then + -- ? do nothing + else + GameTooltip:Hide() + end + end) +--]] +end + +--[[ API +NAME: TitanPanelButton_OnShow +DESC: Handle the OnShow event of the requested Titan plugin. +VAR:self - frame reference of the plugin +--]] +function TitanPanelButton_OnShow(self) -- Used by plugins + local id = nil; + -- ensure that the 'self' passed is a valid frame reference + if self and self:GetName() then + id = TitanUtils_GetButtonID(self:GetName()); + end + -- ensure that id is a valid Titan plugin + if (id) then + TitanPanelButton_UpdateButton(id, 1); + end +end + +--[[ API +NAME: TitanPanelButton_OnClick +DESC: Handle the OnClick mouse event of the requested Titan plugin. +VAR: self - frame reference of the plugin +VAR: button - mouse button that was clicked +VAR: isChildButton - boolean ! NO LONGER USED ! +NOTE: +- Only the left and right mouse buttons are handled by Titan. +:NOTE +--]] +function TitanPanelButton_OnClick(self, button, isChildButton) -- Used by plugins + local id + -- ensure that the 'self' passed is a valid frame reference + if self and self:GetName() then + id = TitanUtils_Ternary(isChildButton, + TitanUtils_GetParentButtonID(self:GetName()), + TitanUtils_GetButtonID(self:GetName())); + end + +--[[ +if self.TitanType == "macro" then +print("TPB OnClick" +.." "..tostring(self:GetName()).." " +.." "..tostring(button).." " +.." "..tostring(issecure()).." " +.." "..tostring(self:GetAttribute("type")).." " +.." "..tostring(self:GetAttribute("macrotext")).." " +) +end +--]] + if id then + local controlFrame = TitanUtils_GetControlFrame(id); + + if (button == "LeftButton") then + local isControlFrameShown; + if (not controlFrame) then + isControlFrameShown = false; + elseif (controlFrame:IsVisible()) then + isControlFrameShown = false; + else + isControlFrameShown = true; + end + + TitanUtils_CloseAllControlFrames(); + TitanPanelRightClickMenu_Close(); + + local position = TitanUtils_GetWhichBar(id) + if (isControlFrameShown) then + + -- Note: This uses anchor points to place the control frame relative to the plugin on the screen. + local parent = self:GetName() -- plugin with the control frame + local point = "" -- point of the control frame + local rel_point = "" -- The middle - top or bottom edge - of the plugin to anchor to + --[[ Mar 2023 : removed reference to Titan bar reference + Instead use the relative position on the screen to show the control (plugin) + frame properly. + NOTE: If Titan bars need a left click to show a control frame the offset + will need to be changed to use the cursor position like right click menu!! + --]] + if (self:GetTop() - controlFrame:GetHeight()) > 0 then + point = "TOP" + rel_point = "BOTTOM" + else -- below screen + point = "BOTTOM" + rel_point = "TOP" + end + + local x = 0 + local y = 0 + + controlFrame:ClearAllPoints(); + controlFrame:SetPoint(point.."LEFT", parent, rel_point, 0, 0) -- default left of plugin + + -- Adjust control frame position if it's off the screen + local offscreenX, offscreenY = TitanUtils_GetOffscreen(controlFrame); + if ( offscreenX == -1 ) then + -- Off to left of screen which should not happen... + elseif ( offscreenX == 1 ) then + -- off to right of screen, flip to right of plugin + controlFrame:ClearAllPoints(); + controlFrame:SetPoint(point.."RIGHT", parent, rel_point, 0, 0) + end + + controlFrame:Show(); + end + elseif (button == "RightButton") then + TitanUtils_CloseAllControlFrames(); + -- Show RightClickMenu anyway + TitanPanelRightClickMenu_Close(); + TitanPanelRightClickMenu_Toggle(self); + end + + GameTooltip:Hide(); + end +end + +--[[ API +NAME: TitanPanelButton_OnEnter +DESC: Handle the OnEnter cursor event of the requested Titan plugin. +VAR: self - frame reference of the plugin +VAR: isChildButton - boolean +NOTE: +- The cursor has moved over the plugin so show the plugin tooltip. +- Save same hassle by doing nothing if the tooltip is already shown or if the cursor is moving. +- If the "is moving" is set the user is dragging this plugin around so do nothing here. +:NOTE +--]] +function TitanPanelButton_OnEnter(self, isChildButton) -- Used by plugins + local id = nil; + -- ensure that the 'self' passed is a valid frame reference + if self and self:GetName() then + id = TitanUtils_Ternary(isChildButton, + TitanUtils_GetParentButtonID(self:GetName()), + TitanUtils_GetButtonID(self:GetName())); + end + + if (id) then + local controlFrame = TitanUtils_GetControlFrame(id); + if (controlFrame and controlFrame:IsVisible()) then + return; + elseif (TitanPanelRightClickMenu_IsVisible()) then + return; + else + if TITAN_PANEL_MOVING == 0 then + TitanPanelButton_SetTooltip(self, id); + end + if self.isMoving then + GameTooltip:Hide(); + end + end + end +end + +--[[ API +NAME: TitanPanelButton_OnLeave +DESC: Handle the OnLeave cursor event of the requested Titan plugin. +VAR: self - frame reference of the plugin +VAR: isChildButton - boolean +NOTE: +- The cursor has moved off the plugin so hide the plugin tooltip. +:NOTE +--]] +function TitanPanelButton_OnLeave(self, isChildButton) + local id = nil; + -- ensure that the 'self' passed is a valid frame reference + if self and self:GetName() then + id = TitanUtils_Ternary(isChildButton, + TitanUtils_GetParentButtonID(self:GetName()), + TitanUtils_GetButtonID(self:GetName())); + end + + if (id) then + GameTooltip:Hide(); + end + + if not TitanPanelGetVar("DisableTooltipFont") then + -- reset original Tooltip Scale + GameTooltip:SetScale(TitanTooltipOrigScale); + TitanTooltipScaleSet = 0; + end +end + +-- local routines for Update Button +--[[ local +NAME: TitanPanelButton_SetButtonText +DESC: Set / update the text of the given Titan plugin. +VAR: id - string name of the plugin +NOTE: +- The plugin is expected to tell Titan what routine is to be called in <self>.registry.buttonTextFunction. +- The text routine is called in protected mode (pcall) to ensure the Titan main routines still run. +:NOTE +--]] +local format_with_label = { [0] = "" } +for idx = 1, 4 do format_with_label[idx] = "%s%s" .. (TITAN_PANEL_LABEL_SEPARATOR .. "%s%s"):rep(idx - 1) end +local function TitanPanelButton_SetButtonText(id) + if not (id and TitanUtils_IsPluginRegistered(id)) then return end + + local buttonTextFunction = _G[TitanUtils_GetPlugin(id).buttonTextFunction]; + if not buttonTextFunction then return end + local button = TitanUtils_GetButton(id); + local buttonText = _G[button:GetName()..TITAN_PANEL_TEXT]; + + local newfont = media:Fetch("font", TitanPanelGetVar("FontName")) + if newfont then + buttonText:SetFont(newfont, TitanPanelGetVar("FontSize")) + end + + -- We'll be paranoid here and call the button text in protected mode. + -- In case the button text fails it will not take Titan with it... + local call_success, -- for pcall + label1, value1, label2, value2, label3, value3, label4, value4 = + pcall(buttonTextFunction, id) + + if call_success then + -- All is good + else + buttonText:SetText("<?>") +--[[ + local msg = tostring(id).." '"..label1.."'" + TitanPrint(msg, "error") +--]] + return + end + + --===================================== + -- Determine the label value pairs : 1 - 4 + -- Each could be custom per user + -- + -- NummLabelsSeen - used for the config to avoid confusing user + -- Plugin MUST have been shown at least once. + + -- In the case of first label only (no value), set the button and return. + if label1 and + not (label2 or label3 or label4 + or value1 or value2 or value3 or value4) then + buttonText:SetText(label1) + + TitanSetVar(id, "NumLabelsSeen", 1) + + return + end + + + local show_label = TitanGetVar(id, "ShowLabelText") + local values = 0 + if label1 or value1 then + values = 1 + if show_label then + if TitanGetVar(id, "CustomLabelTextShow") then + -- override the label per the user + label1 = TitanGetVar(id, "CustomLabelText") + else + end + else + label1 = "" + end + if label2 or value2 then + values = 2 + if show_label then + if TitanGetVar(id, "CustomLabel2TextShow") then + -- override the label per the user + label2 = TitanGetVar(id, "CustomLabel2Text") + else + end + else + label2 = "" + end + if label3 or value3 then + if show_label then + if TitanGetVar(id, "CustomLabel3TextShow") then + -- override the label per the user + label3 = TitanGetVar(id, "CustomLabel3Text") + else + end + else + label3 = "" + end + values = 3 + if label4 or value4 then + values = 4 + if show_label then + if TitanGetVar(id, "CustomLabel43TextShow") then + -- override the label per the user + label4 = TitanGetVar(id, "CustomLabel4Text") + else + end + else + label4 = "" + end + end + end + end + end + + TitanSetVar(id, "NumLabelsSeen", values) + + -- values tells which format to use from the array + buttonText:SetFormattedText(format_with_label[values], + label1 or "", value1 or "", + label2 or "", value2 or "", + label3 or "", value3 or "", + label4 or "", value4 or "" + ) +end + +--[[ local +NAME: TitanPanelButton_SetTextButtonWidth +DESC: Set the text width of the given Titan plugin that is text only. +VAR: id - string name of the plugin +VAR: setButtonWidth - new width +NOTE: +- Titan uses a tolerance setting to prevent endless updating of the text width. +:NOTE +--]] +local function TitanPanelButton_SetTextButtonWidth(id, setButtonWidth) + if (id) then + local button = TitanUtils_GetButton(id); + local text = _G[button:GetName()..TITAN_PANEL_TEXT]; + if ( setButtonWidth + or button:GetWidth() == 0 + or button:GetWidth() - text:GetWidth() > TITAN_PANEL_BUTTON_WIDTH_CHANGE_TOLERANCE + or button:GetWidth() - text:GetWidth() < -TITAN_PANEL_BUTTON_WIDTH_CHANGE_TOLERANCE ) then + button:SetWidth(text:GetWidth()); + TitanPanelButton_Justify(); + end + end +end + +--[[ local +NAME: TitanPanelButton_SetIconButtonWidth +DESC: Set the icon width of the given Titan plugin that is icon only. +VAR: id - string name of the plugin +NOTE: +- The plugin is expected to tell Titan what the icon width is in <self>.registry.iconButtonWidth. +:NOTE +--]] +local function TitanPanelButton_SetIconButtonWidth(id) + if (id) then + local button = TitanUtils_GetButton(id); + if ( TitanUtils_GetPlugin(id).iconButtonWidth ) then + button:SetWidth(TitanUtils_GetPlugin(id).iconButtonWidth); + end + end +end + +--[[ local +NAME: TitanPanelButton_SetComboButtonWidth +DESC: Set the icon width of the given Titan plugin that is a combo - icon & text. +VAR: id - string name of the plugin +VAR: setButtonWidth - new width +NOTE: +- The plugin is expected to tell Titan what the icon width is in <self>.registry.iconButtonWidth. +:NOTE +--]] +local function TitanPanelButton_SetComboButtonWidth(id, setButtonWidth) + if (id) then + local button = TitanUtils_GetButton(id) + if not button then return end -- sanity check + + local text = _G[button:GetName()..TITAN_PANEL_TEXT]; + local icon = _G[button:GetName().."Icon"]; + local iconWidth, iconButtonWidth, newButtonWidth; + + -- Get icon button width + iconButtonWidth = 0; + if ( TitanUtils_GetPlugin(id).iconButtonWidth ) then + iconButtonWidth = TitanUtils_GetPlugin(id).iconButtonWidth; + elseif ( icon:GetWidth() ) then + iconButtonWidth = icon:GetWidth(); + end + + if ( TitanGetVar(id, "ShowIcon") and ( iconButtonWidth ~= 0 ) ) then + icon:Show(); + text:ClearAllPoints(); + text:SetPoint("LEFT", icon:GetName(), "RIGHT", 2, 1); + + newButtonWidth = text:GetWidth() + iconButtonWidth; + else + icon:Hide(); + text:ClearAllPoints(); + text:SetPoint("LEFT", button:GetName(), "LEFT", 0, 1); + + newButtonWidth = text:GetWidth(); + end + + if ( setButtonWidth + or button:GetWidth() == 0 + or button:GetWidth() - newButtonWidth > TITAN_PANEL_BUTTON_WIDTH_CHANGE_TOLERANCE + or button:GetWidth() - newButtonWidth < -TITAN_PANEL_BUTTON_WIDTH_CHANGE_TOLERANCE ) + then + button:SetWidth(newButtonWidth); + TitanPanelButton_Justify(); + end + end +end + +--[[ API +NAME: TitanPanelButton_UpdateButton +DESC: Update the display of the given Titan plugin. +VAR: id - string name of the plugin +VAR: setButtonWidth - new width +--]] +function TitanPanelButton_UpdateButton(id, setButtonWidth) -- Used by plugins + local button, id = TitanUtils_GetButton(id); + local plugin = TitanUtils_GetPlugin(id) + -- safeguard to avoid errors + if not TitanUtils_IsPluginRegistered(id) then return end + + if ( TitanPanelButton_IsText(id) ) then + -- Update textButton + TitanPanelButton_SetButtonText(id); + TitanPanelButton_SetTextButtonWidth(id, setButtonWidth); + + elseif ( TitanPanelButton_IsIcon(id) ) then + -- Update iconButton + TitanPanelButton_SetButtonIcon(id, (plugin.iconCoords or nil), + (plugin.iconR or nil),(plugin.iconG or nil),(plugin.iconB or nil) + ); + TitanPanelButton_SetIconButtonWidth(id); + + elseif ( TitanPanelButton_IsCombo(id) ) then + -- Update comboButton + TitanPanelButton_SetButtonText(id); + TitanPanelButton_SetButtonIcon(id, (plugin.iconCoords or nil), + (plugin.iconR or nil),(plugin.iconG or nil),(plugin.iconB or nil) + ); + TitanPanelButton_SetComboButtonWidth(id, setButtonWidth); + end +end + + +--[[ API +NAME: TitanPanelButton_UpdateTooltip +DESC: Update the tooltip of the given Titan plugin. +VAR: self - frame reference of the plugin +--]] +function TitanPanelButton_UpdateTooltip(self) -- Used by plugins + if not self then return end + if (GameTooltip:IsOwned(self)) then + local id = TitanUtils_GetButtonID(self:GetName()); + + TitanPanelButton_SetTooltip(self, id); + end +end + +--[[ API +NAME: TitanPanelButton_SetButtonIcon +DESC: Set the icon of the given Titan plugin. +VAR: id - string name of the plugin +VAR: iconCoords - if given, this is the placing of the icon within the plugin +VAR: iconR - if given, this is the Red (RBG) setting of the icon +VAR: iconG - if given, this is the Green (RBG) setting of the icon +VAR: iconB - if given, this is the Blue (RBG) setting of the icon +--]] +function TitanPanelButton_SetButtonIcon(id, iconCoords, iconR, iconG, iconB) + if (id and TitanUtils_IsPluginRegistered(id)) then + local button = TitanUtils_GetButton(id); + local icon = _G[button:GetName().."Icon"]; + local iconTexture = TitanUtils_GetPlugin(id).icon; + local iconWidth = TitanUtils_GetPlugin(id).iconWidth; + + if (iconTexture) and icon then + icon:SetTexture(iconTexture); + end + if (iconWidth) and icon then + icon:SetWidth(iconWidth); + end + + -- support for iconCoords, iconR, iconG, iconB attributes + if iconCoords and icon then + icon:SetTexCoord(unpack(iconCoords)) + end + if iconR and iconG and iconB and icon then + icon:SetVertexColor(iconR, iconG, iconB) + end + end +end + +--[[ Titan +NAME: TitanPanelButton_GetType +DESC: Get the type of the given Titan plugin. +VAR: id - string name of the plugin +OUT: type - The type of the plugin (text, icon, combo (default)) +NOTE: +- This assumes that the developer is playing nice and is using the Titan templates as is... +:NOTE +--]] +function TitanPanelButton_GetType(id) + -- id is required + if (not id) then + return; + end + + local button = TitanUtils_GetButton(id); + local type; + if button then + local text = _G[button:GetName()..TITAN_PANEL_TEXT]; + local icon = _G[button:GetName().."Icon"]; + + if (text and icon) then + type = TITAN_PANEL_BUTTON_TYPE_COMBO; + elseif (text and not icon) then + type = TITAN_PANEL_BUTTON_TYPE_TEXT; + elseif (not text and icon) then + type = TITAN_PANEL_BUTTON_TYPE_ICON; + elseif (not text and not icon) then + type = TITAN_PANEL_BUTTON_TYPE_CUSTOM; + end + else + type = TITAN_PANEL_BUTTON_TYPE_COMBO; + end + + return type; +end + +--[[ Titan +NAME: TitanPanelButton_ApplyBarPos +DESC: Apply saved Bar position to the Bar frame. +VAR: frame_str - string name of the Bar frame +OUT: None +NOTE: +- Bit of a sledge hammer; used when loading a profile over the current so the Bars are properly placed. +:NOTE +--]] +function TitanPanelButton_ApplyBarPos(frame_str) + local frame = _G[frame_str] + local bdata = TitanBarData[frame] + local fdata = TitanBarDataVars[frame_str] + if frame and bdata and fdata then + frame:ClearAllPoints(); + if bdata.user_move then + frame:SetPoint(bdata.show.pt, bdata.show.rel_fr, bdata.show.rel_pt, fdata.off_x, fdata.off_y) + else + -- Set full bar, ignore + end + end +end + +--[[ Titan +NAME: TitanOptionsSliderTemplate_OnLoad +DESC: Loads the Backdrop for TitanOptionsSliderTemplate with new 9.0 API +VAR: self - The frame +--]] +function TitanOptionsSliderTemplate_OnLoad(self) + self:SetBackdrop({ + bgFile="Interface\\Buttons\\UI-SliderBar-Background", + edgeFile="Interface\\Buttons\\UI-SliderBar-Border", + tile = true, + insets = { + left = 6, + right = 6, + top = 3, + bottom = 3, + }, + tileSize = 8, + edgeSize = 8, + }) +end + +--[[ Titan +NAME: TitanPanel_InitPanelBarButton +DESC: Set the scale, texture (graphic), and transparancy of all the Titan bars based on the user selection. +VAR: None +OUT: None +--]] +function TitanPanel_InitPanelBarButton() + -- Set initial Panel Scale + TitanPanel_SetScale(); + + for idx,v in pairs (TitanBarData) do +-- CheckBarBounds(_G[idx], 0) + TitanPanel_SetBarTexture(idx) + end + + TitanPanelBarButton_DisplayBarsWanted("InitPanelBarButton") +end + +-- +--========================== +-- Routines to handle creation of Titan bars +-- +--[[ Titan +NAME: TitanPanelButton_CreateBar(frame_str) +DESC: Create a Titan bar that can show plugins. +VAR: frame_str - name of the frame +NOTE: +- This assumes ... +:NOTE +--]] +function TitanPanelButton_CreateBar(frame_str) + local this_bar = frame_str + local a_bar = CreateFrame("Button", this_bar, UIParent, "Titan_Bar__Display_Template") + + local bar_data = TitanBarData[this_bar] + + -- ====== + -- Scripts + a_bar:SetScript("OnEnter", function(self) TitanPanelBarButton_OnEnter(self) end) + a_bar:SetScript("OnLeave", function(self) TitanPanelBarButton_OnLeave(self) end) + a_bar:SetFrameStrata("DIALOG") + + local x, y, w = TitanVariables_GetBarPos(frame_str) + local sx, sy = TitanUtils_ScreenSize() +--[[ +print("_Create bar" +.." "..tostring(bar_data.name).."" +.."\n " +.." "..tostring(bar_data.name).."" +.." "..tostring(bar_data.show.pt).."" +.." "..tostring(bar_data.show.rel_fr).."" +.." "..tostring(bar_data.show.rel_pt).."" +.."\n " +.." "..tostring(bar_data.name).."" +.." "..tostring(format("%0.1f", x)).."" +.." "..tostring(format("%0.1f", y)).."" +.." "..tostring(format("%0.1f", w)).."" +) +--]] + if bar_data.user_move then + a_bar:SetPoint(bar_data.show.pt, bar_data.show.rel_fr, bar_data.show.rel_pt, x, y) + a_bar:SetMovable(true) + a_bar:SetResizable(true) + a_bar:EnableMouse(true) + a_bar:RegisterForDrag("LeftButton") + a_bar:SetScript("OnDragStart", OnMoveStart) + a_bar:SetScript("OnDragStop", OnMovingStop) + a_bar:SetScript("OnMouseWheel", OnMouseWheel) + a_bar:SetSize(w, TITAN_PANEL_BAR_HEIGHT) + else + -- Static full width bar + a_bar:SetPoint(bar_data.show.pt, bar_data.show.rel_fr, bar_data.show.rel_pt, x, y) + a_bar:SetPoint(bar_data.show.pt, bar_data.show.rel_fr, bar_data.show.rel_pt, x, y - TITAN_PANEL_BAR_HEIGHT) + end + + -- ====== + -- Bounds only effective on Short bars for now + -- Min : No smaller than the padding & one icon + -- Max : No wider than the screen + -- does not seem to work to restrict size automatically... + a_bar:SetResizeBounds(TitanBarData[this_bar].plugin_x_offset + 16, TITAN_PANEL_BAR_HEIGHT, sx, TITAN_PANEL_BAR_HEIGHT) + + a_bar:RegisterForClicks("LeftButtonUp", "RightButtonUp"); + a_bar:SetScript("OnClick", function(self, button) TitanPanelBarButton_OnClick(self, button) end) + + -- ====== + -- Frame for right clicks + f = CreateFrame("Frame", this_bar.."RightClickMenu", UIParent, "UIDropDownMenuTemplate") + + -- ====== + -- Hider for auto hide feature + local hide_bar_name = TITAN_PANEL_HIDE_PREFIX..bar_data.name + if bar_data.hider then +--[[ +print("_Create hide bar" +.." "..tostring(bar_data.name).."" +.." "..tostring(hide_bar_name).."" +) +--]] + + local hide_bar = CreateFrame("Button", hide_bar_name, UIParent, "TitanPanelBarButtonHiderTemplate") + hide_bar:SetFrameStrata("DIALOG") + hide_bar:SetPoint(bar_data.show.pt, bar_data.show.rel_fr, bar_data.show.rel_pt, x, -y) + + -- Set script handlers for display + hide_bar:RegisterForClicks("LeftButtonUp", "RightButtonUp"); + hide_bar:SetScript("OnEnter", function(self) TitanPanelBarButtonHider_OnEnter(self) end) + hide_bar:SetScript("OnLeave", function(self) TitanPanelBarButtonHider_OnLeave(self) end) + hide_bar:SetScript("OnClick", function(self, button) TitanPanelBarButton_OnClick(self, button) end) + + hide_bar:SetFrameStrata("BACKGROUND") + hide_bar:SetSize(sx, TITAN_PANEL_BAR_HEIGHT) + else + -- Not allowed for this bar + end +end + diff --git a/Titan/TitanTemplate.xml b/Titan/TitanTemplate.xml new file mode 100644 index 0000000..8c0b2c3 --- /dev/null +++ b/Titan/TitanTemplate.xml @@ -0,0 +1,172 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Button name="TitanPanelButtonTemplate" hidden="true" movable="true" virtual="true"> + <Scripts> + <OnLoad> + TitanPanelButton_OnLoad(self); + </OnLoad> + <OnShow> + TitanPanelButton_OnShow(self); + </OnShow> + <OnClick> + TitanPanelButton_OnClick(self, button); + </OnClick> + <OnEnter> + TitanPanelButton_OnEnter(self); + </OnEnter> + <OnLeave> + TitanPanelButton_OnLeave(self); + </OnLeave> + </Scripts> + </Button> + <Button name="TitanPanelChildButtonTemplate" hidden="true" virtual="true"> + <Scripts> + <OnLoad> + TitanPanelButton_OnLoad(self, true); + </OnLoad> + <OnClick> + TitanPanelButton_OnClick(self, button, true); + </OnClick> + <OnEnter> + TitanPanelButton_OnEnter(self, true); + </OnEnter> + <OnLeave> + TitanPanelButton_OnLeave(self, true); + </OnLeave> + </Scripts> + </Button> + <Button name="TitanPanelTextTemplate" inherits="TitanPanelButtonTemplate" virtual="true"> + <Size> + <AbsDimension x="0" y="16" /> + </Size> + <ButtonText name="$parentText" inherits="GameFontNormalSmall" justifyH="LEFT"> + <Anchors> + <Anchor point="LEFT"> + <Offset> + <AbsDimension x="0" y="1" /> + </Offset> + </Anchor> + </Anchors> + </ButtonText> + <PushedTextOffset> + <AbsDimension x="0" y="0"/> + </PushedTextOffset> + </Button> + <Button name="TitanPanelIconTemplate" inherits="TitanPanelButtonTemplate" virtual="true"> + <Size> + <AbsDimension x="16" y="16" /> + </Size> + <Layers> + <Layer level="ARTWORK"> + <Texture name="$parentIcon"> + <Size> + <AbsDimension x="16" y="16"/> + </Size> + <Anchors> + <Anchor point="LEFT" /> + </Anchors> + </Texture> + </Layer> + </Layers> + </Button> + <Button name="TitanPanelComboTemplate" inherits="TitanPanelButtonTemplate" virtual="true"> + <Size> + <AbsDimension x="0" y="16" /> + </Size> + <Layers> + <Layer level="ARTWORK"> + <Texture name="$parentIcon"> + <Size> + <AbsDimension x="0" y="16"/> + </Size> + <Anchors> + <Anchor point="LEFT" /> + </Anchors> + </Texture> + </Layer> + </Layers> + <ButtonText name="$parentText" inherits="GameFontNormalSmall" justifyH="LEFT" /> + <PushedTextOffset> + <AbsDimension x="0" y="0"/> + </PushedTextOffset> + </Button> + <Slider name="TitanOptionsSliderTemplate" orientation="VERTICAL" inherits="BackdropTemplate" virtual="true" enableMouse="true" > + <Size> + <AbsDimension x="10" y="100"/> + </Size> + <HitRectInsets> + <AbsInset left="-10" right="-10" top="0" bottom="0"/> + </HitRectInsets> + <Layers> + <Layer level="ARTWORK"> + <FontString name="$parentText" inherits="GameFontGreenSmall"> + <Anchors> + <Anchor point="LEFT" relativePoint="RIGHT"> + <Offset> + <AbsDimension x="2" y="0" /> + </Offset> + </Anchor> + </Anchors> + </FontString> + <FontString name="$parentLow" inherits="GameFontHighlightSmall" text="LOW"> + <Anchors> + <Anchor point="BOTTOM" relativePoint="TOP"> + <Offset> + <AbsDimension x="0" y="3"/> + </Offset> + </Anchor> + </Anchors> + </FontString> + <FontString name="$parentHigh" inherits="GameFontHighlightSmall" text="HIGH"> + <Anchors> + <Anchor point="TOP" relativePoint="BOTTOM"> + <Offset> + <AbsDimension x="0" y="0"/> + </Offset> + </Anchor> + </Anchors> + </FontString> + </Layer> + </Layers> + <ThumbTexture name="$parentThumb" file="Interface\Buttons\UI-SliderBar-Button-Vertical"> + <Size> + <AbsDimension x="32" y="32"/> + </Size> + </ThumbTexture> + <Scripts> + <!-- DF Appears Blizz moved EnableMouseWheel from declaration to code --> + <OnLoad> + TitanOptionsSliderTemplate_OnLoad(self); + + self:EnableMouseWheel(true); + </OnLoad> + </Scripts> + </Slider> + + <GameTooltip name="TitanPanelTooltip" inherits="GameTooltipTemplate" parent="UIParent" hidden="true"/> + <Button name="TitanPanelBarButtonHiderTemplate" frameStrata="BACKGROUND" toplevel="true" movable="true" parent="UIParent" virtual="true"> + <Scripts> + <OnLoad> + self:RegisterForClicks("LeftButtonUp", "RightButtonDown") + </OnLoad> + </Scripts> + <Size> + <AbsDimension x="2560" y="24"/> + </Size> + </Button> + + <!-- + This is a control frame used to capture events Titan is interested in. + Other buttons will be used for display. + --> + <Button name="TitanPanelBarButton" frameStrata="BACKGROUND" parent="UIParent"> + <Size> + <AbsDimension x="0" y="0"/> + </Size> + </Button> + + <Button name="Titan_Bar__Display_Template" frameStrata="DIALOG" inherits="BackdropTemplate" + toplevel="true" movable="true" parent="UIParent" virtual="true"> + </Button> + +</Ui> diff --git a/Titan/TitanUtils.lua b/Titan/TitanUtils.lua index 76aa62d..fe1e46a 100644 --- a/Titan/TitanUtils.lua +++ b/Titan/TitanUtils.lua @@ -255,13 +255,12 @@ function TitanUtils_PickBar() bar_list[v.order] = v end table.sort(bar_list, function(a, b) - return string.lower(a.order) - < string.lower(b.order) + return a.order < b.order end) for idx = 1, #bar_list do local bar_name = bar_list[idx].name - if TitanBarDataVars[idx].show then --if TitanPanelGetVar(bar_name.."_Show") then + if TitanBarDataVars[bar_list[idx].frame_name].show then --if TitanPanelGetVar(bar_name.."_Show") then return bar_name end end @@ -1588,7 +1587,7 @@ function TitanUtils_RegisterPlugin(plugin) pcall (TitanUtils_RegisterPluginProtected, plugin) -- pcall does not allow errors to propagate out. Any error -- is returned as text with the success / fail. - -- Think of it as sort of a try - catch block + -- Think of it as a try - catch block if call_success then -- all is good so write the return values to the plugin plugin.status = ret_val.result diff --git a/Titan/TitanVariables.lua b/Titan/TitanVariables.lua index 157ed7a..97f67ea 100644 --- a/Titan/TitanVariables.lua +++ b/Titan/TitanVariables.lua @@ -154,6 +154,7 @@ end --]] TitanBarData = { [TITAN_PANEL_DISPLAY_PREFIX.."Bar"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Bar", locale_name = L["TITAN_PANEL_MENU_TOP"], name = "Bar", vert = TITAN_TOP, order = 1, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Bar", @@ -166,6 +167,7 @@ TitanBarData = { user_move = false, }, [TITAN_PANEL_DISPLAY_PREFIX.."Bar2"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Bar2", locale_name = L["TITAN_PANEL_MENU_TOP2"], name = "Bar2", vert = TITAN_TOP, order = 2, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Bar2", @@ -179,6 +181,7 @@ TitanBarData = { }, -- no idea why -1 is needed for the bottom... seems anchoring to bottom is off a pixel [TITAN_PANEL_DISPLAY_PREFIX.."AuxBar2"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."AuxBar2", locale_name = L["TITAN_PANEL_MENU_BOTTOM2"], name = "AuxBar2", vert = TITAN_BOTTOM, order = 3, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."AuxBar2", @@ -191,6 +194,7 @@ TitanBarData = { user_move = false, }, [TITAN_PANEL_DISPLAY_PREFIX.."AuxBar"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."AuxBar", locale_name = L["TITAN_PANEL_MENU_BOTTOM"], name = "AuxBar", vert = TITAN_BOTTOM, order = 4, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."AuxBar", @@ -204,6 +208,7 @@ TitanBarData = { user_move = false, }, [TITAN_PANEL_DISPLAY_PREFIX.."Short01"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Short01", locale_name = SHORT.." 01", name = "Short01", vert = TITAN_SHORT, order = 5, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Short01", @@ -215,6 +220,7 @@ TitanBarData = { user_move = true, }, [TITAN_PANEL_DISPLAY_PREFIX.."Short02"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Short02", locale_name = SHORT.." 02", name = "Short02", vert = TITAN_SHORT, order = 6, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Short02", @@ -226,6 +232,7 @@ TitanBarData = { user_move = true, }, [TITAN_PANEL_DISPLAY_PREFIX.."Short03"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Short03", locale_name = SHORT.." 03", name = "Short03", vert = TITAN_SHORT, order = 7, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Short03", @@ -237,6 +244,7 @@ TitanBarData = { user_move = true, }, [TITAN_PANEL_DISPLAY_PREFIX.."Short04"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Short04", locale_name = SHORT.." 04", name = "Short04", vert = TITAN_SHORT, order = 8, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Short04", @@ -248,6 +256,7 @@ TitanBarData = { user_move = true, }, [TITAN_PANEL_DISPLAY_PREFIX.."Short05"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Short05", locale_name = SHORT.." 05", name = "Short05", vert = TITAN_SHORT, order = 9, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Short05", @@ -259,6 +268,7 @@ TitanBarData = { user_move = true, }, [TITAN_PANEL_DISPLAY_PREFIX.."Short06"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Short06", locale_name = SHORT.." 06", name = "Short06", vert = TITAN_SHORT, order = 10, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Short06", @@ -270,6 +280,7 @@ TitanBarData = { user_move = true, }, [TITAN_PANEL_DISPLAY_PREFIX.."Short07"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Short07", locale_name = SHORT.." 07", name = "Short07", vert = TITAN_SHORT, order = 11, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Short07", @@ -281,6 +292,7 @@ TitanBarData = { user_move = true, }, [TITAN_PANEL_DISPLAY_PREFIX.."Short08"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Short08", locale_name = SHORT.." 08", name = "Short08", vert = TITAN_SHORT, order = 12, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Short08", @@ -292,6 +304,7 @@ TitanBarData = { user_move = true, }, [TITAN_PANEL_DISPLAY_PREFIX.."Short09"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Short09", locale_name = SHORT.." 09", name = "Short09", vert = TITAN_SHORT, order = 13, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Short09", @@ -303,6 +316,7 @@ TitanBarData = { user_move = true, }, [TITAN_PANEL_DISPLAY_PREFIX.."Short10"] = { + frame_name = TITAN_PANEL_DISPLAY_PREFIX.."Short10", locale_name = SHORT.." 10", name = "Short10", vert = TITAN_SHORT, order = 14, tex_name = TITAN_PANEL_BACKGROUND_PREFIX.."Short10", @@ -921,6 +935,22 @@ TitanDumpPlayerList() end end + -- Current Titan list known - all toons player has logged into so far; + -- sort in alphabetical order. + -- Used for menus. + TitanVars.players = {} + for idx, v in pairs (TitanSettings.Players) do + table.insert(TitanVars.players, idx) + end + table.sort(TitanVars.players, function(a, b) + return a < b + end) +--[===[ +for idx = 1, #TitanVars.players do + print("["..idx.."] : '"..TitanVars.players[idx].."'") +end +--]===] + TitanSettings.Version = TITAN_VERSION; return new_toon diff --git a/Titan/_Titan_Lib_Notes.txt b/Titan/_Titan_Lib_Notes.txt new file mode 100644 index 0000000..db2545a --- /dev/null +++ b/Titan/_Titan_Lib_Notes.txt @@ -0,0 +1,11 @@ +*** 2023-04-12 *** +- libs created folder for Ace libraries for clarity +- Moved LDB lib to libs +*** 2021-02-10 *** +* Ace3 removed : !LibUIDropDownMenu : https://www.wowace.com/projects/libuidropdownmenu +*** 2020-12-02 *** +* Ace3 release is used +* Added : +- !LibUIDropDownMenu : https://www.wowace.com/projects/libuidropdownmenu +- AceGUI-3.0-SharedMediaWidgets : https://www.wowace.com/projects/ace-gui-3-0-shared-media-widgets +- LibSharedMedia-3.0 : https://www.wowace.com/projects/libsharedmedia-3-0 diff --git a/Titan/embeds.xml b/Titan/embeds.xml deleted file mode 100644 index cb2f89a..0000000 --- a/Titan/embeds.xml +++ /dev/null @@ -1,15 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - -<Script file="libs\LibStub\LibStub.lua"/> -<Include file="libs\CallbackHandler-1.0\CallbackHandler-1.0.xml"/> -<Include file="libs\AceAddon-3.0\AceAddon-3.0.xml"/> -<Include file="libs\AceHook-3.0\AceHook-3.0.xml"/> -<Include file="libs\AceTimer-3.0\AceTimer-3.0.xml"/> -<Include file="libs\AceGUI-3.0\AceGUI-3.0.xml"/> -<Include file="libs\AceConfig-3.0\AceConfig-3.0.xml"/> -<Include file="libs\AceLocale-3.0\AceLocale-3.0.xml"/> -<Include file="libs\LibSharedMedia-3.0\lib.xml"/> -<Include file="libs\AceGUI-3.0-SharedMediaWidgets\widget.xml"/> -<Include file="libs\LibQTip-1.0\lib.xml"/> -</Ui> diff --git a/Titan/libs/Ace/Ace3.lua b/Titan/libs/Ace/Ace3.lua new file mode 100644 index 0000000..3461a23 --- /dev/null +++ b/Titan/libs/Ace/Ace3.lua @@ -0,0 +1,110 @@ + +-- This file is only there in standalone Ace3 and provides handy dev tool stuff I guess +-- for now only /rl to reload your UI :) +-- note the complete overkill use of AceAddon and console, ain't it cool? + +-- GLOBALS: next, loadstring, ReloadUI, geterrorhandler +-- GLOBALS: BINDING_HEADER_ACE3, BINDING_NAME_RELOADUI, Ace3, LibStub + +-- BINDINGs labels +BINDING_HEADER_ACE3 = "Ace3" +BINDING_NAME_RELOADUI = "ReloadUI" +-- + +local gui = LibStub("AceGUI-3.0") +local reg = LibStub("AceConfigRegistry-3.0") +local dialog = LibStub("AceConfigDialog-3.0") + +Ace3 = LibStub("AceAddon-3.0"):NewAddon("Ace3", "AceConsole-3.0") +local Ace3 = Ace3 + +local selectedgroup +local frame +local select +local status = {} +local configs = {} + +local function frameOnClose() + gui:Release(frame) + frame = nil +end + +local function RefreshConfigs() + for name in reg:IterateOptionsTables() do + configs[name] = name + end +end + +local function ConfigSelected(widget, event, value) + selectedgroup = value + dialog:Open(value, widget) +end + +local old_CloseSpecialWindows + +-- GLOBALS: CloseSpecialWindows, next +function Ace3:Open() + if not old_CloseSpecialWindows then + old_CloseSpecialWindows = CloseSpecialWindows + CloseSpecialWindows = function() + local found = old_CloseSpecialWindows() + if frame then + frame:Hide() + return true + end + return found + end + end + RefreshConfigs() + if next(configs) == nil then + self:Print("No Configs are Registered") + return + end + + if not frame then + frame = gui:Create("Frame") + frame:ReleaseChildren() + frame:SetTitle("Ace3 Options") + frame:SetLayout("FILL") + frame:SetCallback("OnClose", frameOnClose) + + select = gui:Create("DropdownGroup") + select:SetGroupList(configs) + select:SetCallback("OnGroupSelected", ConfigSelected) + frame:AddChild(select) + end + if not selectedgroup then + selectedgroup = next(configs) + end + select:SetGroup(selectedgroup) + frame:Show() +end + +local function RefreshOnUpdate(this) + select:SetGroup(selectedgroup) + this:SetScript("OnUpdate", nil) +end + +function Ace3:ConfigTableChanged(event, appName) + if selectedgroup == appName and frame then + frame.frame:SetScript("OnUpdate", RefreshOnUpdate) + end +end + +reg.RegisterCallback(Ace3, "ConfigTableChange", "ConfigTableChanged") + +function Ace3:PrintCmd(input) + input = input:trim():match("^(.-);*$") + local func, err = loadstring("LibStub(\"AceConsole-3.0\"):Print(" .. input .. ")") + if not func then + LibStub("AceConsole-3.0"):Print("Error: " .. err) + else + func() + end +end + +function Ace3:OnInitialize() + self:RegisterChatCommand("ace3", function() self:Open() end) + self:RegisterChatCommand("rl", function() ReloadUI() end) + self:RegisterChatCommand("print", "PrintCmd") +end diff --git a/Titan/libs/Ace/Ace3.toc b/Titan/libs/Ace/Ace3.toc new file mode 100644 index 0000000..1b59e11 --- /dev/null +++ b/Titan/libs/Ace/Ace3.toc @@ -0,0 +1,27 @@ +## Interface: 90001 + +## Title: Lib: Ace3 +## Notes: AddOn development framework +## Author: Ace3 Development Team +## X-Website: http://www.wowace.com +## X-Category: Library +## X-License: Limited BSD + +LibStub\LibStub.lua +CallbackHandler-1.0\CallbackHandler-1.0.xml +AceAddon-3.0\AceAddon-3.0.xml +AceEvent-3.0\AceEvent-3.0.xml +AceTimer-3.0\AceTimer-3.0.xml +AceBucket-3.0\AceBucket-3.0.xml +AceHook-3.0\AceHook-3.0.xml +AceDB-3.0\AceDB-3.0.xml +AceDBOptions-3.0\AceDBOptions-3.0.xml +AceLocale-3.0\AceLocale-3.0.xml +AceConsole-3.0\AceConsole-3.0.xml +AceGUI-3.0\AceGUI-3.0.xml +AceConfig-3.0\AceConfig-3.0.xml +AceComm-3.0\AceComm-3.0.xml +AceTab-3.0\AceTab-3.0.xml +AceSerializer-3.0\AceSerializer-3.0.xml + +Ace3.lua diff --git a/Titan/libs/Ace/AceAddon-3.0/AceAddon-3.0.lua b/Titan/libs/Ace/AceAddon-3.0/AceAddon-3.0.lua new file mode 100644 index 0000000..1b63bd1 --- /dev/null +++ b/Titan/libs/Ace/AceAddon-3.0/AceAddon-3.0.lua @@ -0,0 +1,653 @@ +--- **AceAddon-3.0** provides a template for creating addon objects. +-- It'll provide you with a set of callback functions that allow you to simplify the loading +-- process of your addon.\\ +-- Callbacks provided are:\\ +-- * **OnInitialize**, which is called directly after the addon is fully loaded. +-- * **OnEnable** which gets called during the PLAYER_LOGIN event, when most of the data provided by the game is already present. +-- * **OnDisable**, which is only called when your addon is manually being disabled. +-- @usage +-- -- A small (but complete) addon, that doesn't do anything, +-- -- but shows usage of the callbacks. +-- local MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon") +-- +-- function MyAddon:OnInitialize() +-- -- do init tasks here, like loading the Saved Variables, +-- -- or setting up slash commands. +-- end +-- +-- function MyAddon:OnEnable() +-- -- Do more initialization here, that really enables the use of your addon. +-- -- Register Events, Hook functions, Create Frames, Get information from +-- -- the game that wasn't available in OnInitialize +-- end +-- +-- function MyAddon:OnDisable() +-- -- Unhook, Unregister Events, Hide frames that you created. +-- -- You would probably only use an OnDisable if you want to +-- -- build a "standby" mode, or be able to toggle modules on/off. +-- end +-- @class file +-- @name AceAddon-3.0.lua +-- @release $Id: AceAddon-3.0.lua 1238 2020-08-28 16:18:42Z nevcairiel $ + +local MAJOR, MINOR = "AceAddon-3.0", 13 +local AceAddon, oldminor = LibStub:NewLibrary(MAJOR, MINOR) + +if not AceAddon then return end -- No Upgrade needed. + +AceAddon.frame = AceAddon.frame or CreateFrame("Frame", "AceAddon30Frame") -- Our very own frame +AceAddon.addons = AceAddon.addons or {} -- addons in general +AceAddon.statuses = AceAddon.statuses or {} -- statuses of addon. +AceAddon.initializequeue = AceAddon.initializequeue or {} -- addons that are new and not initialized +AceAddon.enablequeue = AceAddon.enablequeue or {} -- addons that are initialized and waiting to be enabled +AceAddon.embeds = AceAddon.embeds or setmetatable({}, {__index = function(tbl, key) tbl[key] = {} return tbl[key] end }) -- contains a list of libraries embedded in an addon + +-- Lua APIs +local tinsert, tconcat, tremove = table.insert, table.concat, table.remove +local fmt, tostring = string.format, tostring +local select, pairs, next, type, unpack = select, pairs, next, type, unpack +local loadstring, assert, error = loadstring, assert, error +local setmetatable, getmetatable, rawset, rawget = setmetatable, getmetatable, rawset, rawget + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: LibStub, IsLoggedIn, geterrorhandler + +--[[ + xpcall safecall implementation +]] +local xpcall = xpcall + +local function errorhandler(err) + return geterrorhandler()(err) +end + +local function safecall(func, ...) + -- we check to see if the func is passed is actually a function here and don't error when it isn't + -- this safecall is used for optional functions like OnInitialize OnEnable etc. When they are not + -- present execution should continue without hinderance + if type(func) == "function" then + return xpcall(func, errorhandler, ...) + end +end + +-- local functions that will be implemented further down +local Enable, Disable, EnableModule, DisableModule, Embed, NewModule, GetModule, GetName, SetDefaultModuleState, SetDefaultModuleLibraries, SetEnabledState, SetDefaultModulePrototype + +-- used in the addon metatable +local function addontostring( self ) return self.name end + +-- Check if the addon is queued for initialization +local function queuedForInitialization(addon) + for i = 1, #AceAddon.initializequeue do + if AceAddon.initializequeue[i] == addon then + return true + end + end + return false +end + +--- Create a new AceAddon-3.0 addon. +-- Any libraries you specified will be embeded, and the addon will be scheduled for +-- its OnInitialize and OnEnable callbacks. +-- The final addon object, with all libraries embeded, will be returned. +-- @paramsig [object ,]name[, lib, ...] +-- @param object Table to use as a base for the addon (optional) +-- @param name Name of the addon object to create +-- @param lib List of libraries to embed into the addon +-- @usage +-- -- Create a simple addon object +-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon", "AceEvent-3.0") +-- +-- -- Create a Addon object based on the table of a frame +-- local MyFrame = CreateFrame("Frame") +-- MyAddon = LibStub("AceAddon-3.0"):NewAddon(MyFrame, "MyAddon", "AceEvent-3.0") +function AceAddon:NewAddon(objectorname, ...) + local object,name + local i=1 + if type(objectorname)=="table" then + object=objectorname + name=... + i=2 + else + name=objectorname + end + if type(name)~="string" then + error(("Usage: NewAddon([object,] name, [lib, lib, lib, ...]): 'name' - string expected got '%s'."):format(type(name)), 2) + end + if self.addons[name] then + error(("Usage: NewAddon([object,] name, [lib, lib, lib, ...]): 'name' - Addon '%s' already exists."):format(name), 2) + end + + object = object or {} + object.name = name + + local addonmeta = {} + local oldmeta = getmetatable(object) + if oldmeta then + for k, v in pairs(oldmeta) do addonmeta[k] = v end + end + addonmeta.__tostring = addontostring + + setmetatable( object, addonmeta ) + self.addons[name] = object + object.modules = {} + object.orderedModules = {} + object.defaultModuleLibraries = {} + Embed( object ) -- embed NewModule, GetModule methods + self:EmbedLibraries(object, select(i,...)) + + -- add to queue of addons to be initialized upon ADDON_LOADED + tinsert(self.initializequeue, object) + return object +end + + +--- Get the addon object by its name from the internal AceAddon registry. +-- Throws an error if the addon object cannot be found (except if silent is set). +-- @param name unique name of the addon object +-- @param silent if true, the addon is optional, silently return nil if its not found +-- @usage +-- -- Get the Addon +-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") +function AceAddon:GetAddon(name, silent) + if not silent and not self.addons[name] then + error(("Usage: GetAddon(name): 'name' - Cannot find an AceAddon '%s'."):format(tostring(name)), 2) + end + return self.addons[name] +end + +-- - Embed a list of libraries into the specified addon. +-- This function will try to embed all of the listed libraries into the addon +-- and error if a single one fails. +-- +-- **Note:** This function is for internal use by :NewAddon/:NewModule +-- @paramsig addon, [lib, ...] +-- @param addon addon object to embed the libs in +-- @param lib List of libraries to embed into the addon +function AceAddon:EmbedLibraries(addon, ...) + for i=1,select("#", ... ) do + local libname = select(i, ...) + self:EmbedLibrary(addon, libname, false, 4) + end +end + +-- - Embed a library into the addon object. +-- This function will check if the specified library is registered with LibStub +-- and if it has a :Embed function to call. It'll error if any of those conditions +-- fails. +-- +-- **Note:** This function is for internal use by :EmbedLibraries +-- @paramsig addon, libname[, silent[, offset]] +-- @param addon addon object to embed the library in +-- @param libname name of the library to embed +-- @param silent marks an embed to fail silently if the library doesn't exist (optional) +-- @param offset will push the error messages back to said offset, defaults to 2 (optional) +function AceAddon:EmbedLibrary(addon, libname, silent, offset) + local lib = LibStub:GetLibrary(libname, true) + if not lib and not silent then + error(("Usage: EmbedLibrary(addon, libname, silent, offset): 'libname' - Cannot find a library instance of %q."):format(tostring(libname)), offset or 2) + elseif lib and type(lib.Embed) == "function" then + lib:Embed(addon) + tinsert(self.embeds[addon], libname) + return true + elseif lib then + error(("Usage: EmbedLibrary(addon, libname, silent, offset): 'libname' - Library '%s' is not Embed capable"):format(libname), offset or 2) + end +end + +--- Return the specified module from an addon object. +-- Throws an error if the addon object cannot be found (except if silent is set) +-- @name //addon//:GetModule +-- @paramsig name[, silent] +-- @param name unique name of the module +-- @param silent if true, the module is optional, silently return nil if its not found (optional) +-- @usage +-- -- Get the Addon +-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") +-- -- Get the Module +-- MyModule = MyAddon:GetModule("MyModule") +function GetModule(self, name, silent) + if not self.modules[name] and not silent then + error(("Usage: GetModule(name, silent): 'name' - Cannot find module '%s'."):format(tostring(name)), 2) + end + return self.modules[name] +end + +local function IsModuleTrue(self) return true end + +--- Create a new module for the addon. +-- The new module can have its own embeded libraries and/or use a module prototype to be mixed into the module.\\ +-- A module has the same functionality as a real addon, it can have modules of its own, and has the same API as +-- an addon object. +-- @name //addon//:NewModule +-- @paramsig name[, prototype|lib[, lib, ...]] +-- @param name unique name of the module +-- @param prototype object to derive this module from, methods and values from this table will be mixed into the module (optional) +-- @param lib List of libraries to embed into the addon +-- @usage +-- -- Create a module with some embeded libraries +-- MyModule = MyAddon:NewModule("MyModule", "AceEvent-3.0", "AceHook-3.0") +-- +-- -- Create a module with a prototype +-- local prototype = { OnEnable = function(self) print("OnEnable called!") end } +-- MyModule = MyAddon:NewModule("MyModule", prototype, "AceEvent-3.0", "AceHook-3.0") +function NewModule(self, name, prototype, ...) + if type(name) ~= "string" then error(("Usage: NewModule(name, [prototype, [lib, lib, lib, ...]): 'name' - string expected got '%s'."):format(type(name)), 2) end + if type(prototype) ~= "string" and type(prototype) ~= "table" and type(prototype) ~= "nil" then error(("Usage: NewModule(name, [prototype, [lib, lib, lib, ...]): 'prototype' - table (prototype), string (lib) or nil expected got '%s'."):format(type(prototype)), 2) end + + if self.modules[name] then error(("Usage: NewModule(name, [prototype, [lib, lib, lib, ...]): 'name' - Module '%s' already exists."):format(name), 2) end + + -- modules are basically addons. We treat them as such. They will be added to the initializequeue properly as well. + -- NewModule can only be called after the parent addon is present thus the modules will be initialized after their parent is. + local module = AceAddon:NewAddon(fmt("%s_%s", self.name or tostring(self), name)) + + module.IsModule = IsModuleTrue + module:SetEnabledState(self.defaultModuleState) + module.moduleName = name + + if type(prototype) == "string" then + AceAddon:EmbedLibraries(module, prototype, ...) + else + AceAddon:EmbedLibraries(module, ...) + end + AceAddon:EmbedLibraries(module, unpack(self.defaultModuleLibraries)) + + if not prototype or type(prototype) == "string" then + prototype = self.defaultModulePrototype or nil + end + + if type(prototype) == "table" then + local mt = getmetatable(module) + mt.__index = prototype + setmetatable(module, mt) -- More of a Base class type feel. + end + + safecall(self.OnModuleCreated, self, module) -- Was in Ace2 and I think it could be a cool thing to have handy. + self.modules[name] = module + tinsert(self.orderedModules, module) + + return module +end + +--- Returns the real name of the addon or module, without any prefix. +-- @name //addon//:GetName +-- @paramsig +-- @usage +-- print(MyAddon:GetName()) +-- -- prints "MyAddon" +function GetName(self) + return self.moduleName or self.name +end + +--- Enables the Addon, if possible, return true or false depending on success. +-- This internally calls AceAddon:EnableAddon(), thus dispatching a OnEnable callback +-- and enabling all modules of the addon (unless explicitly disabled).\\ +-- :Enable() also sets the internal `enableState` variable to true +-- @name //addon//:Enable +-- @paramsig +-- @usage +-- -- Enable MyModule +-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") +-- MyModule = MyAddon:GetModule("MyModule") +-- MyModule:Enable() +function Enable(self) + self:SetEnabledState(true) + + -- nevcairiel 2013-04-27: don't enable an addon/module if its queued for init still + -- it'll be enabled after the init process + if not queuedForInitialization(self) then + return AceAddon:EnableAddon(self) + end +end + +--- Disables the Addon, if possible, return true or false depending on success. +-- This internally calls AceAddon:DisableAddon(), thus dispatching a OnDisable callback +-- and disabling all modules of the addon.\\ +-- :Disable() also sets the internal `enableState` variable to false +-- @name //addon//:Disable +-- @paramsig +-- @usage +-- -- Disable MyAddon +-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") +-- MyAddon:Disable() +function Disable(self) + self:SetEnabledState(false) + return AceAddon:DisableAddon(self) +end + +--- Enables the Module, if possible, return true or false depending on success. +-- Short-hand function that retrieves the module via `:GetModule` and calls `:Enable` on the module object. +-- @name //addon//:EnableModule +-- @paramsig name +-- @usage +-- -- Enable MyModule using :GetModule +-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") +-- MyModule = MyAddon:GetModule("MyModule") +-- MyModule:Enable() +-- +-- -- Enable MyModule using the short-hand +-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") +-- MyAddon:EnableModule("MyModule") +function EnableModule(self, name) + local module = self:GetModule( name ) + return module:Enable() +end + +--- Disables the Module, if possible, return true or false depending on success. +-- Short-hand function that retrieves the module via `:GetModule` and calls `:Disable` on the module object. +-- @name //addon//:DisableModule +-- @paramsig name +-- @usage +-- -- Disable MyModule using :GetModule +-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") +-- MyModule = MyAddon:GetModule("MyModule") +-- MyModule:Disable() +-- +-- -- Disable MyModule using the short-hand +-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") +-- MyAddon:DisableModule("MyModule") +function DisableModule(self, name) + local module = self:GetModule( name ) + return module:Disable() +end + +--- Set the default libraries to be mixed into all modules created by this object. +-- Note that you can only change the default module libraries before any module is created. +-- @name //addon//:SetDefaultModuleLibraries +-- @paramsig lib[, lib, ...] +-- @param lib List of libraries to embed into the addon +-- @usage +-- -- Create the addon object +-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon") +-- -- Configure default libraries for modules (all modules need AceEvent-3.0) +-- MyAddon:SetDefaultModuleLibraries("AceEvent-3.0") +-- -- Create a module +-- MyModule = MyAddon:NewModule("MyModule") +function SetDefaultModuleLibraries(self, ...) + if next(self.modules) then + error("Usage: SetDefaultModuleLibraries(...): cannot change the module defaults after a module has been registered.", 2) + end + self.defaultModuleLibraries = {...} +end + +--- Set the default state in which new modules are being created. +-- Note that you can only change the default state before any module is created. +-- @name //addon//:SetDefaultModuleState +-- @paramsig state +-- @param state Default state for new modules, true for enabled, false for disabled +-- @usage +-- -- Create the addon object +-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon") +-- -- Set the default state to "disabled" +-- MyAddon:SetDefaultModuleState(false) +-- -- Create a module and explicilty enable it +-- MyModule = MyAddon:NewModule("MyModule") +-- MyModule:Enable() +function SetDefaultModuleState(self, state) + if next(self.modules) then + error("Usage: SetDefaultModuleState(state): cannot change the module defaults after a module has been registered.", 2) + end + self.defaultModuleState = state +end + +--- Set the default prototype to use for new modules on creation. +-- Note that you can only change the default prototype before any module is created. +-- @name //addon//:SetDefaultModulePrototype +-- @paramsig prototype +-- @param prototype Default prototype for the new modules (table) +-- @usage +-- -- Define a prototype +-- local prototype = { OnEnable = function(self) print("OnEnable called!") end } +-- -- Set the default prototype +-- MyAddon:SetDefaultModulePrototype(prototype) +-- -- Create a module and explicitly Enable it +-- MyModule = MyAddon:NewModule("MyModule") +-- MyModule:Enable() +-- -- should print "OnEnable called!" now +-- @see NewModule +function SetDefaultModulePrototype(self, prototype) + if next(self.modules) then + error("Usage: SetDefaultModulePrototype(prototype): cannot change the module defaults after a module has been registered.", 2) + end + if type(prototype) ~= "table" then + error(("Usage: SetDefaultModulePrototype(prototype): 'prototype' - table expected got '%s'."):format(type(prototype)), 2) + end + self.defaultModulePrototype = prototype +end + +--- Set the state of an addon or module +-- This should only be called before any enabling actually happend, e.g. in/before OnInitialize. +-- @name //addon//:SetEnabledState +-- @paramsig state +-- @param state the state of an addon or module (enabled=true, disabled=false) +function SetEnabledState(self, state) + self.enabledState = state +end + + +--- Return an iterator of all modules associated to the addon. +-- @name //addon//:IterateModules +-- @paramsig +-- @usage +-- -- Enable all modules +-- for name, module in MyAddon:IterateModules() do +-- module:Enable() +-- end +local function IterateModules(self) return pairs(self.modules) end + +-- Returns an iterator of all embeds in the addon +-- @name //addon//:IterateEmbeds +-- @paramsig +local function IterateEmbeds(self) return pairs(AceAddon.embeds[self]) end + +--- Query the enabledState of an addon. +-- @name //addon//:IsEnabled +-- @paramsig +-- @usage +-- if MyAddon:IsEnabled() then +-- MyAddon:Disable() +-- end +local function IsEnabled(self) return self.enabledState end +local mixins = { + NewModule = NewModule, + GetModule = GetModule, + Enable = Enable, + Disable = Disable, + EnableModule = EnableModule, + DisableModule = DisableModule, + IsEnabled = IsEnabled, + SetDefaultModuleLibraries = SetDefaultModuleLibraries, + SetDefaultModuleState = SetDefaultModuleState, + SetDefaultModulePrototype = SetDefaultModulePrototype, + SetEnabledState = SetEnabledState, + IterateModules = IterateModules, + IterateEmbeds = IterateEmbeds, + GetName = GetName, +} +local function IsModule(self) return false end +local pmixins = { + defaultModuleState = true, + enabledState = true, + IsModule = IsModule, +} +-- Embed( target ) +-- target (object) - target object to embed aceaddon in +-- +-- this is a local function specifically since it's meant to be only called internally +function Embed(target, skipPMixins) + for k, v in pairs(mixins) do + target[k] = v + end + if not skipPMixins then + for k, v in pairs(pmixins) do + target[k] = target[k] or v + end + end +end + + +-- - Initialize the addon after creation. +-- This function is only used internally during the ADDON_LOADED event +-- It will call the **OnInitialize** function on the addon object (if present), +-- and the **OnEmbedInitialize** function on all embeded libraries. +-- +-- **Note:** Do not call this function manually, unless you're absolutely sure that you know what you are doing. +-- @param addon addon object to intialize +function AceAddon:InitializeAddon(addon) + safecall(addon.OnInitialize, addon) + + local embeds = self.embeds[addon] + for i = 1, #embeds do + local lib = LibStub:GetLibrary(embeds[i], true) + if lib then safecall(lib.OnEmbedInitialize, lib, addon) end + end + + -- we don't call InitializeAddon on modules specifically, this is handled + -- from the event handler and only done _once_ +end + +-- - Enable the addon after creation. +-- Note: This function is only used internally during the PLAYER_LOGIN event, or during ADDON_LOADED, +-- if IsLoggedIn() already returns true at that point, e.g. for LoD Addons. +-- It will call the **OnEnable** function on the addon object (if present), +-- and the **OnEmbedEnable** function on all embeded libraries.\\ +-- This function does not toggle the enable state of the addon itself, and will return early if the addon is disabled. +-- +-- **Note:** Do not call this function manually, unless you're absolutely sure that you know what you are doing. +-- Use :Enable on the addon itself instead. +-- @param addon addon object to enable +function AceAddon:EnableAddon(addon) + if type(addon) == "string" then addon = AceAddon:GetAddon(addon) end + if self.statuses[addon.name] or not addon.enabledState then return false end + + -- set the statuses first, before calling the OnEnable. this allows for Disabling of the addon in OnEnable. + self.statuses[addon.name] = true + + safecall(addon.OnEnable, addon) + + -- make sure we're still enabled before continueing + if self.statuses[addon.name] then + local embeds = self.embeds[addon] + for i = 1, #embeds do + local lib = LibStub:GetLibrary(embeds[i], true) + if lib then safecall(lib.OnEmbedEnable, lib, addon) end + end + + -- enable possible modules. + local modules = addon.orderedModules + for i = 1, #modules do + self:EnableAddon(modules[i]) + end + end + return self.statuses[addon.name] -- return true if we're disabled +end + +-- - Disable the addon +-- Note: This function is only used internally. +-- It will call the **OnDisable** function on the addon object (if present), +-- and the **OnEmbedDisable** function on all embeded libraries.\\ +-- This function does not toggle the enable state of the addon itself, and will return early if the addon is still enabled. +-- +-- **Note:** Do not call this function manually, unless you're absolutely sure that you know what you are doing. +-- Use :Disable on the addon itself instead. +-- @param addon addon object to enable +function AceAddon:DisableAddon(addon) + if type(addon) == "string" then addon = AceAddon:GetAddon(addon) end + if not self.statuses[addon.name] then return false end + + -- set statuses first before calling OnDisable, this allows for aborting the disable in OnDisable. + self.statuses[addon.name] = false + + safecall( addon.OnDisable, addon ) + + -- make sure we're still disabling... + if not self.statuses[addon.name] then + local embeds = self.embeds[addon] + for i = 1, #embeds do + local lib = LibStub:GetLibrary(embeds[i], true) + if lib then safecall(lib.OnEmbedDisable, lib, addon) end + end + -- disable possible modules. + local modules = addon.orderedModules + for i = 1, #modules do + self:DisableAddon(modules[i]) + end + end + + return not self.statuses[addon.name] -- return true if we're disabled +end + +--- Get an iterator over all registered addons. +-- @usage +-- -- Print a list of all installed AceAddon's +-- for name, addon in AceAddon:IterateAddons() do +-- print("Addon: " .. name) +-- end +function AceAddon:IterateAddons() return pairs(self.addons) end + +--- Get an iterator over the internal status registry. +-- @usage +-- -- Print a list of all enabled addons +-- for name, status in AceAddon:IterateAddonStatus() do +-- if status then +-- print("EnabledAddon: " .. name) +-- end +-- end +function AceAddon:IterateAddonStatus() return pairs(self.statuses) end + +-- Following Iterators are deprecated, and their addon specific versions should be used +-- e.g. addon:IterateEmbeds() instead of :IterateEmbedsOnAddon(addon) +function AceAddon:IterateEmbedsOnAddon(addon) return pairs(self.embeds[addon]) end +function AceAddon:IterateModulesOfAddon(addon) return pairs(addon.modules) end + +-- Blizzard AddOns which can load very early in the loading process and mess with Ace3 addon loading +local BlizzardEarlyLoadAddons = { + Blizzard_DebugTools = true, + Blizzard_TimeManager = true, + Blizzard_BattlefieldMap = true, + Blizzard_MapCanvas = true, + Blizzard_SharedMapDataProviders = true, + Blizzard_CombatLog = true, +} + +-- Event Handling +local function onEvent(this, event, arg1) + -- 2020-08-28 nevcairiel - ignore the load event of Blizzard addons which occur early in the loading process + if (event == "ADDON_LOADED" and (arg1 == nil or not BlizzardEarlyLoadAddons[arg1])) or event == "PLAYER_LOGIN" then + -- if a addon loads another addon, recursion could happen here, so we need to validate the table on every iteration + while(#AceAddon.initializequeue > 0) do + local addon = tremove(AceAddon.initializequeue, 1) + -- this might be an issue with recursion - TODO: validate + if event == "ADDON_LOADED" then addon.baseName = arg1 end + AceAddon:InitializeAddon(addon) + tinsert(AceAddon.enablequeue, addon) + end + + if IsLoggedIn() then + while(#AceAddon.enablequeue > 0) do + local addon = tremove(AceAddon.enablequeue, 1) + AceAddon:EnableAddon(addon) + end + end + end +end + +AceAddon.frame:RegisterEvent("ADDON_LOADED") +AceAddon.frame:RegisterEvent("PLAYER_LOGIN") +AceAddon.frame:SetScript("OnEvent", onEvent) + +-- upgrade embeded +for name, addon in pairs(AceAddon.addons) do + Embed(addon, true) +end + +-- 2010-10-27 nevcairiel - add new "orderedModules" table +if oldminor and oldminor < 10 then + for name, addon in pairs(AceAddon.addons) do + addon.orderedModules = {} + for module_name, module in pairs(addon.modules) do + tinsert(addon.orderedModules, module) + end + end +end diff --git a/Titan/libs/Ace/AceAddon-3.0/AceAddon-3.0.xml b/Titan/libs/Ace/AceAddon-3.0/AceAddon-3.0.xml new file mode 100644 index 0000000..dcf24c7 --- /dev/null +++ b/Titan/libs/Ace/AceAddon-3.0/AceAddon-3.0.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="AceAddon-3.0.lua"/> +</Ui> diff --git a/Titan/libs/Ace/AceConfig-3.0/AceConfig-3.0.lua b/Titan/libs/Ace/AceConfig-3.0/AceConfig-3.0.lua new file mode 100644 index 0000000..5071cdc --- /dev/null +++ b/Titan/libs/Ace/AceConfig-3.0/AceConfig-3.0.lua @@ -0,0 +1,58 @@ +--- AceConfig-3.0 wrapper library. +-- Provides an API to register an options table with the config registry, +-- as well as associate it with a slash command. +-- @class file +-- @name AceConfig-3.0 +-- @release $Id: AceConfig-3.0.lua 1202 2019-05-15 23:11:22Z nevcairiel $ + +--[[ +AceConfig-3.0 + +Very light wrapper library that combines all the AceConfig subcomponents into one more easily used whole. + +]] + +local cfgreg = LibStub("AceConfigRegistry-3.0") +local cfgcmd = LibStub("AceConfigCmd-3.0") + +local MAJOR, MINOR = "AceConfig-3.0", 3 +local AceConfig = LibStub:NewLibrary(MAJOR, MINOR) + +if not AceConfig then return end + +--TODO: local cfgdlg = LibStub("AceConfigDialog-3.0", true) +--TODO: local cfgdrp = LibStub("AceConfigDropdown-3.0", true) + +-- Lua APIs +local pcall, error, type, pairs = pcall, error, type, pairs + +-- ------------------------------------------------------------------- +-- :RegisterOptionsTable(appName, options, slashcmd, persist) +-- +-- - appName - (string) application name +-- - options - table or function ref, see AceConfigRegistry +-- - slashcmd - slash command (string) or table with commands, or nil to NOT create a slash command + +--- Register a option table with the AceConfig registry. +-- You can supply a slash command (or a table of slash commands) to register with AceConfigCmd directly. +-- @paramsig appName, options [, slashcmd] +-- @param appName The application name for the config table. +-- @param options The option table (or a function to generate one on demand). http://www.wowace.com/addons/ace3/pages/ace-config-3-0-options-tables/ +-- @param slashcmd A slash command to register for the option table, or a table of slash commands. +-- @usage +-- local AceConfig = LibStub("AceConfig-3.0") +-- AceConfig:RegisterOptionsTable("MyAddon", myOptions, {"/myslash", "/my"}) +function AceConfig:RegisterOptionsTable(appName, options, slashcmd) + local ok,msg = pcall(cfgreg.RegisterOptionsTable, self, appName, options) + if not ok then error(msg, 2) end + + if slashcmd then + if type(slashcmd) == "table" then + for _,cmd in pairs(slashcmd) do + cfgcmd:CreateChatCommand(cmd, appName) + end + else + cfgcmd:CreateChatCommand(slashcmd, appName) + end + end +end diff --git a/Titan/libs/Ace/AceConfig-3.0/AceConfig-3.0.xml b/Titan/libs/Ace/AceConfig-3.0/AceConfig-3.0.xml new file mode 100644 index 0000000..a3569b7 --- /dev/null +++ b/Titan/libs/Ace/AceConfig-3.0/AceConfig-3.0.xml @@ -0,0 +1,8 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Include file="AceConfigRegistry-3.0\AceConfigRegistry-3.0.xml"/> + <Include file="AceConfigCmd-3.0\AceConfigCmd-3.0.xml"/> + <Include file="AceConfigDialog-3.0\AceConfigDialog-3.0.xml"/> + <!--<Include file="AceConfigDropdown-3.0\AceConfigDropdown-3.0.xml"/>--> + <Script file="AceConfig-3.0.lua"/> +</Ui> diff --git a/Titan/libs/Ace/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.lua b/Titan/libs/Ace/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.lua new file mode 100644 index 0000000..5113875 --- /dev/null +++ b/Titan/libs/Ace/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.lua @@ -0,0 +1,794 @@ +--- AceConfigCmd-3.0 handles access to an options table through the "command line" interface via the ChatFrames. +-- @class file +-- @name AceConfigCmd-3.0 +-- @release $Id: AceConfigCmd-3.0.lua 1202 2019-05-15 23:11:22Z nevcairiel $ + +--[[ +AceConfigCmd-3.0 + +Handles commandline optionstable access + +REQUIRES: AceConsole-3.0 for command registration (loaded on demand) + +]] + +-- TODO: plugin args + +local cfgreg = LibStub("AceConfigRegistry-3.0") + +local MAJOR, MINOR = "AceConfigCmd-3.0", 14 +local AceConfigCmd = LibStub:NewLibrary(MAJOR, MINOR) + +if not AceConfigCmd then return end + +AceConfigCmd.commands = AceConfigCmd.commands or {} +local commands = AceConfigCmd.commands + +local AceConsole -- LoD +local AceConsoleName = "AceConsole-3.0" + +-- Lua APIs +local strsub, strsplit, strlower, strmatch, strtrim = string.sub, string.split, string.lower, string.match, string.trim +local format, tonumber, tostring = string.format, tonumber, tostring +local tsort, tinsert = table.sort, table.insert +local select, pairs, next, type = select, pairs, next, type +local error, assert = error, assert + +-- WoW APIs +local _G = _G + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: LibStub, SELECTED_CHAT_FRAME, DEFAULT_CHAT_FRAME + + +local L = setmetatable({}, { -- TODO: replace with proper locale + __index = function(self,k) return k end +}) + + + +local function print(msg) + (SELECTED_CHAT_FRAME or DEFAULT_CHAT_FRAME):AddMessage(msg) +end + +-- constants used by getparam() calls below + +local handlertypes = {["table"]=true} +local handlermsg = "expected a table" + +local functypes = {["function"]=true, ["string"]=true} +local funcmsg = "expected function or member name" + + +-- pickfirstset() - picks the first non-nil value and returns it + +local function pickfirstset(...) + for i=1,select("#",...) do + if select(i,...)~=nil then + return select(i,...) + end + end +end + + +-- err() - produce real error() regarding malformed options tables etc + +local function err(info,inputpos,msg ) + local cmdstr=" "..strsub(info.input, 1, inputpos-1) + error(MAJOR..": /" ..info[0] ..cmdstr ..": "..(msg or "malformed options table"), 2) +end + + +-- usererr() - produce chatframe message regarding bad slash syntax etc + +local function usererr(info,inputpos,msg ) + local cmdstr=strsub(info.input, 1, inputpos-1); + print("/" ..info[0] .. " "..cmdstr ..": "..(msg or "malformed options table")) +end + + +-- callmethod() - call a given named method (e.g. "get", "set") with given arguments + +local function callmethod(info, inputpos, tab, methodtype, ...) + local method = info[methodtype] + if not method then + err(info, inputpos, "'"..methodtype.."': not set") + end + + info.arg = tab.arg + info.option = tab + info.type = tab.type + + if type(method)=="function" then + return method(info, ...) + elseif type(method)=="string" then + if type(info.handler[method])~="function" then + err(info, inputpos, "'"..methodtype.."': '"..method.."' is not a member function of "..tostring(info.handler)) + end + return info.handler[method](info.handler, info, ...) + else + assert(false) -- type should have already been checked on read + end +end + +-- callfunction() - call a given named function (e.g. "name", "desc") with given arguments + +local function callfunction(info, tab, methodtype, ...) + local method = tab[methodtype] + + info.arg = tab.arg + info.option = tab + info.type = tab.type + + if type(method)=="function" then + return method(info, ...) + else + assert(false) -- type should have already been checked on read + end +end + +-- do_final() - do the final step (set/execute) along with validation and confirmation + +local function do_final(info, inputpos, tab, methodtype, ...) + if info.validate then + local res = callmethod(info,inputpos,tab,"validate",...) + if type(res)=="string" then + usererr(info, inputpos, "'"..strsub(info.input, inputpos).."' - "..res) + return + end + end + -- console ignores .confirm + + callmethod(info,inputpos,tab,methodtype, ...) +end + + +-- getparam() - used by handle() to retreive and store "handler", "get", "set", etc + +local function getparam(info, inputpos, tab, depth, paramname, types, errormsg) + local old,oldat = info[paramname], info[paramname.."_at"] + local val=tab[paramname] + if val~=nil then + if val==false then + val=nil + elseif not types[type(val)] then + err(info, inputpos, "'" .. paramname.. "' - "..errormsg) + end + info[paramname] = val + info[paramname.."_at"] = depth + end + return old,oldat +end + + +-- iterateargs(tab) - custom iterator that iterates both t.args and t.plugins.* +local dummytable={} + +local function iterateargs(tab) + if not tab.plugins then + return pairs(tab.args) + end + + local argtabkey,argtab=next(tab.plugins) + local v + + return function(_, k) + while argtab do + k,v = next(argtab, k) + if k then return k,v end + if argtab==tab.args then + argtab=nil + else + argtabkey,argtab = next(tab.plugins, argtabkey) + if not argtabkey then + argtab=tab.args + end + end + end + end +end + +local function checkhidden(info, inputpos, tab) + if tab.cmdHidden~=nil then + return tab.cmdHidden + end + local hidden = tab.hidden + if type(hidden) == "function" or type(hidden) == "string" then + info.hidden = hidden + hidden = callmethod(info, inputpos, tab, 'hidden') + info.hidden = nil + end + return hidden +end + +local function showhelp(info, inputpos, tab, depth, noHead) + if not noHead then + print("|cff33ff99"..info.appName.."|r: Arguments to |cffffff78/"..info[0].."|r "..strsub(info.input,1,inputpos-1)..":") + end + + local sortTbl = {} -- [1..n]=name + local refTbl = {} -- [name]=tableref + + for k,v in iterateargs(tab) do + if not refTbl[k] then -- a plugin overriding something in .args + tinsert(sortTbl, k) + refTbl[k] = v + end + end + + tsort(sortTbl, function(one, two) + local o1 = refTbl[one].order or 100 + local o2 = refTbl[two].order or 100 + if type(o1) == "function" or type(o1) == "string" then + info.order = o1 + info[#info+1] = one + o1 = callmethod(info, inputpos, refTbl[one], "order") + info[#info] = nil + info.order = nil + end + if type(o2) == "function" or type(o1) == "string" then + info.order = o2 + info[#info+1] = two + o2 = callmethod(info, inputpos, refTbl[two], "order") + info[#info] = nil + info.order = nil + end + if o1<0 and o2<0 then return o1<o2 end + if o2<0 then return true end + if o1<0 then return false end + if o1==o2 then return tostring(one)<tostring(two) end -- compare names + return o1<o2 + end) + + for i = 1, #sortTbl do + local k = sortTbl[i] + local v = refTbl[k] + if not checkhidden(info, inputpos, v) then + if v.type ~= "description" and v.type ~= "header" then + -- recursively show all inline groups + local name, desc = v.name, v.desc + if type(name) == "function" then + name = callfunction(info, v, 'name') + end + if type(desc) == "function" then + desc = callfunction(info, v, 'desc') + end + if v.type == "group" and pickfirstset(v.cmdInline, v.inline, false) then + print(" "..(desc or name)..":") + local oldhandler,oldhandler_at = getparam(info, inputpos, v, depth, "handler", handlertypes, handlermsg) + showhelp(info, inputpos, v, depth, true) + info.handler,info.handler_at = oldhandler,oldhandler_at + else + local key = k:gsub(" ", "_") + print(" |cffffff78"..key.."|r - "..(desc or name or "")) + end + end + end + end +end + + +local function keybindingValidateFunc(text) + if text == nil or text == "NONE" then + return nil + end + text = text:upper() + local shift, ctrl, alt + local modifier + while true do + if text == "-" then + break + end + modifier, text = strsplit('-', text, 2) + if text then + if modifier ~= "SHIFT" and modifier ~= "CTRL" and modifier ~= "ALT" then + return false + end + if modifier == "SHIFT" then + if shift then + return false + end + shift = true + end + if modifier == "CTRL" then + if ctrl then + return false + end + ctrl = true + end + if modifier == "ALT" then + if alt then + return false + end + alt = true + end + else + text = modifier + break + end + end + if text == "" then + return false + end + if not text:find("^F%d+$") and text ~= "CAPSLOCK" and text:len() ~= 1 and (text:byte() < 128 or text:len() > 4) and not _G["KEY_" .. text] then + return false + end + local s = text + if shift then + s = "SHIFT-" .. s + end + if ctrl then + s = "CTRL-" .. s + end + if alt then + s = "ALT-" .. s + end + return s +end + +-- handle() - selfrecursing function that processes input->optiontable +-- - depth - starts at 0 +-- - retfalse - return false rather than produce error if a match is not found (used by inlined groups) + +local function handle(info, inputpos, tab, depth, retfalse) + + if not(type(tab)=="table" and type(tab.type)=="string") then err(info,inputpos) end + + ------------------------------------------------------------------- + -- Grab hold of handler,set,get,func,etc if set (and remember old ones) + -- Note that we do NOT validate if method names are correct at this stage, + -- the handler may change before they're actually used! + + local oldhandler,oldhandler_at = getparam(info,inputpos,tab,depth,"handler",handlertypes,handlermsg) + local oldset,oldset_at = getparam(info,inputpos,tab,depth,"set",functypes,funcmsg) + local oldget,oldget_at = getparam(info,inputpos,tab,depth,"get",functypes,funcmsg) + local oldfunc,oldfunc_at = getparam(info,inputpos,tab,depth,"func",functypes,funcmsg) + local oldvalidate,oldvalidate_at = getparam(info,inputpos,tab,depth,"validate",functypes,funcmsg) + --local oldconfirm,oldconfirm_at = getparam(info,inputpos,tab,depth,"confirm",functypes,funcmsg) + + ------------------------------------------------------------------- + -- Act according to .type of this table + + if tab.type=="group" then + ------------ group -------------------------------------------- + + if type(tab.args)~="table" then err(info, inputpos) end + if tab.plugins and type(tab.plugins)~="table" then err(info,inputpos) end + + -- grab next arg from input + local _,nextpos,arg = (info.input):find(" *([^ ]+) *", inputpos) + if not arg then + showhelp(info, inputpos, tab, depth) + return + end + nextpos=nextpos+1 + + -- loop .args and try to find a key with a matching name + for k,v in iterateargs(tab) do + if not(type(k)=="string" and type(v)=="table" and type(v.type)=="string") then err(info,inputpos, "options table child '"..tostring(k).."' is malformed") end + + -- is this child an inline group? if so, traverse into it + if v.type=="group" and pickfirstset(v.cmdInline, v.inline, false) then + info[depth+1] = k + if handle(info, inputpos, v, depth+1, true)==false then + info[depth+1] = nil + -- wasn't found in there, but that's ok, we just keep looking down here + else + return -- done, name was found in inline group + end + -- matching name and not a inline group + elseif strlower(arg)==strlower(k:gsub(" ", "_")) then + info[depth+1] = k + return handle(info,nextpos,v,depth+1) + end + end + + -- no match + if retfalse then + -- restore old infotable members and return false to indicate failure + info.handler,info.handler_at = oldhandler,oldhandler_at + info.set,info.set_at = oldset,oldset_at + info.get,info.get_at = oldget,oldget_at + info.func,info.func_at = oldfunc,oldfunc_at + info.validate,info.validate_at = oldvalidate,oldvalidate_at + --info.confirm,info.confirm_at = oldconfirm,oldconfirm_at + return false + end + + -- couldn't find the command, display error + usererr(info, inputpos, "'"..arg.."' - " .. L["unknown argument"]) + return + end + + local str = strsub(info.input,inputpos); + + if tab.type=="execute" then + ------------ execute -------------------------------------------- + do_final(info, inputpos, tab, "func") + + + + elseif tab.type=="input" then + ------------ input -------------------------------------------- + + local res = true + if tab.pattern then + if not(type(tab.pattern)=="string") then err(info, inputpos, "'pattern' - expected a string") end + if not strmatch(str, tab.pattern) then + usererr(info, inputpos, "'"..str.."' - " .. L["invalid input"]) + return + end + end + + do_final(info, inputpos, tab, "set", str) + + + + elseif tab.type=="toggle" then + ------------ toggle -------------------------------------------- + local b + local str = strtrim(strlower(str)) + if str=="" then + b = callmethod(info, inputpos, tab, "get") + + if tab.tristate then + --cycle in true, nil, false order + if b then + b = nil + elseif b == nil then + b = false + else + b = true + end + else + b = not b + end + + elseif str==L["on"] then + b = true + elseif str==L["off"] then + b = false + elseif tab.tristate and str==L["default"] then + b = nil + else + if tab.tristate then + usererr(info, inputpos, format(L["'%s' - expected 'on', 'off' or 'default', or no argument to toggle."], str)) + else + usererr(info, inputpos, format(L["'%s' - expected 'on' or 'off', or no argument to toggle."], str)) + end + return + end + + do_final(info, inputpos, tab, "set", b) + + + elseif tab.type=="range" then + ------------ range -------------------------------------------- + local val = tonumber(str) + if not val then + usererr(info, inputpos, "'"..str.."' - "..L["expected number"]) + return + end + if type(info.step)=="number" then + val = val- (val % info.step) + end + if type(info.min)=="number" and val<info.min then + usererr(info, inputpos, val.." - "..format(L["must be equal to or higher than %s"], tostring(info.min)) ) + return + end + if type(info.max)=="number" and val>info.max then + usererr(info, inputpos, val.." - "..format(L["must be equal to or lower than %s"], tostring(info.max)) ) + return + end + + do_final(info, inputpos, tab, "set", val) + + + elseif tab.type=="select" then + ------------ select ------------------------------------ + local str = strtrim(strlower(str)) + + local values = tab.values + if type(values) == "function" or type(values) == "string" then + info.values = values + values = callmethod(info, inputpos, tab, "values") + info.values = nil + end + + if str == "" then + local b = callmethod(info, inputpos, tab, "get") + local fmt = "|cffffff78- [%s]|r %s" + local fmt_sel = "|cffffff78- [%s]|r %s |cffff0000*|r" + print(L["Options for |cffffff78"..info[#info].."|r:"]) + for k, v in pairs(values) do + if b == k then + print(fmt_sel:format(k, v)) + else + print(fmt:format(k, v)) + end + end + return + end + + local ok + for k,v in pairs(values) do + if strlower(k)==str then + str = k -- overwrite with key (in case of case mismatches) + ok = true + break + end + end + if not ok then + usererr(info, inputpos, "'"..str.."' - "..L["unknown selection"]) + return + end + + do_final(info, inputpos, tab, "set", str) + + elseif tab.type=="multiselect" then + ------------ multiselect ------------------------------------------- + local str = strtrim(strlower(str)) + + local values = tab.values + if type(values) == "function" or type(values) == "string" then + info.values = values + values = callmethod(info, inputpos, tab, "values") + info.values = nil + end + + if str == "" then + local fmt = "|cffffff78- [%s]|r %s" + local fmt_sel = "|cffffff78- [%s]|r %s |cffff0000*|r" + print(L["Options for |cffffff78"..info[#info].."|r (multiple possible):"]) + for k, v in pairs(values) do + if callmethod(info, inputpos, tab, "get", k) then + print(fmt_sel:format(k, v)) + else + print(fmt:format(k, v)) + end + end + return + end + + --build a table of the selections, checking that they exist + --parse for =on =off =default in the process + --table will be key = true for options that should toggle, key = [on|off|default] for options to be set + local sels = {} + for v in str:gmatch("[^ ]+") do + --parse option=on etc + local opt, val = v:match('(.+)=(.+)') + --get option if toggling + if not opt then + opt = v + end + + --check that the opt is valid + local ok + for k,v in pairs(values) do + if strlower(k)==opt then + opt = k -- overwrite with key (in case of case mismatches) + ok = true + break + end + end + + if not ok then + usererr(info, inputpos, "'"..opt.."' - "..L["unknown selection"]) + return + end + + --check that if val was supplied it is valid + if val then + if val == L["on"] or val == L["off"] or (tab.tristate and val == L["default"]) then + --val is valid insert it + sels[opt] = val + else + if tab.tristate then + usererr(info, inputpos, format(L["'%s' '%s' - expected 'on', 'off' or 'default', or no argument to toggle."], v, val)) + else + usererr(info, inputpos, format(L["'%s' '%s' - expected 'on' or 'off', or no argument to toggle."], v, val)) + end + return + end + else + -- no val supplied, toggle + sels[opt] = true + end + end + + for opt, val in pairs(sels) do + local newval + + if (val == true) then + --toggle the option + local b = callmethod(info, inputpos, tab, "get", opt) + + if tab.tristate then + --cycle in true, nil, false order + if b then + b = nil + elseif b == nil then + b = false + else + b = true + end + else + b = not b + end + newval = b + else + --set the option as specified + if val==L["on"] then + newval = true + elseif val==L["off"] then + newval = false + elseif val==L["default"] then + newval = nil + end + end + + do_final(info, inputpos, tab, "set", opt, newval) + end + + + elseif tab.type=="color" then + ------------ color -------------------------------------------- + local str = strtrim(strlower(str)) + if str == "" then + --TODO: Show current value + return + end + + local r, g, b, a + + local hasAlpha = tab.hasAlpha + if type(hasAlpha) == "function" or type(hasAlpha) == "string" then + info.hasAlpha = hasAlpha + hasAlpha = callmethod(info, inputpos, tab, 'hasAlpha') + info.hasAlpha = nil + end + + if hasAlpha then + if str:len() == 8 and str:find("^%x*$") then + --parse a hex string + r,g,b,a = tonumber(str:sub(1, 2), 16) / 255, tonumber(str:sub(3, 4), 16) / 255, tonumber(str:sub(5, 6), 16) / 255, tonumber(str:sub(7, 8), 16) / 255 + else + --parse seperate values + r,g,b,a = str:match("^([%d%.]+) ([%d%.]+) ([%d%.]+) ([%d%.]+)$") + r,g,b,a = tonumber(r), tonumber(g), tonumber(b), tonumber(a) + end + if not (r and g and b and a) then + usererr(info, inputpos, format(L["'%s' - expected 'RRGGBBAA' or 'r g b a'."], str)) + return + end + + if r >= 0.0 and r <= 1.0 and g >= 0.0 and g <= 1.0 and b >= 0.0 and b <= 1.0 and a >= 0.0 and a <= 1.0 then + --values are valid + elseif r >= 0 and r <= 255 and g >= 0 and g <= 255 and b >= 0 and b <= 255 and a >= 0 and a <= 255 then + --values are valid 0..255, convert to 0..1 + r = r / 255 + g = g / 255 + b = b / 255 + a = a / 255 + else + --values are invalid + usererr(info, inputpos, format(L["'%s' - values must all be either in the range 0..1 or 0..255."], str)) + end + else + a = 1.0 + if str:len() == 6 and str:find("^%x*$") then + --parse a hex string + r,g,b = tonumber(str:sub(1, 2), 16) / 255, tonumber(str:sub(3, 4), 16) / 255, tonumber(str:sub(5, 6), 16) / 255 + else + --parse seperate values + r,g,b = str:match("^([%d%.]+) ([%d%.]+) ([%d%.]+)$") + r,g,b = tonumber(r), tonumber(g), tonumber(b) + end + if not (r and g and b) then + usererr(info, inputpos, format(L["'%s' - expected 'RRGGBB' or 'r g b'."], str)) + return + end + if r >= 0.0 and r <= 1.0 and g >= 0.0 and g <= 1.0 and b >= 0.0 and b <= 1.0 then + --values are valid + elseif r >= 0 and r <= 255 and g >= 0 and g <= 255 and b >= 0 and b <= 255 then + --values are valid 0..255, convert to 0..1 + r = r / 255 + g = g / 255 + b = b / 255 + else + --values are invalid + usererr(info, inputpos, format(L["'%s' - values must all be either in the range 0-1 or 0-255."], str)) + end + end + + do_final(info, inputpos, tab, "set", r,g,b,a) + + elseif tab.type=="keybinding" then + ------------ keybinding -------------------------------------------- + local str = strtrim(strlower(str)) + if str == "" then + --TODO: Show current value + return + end + local value = keybindingValidateFunc(str:upper()) + if value == false then + usererr(info, inputpos, format(L["'%s' - Invalid Keybinding."], str)) + return + end + + do_final(info, inputpos, tab, "set", value) + + elseif tab.type=="description" then + ------------ description -------------------- + -- ignore description, GUI config only + else + err(info, inputpos, "unknown options table item type '"..tostring(tab.type).."'") + end +end + +--- Handle the chat command. +-- This is usually called from a chat command handler to parse the command input as operations on an aceoptions table.\\ +-- AceConfigCmd uses this function internally when a slash command is registered with `:CreateChatCommand` +-- @param slashcmd The slash command WITHOUT leading slash (only used for error output) +-- @param appName The application name as given to `:RegisterOptionsTable()` +-- @param input The commandline input (as given by the WoW handler, i.e. without the command itself) +-- @usage +-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon", "AceConsole-3.0") +-- -- Use AceConsole-3.0 to register a Chat Command +-- MyAddon:RegisterChatCommand("mychat", "ChatCommand") +-- +-- -- Show the GUI if no input is supplied, otherwise handle the chat input. +-- function MyAddon:ChatCommand(input) +-- -- Assuming "MyOptions" is the appName of a valid options table +-- if not input or input:trim() == "" then +-- LibStub("AceConfigDialog-3.0"):Open("MyOptions") +-- else +-- LibStub("AceConfigCmd-3.0").HandleCommand(MyAddon, "mychat", "MyOptions", input) +-- end +-- end +function AceConfigCmd:HandleCommand(slashcmd, appName, input) + + local optgetter = cfgreg:GetOptionsTable(appName) + if not optgetter then + error([[Usage: HandleCommand("slashcmd", "appName", "input"): 'appName' - no options table "]]..tostring(appName)..[[" has been registered]], 2) + end + local options = assert( optgetter("cmd", MAJOR) ) + + local info = { -- Don't try to recycle this, it gets handed off to callbacks and whatnot + [0] = slashcmd, + appName = appName, + options = options, + input = input, + self = self, + handler = self, + uiType = "cmd", + uiName = MAJOR, + } + + handle(info, 1, options, 0) -- (info, inputpos, table, depth) +end + +--- Utility function to create a slash command handler. +-- Also registers tab completion with AceTab +-- @param slashcmd The slash command WITHOUT leading slash (only used for error output) +-- @param appName The application name as given to `:RegisterOptionsTable()` +function AceConfigCmd:CreateChatCommand(slashcmd, appName) + if not AceConsole then + AceConsole = LibStub(AceConsoleName) + end + if AceConsole.RegisterChatCommand(self, slashcmd, function(input) + AceConfigCmd.HandleCommand(self, slashcmd, appName, input) -- upgradable + end, + true) then -- succesfully registered so lets get the command -> app table in + commands[slashcmd] = appName + end +end + +--- Utility function that returns the options table that belongs to a slashcommand. +-- Designed to be used for the AceTab interface. +-- @param slashcmd The slash command WITHOUT leading slash (only used for error output) +-- @return The options table associated with the slash command (or nil if the slash command was not registered) +function AceConfigCmd:GetChatCommandOptions(slashcmd) + return commands[slashcmd] +end diff --git a/Titan/libs/Ace/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.xml b/Titan/libs/Ace/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.xml new file mode 100644 index 0000000..9e157b5 --- /dev/null +++ b/Titan/libs/Ace/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="AceConfigCmd-3.0.lua"/> +</Ui> diff --git a/Titan/libs/Ace/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua b/Titan/libs/Ace/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua new file mode 100644 index 0000000..a14e07d --- /dev/null +++ b/Titan/libs/Ace/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua @@ -0,0 +1,2015 @@ +--- AceConfigDialog-3.0 generates AceGUI-3.0 based windows based on option tables. +-- @class file +-- @name AceConfigDialog-3.0 +-- @release $Id: AceConfigDialog-3.0.lua 1232 2020-04-14 22:21:22Z nevcairiel $ + +local LibStub = LibStub +local gui = LibStub("AceGUI-3.0") +local reg = LibStub("AceConfigRegistry-3.0") + +local MAJOR, MINOR = "AceConfigDialog-3.0", 79 +local AceConfigDialog, oldminor = LibStub:NewLibrary(MAJOR, MINOR) + +if not AceConfigDialog then return end + +AceConfigDialog.OpenFrames = AceConfigDialog.OpenFrames or {} +AceConfigDialog.Status = AceConfigDialog.Status or {} +AceConfigDialog.frame = AceConfigDialog.frame or CreateFrame("Frame") +AceConfigDialog.tooltip = AceConfigDialog.tooltip or CreateFrame("GameTooltip", "AceConfigDialogTooltip", UIParent, "GameTooltipTemplate") + +AceConfigDialog.frame.apps = AceConfigDialog.frame.apps or {} +AceConfigDialog.frame.closing = AceConfigDialog.frame.closing or {} +AceConfigDialog.frame.closeAllOverride = AceConfigDialog.frame.closeAllOverride or {} + +-- Lua APIs +local tinsert, tsort, tremove = table.insert, table.sort, table.remove +local strmatch, format = string.match, string.format +local error = error +local pairs, next, select, type, unpack, wipe, ipairs = pairs, next, select, type, unpack, wipe, ipairs +local tostring, tonumber = tostring, tonumber +local math_min, math_max, math_floor = math.min, math.max, math.floor + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: NORMAL_FONT_COLOR, ACCEPT, CANCEL +-- GLOBALS: PlaySound, GameFontHighlight, GameFontHighlightSmall, GameFontHighlightLarge +-- GLOBALS: CloseSpecialWindows, InterfaceOptions_AddCategory, geterrorhandler + +local emptyTbl = {} + +--[[ + xpcall safecall implementation +]] +local xpcall = xpcall + +local function errorhandler(err) + return geterrorhandler()(err) +end + +local function safecall(func, ...) + if func then + return xpcall(func, errorhandler, ...) + end +end + +local width_multiplier = 170 + +--[[ +Group Types + Tree - All Descendant Groups will all become nodes on the tree, direct child options will appear above the tree + - Descendant Groups with inline=true and thier children will not become nodes + + Tab - Direct Child Groups will become tabs, direct child options will appear above the tab control + - Grandchild groups will default to inline unless specified otherwise + + Select- Same as Tab but with entries in a dropdown rather than tabs + + + Inline Groups + - Will not become nodes of a select group, they will be effectivly part of thier parent group seperated by a border + - If declared on a direct child of a root node of a select group, they will appear above the group container control + - When a group is displayed inline, all descendants will also be inline members of the group + +]] + +-- Recycling functions +local new, del, copy +--newcount, delcount,createdcount,cached = 0,0,0 +do + local pool = setmetatable({},{__mode="k"}) + function new() + --newcount = newcount + 1 + local t = next(pool) + if t then + pool[t] = nil + return t + else + --createdcount = createdcount + 1 + return {} + end + end + function copy(t) + local c = new() + for k, v in pairs(t) do + c[k] = v + end + return c + end + function del(t) + --delcount = delcount + 1 + wipe(t) + pool[t] = true + end +-- function cached() +-- local n = 0 +-- for k in pairs(pool) do +-- n = n + 1 +-- end +-- return n +-- end +end + +-- picks the first non-nil value and returns it +local function pickfirstset(...) + for i=1,select("#",...) do + if select(i,...)~=nil then + return select(i,...) + end + end +end + +--gets an option from a given group, checking plugins +local function GetSubOption(group, key) + if group.plugins then + for plugin, t in pairs(group.plugins) do + if t[key] then + return t[key] + end + end + end + + return group.args[key] +end + +--Option member type definitions, used to decide how to access it + +--Is the member Inherited from parent options +local isInherited = { + set = true, + get = true, + func = true, + confirm = true, + validate = true, + disabled = true, + hidden = true +} + +--Does a string type mean a literal value, instead of the default of a method of the handler +local stringIsLiteral = { + name = true, + desc = true, + icon = true, + usage = true, + width = true, + image = true, + fontSize = true, +} + +--Is Never a function or method +local allIsLiteral = { + type = true, + descStyle = true, + imageWidth = true, + imageHeight = true, +} + +--gets the value for a member that could be a function +--function refs are called with an info arg +--every other type is returned +local function GetOptionsMemberValue(membername, option, options, path, appName, ...) + --get definition for the member + local inherits = isInherited[membername] + + + --get the member of the option, traversing the tree if it can be inherited + local member + + if inherits then + local group = options + if group[membername] ~= nil then + member = group[membername] + end + for i = 1, #path do + group = GetSubOption(group, path[i]) + if group[membername] ~= nil then + member = group[membername] + end + end + else + member = option[membername] + end + + --check if we need to call a functon, or if we have a literal value + if ( not allIsLiteral[membername] ) and ( type(member) == "function" or ((not stringIsLiteral[membername]) and type(member) == "string") ) then + --We have a function to call + local info = new() + --traverse the options table, picking up the handler and filling the info with the path + local handler + local group = options + handler = group.handler or handler + + for i = 1, #path do + group = GetSubOption(group, path[i]) + info[i] = path[i] + handler = group.handler or handler + end + + info.options = options + info.appName = appName + info[0] = appName + info.arg = option.arg + info.handler = handler + info.option = option + info.type = option.type + info.uiType = "dialog" + info.uiName = MAJOR + + local a, b, c ,d + --using 4 returns for the get of a color type, increase if a type needs more + if type(member) == "function" then + --Call the function + a,b,c,d = member(info, ...) + else + --Call the method + if handler and handler[member] then + a,b,c,d = handler[member](handler, info, ...) + else + error(format("Method %s doesn't exist in handler for type %s", member, membername)) + end + end + del(info) + return a,b,c,d + else + --The value isnt a function to call, return it + return member + end +end + +--[[calls an options function that could be inherited, method name or function ref +local function CallOptionsFunction(funcname ,option, options, path, appName, ...) + local info = new() + + local func + local group = options + local handler + + --build the info table containing the path + -- pick up functions while traversing the tree + if group[funcname] ~= nil then + func = group[funcname] + end + handler = group.handler or handler + + for i, v in ipairs(path) do + group = GetSubOption(group, v) + info[i] = v + if group[funcname] ~= nil then + func = group[funcname] + end + handler = group.handler or handler + end + + info.options = options + info[0] = appName + info.arg = option.arg + + local a, b, c ,d + if type(func) == "string" then + if handler and handler[func] then + a,b,c,d = handler[func](handler, info, ...) + else + error(string.format("Method %s doesn't exist in handler for type func", func)) + end + elseif type(func) == "function" then + a,b,c,d = func(info, ...) + end + del(info) + return a,b,c,d +end +--]] + +--tables to hold orders and names for options being sorted, will be created with new() +--prevents needing to call functions repeatedly while sorting +local tempOrders +local tempNames + +local function compareOptions(a,b) + if not a then + return true + end + if not b then + return false + end + local OrderA, OrderB = tempOrders[a] or 100, tempOrders[b] or 100 + if OrderA == OrderB then + local NameA = (type(tempNames[a]) == "string") and tempNames[a] or "" + local NameB = (type(tempNames[b]) == "string") and tempNames[b] or "" + return NameA:upper() < NameB:upper() + end + if OrderA < 0 then + if OrderB >= 0 then + return false + end + else + if OrderB < 0 then + return true + end + end + return OrderA < OrderB +end + + + +--builds 2 tables out of an options group +-- keySort, sorted keys +-- opts, combined options from .plugins and args +local function BuildSortedOptionsTable(group, keySort, opts, options, path, appName) + tempOrders = new() + tempNames = new() + + if group.plugins then + for plugin, t in pairs(group.plugins) do + for k, v in pairs(t) do + if not opts[k] then + tinsert(keySort, k) + opts[k] = v + + path[#path+1] = k + tempOrders[k] = GetOptionsMemberValue("order", v, options, path, appName) + tempNames[k] = GetOptionsMemberValue("name", v, options, path, appName) + path[#path] = nil + end + end + end + end + + for k, v in pairs(group.args) do + if not opts[k] then + tinsert(keySort, k) + opts[k] = v + + path[#path+1] = k + tempOrders[k] = GetOptionsMemberValue("order", v, options, path, appName) + tempNames[k] = GetOptionsMemberValue("name", v, options, path, appName) + path[#path] = nil + end + end + + tsort(keySort, compareOptions) + + del(tempOrders) + del(tempNames) +end + +local function DelTree(tree) + if tree.children then + local childs = tree.children + for i = 1, #childs do + DelTree(childs[i]) + del(childs[i]) + end + del(childs) + end +end + +local function CleanUserData(widget, event) + + local user = widget:GetUserDataTable() + + if user.path then + del(user.path) + end + + if widget.type == "TreeGroup" then + local tree = user.tree + widget:SetTree(nil) + if tree then + for i = 1, #tree do + DelTree(tree[i]) + del(tree[i]) + end + del(tree) + end + end + + if widget.type == "TabGroup" then + widget:SetTabs(nil) + if user.tablist then + del(user.tablist) + end + end + + if widget.type == "DropdownGroup" then + widget:SetGroupList(nil) + if user.grouplist then + del(user.grouplist) + end + if user.orderlist then + del(user.orderlist) + end + end +end + +-- - Gets a status table for the given appname and options path. +-- @param appName The application name as given to `:RegisterOptionsTable()` +-- @param path The path to the options (a table with all group keys) +-- @return +function AceConfigDialog:GetStatusTable(appName, path) + local status = self.Status + + if not status[appName] then + status[appName] = {} + status[appName].status = {} + status[appName].children = {} + end + + status = status[appName] + + if path then + for i = 1, #path do + local v = path[i] + if not status.children[v] then + status.children[v] = {} + status.children[v].status = {} + status.children[v].children = {} + end + status = status.children[v] + end + end + + return status.status +end + +--- Selects the specified path in the options window. +-- The path specified has to match the keys of the groups in the table. +-- @param appName The application name as given to `:RegisterOptionsTable()` +-- @param ... The path to the key that should be selected +function AceConfigDialog:SelectGroup(appName, ...) + local path = new() + + + local app = reg:GetOptionsTable(appName) + if not app then + error(("%s isn't registed with AceConfigRegistry, unable to open config"):format(appName), 2) + end + local options = app("dialog", MAJOR) + local group = options + local status = self:GetStatusTable(appName, path) + if not status.groups then + status.groups = {} + end + status = status.groups + local treevalue + local treestatus + + for n = 1, select("#",...) do + local key = select(n, ...) + + if group.childGroups == "tab" or group.childGroups == "select" then + --if this is a tab or select group, select the group + status.selected = key + --children of this group are no longer extra levels of a tree + treevalue = nil + else + --tree group by default + if treevalue then + --this is an extra level of a tree group, build a uniquevalue for it + treevalue = treevalue.."\001"..key + else + --this is the top level of a tree group, the uniquevalue is the same as the key + treevalue = key + if not status.groups then + status.groups = {} + end + --save this trees status table for any extra levels or groups + treestatus = status + end + --make sure that the tree entry is open, and select it. + --the selected group will be overwritten if a child is the final target but still needs to be open + treestatus.selected = treevalue + treestatus.groups[treevalue] = true + + end + + --move to the next group in the path + group = GetSubOption(group, key) + if not group then + break + end + tinsert(path, key) + status = self:GetStatusTable(appName, path) + if not status.groups then + status.groups = {} + end + status = status.groups + end + + del(path) + reg:NotifyChange(appName) +end + +local function OptionOnMouseOver(widget, event) + --show a tooltip/set the status bar to the desc text + local user = widget:GetUserDataTable() + local opt = user.option + local options = user.options + local path = user.path + local appName = user.appName + local tooltip = AceConfigDialog.tooltip + + tooltip:SetOwner(widget.frame, "ANCHOR_TOPRIGHT") + local name = GetOptionsMemberValue("name", opt, options, path, appName) + local desc = GetOptionsMemberValue("desc", opt, options, path, appName) + local usage = GetOptionsMemberValue("usage", opt, options, path, appName) + local descStyle = opt.descStyle + + if descStyle and descStyle ~= "tooltip" then return end + + tooltip:SetText(name, 1, .82, 0, true) + + if opt.type == "multiselect" then + tooltip:AddLine(user.text, 0.5, 0.5, 0.8, true) + end + if type(desc) == "string" then + tooltip:AddLine(desc, 1, 1, 1, true) + end + if type(usage) == "string" then + tooltip:AddLine("Usage: "..usage, NORMAL_FONT_COLOR.r, NORMAL_FONT_COLOR.g, NORMAL_FONT_COLOR.b, true) + end + + tooltip:Show() +end + +local function OptionOnMouseLeave(widget, event) + AceConfigDialog.tooltip:Hide() +end + +local function GetFuncName(option) + local type = option.type + if type == "execute" then + return "func" + else + return "set" + end +end +do + local frame = AceConfigDialog.popup + if not frame then + frame = CreateFrame("Frame", nil, UIParent) + AceConfigDialog.popup = frame + frame:Hide() + frame:SetPoint("CENTER", UIParent, "CENTER") + frame:SetSize(320, 72) + frame:SetFrameStrata("TOOLTIP") + frame:SetScript("OnKeyDown", function(self, key) + if key == "ESCAPE" then + self:SetPropagateKeyboardInput(false) + if self.cancel:IsShown() then + self.cancel:Click() + else -- Showing a validation error + self:Hide() + end + else + self:SetPropagateKeyboardInput(true) + end + end) + + if WOW_PROJECT_ID == WOW_PROJECT_CLASSIC then + frame:SetBackdrop({ + bgFile = [[Interface\DialogFrame\UI-DialogBox-Background-Dark]], + edgeFile = [[Interface\DialogFrame\UI-DialogBox-Border]], + tile = true, + tileSize = 32, + edgeSize = 32, + insets = { left = 11, right = 11, top = 11, bottom = 11 }, + }) + else + local border = CreateFrame("Frame", nil, frame, "DialogBorderDarkTemplate") + border:SetAllPoints(frame) + end + + local text = frame:CreateFontString(nil, "ARTWORK", "GameFontHighlight") + text:SetSize(290, 0) + text:SetPoint("TOP", 0, -16) + frame.text = text + + local function newButton(text) + local button = CreateFrame("Button", nil, frame) + button:SetSize(128, 21) + button:SetNormalFontObject(GameFontNormal) + button:SetHighlightFontObject(GameFontHighlight) + button:SetNormalTexture(130763) -- "Interface\\Buttons\\UI-DialogBox-Button-Up" + button:GetNormalTexture():SetTexCoord(0.0, 1.0, 0.0, 0.71875) + button:SetPushedTexture(130761) -- "Interface\\Buttons\\UI-DialogBox-Button-Down" + button:GetPushedTexture():SetTexCoord(0.0, 1.0, 0.0, 0.71875) + button:SetHighlightTexture(130762) -- "Interface\\Buttons\\UI-DialogBox-Button-Highlight" + button:GetHighlightTexture():SetTexCoord(0.0, 1.0, 0.0, 0.71875) + button:SetText(text) + return button + end + + local accept = newButton(ACCEPT) + accept:SetPoint("BOTTOMRIGHT", frame, "BOTTOM", -6, 16) + frame.accept = accept + + local cancel = newButton(CANCEL) + cancel:SetPoint("LEFT", accept, "RIGHT", 13, 0) + frame.cancel = cancel + end +end +local function confirmPopup(appName, rootframe, basepath, info, message, func, ...) + local frame = AceConfigDialog.popup + frame:Show() + frame.text:SetText(message) + -- From StaticPopup.lua + -- local height = 32 + text:GetHeight() + 2; + -- height = height + 6 + accept:GetHeight() + -- We add 32 + 2 + 6 + 21 (button height) == 61 + local height = 61 + frame.text:GetHeight() + frame:SetHeight(height) + + frame.accept:ClearAllPoints() + frame.accept:SetPoint("BOTTOMRIGHT", frame, "BOTTOM", -6, 16) + frame.cancel:Show() + + local t = {...} + local tCount = select("#", ...) + frame.accept:SetScript("OnClick", function(self) + safecall(func, unpack(t, 1, tCount)) -- Manually set count as unpack() stops on nil (bug with #table) + AceConfigDialog:Open(appName, rootframe, unpack(basepath or emptyTbl)) + frame:Hide() + self:SetScript("OnClick", nil) + frame.cancel:SetScript("OnClick", nil) + del(info) + end) + frame.cancel:SetScript("OnClick", function(self) + AceConfigDialog:Open(appName, rootframe, unpack(basepath or emptyTbl)) + frame:Hide() + self:SetScript("OnClick", nil) + frame.accept:SetScript("OnClick", nil) + del(info) + end) +end + +local function validationErrorPopup(message) + local frame = AceConfigDialog.popup + frame:Show() + frame.text:SetText(message) + -- From StaticPopup.lua + -- local height = 32 + text:GetHeight() + 2; + -- height = height + 6 + accept:GetHeight() + -- We add 32 + 2 + 6 + 21 (button height) == 61 + local height = 61 + frame.text:GetHeight() + frame:SetHeight(height) + + frame.accept:ClearAllPoints() + frame.accept:SetPoint("BOTTOM", frame, "BOTTOM", 0, 16) + frame.cancel:Hide() + + frame.accept:SetScript("OnClick", function() + frame:Hide() + end) +end + +local function ActivateControl(widget, event, ...) + --This function will call the set / execute handler for the widget + --widget:GetUserDataTable() contains the needed info + local user = widget:GetUserDataTable() + local option = user.option + local options = user.options + local path = user.path + local info = new() + + local func + local group = options + local funcname = GetFuncName(option) + local handler + local confirm + local validate + --build the info table containing the path + -- pick up functions while traversing the tree + if group[funcname] ~= nil then + func = group[funcname] + end + handler = group.handler or handler + confirm = group.confirm + validate = group.validate + for i = 1, #path do + local v = path[i] + group = GetSubOption(group, v) + info[i] = v + if group[funcname] ~= nil then + func = group[funcname] + end + handler = group.handler or handler + if group.confirm ~= nil then + confirm = group.confirm + end + if group.validate ~= nil then + validate = group.validate + end + end + + info.options = options + info.appName = user.appName + info.arg = option.arg + info.handler = handler + info.option = option + info.type = option.type + info.uiType = "dialog" + info.uiName = MAJOR + + local name + if type(option.name) == "function" then + name = option.name(info) + elseif type(option.name) == "string" then + name = option.name + else + name = "" + end + local usage = option.usage + local pattern = option.pattern + + local validated = true + + if option.type == "input" then + if type(pattern)=="string" then + if not strmatch(..., pattern) then + validated = false + end + end + end + + local success + if validated and option.type ~= "execute" then + if type(validate) == "string" then + if handler and handler[validate] then + success, validated = safecall(handler[validate], handler, info, ...) + if not success then validated = false end + else + error(format("Method %s doesn't exist in handler for type execute", validate)) + end + elseif type(validate) == "function" then + success, validated = safecall(validate, info, ...) + if not success then validated = false end + end + end + + local rootframe = user.rootframe + if not validated or type(validated) == "string" then + if not validated then + if usage then + validated = name..": "..usage + else + if pattern then + validated = name..": Expected "..pattern + else + validated = name..": Invalid Value" + end + end + end + + -- show validate message + if rootframe.SetStatusText then + rootframe:SetStatusText(validated) + else + validationErrorPopup(validated) + end + PlaySound(882) -- SOUNDKIT.IG_PLAYER_INVITE_DECLINE || _DECLINE is actually missing from the table + del(info) + return true + else + + local confirmText = option.confirmText + --call confirm func/method + if type(confirm) == "string" then + if handler and handler[confirm] then + success, confirm = safecall(handler[confirm], handler, info, ...) + if success and type(confirm) == "string" then + confirmText = confirm + confirm = true + elseif not success then + confirm = false + end + else + error(format("Method %s doesn't exist in handler for type confirm", confirm)) + end + elseif type(confirm) == "function" then + success, confirm = safecall(confirm, info, ...) + if success and type(confirm) == "string" then + confirmText = confirm + confirm = true + elseif not success then + confirm = false + end + end + + --confirm if needed + if type(confirm) == "boolean" then + if confirm then + if not confirmText then + local name, desc = option.name, option.desc + if type(name) == "function" then + name = name(info) + end + if type(desc) == "function" then + desc = desc(info) + end + confirmText = name + if desc then + confirmText = confirmText.." - "..desc + end + end + + local iscustom = user.rootframe:GetUserData("iscustom") + local rootframe + + if iscustom then + rootframe = user.rootframe + end + local basepath = user.rootframe:GetUserData("basepath") + if type(func) == "string" then + if handler and handler[func] then + confirmPopup(user.appName, rootframe, basepath, info, confirmText, handler[func], handler, info, ...) + else + error(format("Method %s doesn't exist in handler for type func", func)) + end + elseif type(func) == "function" then + confirmPopup(user.appName, rootframe, basepath, info, confirmText, func, info, ...) + end + --func will be called and info deleted when the confirm dialog is responded to + return + end + end + + --call the function + if type(func) == "string" then + if handler and handler[func] then + safecall(handler[func],handler, info, ...) + else + error(format("Method %s doesn't exist in handler for type func", func)) + end + elseif type(func) == "function" then + safecall(func,info, ...) + end + + + + local iscustom = user.rootframe:GetUserData("iscustom") + local basepath = user.rootframe:GetUserData("basepath") or emptyTbl + --full refresh of the frame, some controls dont cause this on all events + if option.type == "color" then + if event == "OnValueConfirmed" then + + if iscustom then + AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath)) + else + AceConfigDialog:Open(user.appName, unpack(basepath)) + end + end + elseif option.type == "range" then + if event == "OnMouseUp" then + if iscustom then + AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath)) + else + AceConfigDialog:Open(user.appName, unpack(basepath)) + end + end + --multiselects don't cause a refresh on 'OnValueChanged' only 'OnClosed' + elseif option.type == "multiselect" then + user.valuechanged = true + else + if iscustom then + AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath)) + else + AceConfigDialog:Open(user.appName, unpack(basepath)) + end + end + + end + del(info) +end + +local function ActivateSlider(widget, event, value) + local option = widget:GetUserData("option") + local min, max, step = option.min or (not option.softMin and 0 or nil), option.max or (not option.softMax and 100 or nil), option.step + if min then + if step then + value = math_floor((value - min) / step + 0.5) * step + min + end + value = math_max(value, min) + end + if max then + value = math_min(value, max) + end + ActivateControl(widget,event,value) +end + +--called from a checkbox that is part of an internally created multiselect group +--this type is safe to refresh on activation of one control +local function ActivateMultiControl(widget, event, ...) + ActivateControl(widget, event, widget:GetUserData("value"), ...) + local user = widget:GetUserDataTable() + local iscustom = user.rootframe:GetUserData("iscustom") + local basepath = user.rootframe:GetUserData("basepath") or emptyTbl + if iscustom then + AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath)) + else + AceConfigDialog:Open(user.appName, unpack(basepath)) + end +end + +local function MultiControlOnClosed(widget, event, ...) + local user = widget:GetUserDataTable() + if user.valuechanged and not widget:IsReleasing() then + local iscustom = user.rootframe:GetUserData("iscustom") + local basepath = user.rootframe:GetUserData("basepath") or emptyTbl + if iscustom then + AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath)) + else + AceConfigDialog:Open(user.appName, unpack(basepath)) + end + end +end + +local function FrameOnClose(widget, event) + local appName = widget:GetUserData("appName") + AceConfigDialog.OpenFrames[appName] = nil + gui:Release(widget) +end + +local function CheckOptionHidden(option, options, path, appName) + --check for a specific boolean option + local hidden = pickfirstset(option.dialogHidden,option.guiHidden) + if hidden ~= nil then + return hidden + end + + return GetOptionsMemberValue("hidden", option, options, path, appName) +end + +local function CheckOptionDisabled(option, options, path, appName) + --check for a specific boolean option + local disabled = pickfirstset(option.dialogDisabled,option.guiDisabled) + if disabled ~= nil then + return disabled + end + + return GetOptionsMemberValue("disabled", option, options, path, appName) +end +--[[ +local function BuildTabs(group, options, path, appName) + local tabs = new() + local text = new() + local keySort = new() + local opts = new() + + BuildSortedOptionsTable(group, keySort, opts, options, path, appName) + + for i = 1, #keySort do + local k = keySort[i] + local v = opts[k] + if v.type == "group" then + path[#path+1] = k + local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false) + local hidden = CheckOptionHidden(v, options, path, appName) + if not inline and not hidden then + tinsert(tabs, k) + text[k] = GetOptionsMemberValue("name", v, options, path, appName) + end + path[#path] = nil + end + end + + del(keySort) + del(opts) + + return tabs, text +end +]] +local function BuildSelect(group, options, path, appName) + local groups = new() + local order = new() + local keySort = new() + local opts = new() + + BuildSortedOptionsTable(group, keySort, opts, options, path, appName) + + for i = 1, #keySort do + local k = keySort[i] + local v = opts[k] + if v.type == "group" then + path[#path+1] = k + local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false) + local hidden = CheckOptionHidden(v, options, path, appName) + if not inline and not hidden then + groups[k] = GetOptionsMemberValue("name", v, options, path, appName) + tinsert(order, k) + end + path[#path] = nil + end + end + + del(opts) + del(keySort) + + return groups, order +end + +local function BuildSubGroups(group, tree, options, path, appName) + local keySort = new() + local opts = new() + + BuildSortedOptionsTable(group, keySort, opts, options, path, appName) + + for i = 1, #keySort do + local k = keySort[i] + local v = opts[k] + if v.type == "group" then + path[#path+1] = k + local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false) + local hidden = CheckOptionHidden(v, options, path, appName) + if not inline and not hidden then + local entry = new() + entry.value = k + entry.text = GetOptionsMemberValue("name", v, options, path, appName) + entry.icon = GetOptionsMemberValue("icon", v, options, path, appName) + entry.iconCoords = GetOptionsMemberValue("iconCoords", v, options, path, appName) + entry.disabled = CheckOptionDisabled(v, options, path, appName) + if not tree.children then tree.children = new() end + tinsert(tree.children,entry) + if (v.childGroups or "tree") == "tree" then + BuildSubGroups(v,entry, options, path, appName) + end + end + path[#path] = nil + end + end + + del(keySort) + del(opts) +end + +local function BuildGroups(group, options, path, appName, recurse) + local tree = new() + local keySort = new() + local opts = new() + + BuildSortedOptionsTable(group, keySort, opts, options, path, appName) + + for i = 1, #keySort do + local k = keySort[i] + local v = opts[k] + if v.type == "group" then + path[#path+1] = k + local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false) + local hidden = CheckOptionHidden(v, options, path, appName) + if not inline and not hidden then + local entry = new() + entry.value = k + entry.text = GetOptionsMemberValue("name", v, options, path, appName) + entry.icon = GetOptionsMemberValue("icon", v, options, path, appName) + entry.iconCoords = GetOptionsMemberValue("iconCoords", v, options, path, appName) + entry.disabled = CheckOptionDisabled(v, options, path, appName) + tinsert(tree,entry) + if recurse and (v.childGroups or "tree") == "tree" then + BuildSubGroups(v,entry, options, path, appName) + end + end + path[#path] = nil + end + end + del(keySort) + del(opts) + return tree +end + +local function InjectInfo(control, options, option, path, rootframe, appName) + local user = control:GetUserDataTable() + for i = 1, #path do + user[i] = path[i] + end + user.rootframe = rootframe + user.option = option + user.options = options + user.path = copy(path) + user.appName = appName + control:SetCallback("OnRelease", CleanUserData) + control:SetCallback("OnLeave", OptionOnMouseLeave) + control:SetCallback("OnEnter", OptionOnMouseOver) +end + +local function CreateControl(userControlType, fallbackControlType) + local control + if userControlType then + control = gui:Create(userControlType) + if not control then + geterrorhandler()(("Invalid Custom Control Type - %s"):format(tostring(userControlType))) + end + end + if not control then + control = gui:Create(fallbackControlType) + end + return control +end + +local function sortTblAsStrings(x,y) + return tostring(x) < tostring(y) -- Support numbers as keys +end + +--[[ + options - root of the options table being fed + container - widget that controls will be placed in + rootframe - Frame object the options are in + path - table with the keys to get to the group being fed +--]] + +local function FeedOptions(appName, options,container,rootframe,path,group,inline) + local keySort = new() + local opts = new() + + BuildSortedOptionsTable(group, keySort, opts, options, path, appName) + + for i = 1, #keySort do + local k = keySort[i] + local v = opts[k] + tinsert(path, k) + local hidden = CheckOptionHidden(v, options, path, appName) + local name = GetOptionsMemberValue("name", v, options, path, appName) + if not hidden then + if v.type == "group" then + if inline or pickfirstset(v.dialogInline,v.guiInline,v.inline, false) then + --Inline group + local GroupContainer + if name and name ~= "" then + GroupContainer = gui:Create("InlineGroup") + GroupContainer:SetTitle(name or "") + else + GroupContainer = gui:Create("SimpleGroup") + end + + GroupContainer.width = "fill" + GroupContainer:SetLayout("flow") + container:AddChild(GroupContainer) + FeedOptions(appName,options,GroupContainer,rootframe,path,v,true) + end + else + --Control to feed + local control + + local name = GetOptionsMemberValue("name", v, options, path, appName) + + if v.type == "execute" then + + local imageCoords = GetOptionsMemberValue("imageCoords",v, options, path, appName) + local image, width, height = GetOptionsMemberValue("image",v, options, path, appName) + + local iconControl = type(image) == "string" or type(image) == "number" + control = CreateControl(v.dialogControl or v.control, iconControl and "Icon" or "Button") + if iconControl then + if not width then + width = GetOptionsMemberValue("imageWidth",v, options, path, appName) + end + if not height then + height = GetOptionsMemberValue("imageHeight",v, options, path, appName) + end + if type(imageCoords) == "table" then + control:SetImage(image, unpack(imageCoords)) + else + control:SetImage(image) + end + if type(width) ~= "number" then + width = 32 + end + if type(height) ~= "number" then + height = 32 + end + control:SetImageSize(width, height) + control:SetLabel(name) + else + control:SetText(name) + end + control:SetCallback("OnClick",ActivateControl) + + elseif v.type == "input" then + control = CreateControl(v.dialogControl or v.control, v.multiline and "MultiLineEditBox" or "EditBox") + + if v.multiline and control.SetNumLines then + control:SetNumLines(tonumber(v.multiline) or 4) + end + control:SetLabel(name) + control:SetCallback("OnEnterPressed",ActivateControl) + local text = GetOptionsMemberValue("get",v, options, path, appName) + if type(text) ~= "string" then + text = "" + end + control:SetText(text) + + elseif v.type == "toggle" then + control = CreateControl(v.dialogControl or v.control, "CheckBox") + control:SetLabel(name) + control:SetTriState(v.tristate) + local value = GetOptionsMemberValue("get",v, options, path, appName) + control:SetValue(value) + control:SetCallback("OnValueChanged",ActivateControl) + + if v.descStyle == "inline" then + local desc = GetOptionsMemberValue("desc", v, options, path, appName) + control:SetDescription(desc) + end + + local image = GetOptionsMemberValue("image", v, options, path, appName) + local imageCoords = GetOptionsMemberValue("imageCoords", v, options, path, appName) + + if type(image) == "string" or type(image) == "number" then + if type(imageCoords) == "table" then + control:SetImage(image, unpack(imageCoords)) + else + control:SetImage(image) + end + end + elseif v.type == "range" then + control = CreateControl(v.dialogControl or v.control, "Slider") + control:SetLabel(name) + control:SetSliderValues(v.softMin or v.min or 0, v.softMax or v.max or 100, v.bigStep or v.step or 0) + control:SetIsPercent(v.isPercent) + local value = GetOptionsMemberValue("get",v, options, path, appName) + if type(value) ~= "number" then + value = 0 + end + control:SetValue(value) + control:SetCallback("OnValueChanged",ActivateSlider) + control:SetCallback("OnMouseUp",ActivateSlider) + + elseif v.type == "select" then + local values = GetOptionsMemberValue("values", v, options, path, appName) + local sorting = GetOptionsMemberValue("sorting", v, options, path, appName) + if v.style == "radio" then + local disabled = CheckOptionDisabled(v, options, path, appName) + local width = GetOptionsMemberValue("width",v,options,path,appName) + control = gui:Create("InlineGroup") + control:SetLayout("Flow") + control:SetTitle(name) + control.width = "fill" + + control:PauseLayout() + local optionValue = GetOptionsMemberValue("get",v, options, path, appName) + if not sorting then + sorting = {} + for value, text in pairs(values) do + sorting[#sorting+1]=value + end + tsort(sorting, sortTblAsStrings) + end + for k, value in ipairs(sorting) do + local text = values[value] + local radio = gui:Create("CheckBox") + radio:SetLabel(text) + radio:SetUserData("value", value) + radio:SetUserData("text", text) + radio:SetDisabled(disabled) + radio:SetType("radio") + radio:SetValue(optionValue == value) + radio:SetCallback("OnValueChanged", ActivateMultiControl) + InjectInfo(radio, options, v, path, rootframe, appName) + control:AddChild(radio) + if width == "double" then + radio:SetWidth(width_multiplier * 2) + elseif width == "half" then + radio:SetWidth(width_multiplier / 2) + elseif (type(width) == "number") then + radio:SetWidth(width_multiplier * width) + elseif width == "full" then + radio.width = "fill" + else + radio:SetWidth(width_multiplier) + end + end + control:ResumeLayout() + control:DoLayout() + else + control = CreateControl(v.dialogControl or v.control, "Dropdown") + local itemType = v.itemControl + if itemType and not gui:GetWidgetVersion(itemType) then + geterrorhandler()(("Invalid Custom Item Type - %s"):format(tostring(itemType))) + itemType = nil + end + control:SetLabel(name) + control:SetList(values, sorting, itemType) + local value = GetOptionsMemberValue("get",v, options, path, appName) + if not values[value] then + value = nil + end + control:SetValue(value) + control:SetCallback("OnValueChanged", ActivateControl) + end + + elseif v.type == "multiselect" then + local values = GetOptionsMemberValue("values", v, options, path, appName) + local disabled = CheckOptionDisabled(v, options, path, appName) + + local valuesort = new() + if values then + for value, text in pairs(values) do + tinsert(valuesort, value) + end + end + tsort(valuesort) + + local controlType = v.dialogControl or v.control + if controlType then + control = gui:Create(controlType) + if not control then + geterrorhandler()(("Invalid Custom Control Type - %s"):format(tostring(controlType))) + end + end + if control then + control:SetMultiselect(true) + control:SetLabel(name) + control:SetList(values) + control:SetDisabled(disabled) + control:SetCallback("OnValueChanged",ActivateControl) + control:SetCallback("OnClosed", MultiControlOnClosed) + local width = GetOptionsMemberValue("width",v,options,path,appName) + if width == "double" then + control:SetWidth(width_multiplier * 2) + elseif width == "half" then + control:SetWidth(width_multiplier / 2) + elseif (type(width) == "number") then + control:SetWidth(width_multiplier * width) + elseif width == "full" then + control.width = "fill" + else + control:SetWidth(width_multiplier) + end + --check:SetTriState(v.tristate) + for i = 1, #valuesort do + local key = valuesort[i] + local value = GetOptionsMemberValue("get",v, options, path, appName, key) + control:SetItemValue(key,value) + end + else + control = gui:Create("InlineGroup") + control:SetLayout("Flow") + control:SetTitle(name) + control.width = "fill" + + control:PauseLayout() + local width = GetOptionsMemberValue("width",v,options,path,appName) + for i = 1, #valuesort do + local value = valuesort[i] + local text = values[value] + local check = gui:Create("CheckBox") + check:SetLabel(text) + check:SetUserData("value", value) + check:SetUserData("text", text) + check:SetDisabled(disabled) + check:SetTriState(v.tristate) + check:SetValue(GetOptionsMemberValue("get",v, options, path, appName, value)) + check:SetCallback("OnValueChanged",ActivateMultiControl) + InjectInfo(check, options, v, path, rootframe, appName) + control:AddChild(check) + if width == "double" then + check:SetWidth(width_multiplier * 2) + elseif width == "half" then + check:SetWidth(width_multiplier / 2) + elseif (type(width) == "number") then + control:SetWidth(width_multiplier * width) + elseif width == "full" then + check.width = "fill" + else + check:SetWidth(width_multiplier) + end + end + control:ResumeLayout() + control:DoLayout() + + + end + + del(valuesort) + + elseif v.type == "color" then + control = CreateControl(v.dialogControl or v.control, "ColorPicker") + control:SetLabel(name) + control:SetHasAlpha(GetOptionsMemberValue("hasAlpha",v, options, path, appName)) + control:SetColor(GetOptionsMemberValue("get",v, options, path, appName)) + control:SetCallback("OnValueChanged",ActivateControl) + control:SetCallback("OnValueConfirmed",ActivateControl) + + elseif v.type == "keybinding" then + control = CreateControl(v.dialogControl or v.control, "Keybinding") + control:SetLabel(name) + control:SetKey(GetOptionsMemberValue("get",v, options, path, appName)) + control:SetCallback("OnKeyChanged",ActivateControl) + + elseif v.type == "header" then + control = CreateControl(v.dialogControl or v.control, "Heading") + control:SetText(name) + control.width = "fill" + + elseif v.type == "description" then + control = CreateControl(v.dialogControl or v.control, "Label") + control:SetText(name) + + local fontSize = GetOptionsMemberValue("fontSize",v, options, path, appName) + if fontSize == "medium" then + control:SetFontObject(GameFontHighlight) + elseif fontSize == "large" then + control:SetFontObject(GameFontHighlightLarge) + else -- small or invalid + control:SetFontObject(GameFontHighlightSmall) + end + + local imageCoords = GetOptionsMemberValue("imageCoords",v, options, path, appName) + local image, width, height = GetOptionsMemberValue("image",v, options, path, appName) + + if type(image) == "string" or type(image) == "number" then + if not width then + width = GetOptionsMemberValue("imageWidth",v, options, path, appName) + end + if not height then + height = GetOptionsMemberValue("imageHeight",v, options, path, appName) + end + if type(imageCoords) == "table" then + control:SetImage(image, unpack(imageCoords)) + else + control:SetImage(image) + end + if type(width) ~= "number" then + width = 32 + end + if type(height) ~= "number" then + height = 32 + end + control:SetImageSize(width, height) + end + local width = GetOptionsMemberValue("width",v,options,path,appName) + control.width = not width and "fill" + end + + --Common Init + if control then + if control.width ~= "fill" then + local width = GetOptionsMemberValue("width",v,options,path,appName) + if width == "double" then + control:SetWidth(width_multiplier * 2) + elseif width == "half" then + control:SetWidth(width_multiplier / 2) + elseif (type(width) == "number") then + control:SetWidth(width_multiplier * width) + elseif width == "full" then + control.width = "fill" + else + control:SetWidth(width_multiplier) + end + end + if control.SetDisabled then + local disabled = CheckOptionDisabled(v, options, path, appName) + control:SetDisabled(disabled) + end + + InjectInfo(control, options, v, path, rootframe, appName) + container:AddChild(control) + end + + end + end + tremove(path) + end + container:ResumeLayout() + container:DoLayout() + del(keySort) + del(opts) +end + +local function BuildPath(path, ...) + for i = 1, select("#",...) do + tinsert(path, (select(i,...))) + end +end + + +local function TreeOnButtonEnter(widget, event, uniquevalue, button) + local user = widget:GetUserDataTable() + if not user then return end + local options = user.options + local option = user.option + local path = user.path + local appName = user.appName + local tooltip = AceConfigDialog.tooltip + + local feedpath = new() + for i = 1, #path do + feedpath[i] = path[i] + end + + BuildPath(feedpath, ("\001"):split(uniquevalue)) + local group = options + for i = 1, #feedpath do + if not group then return end + group = GetSubOption(group, feedpath[i]) + end + + local name = GetOptionsMemberValue("name", group, options, feedpath, appName) + local desc = GetOptionsMemberValue("desc", group, options, feedpath, appName) + + tooltip:SetOwner(button, "ANCHOR_NONE") + tooltip:ClearAllPoints() + if widget.type == "TabGroup" then + tooltip:SetPoint("BOTTOM",button,"TOP") + else + tooltip:SetPoint("LEFT",button,"RIGHT") + end + + tooltip:SetText(name, 1, .82, 0, true) + + if type(desc) == "string" then + tooltip:AddLine(desc, 1, 1, 1, true) + end + + tooltip:Show() +end + +local function TreeOnButtonLeave(widget, event, value, button) + AceConfigDialog.tooltip:Hide() +end + + +local function GroupExists(appName, options, path, uniquevalue) + if not uniquevalue then return false end + + local feedpath = new() + local temppath = new() + for i = 1, #path do + feedpath[i] = path[i] + end + + BuildPath(feedpath, ("\001"):split(uniquevalue)) + + local group = options + for i = 1, #feedpath do + local v = feedpath[i] + temppath[i] = v + group = GetSubOption(group, v) + + if not group or group.type ~= "group" or CheckOptionHidden(group, options, temppath, appName) then + del(feedpath) + del(temppath) + return false + end + end + del(feedpath) + del(temppath) + return true +end + +local function GroupSelected(widget, event, uniquevalue) + + local user = widget:GetUserDataTable() + + local options = user.options + local option = user.option + local path = user.path + local rootframe = user.rootframe + + local feedpath = new() + for i = 1, #path do + feedpath[i] = path[i] + end + + BuildPath(feedpath, ("\001"):split(uniquevalue)) + widget:ReleaseChildren() + AceConfigDialog:FeedGroup(user.appName,options,widget,rootframe,feedpath) + + del(feedpath) +end + + + +--[[ +-- INTERNAL -- +This function will feed one group, and any inline child groups into the given container +Select Groups will only have the selection control (tree, tabs, dropdown) fed in +and have a group selected, this event will trigger the feeding of child groups + +Rules: + If the group is Inline, FeedOptions + If the group has no child groups, FeedOptions + + If the group is a tab or select group, FeedOptions then add the Group Control + If the group is a tree group FeedOptions then + its parent isnt a tree group: then add the tree control containing this and all child tree groups + if its parent is a tree group, its already a node on a tree +--]] + +function AceConfigDialog:FeedGroup(appName,options,container,rootframe,path, isRoot) + local group = options + --follow the path to get to the curent group + local inline + local grouptype, parenttype = options.childGroups, "none" + + + for i = 1, #path do + local v = path[i] + group = GetSubOption(group, v) + inline = inline or pickfirstset(v.dialogInline,v.guiInline,v.inline, false) + parenttype = grouptype + grouptype = group.childGroups + end + + if not parenttype then + parenttype = "tree" + end + + --check if the group has child groups + local hasChildGroups + for k, v in pairs(group.args) do + if v.type == "group" and not pickfirstset(v.dialogInline,v.guiInline,v.inline, false) and not CheckOptionHidden(v, options, path, appName) then + hasChildGroups = true + end + end + if group.plugins then + for plugin, t in pairs(group.plugins) do + for k, v in pairs(t) do + if v.type == "group" and not pickfirstset(v.dialogInline,v.guiInline,v.inline, false) and not CheckOptionHidden(v, options, path, appName) then + hasChildGroups = true + end + end + end + end + + container:SetLayout("flow") + local scroll + + --Add a scrollframe if we are not going to add a group control, this is the inverse of the conditions for that later on + if (not (hasChildGroups and not inline)) or (grouptype ~= "tab" and grouptype ~= "select" and (parenttype == "tree" and not isRoot)) then + if container.type ~= "InlineGroup" and container.type ~= "SimpleGroup" then + scroll = gui:Create("ScrollFrame") + scroll:SetLayout("flow") + scroll.width = "fill" + scroll.height = "fill" + container:SetLayout("fill") + container:AddChild(scroll) + container = scroll + end + end + + FeedOptions(appName,options,container,rootframe,path,group,nil) + + if scroll then + container:PerformLayout() + local status = self:GetStatusTable(appName, path) + if not status.scroll then + status.scroll = {} + end + scroll:SetStatusTable(status.scroll) + end + + if hasChildGroups and not inline then + local name = GetOptionsMemberValue("name", group, options, path, appName) + if grouptype == "tab" then + + local tab = gui:Create("TabGroup") + InjectInfo(tab, options, group, path, rootframe, appName) + tab:SetCallback("OnGroupSelected", GroupSelected) + tab:SetCallback("OnTabEnter", TreeOnButtonEnter) + tab:SetCallback("OnTabLeave", TreeOnButtonLeave) + + local status = AceConfigDialog:GetStatusTable(appName, path) + if not status.groups then + status.groups = {} + end + tab:SetStatusTable(status.groups) + tab.width = "fill" + tab.height = "fill" + + local tabs = BuildGroups(group, options, path, appName) + tab:SetTabs(tabs) + tab:SetUserData("tablist", tabs) + + for i = 1, #tabs do + local entry = tabs[i] + if not entry.disabled then + tab:SelectTab((GroupExists(appName, options, path,status.groups.selected) and status.groups.selected) or entry.value) + break + end + end + + container:AddChild(tab) + + elseif grouptype == "select" then + + local select = gui:Create("DropdownGroup") + select:SetTitle(name) + InjectInfo(select, options, group, path, rootframe, appName) + select:SetCallback("OnGroupSelected", GroupSelected) + local status = AceConfigDialog:GetStatusTable(appName, path) + if not status.groups then + status.groups = {} + end + select:SetStatusTable(status.groups) + local grouplist, orderlist = BuildSelect(group, options, path, appName) + select:SetGroupList(grouplist, orderlist) + select:SetUserData("grouplist", grouplist) + select:SetUserData("orderlist", orderlist) + + local firstgroup = orderlist[1] + if firstgroup then + select:SetGroup((GroupExists(appName, options, path,status.groups.selected) and status.groups.selected) or firstgroup) + end + + select.width = "fill" + select.height = "fill" + + container:AddChild(select) + + --assume tree group by default + --if parenttype is tree then this group is already a node on that tree + elseif (parenttype ~= "tree") or isRoot then + local tree = gui:Create("TreeGroup") + InjectInfo(tree, options, group, path, rootframe, appName) + tree:EnableButtonTooltips(false) + + tree.width = "fill" + tree.height = "fill" + + tree:SetCallback("OnGroupSelected", GroupSelected) + tree:SetCallback("OnButtonEnter", TreeOnButtonEnter) + tree:SetCallback("OnButtonLeave", TreeOnButtonLeave) + + local status = AceConfigDialog:GetStatusTable(appName, path) + if not status.groups then + status.groups = {} + end + local treedefinition = BuildGroups(group, options, path, appName, true) + tree:SetStatusTable(status.groups) + + tree:SetTree(treedefinition) + tree:SetUserData("tree",treedefinition) + + for i = 1, #treedefinition do + local entry = treedefinition[i] + if not entry.disabled then + tree:SelectByValue((GroupExists(appName, options, path,status.groups.selected) and status.groups.selected) or entry.value) + break + end + end + + container:AddChild(tree) + end + end +end + +local old_CloseSpecialWindows + + +local function RefreshOnUpdate(this) + for appName in pairs(this.closing) do + if AceConfigDialog.OpenFrames[appName] then + AceConfigDialog.OpenFrames[appName]:Hide() + end + if AceConfigDialog.BlizOptions and AceConfigDialog.BlizOptions[appName] then + for key, widget in pairs(AceConfigDialog.BlizOptions[appName]) do + if not widget:IsVisible() then + widget:ReleaseChildren() + end + end + end + this.closing[appName] = nil + end + + if this.closeAll then + for k, v in pairs(AceConfigDialog.OpenFrames) do + if not this.closeAllOverride[k] then + v:Hide() + end + end + this.closeAll = nil + wipe(this.closeAllOverride) + end + + for appName in pairs(this.apps) do + if AceConfigDialog.OpenFrames[appName] then + local user = AceConfigDialog.OpenFrames[appName]:GetUserDataTable() + AceConfigDialog:Open(appName, unpack(user.basepath or emptyTbl)) + end + if AceConfigDialog.BlizOptions and AceConfigDialog.BlizOptions[appName] then + for key, widget in pairs(AceConfigDialog.BlizOptions[appName]) do + local user = widget:GetUserDataTable() + if widget:IsVisible() then + AceConfigDialog:Open(widget:GetUserData("appName"), widget, unpack(user.basepath or emptyTbl)) + end + end + end + this.apps[appName] = nil + end + this:SetScript("OnUpdate", nil) +end + +-- Upgrade the OnUpdate script as well, if needed. +if AceConfigDialog.frame:GetScript("OnUpdate") then + AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate) +end + +--- Close all open options windows +function AceConfigDialog:CloseAll() + AceConfigDialog.frame.closeAll = true + AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate) + if next(self.OpenFrames) then + return true + end +end + +--- Close a specific options window. +-- @param appName The application name as given to `:RegisterOptionsTable()` +function AceConfigDialog:Close(appName) + if self.OpenFrames[appName] then + AceConfigDialog.frame.closing[appName] = true + AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate) + return true + end +end + +-- Internal -- Called by AceConfigRegistry +function AceConfigDialog:ConfigTableChanged(event, appName) + AceConfigDialog.frame.apps[appName] = true + AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate) +end + +reg.RegisterCallback(AceConfigDialog, "ConfigTableChange", "ConfigTableChanged") + +--- Sets the default size of the options window for a specific application. +-- @param appName The application name as given to `:RegisterOptionsTable()` +-- @param width The default width +-- @param height The default height +function AceConfigDialog:SetDefaultSize(appName, width, height) + local status = AceConfigDialog:GetStatusTable(appName) + if type(width) == "number" and type(height) == "number" then + status.width = width + status.height = height + end +end + +--- Open an option window at the specified path (if any). +-- This function can optionally feed the group into a pre-created container +-- instead of creating a new container frame. +-- @paramsig appName [, container][, ...] +-- @param appName The application name as given to `:RegisterOptionsTable()` +-- @param container An optional container frame to feed the options into +-- @param ... The path to open after creating the options window (see `:SelectGroup` for details) +function AceConfigDialog:Open(appName, container, ...) + if not old_CloseSpecialWindows then + old_CloseSpecialWindows = CloseSpecialWindows + CloseSpecialWindows = function() + local found = old_CloseSpecialWindows() + return self:CloseAll() or found + end + end + local app = reg:GetOptionsTable(appName) + if not app then + error(("%s isn't registed with AceConfigRegistry, unable to open config"):format(appName), 2) + end + local options = app("dialog", MAJOR) + + local f + + local path = new() + local name = GetOptionsMemberValue("name", options, options, path, appName) + + --If an optional path is specified add it to the path table before feeding the options + --as container is optional as well it may contain the first element of the path + if type(container) == "string" then + tinsert(path, container) + container = nil + end + for n = 1, select("#",...) do + tinsert(path, (select(n, ...))) + end + + local option = options + if type(container) == "table" and container.type == "BlizOptionsGroup" and #path > 0 then + for i = 1, #path do + option = options.args[path[i]] + end + name = format("%s - %s", name, GetOptionsMemberValue("name", option, options, path, appName)) + end + + --if a container is given feed into that + if container then + f = container + f:ReleaseChildren() + f:SetUserData("appName", appName) + f:SetUserData("iscustom", true) + if #path > 0 then + f:SetUserData("basepath", copy(path)) + end + local status = AceConfigDialog:GetStatusTable(appName) + if not status.width then + status.width = 700 + end + if not status.height then + status.height = 500 + end + if f.SetStatusTable then + f:SetStatusTable(status) + end + if f.SetTitle then + f:SetTitle(name or "") + end + else + if not self.OpenFrames[appName] then + f = gui:Create("Frame") + self.OpenFrames[appName] = f + else + f = self.OpenFrames[appName] + end + f:ReleaseChildren() + f:SetCallback("OnClose", FrameOnClose) + f:SetUserData("appName", appName) + if #path > 0 then + f:SetUserData("basepath", copy(path)) + end + f:SetTitle(name or "") + local status = AceConfigDialog:GetStatusTable(appName) + f:SetStatusTable(status) + end + + self:FeedGroup(appName,options,f,f,path,true) + if f.Show then + f:Show() + end + del(path) + + if AceConfigDialog.frame.closeAll then + -- close all is set, but thats not good, since we're just opening here, so force it + AceConfigDialog.frame.closeAllOverride[appName] = true + end +end + +-- convert pre-39 BlizOptions structure to the new format +if oldminor and oldminor < 39 and AceConfigDialog.BlizOptions then + local old = AceConfigDialog.BlizOptions + local new = {} + for key, widget in pairs(old) do + local appName = widget:GetUserData("appName") + if not new[appName] then new[appName] = {} end + new[appName][key] = widget + end + AceConfigDialog.BlizOptions = new +else + AceConfigDialog.BlizOptions = AceConfigDialog.BlizOptions or {} +end + +local function FeedToBlizPanel(widget, event) + local path = widget:GetUserData("path") + AceConfigDialog:Open(widget:GetUserData("appName"), widget, unpack(path or emptyTbl)) +end + +local function ClearBlizPanel(widget, event) + local appName = widget:GetUserData("appName") + AceConfigDialog.frame.closing[appName] = true + AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate) +end + +--- Add an option table into the Blizzard Interface Options panel. +-- You can optionally supply a descriptive name to use and a parent frame to use, +-- as well as a path in the options table.\\ +-- If no name is specified, the appName will be used instead. +-- +-- If you specify a proper `parent` (by name), the interface options will generate a +-- tree layout. Note that only one level of children is supported, so the parent always +-- has to be a head-level note. +-- +-- This function returns a reference to the container frame registered with the Interface +-- Options. You can use this reference to open the options with the API function +-- `InterfaceOptionsFrame_OpenToCategory`. +-- @param appName The application name as given to `:RegisterOptionsTable()` +-- @param name A descriptive name to display in the options tree (defaults to appName) +-- @param parent The parent to use in the interface options tree. +-- @param ... The path in the options table to feed into the interface options panel. +-- @return The reference to the frame registered into the Interface Options. +function AceConfigDialog:AddToBlizOptions(appName, name, parent, ...) + local BlizOptions = AceConfigDialog.BlizOptions + + local key = appName + for n = 1, select("#", ...) do + key = key.."\001"..select(n, ...) + end + + if not BlizOptions[appName] then + BlizOptions[appName] = {} + end + + if not BlizOptions[appName][key] then + local group = gui:Create("BlizOptionsGroup") + BlizOptions[appName][key] = group + group:SetName(name or appName, parent) + + group:SetTitle(name or appName) + group:SetUserData("appName", appName) + if select("#", ...) > 0 then + local path = {} + for n = 1, select("#",...) do + tinsert(path, (select(n, ...))) + end + group:SetUserData("path", path) + end + group:SetCallback("OnShow", FeedToBlizPanel) + group:SetCallback("OnHide", ClearBlizPanel) + InterfaceOptions_AddCategory(group.frame) + return group.frame + else + error(("%s has already been added to the Blizzard Options Window with the given path"):format(appName), 2) + end +end diff --git a/Titan/libs/Ace/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.xml b/Titan/libs/Ace/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.xml new file mode 100644 index 0000000..8e1e606 --- /dev/null +++ b/Titan/libs/Ace/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="AceConfigDialog-3.0.lua"/> +</Ui> diff --git a/Titan/libs/Ace/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.lua b/Titan/libs/Ace/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.lua new file mode 100644 index 0000000..f8d9225 --- /dev/null +++ b/Titan/libs/Ace/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.lua @@ -0,0 +1,371 @@ +--- AceConfigRegistry-3.0 handles central registration of options tables in use by addons and modules.\\ +-- Options tables can be registered as raw tables, OR as function refs that return a table.\\ +-- Such functions receive three arguments: "uiType", "uiName", "appName". \\ +-- * Valid **uiTypes**: "cmd", "dropdown", "dialog". This is verified by the library at call time. \\ +-- * The **uiName** field is expected to contain the full name of the calling addon, including version, e.g. "FooBar-1.0". This is verified by the library at call time.\\ +-- * The **appName** field is the options table name as given at registration time \\ +-- +-- :IterateOptionsTables() (and :GetOptionsTable() if only given one argument) return a function reference that the requesting config handling addon must call with valid "uiType", "uiName". +-- @class file +-- @name AceConfigRegistry-3.0 +-- @release $Id: AceConfigRegistry-3.0.lua 1207 2019-06-23 12:08:33Z nevcairiel $ +local CallbackHandler = LibStub("CallbackHandler-1.0") + +local MAJOR, MINOR = "AceConfigRegistry-3.0", 20 +local AceConfigRegistry = LibStub:NewLibrary(MAJOR, MINOR) + +if not AceConfigRegistry then return end + +AceConfigRegistry.tables = AceConfigRegistry.tables or {} + +if not AceConfigRegistry.callbacks then + AceConfigRegistry.callbacks = CallbackHandler:New(AceConfigRegistry) +end + +-- Lua APIs +local tinsert, tconcat = table.insert, table.concat +local strfind, strmatch = string.find, string.match +local type, tostring, select, pairs = type, tostring, select, pairs +local error, assert = error, assert + +----------------------------------------------------------------------- +-- Validating options table consistency: + + +AceConfigRegistry.validated = { + -- list of options table names ran through :ValidateOptionsTable automatically. + -- CLEARED ON PURPOSE, since newer versions may have newer validators + cmd = {}, + dropdown = {}, + dialog = {}, +} + + + +local function err(msg, errlvl, ...) + local t = {} + for i=select("#",...),1,-1 do + tinsert(t, (select(i, ...))) + end + error(MAJOR..":ValidateOptionsTable(): "..tconcat(t,".")..msg, errlvl+2) +end + + +local isstring={["string"]=true, _="string"} +local isstringfunc={["string"]=true,["function"]=true, _="string or funcref"} +local istable={["table"]=true, _="table"} +local ismethodtable={["table"]=true,["string"]=true,["function"]=true, _="methodname, funcref or table"} +local optstring={["nil"]=true,["string"]=true, _="string"} +local optstringfunc={["nil"]=true,["string"]=true,["function"]=true, _="string or funcref"} +local optstringnumberfunc={["nil"]=true,["string"]=true,["number"]=true,["function"]=true, _="string, number or funcref"} +local optnumber={["nil"]=true,["number"]=true, _="number"} +local optmethodfalse={["nil"]=true,["string"]=true,["function"]=true,["boolean"]={[false]=true}, _="methodname, funcref or false"} +local optmethodnumber={["nil"]=true,["string"]=true,["function"]=true,["number"]=true, _="methodname, funcref or number"} +local optmethodtable={["nil"]=true,["string"]=true,["function"]=true,["table"]=true, _="methodname, funcref or table"} +local optmethodbool={["nil"]=true,["string"]=true,["function"]=true,["boolean"]=true, _="methodname, funcref or boolean"} +local opttable={["nil"]=true,["table"]=true, _="table"} +local optbool={["nil"]=true,["boolean"]=true, _="boolean"} +local optboolnumber={["nil"]=true,["boolean"]=true,["number"]=true, _="boolean or number"} +local optstringnumber={["nil"]=true,["string"]=true,["number"]=true, _="string or number"} + +local basekeys={ + type=isstring, + name=isstringfunc, + desc=optstringfunc, + descStyle=optstring, + order=optmethodnumber, + validate=optmethodfalse, + confirm=optmethodbool, + confirmText=optstring, + disabled=optmethodbool, + hidden=optmethodbool, + guiHidden=optmethodbool, + dialogHidden=optmethodbool, + dropdownHidden=optmethodbool, + cmdHidden=optmethodbool, + icon=optstringnumberfunc, + iconCoords=optmethodtable, + handler=opttable, + get=optmethodfalse, + set=optmethodfalse, + func=optmethodfalse, + arg={["*"]=true}, + width=optstringnumber, +} + +local typedkeys={ + header={ + control=optstring, + dialogControl=optstring, + dropdownControl=optstring, + }, + description={ + image=optstringnumberfunc, + imageCoords=optmethodtable, + imageHeight=optnumber, + imageWidth=optnumber, + fontSize=optstringfunc, + control=optstring, + dialogControl=optstring, + dropdownControl=optstring, + }, + group={ + args=istable, + plugins=opttable, + inline=optbool, + cmdInline=optbool, + guiInline=optbool, + dropdownInline=optbool, + dialogInline=optbool, + childGroups=optstring, + }, + execute={ + image=optstringnumberfunc, + imageCoords=optmethodtable, + imageHeight=optnumber, + imageWidth=optnumber, + control=optstring, + dialogControl=optstring, + dropdownControl=optstring, + }, + input={ + pattern=optstring, + usage=optstring, + control=optstring, + dialogControl=optstring, + dropdownControl=optstring, + multiline=optboolnumber, + }, + toggle={ + tristate=optbool, + image=optstringnumberfunc, + imageCoords=optmethodtable, + control=optstring, + dialogControl=optstring, + dropdownControl=optstring, + }, + tristate={ + }, + range={ + min=optnumber, + softMin=optnumber, + max=optnumber, + softMax=optnumber, + step=optnumber, + bigStep=optnumber, + isPercent=optbool, + control=optstring, + dialogControl=optstring, + dropdownControl=optstring, + }, + select={ + values=ismethodtable, + sorting=optmethodtable, + style={ + ["nil"]=true, + ["string"]={dropdown=true,radio=true}, + _="string: 'dropdown' or 'radio'" + }, + control=optstring, + dialogControl=optstring, + dropdownControl=optstring, + itemControl=optstring, + }, + multiselect={ + values=ismethodtable, + style=optstring, + tristate=optbool, + control=optstring, + dialogControl=optstring, + dropdownControl=optstring, + }, + color={ + hasAlpha=optmethodbool, + control=optstring, + dialogControl=optstring, + dropdownControl=optstring, + }, + keybinding={ + control=optstring, + dialogControl=optstring, + dropdownControl=optstring, + }, +} + +local function validateKey(k,errlvl,...) + errlvl=(errlvl or 0)+1 + if type(k)~="string" then + err("["..tostring(k).."] - key is not a string", errlvl,...) + end + if strfind(k, "[%c\127]") then + err("["..tostring(k).."] - key name contained control characters", errlvl,...) + end +end + +local function validateVal(v, oktypes, errlvl,...) + errlvl=(errlvl or 0)+1 + local isok=oktypes[type(v)] or oktypes["*"] + + if not isok then + err(": expected a "..oktypes._..", got '"..tostring(v).."'", errlvl,...) + end + if type(isok)=="table" then -- isok was a table containing specific values to be tested for! + if not isok[v] then + err(": did not expect "..type(v).." value '"..tostring(v).."'", errlvl,...) + end + end +end + +local function validate(options,errlvl,...) + errlvl=(errlvl or 0)+1 + -- basic consistency + if type(options)~="table" then + err(": expected a table, got a "..type(options), errlvl,...) + end + if type(options.type)~="string" then + err(".type: expected a string, got a "..type(options.type), errlvl,...) + end + + -- get type and 'typedkeys' member + local tk = typedkeys[options.type] + if not tk then + err(".type: unknown type '"..options.type.."'", errlvl,...) + end + + -- make sure that all options[] are known parameters + for k,v in pairs(options) do + if not (tk[k] or basekeys[k]) then + err(": unknown parameter", errlvl,tostring(k),...) + end + end + + -- verify that required params are there, and that everything is the right type + for k,oktypes in pairs(basekeys) do + validateVal(options[k], oktypes, errlvl,k,...) + end + for k,oktypes in pairs(tk) do + validateVal(options[k], oktypes, errlvl,k,...) + end + + -- extra logic for groups + if options.type=="group" then + for k,v in pairs(options.args) do + validateKey(k,errlvl,"args",...) + validate(v, errlvl,k,"args",...) + end + if options.plugins then + for plugname,plugin in pairs(options.plugins) do + if type(plugin)~="table" then + err(": expected a table, got '"..tostring(plugin).."'", errlvl,tostring(plugname),"plugins",...) + end + for k,v in pairs(plugin) do + validateKey(k,errlvl,tostring(plugname),"plugins",...) + validate(v, errlvl,k,tostring(plugname),"plugins",...) + end + end + end + end +end + + +--- Validates basic structure and integrity of an options table \\ +-- Does NOT verify that get/set etc actually exist, since they can be defined at any depth +-- @param options The table to be validated +-- @param name The name of the table to be validated (shown in any error message) +-- @param errlvl (optional number) error level offset, default 0 (=errors point to the function calling :ValidateOptionsTable) +function AceConfigRegistry:ValidateOptionsTable(options,name,errlvl) + errlvl=(errlvl or 0)+1 + name = name or "Optionstable" + if not options.name then + options.name=name -- bit of a hack, the root level doesn't really need a .name :-/ + end + validate(options,errlvl,name) +end + +--- Fires a "ConfigTableChange" callback for those listening in on it, allowing config GUIs to refresh. +-- You should call this function if your options table changed from any outside event, like a game event +-- or a timer. +-- @param appName The application name as given to `:RegisterOptionsTable()` +function AceConfigRegistry:NotifyChange(appName) + if not AceConfigRegistry.tables[appName] then return end + AceConfigRegistry.callbacks:Fire("ConfigTableChange", appName) +end + +-- ------------------------------------------------------------------- +-- Registering and retreiving options tables: + + +-- validateGetterArgs: helper function for :GetOptionsTable (or, rather, the getter functions returned by it) + +local function validateGetterArgs(uiType, uiName, errlvl) + errlvl=(errlvl or 0)+2 + if uiType~="cmd" and uiType~="dropdown" and uiType~="dialog" then + error(MAJOR..": Requesting options table: 'uiType' - invalid configuration UI type, expected 'cmd', 'dropdown' or 'dialog'", errlvl) + end + if not strmatch(uiName, "[A-Za-z]%-[0-9]") then -- Expecting e.g. "MyLib-1.2" + error(MAJOR..": Requesting options table: 'uiName' - badly formatted or missing version number. Expected e.g. 'MyLib-1.2'", errlvl) + end +end + +--- Register an options table with the config registry. +-- @param appName The application name as given to `:RegisterOptionsTable()` +-- @param options The options table, OR a function reference that generates it on demand. \\ +-- See the top of the page for info on arguments passed to such functions. +-- @param skipValidation Skip options table validation (primarily useful for extremely huge options, with a noticeable slowdown) +function AceConfigRegistry:RegisterOptionsTable(appName, options, skipValidation) + if type(options)=="table" then + if options.type~="group" then -- quick sanity checker + error(MAJOR..": RegisterOptionsTable(appName, options): 'options' - missing type='group' member in root group", 2) + end + AceConfigRegistry.tables[appName] = function(uiType, uiName, errlvl) + errlvl=(errlvl or 0)+1 + validateGetterArgs(uiType, uiName, errlvl) + if not AceConfigRegistry.validated[uiType][appName] and not skipValidation then + AceConfigRegistry:ValidateOptionsTable(options, appName, errlvl) -- upgradable + AceConfigRegistry.validated[uiType][appName] = true + end + return options + end + elseif type(options)=="function" then + AceConfigRegistry.tables[appName] = function(uiType, uiName, errlvl) + errlvl=(errlvl or 0)+1 + validateGetterArgs(uiType, uiName, errlvl) + local tab = assert(options(uiType, uiName, appName)) + if not AceConfigRegistry.validated[uiType][appName] and not skipValidation then + AceConfigRegistry:ValidateOptionsTable(tab, appName, errlvl) -- upgradable + AceConfigRegistry.validated[uiType][appName] = true + end + return tab + end + else + error(MAJOR..": RegisterOptionsTable(appName, options): 'options' - expected table or function reference", 2) + end +end + +--- Returns an iterator of ["appName"]=funcref pairs +function AceConfigRegistry:IterateOptionsTables() + return pairs(AceConfigRegistry.tables) +end + + + + +--- Query the registry for a specific options table. +-- If only appName is given, a function is returned which you +-- can call with (uiType,uiName) to get the table.\\ +-- If uiType&uiName are given, the table is returned. +-- @param appName The application name as given to `:RegisterOptionsTable()` +-- @param uiType The type of UI to get the table for, one of "cmd", "dropdown", "dialog" +-- @param uiName The name of the library/addon querying for the table, e.g. "MyLib-1.0" +function AceConfigRegistry:GetOptionsTable(appName, uiType, uiName) + local f = AceConfigRegistry.tables[appName] + if not f then + return nil + end + + if uiType then + return f(uiType,uiName,1) -- get the table for us + else + return f -- return the function + end +end diff --git a/Titan/libs/Ace/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.xml b/Titan/libs/Ace/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.xml new file mode 100644 index 0000000..4ea69ca --- /dev/null +++ b/Titan/libs/Ace/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="AceConfigRegistry-3.0.lua"/> +</Ui> diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets.toc b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets.toc new file mode 100644 index 0000000..23abaca --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets.toc @@ -0,0 +1,16 @@ +## Interface: 90001 + +## Title: Lib: AceGUI-3.0-SharedMediaWidgets +## Notes: Enables AceGUI-3.0 widgets for the 5 basic SharedMedia-3.0 types +## Author: Yssaril +## OptionalDeps: Ace3, LibSharedMedia-3.0 +## X-Category: Library + +#@no-lib-strip@ +Libs\Libstub\Libstub.lua +Libs\CallbackHandler-1.0\CallbackHandler-1.0.xml +Libs\AceGUI-3.0\AceGUI-3.0.xml +Libs\LibSharedMedia-3.0\lib.xml +#@end-no-lib-strip@ + +widget.xml diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BackgroundWidget.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BackgroundWidget.lua new file mode 100644 index 0000000..19ad608 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BackgroundWidget.lua @@ -0,0 +1,235 @@ +-- Widget is based on the AceGUIWidget-DropDown.lua supplied with AceGUI-3.0 +-- Widget created by Yssaril + +local AceGUI = LibStub("AceGUI-3.0") +local Media = LibStub("LibSharedMedia-3.0") + +local AGSMW = LibStub("AceGUISharedMediaWidgets-1.0") + +do + local widgetType = "LSM30_Background" + local widgetVersion = 13 + + local contentFrameCache = {} + local function ReturnSelf(self) + self:ClearAllPoints() + self:Hide() + self.check:Hide() + table.insert(contentFrameCache, self) + end + + local function ContentOnClick(this, button) + local self = this.obj + self:Fire("OnValueChanged", this.text:GetText()) + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function ContentOnEnter(this, button) + local self = this.obj + local text = this.text:GetText() + local background = self.list[text] ~= text and self.list[text] or Media:Fetch('background',text) + self.dropdown.bgTex:SetTexture(background) + end + + local function GetContentLine() + local frame + if next(contentFrameCache) then + frame = table.remove(contentFrameCache) + else + frame = CreateFrame("Button", nil, UIParent, BackdropTemplateMixin and "BackdropTemplate") + --frame:SetWidth(200) + frame:SetHeight(18) + frame:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]], "ADD") + frame:SetScript("OnClick", ContentOnClick) + frame:SetScript("OnEnter", ContentOnEnter) + + local check = frame:CreateTexture("OVERLAY") + check:SetWidth(16) + check:SetHeight(16) + check:SetPoint("LEFT",frame,"LEFT",1,-1) + check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check") + check:Hide() + frame.check = check + + local text = frame:CreateFontString(nil,"OVERLAY","GameFontWhite") + local font, size = text:GetFont() + text:SetFont(font,size,"OUTLINE") + + text:SetPoint("TOPLEFT", check, "TOPRIGHT", 1, 0) + text:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -2, 0) + text:SetJustifyH("LEFT") + text:SetText("Test Test Test Test Test Test Test") + frame.text = text + + frame.ReturnSelf = ReturnSelf + end + frame:Show() + return frame + end + + local function OnAcquire(self) + self:SetHeight(44) + self:SetWidth(200) + end + + local function OnRelease(self) + self:SetText("") + self:SetLabel("") + self:SetDisabled(false) + + self.value = nil + self.list = nil + self.open = nil + self.hasClose = nil + + self.frame:ClearAllPoints() + self.frame:Hide() + end + + local function SetValue(self, value) -- Set the value to an item in the List. + if self.list then + self:SetText(value or "") + end + self.value = value + end + + local function GetValue(self) + return self.value + end + + local function SetList(self, list) -- Set the list of values for the dropdown (key => value pairs) + self.list = list or Media:HashTable("background") + end + + + local function SetText(self, text) -- Set the text displayed in the box. + self.frame.text:SetText(text or "") + local background = self.list[text] ~= text and self.list[text] or Media:Fetch('background',text) + + self.frame.displayButton:SetBackdrop({bgFile = background, + edgeFile = "Interface/Tooltips/UI-Tooltip-Border", + edgeSize = 16, + insets = { left = 4, right = 4, top = 4, bottom = 4 }}) + end + + local function SetLabel(self, text) -- Set the text for the label. + self.frame.label:SetText(text or "") + end + + local function AddItem(self, key, value) -- Add an item to the list. + self.list = self.list or {} + self.list[key] = value + end + local SetItemValue = AddItem -- Set the value of a item in the list. <<same as adding a new item>> + + local function SetMultiselect(self, flag) end -- Toggle multi-selecting. <<Dummy function to stay inline with the dropdown API>> + local function GetMultiselect() return false end-- Query the multi-select flag. <<Dummy function to stay inline with the dropdown API>> + local function SetItemDisabled(self, key) end-- Disable one item in the list. <<Dummy function to stay inline with the dropdown API>> + + local function SetDisabled(self, disabled) -- Disable the widget. + self.disabled = disabled + if disabled then + self.frame:Disable() + self.frame.displayButton:SetBackdropColor(.2,.2,.2,1) + else + self.frame:Enable() + self.frame.displayButton:SetBackdropColor(1,1,1,1) + end + end + + local function textSort(a,b) + return string.upper(a) < string.upper(b) + end + + local sortedlist = {} + local function ToggleDrop(this) + local self = this.obj + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + AceGUI:ClearFocus() + else + AceGUI:SetFocus(self) + self.dropdown = AGSMW:GetDropDownFrame() + local width = self.frame:GetWidth() + self.dropdown:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT") + self.dropdown:SetPoint("TOPRIGHT", self.frame, "BOTTOMRIGHT", width < 160 and (160 - width) or 0, 0) + for k, v in pairs(self.list) do + sortedlist[#sortedlist+1] = k + end + table.sort(sortedlist, textSort) + for i, k in ipairs(sortedlist) do + local f = GetContentLine() + f.text:SetText(k) + --print(k) + if k == self.value then + f.check:Show() + end + f.obj = self + f.dropdown = self.dropdown + self.dropdown:AddFrame(f) + end + wipe(sortedlist) + end + end + + local function ClearFocus(self) + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function OnHide(this) + local self = this.obj + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function Drop_OnEnter(this) + this.obj:Fire("OnEnter") + end + + local function Drop_OnLeave(this) + this.obj:Fire("OnLeave") + end + + local function Constructor() + local frame = AGSMW:GetBaseFrameWithWindow() + local self = {} + + self.type = widgetType + self.frame = frame + frame.obj = self + frame.dropButton.obj = self + frame.dropButton:SetScript("OnEnter", Drop_OnEnter) + frame.dropButton:SetScript("OnLeave", Drop_OnLeave) + frame.dropButton:SetScript("OnClick",ToggleDrop) + frame:SetScript("OnHide", OnHide) + + self.alignoffset = 31 + + self.OnRelease = OnRelease + self.OnAcquire = OnAcquire + self.ClearFocus = ClearFocus + self.SetText = SetText + self.SetValue = SetValue + self.GetValue = GetValue + self.SetList = SetList + self.SetLabel = SetLabel + self.SetDisabled = SetDisabled + self.AddItem = AddItem + self.SetMultiselect = SetMultiselect + self.GetMultiselect = GetMultiselect + self.SetItemValue = SetItemValue + self.SetItemDisabled = SetItemDisabled + self.ToggleDrop = ToggleDrop + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) + +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BorderWidget.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BorderWidget.lua new file mode 100644 index 0000000..0f2cbea --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BorderWidget.lua @@ -0,0 +1,230 @@ +-- Widget is based on the AceGUIWidget-DropDown.lua supplied with AceGUI-3.0 +-- Widget created by Yssaril + +local AceGUI = LibStub("AceGUI-3.0") +local Media = LibStub("LibSharedMedia-3.0") + +local AGSMW = LibStub("AceGUISharedMediaWidgets-1.0") + +do + local widgetType = "LSM30_Border" + local widgetVersion = 13 + + local contentFrameCache = {} + local function ReturnSelf(self) + self:ClearAllPoints() + self:Hide() + self.check:Hide() + table.insert(contentFrameCache, self) + end + + local function ContentOnClick(this, button) + local self = this.obj + self:Fire("OnValueChanged", this.text:GetText()) + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function ContentOnEnter(this, button) + local self = this.obj + local text = this.text:GetText() + local border = self.list[text] ~= text and self.list[text] or Media:Fetch('border',text) + this.dropdown:SetBackdrop({edgeFile = border, + bgFile=[[Interface\DialogFrame\UI-DialogBox-Background-Dark]], + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 4, right = 4, top = 4, bottom = 4 }}) + end + + local function GetContentLine() + local frame + if next(contentFrameCache) then + frame = table.remove(contentFrameCache) + else + frame = CreateFrame("Button", nil, UIParent) + --frame:SetWidth(200) + frame:SetHeight(18) + frame:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]], "ADD") + frame:SetScript("OnClick", ContentOnClick) + frame:SetScript("OnEnter", ContentOnEnter) + local check = frame:CreateTexture("OVERLAY") + check:SetWidth(16) + check:SetHeight(16) + check:SetPoint("LEFT",frame,"LEFT",1,-1) + check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check") + check:Hide() + frame.check = check + local text = frame:CreateFontString(nil,"OVERLAY","GameFontWhite") + text:SetPoint("TOPLEFT", check, "TOPRIGHT", 1, 0) + text:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -2, 0) + text:SetJustifyH("LEFT") + text:SetText("Test Test Test Test Test Test Test") + frame.text = text + frame.ReturnSelf = ReturnSelf + end + frame:Show() + return frame + end + + local function OnAcquire(self) + self:SetHeight(44) + self:SetWidth(200) + end + + local function OnRelease(self) + self:SetText("") + self:SetLabel("") + self:SetDisabled(false) + + self.value = nil + self.list = nil + self.open = nil + self.hasClose = nil + + self.frame:ClearAllPoints() + self.frame:Hide() + end + + local function SetValue(self, value) -- Set the value to an item in the List. + if self.list then + self:SetText(value or "") + end + self.value = value + end + + local function GetValue(self) + return self.value + end + + local function SetList(self, list) -- Set the list of values for the dropdown (key => value pairs) + self.list = list or Media:HashTable("border") + end + + + local function SetText(self, text) -- Set the text displayed in the box. + self.frame.text:SetText(text or "") + local border = self.list[text] ~= text and self.list[text] or Media:Fetch('border',text) + + self.frame.displayButton:SetBackdrop({edgeFile = border, + bgFile=[[Interface\DialogFrame\UI-DialogBox-Background-Dark]], + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 4, right = 4, top = 4, bottom = 4 }}) + end + + local function SetLabel(self, text) -- Set the text for the label. + self.frame.label:SetText(text or "") + end + + local function AddItem(self, key, value) -- Add an item to the list. + self.list = self.list or {} + self.list[key] = value + end + local SetItemValue = AddItem -- Set the value of a item in the list. <<same as adding a new item>> + + local function SetMultiselect(self, flag) end -- Toggle multi-selecting. <<Dummy function to stay inline with the dropdown API>> + local function GetMultiselect() return false end-- Query the multi-select flag. <<Dummy function to stay inline with the dropdown API>> + local function SetItemDisabled(self, key) end-- Disable one item in the list. <<Dummy function to stay inline with the dropdown API>> + + local function SetDisabled(self, disabled) -- Disable the widget. + self.disabled = disabled + if disabled then + self.frame:Disable() + else + self.frame:Enable() + end + end + + local function textSort(a,b) + return string.upper(a) < string.upper(b) + end + + local sortedlist = {} + local function ToggleDrop(this) + local self = this.obj + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + AceGUI:ClearFocus() + else + AceGUI:SetFocus(self) + self.dropdown = AGSMW:GetDropDownFrame() + local width = self.frame:GetWidth() + self.dropdown:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT") + self.dropdown:SetPoint("TOPRIGHT", self.frame, "BOTTOMRIGHT", width < 160 and (160 - width) or 0, 0) + for k, v in pairs(self.list) do + sortedlist[#sortedlist+1] = k + end + table.sort(sortedlist, textSort) + for i, k in ipairs(sortedlist) do + local f = GetContentLine() + f.text:SetText(k) + --print(k) + if k == self.value then + f.check:Show() + end + f.obj = self + f.dropdown = self.dropdown + self.dropdown:AddFrame(f) + end + wipe(sortedlist) + end + end + + local function ClearFocus(self) + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function OnHide(this) + local self = this.obj + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function Drop_OnEnter(this) + this.obj:Fire("OnEnter") + end + + local function Drop_OnLeave(this) + this.obj:Fire("OnLeave") + end + + local function Constructor() + local frame = AGSMW:GetBaseFrameWithWindow() + local self = {} + + self.type = widgetType + self.frame = frame + frame.obj = self + frame.dropButton.obj = self + frame.dropButton:SetScript("OnEnter", Drop_OnEnter) + frame.dropButton:SetScript("OnLeave", Drop_OnLeave) + frame.dropButton:SetScript("OnClick",ToggleDrop) + frame:SetScript("OnHide", OnHide) + + self.alignoffset = 31 + + self.OnRelease = OnRelease + self.OnAcquire = OnAcquire + self.ClearFocus = ClearFocus + self.SetText = SetText + self.SetValue = SetValue + self.GetValue = GetValue + self.SetList = SetList + self.SetLabel = SetLabel + self.SetDisabled = SetDisabled + self.AddItem = AddItem + self.SetMultiselect = SetMultiselect + self.GetMultiselect = GetMultiselect + self.SetItemValue = SetItemValue + self.SetItemDisabled = SetItemDisabled + self.ToggleDrop = ToggleDrop + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) + +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/FontWidget.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/FontWidget.lua new file mode 100644 index 0000000..e9f98b9 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/FontWidget.lua @@ -0,0 +1,216 @@ +-- Widget is based on the AceGUIWidget-DropDown.lua supplied with AceGUI-3.0 +-- Widget created by Yssaril + +local AceGUI = LibStub("AceGUI-3.0") +local Media = LibStub("LibSharedMedia-3.0") + +local AGSMW = LibStub("AceGUISharedMediaWidgets-1.0") + +do + local widgetType = "LSM30_Font" + local widgetVersion = 13 + + local contentFrameCache = {} + local function ReturnSelf(self) + self:ClearAllPoints() + self:Hide() + self.check:Hide() + table.insert(contentFrameCache, self) + end + + local function ContentOnClick(this, button) + local self = this.obj + self:Fire("OnValueChanged", this.text:GetText()) + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function GetContentLine() + local frame + if next(contentFrameCache) then + frame = table.remove(contentFrameCache) + else + frame = CreateFrame("Button", nil, UIParent) + --frame:SetWidth(200) + frame:SetHeight(18) + frame:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]], "ADD") + frame:SetScript("OnClick", ContentOnClick) + local check = frame:CreateTexture("OVERLAY") + check:SetWidth(16) + check:SetHeight(16) + check:SetPoint("LEFT",frame,"LEFT",1,-1) + check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check") + check:Hide() + frame.check = check + local text = frame:CreateFontString(nil,"OVERLAY","GameFontWhite") + text:SetPoint("TOPLEFT", check, "TOPRIGHT", 1, 0) + text:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -2, 0) + text:SetJustifyH("LEFT") + text:SetText("Test Test Test Test Test Test Test") + frame.text = text + frame.ReturnSelf = ReturnSelf + end + frame:Show() + return frame + end + + local function OnAcquire(self) + self:SetHeight(44) + self:SetWidth(200) + end + + local function OnRelease(self) + self:SetText("") + self:SetLabel("") + self:SetDisabled(false) + + self.value = nil + self.list = nil + self.open = nil + self.hasClose = nil + + self.frame:ClearAllPoints() + self.frame:Hide() + end + + local function SetValue(self, value) -- Set the value to an item in the List. + if self.list then + self:SetText(value or "") + end + self.value = value + end + + local function GetValue(self) + return self.value + end + + local function SetList(self, list) -- Set the list of values for the dropdown (key => value pairs) + self.list = list or Media:HashTable("font") + end + + local function SetText(self, text) -- Set the text displayed in the box. + self.frame.text:SetText(text or "") + local font = self.list[text] ~= text and self.list[text] or Media:Fetch('font',text) + local _, size, outline= self.frame.text:GetFont() + self.frame.text:SetFont(font,size,outline) + end + + local function SetLabel(self, text) -- Set the text for the label. + self.frame.label:SetText(text or "") + end + + local function AddItem(self, key, value) -- Add an item to the list. + self.list = self.list or {} + self.list[key] = value + end + local SetItemValue = AddItem -- Set the value of a item in the list. <<same as adding a new item>> + + local function SetMultiselect(self, flag) end -- Toggle multi-selecting. <<Dummy function to stay inline with the dropdown API>> + local function GetMultiselect() return false end-- Query the multi-select flag. <<Dummy function to stay inline with the dropdown API>> + local function SetItemDisabled(self, key) end-- Disable one item in the list. <<Dummy function to stay inline with the dropdown API>> + + local function SetDisabled(self, disabled) -- Disable the widget. + self.disabled = disabled + if disabled then + self.frame:Disable() + else + self.frame:Enable() + end + end + + local function textSort(a,b) + return string.upper(a) < string.upper(b) + end + + local sortedlist = {} + local function ToggleDrop(this) + local self = this.obj + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + AceGUI:ClearFocus() + else + AceGUI:SetFocus(self) + self.dropdown = AGSMW:GetDropDownFrame() + local width = self.frame:GetWidth() + self.dropdown:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT") + self.dropdown:SetPoint("TOPRIGHT", self.frame, "BOTTOMRIGHT", width < 160 and (160 - width) or 0, 0) + for k, v in pairs(self.list) do + sortedlist[#sortedlist+1] = k + end + table.sort(sortedlist, textSort) + for i, k in ipairs(sortedlist) do + local f = GetContentLine() + local _, size, outline= f.text:GetFont() + local font = self.list[k] ~= k and self.list[k] or Media:Fetch('font',k) + f.text:SetFont(font,size,outline) + f.text:SetText(k) + if k == self.value then + f.check:Show() + end + f.obj = self + self.dropdown:AddFrame(f) + end + wipe(sortedlist) + end + end + + local function ClearFocus(self) + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function OnHide(this) + local self = this.obj + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function Drop_OnEnter(this) + this.obj:Fire("OnEnter") + end + + local function Drop_OnLeave(this) + this.obj:Fire("OnLeave") + end + + local function Constructor() + local frame = AGSMW:GetBaseFrame() + local self = {} + + self.type = widgetType + self.frame = frame + frame.obj = self + frame.dropButton.obj = self + frame.dropButton:SetScript("OnEnter", Drop_OnEnter) + frame.dropButton:SetScript("OnLeave", Drop_OnLeave) + frame.dropButton:SetScript("OnClick",ToggleDrop) + frame:SetScript("OnHide", OnHide) + + self.alignoffset = 31 + + self.OnRelease = OnRelease + self.OnAcquire = OnAcquire + self.ClearFocus = ClearFocus + self.SetText = SetText + self.SetValue = SetValue + self.GetValue = GetValue + self.SetList = SetList + self.SetLabel = SetLabel + self.SetDisabled = SetDisabled + self.AddItem = AddItem + self.SetMultiselect = SetMultiselect + self.GetMultiselect = GetMultiselect + self.SetItemValue = SetItemValue + self.SetItemDisabled = SetItemDisabled + self.ToggleDrop = ToggleDrop + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) + +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/SoundWidget.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/SoundWidget.lua new file mode 100644 index 0000000..77557a5 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/SoundWidget.lua @@ -0,0 +1,264 @@ +-- Widget is based on the AceGUIWidget-DropDown.lua supplied with AceGUI-3.0 +-- Widget created by Yssaril + +local AceGUI = LibStub("AceGUI-3.0") +local Media = LibStub("LibSharedMedia-3.0") + +local AGSMW = LibStub("AceGUISharedMediaWidgets-1.0") + +do + local widgetType = "LSM30_Sound" + local widgetVersion = 13 + + local contentFrameCache = {} + local function ReturnSelf(self) + self:ClearAllPoints() + self:Hide() + self.check:Hide() + table.insert(contentFrameCache, self) + end + + local function ContentOnClick(this, button) + local self = this.obj + self:Fire("OnValueChanged", this.text:GetText()) + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function ContentSpeakerOnClick(this, button) + local self = this.frame.obj + local sound = this.frame.text:GetText() + PlaySoundFile(self.list[sound] ~= sound and self.list[sound] or Media:Fetch('sound',sound), "Master") + end + + local function GetContentLine() + local frame + if next(contentFrameCache) then + frame = table.remove(contentFrameCache) + else + frame = CreateFrame("Button", nil, UIParent) + --frame:SetWidth(200) + frame:SetHeight(18) + frame:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]], "ADD") + frame:SetScript("OnClick", ContentOnClick) + local check = frame:CreateTexture("OVERLAY") + check:SetWidth(16) + check:SetHeight(16) + check:SetPoint("LEFT",frame,"LEFT",1,-1) + check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check") + check:Hide() + frame.check = check + + local soundbutton = CreateFrame("Button", nil, frame) + soundbutton:SetWidth(16) + soundbutton:SetHeight(16) + soundbutton:SetPoint("RIGHT",frame,"RIGHT",-1,0) + soundbutton.frame = frame + soundbutton:SetScript("OnClick", ContentSpeakerOnClick) + frame.soundbutton = soundbutton + + local speaker = soundbutton:CreateTexture(nil, "BACKGROUND") + speaker:SetTexture("Interface\\Common\\VoiceChat-Speaker") + speaker:SetAllPoints(soundbutton) + frame.speaker = speaker + local speakeron = soundbutton:CreateTexture(nil, "HIGHLIGHT") + speakeron:SetTexture("Interface\\Common\\VoiceChat-On") + speakeron:SetAllPoints(soundbutton) + frame.speakeron = speakeron + + local text = frame:CreateFontString(nil,"OVERLAY","GameFontWhite") + text:SetPoint("TOPLEFT", check, "TOPRIGHT", 1, 0) + text:SetPoint("BOTTOMRIGHT", soundbutton, "BOTTOMLEFT", -2, 0) + text:SetJustifyH("LEFT") + text:SetText("Test Test Test Test Test Test Test") + frame.text = text + frame.ReturnSelf = ReturnSelf + end + frame:Show() + return frame + end + + local function OnAcquire(self) + self:SetHeight(44) + self:SetWidth(200) + end + + local function OnRelease(self) + self:SetText("") + self:SetLabel("") + self:SetDisabled(false) + + self.value = nil + self.list = nil + self.open = nil + self.hasClose = nil + + self.frame:ClearAllPoints() + self.frame:Hide() + end + + local function SetValue(self, value) -- Set the value to an item in the List. + if self.list then + self:SetText(value or "") + end + self.value = value + end + + local function GetValue(self) + return self.value + end + + local function SetList(self, list) -- Set the list of values for the dropdown (key => value pairs) + self.list = list or Media:HashTable("sound") + end + + local function SetText(self, text) -- Set the text displayed in the box. + self.frame.text:SetText(text or "") + end + + local function SetLabel(self, text) -- Set the text for the label. + self.frame.label:SetText(text or "") + end + + local function AddItem(self, key, value) -- Add an item to the list. + self.list = self.list or {} + self.list[key] = value + end + local SetItemValue = AddItem -- Set the value of a item in the list. <<same as adding a new item>> + + local function SetMultiselect(self, flag) end -- Toggle multi-selecting. <<Dummy function to stay inline with the dropdown API>> + local function GetMultiselect() return false end-- Query the multi-select flag. <<Dummy function to stay inline with the dropdown API>> + local function SetItemDisabled(self, key) end-- Disable one item in the list. <<Dummy function to stay inline with the dropdown API>> + + local function SetDisabled(self, disabled) -- Disable the widget. + self.disabled = disabled + if disabled then + self.frame:Disable() + self.speaker:SetDesaturated(true) + self.speakeron:SetDesaturated(true) + else + self.frame:Enable() + self.speaker:SetDesaturated(false) + self.speakeron:SetDesaturated(false) + end + end + + local function textSort(a,b) + return string.upper(a) < string.upper(b) + end + + local sortedlist = {} + local function ToggleDrop(this) + local self = this.obj + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + AceGUI:ClearFocus() + else + AceGUI:SetFocus(self) + self.dropdown = AGSMW:GetDropDownFrame() + local width = self.frame:GetWidth() + self.dropdown:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT") + self.dropdown:SetPoint("TOPRIGHT", self.frame, "BOTTOMRIGHT", width < 160 and (160 - width) or 0, 0) + for k, v in pairs(self.list) do + sortedlist[#sortedlist+1] = k + end + table.sort(sortedlist, textSort) + for i, k in ipairs(sortedlist) do + local f = GetContentLine() + f.text:SetText(k) + if k == self.value then + f.check:Show() + end + f.obj = self + self.dropdown:AddFrame(f) + end + wipe(sortedlist) + end + end + + local function ClearFocus(self) + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function OnHide(this) + local self = this.obj + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function Drop_OnEnter(this) + this.obj:Fire("OnEnter") + end + + local function Drop_OnLeave(this) + this.obj:Fire("OnLeave") + end + + local function WidgetPlaySound(this) + local self = this.obj + local sound = self.frame.text:GetText() + PlaySoundFile(self.list[sound] ~= sound and self.list[sound] or Media:Fetch('sound',sound), "Master") + end + + local function Constructor() + local frame = AGSMW:GetBaseFrame() + local self = {} + + self.type = widgetType + self.frame = frame + frame.obj = self + frame.dropButton.obj = self + frame.dropButton:SetScript("OnEnter", Drop_OnEnter) + frame.dropButton:SetScript("OnLeave", Drop_OnLeave) + frame.dropButton:SetScript("OnClick",ToggleDrop) + frame:SetScript("OnHide", OnHide) + + + local soundbutton = CreateFrame("Button", nil, frame) + soundbutton:SetWidth(16) + soundbutton:SetHeight(16) + soundbutton:SetPoint("LEFT",frame.DLeft,"LEFT",26,1) + soundbutton:SetScript("OnClick", WidgetPlaySound) + soundbutton.obj = self + self.soundbutton = soundbutton + frame.text:SetPoint("LEFT",soundbutton,"RIGHT",2,0) + + + local speaker = soundbutton:CreateTexture(nil, "BACKGROUND") + speaker:SetTexture("Interface\\Common\\VoiceChat-Speaker") + speaker:SetAllPoints(soundbutton) + self.speaker = speaker + local speakeron = soundbutton:CreateTexture(nil, "HIGHLIGHT") + speakeron:SetTexture("Interface\\Common\\VoiceChat-On") + speakeron:SetAllPoints(soundbutton) + self.speakeron = speakeron + + self.alignoffset = 31 + + self.OnRelease = OnRelease + self.OnAcquire = OnAcquire + self.ClearFocus = ClearFocus + self.SetText = SetText + self.SetValue = SetValue + self.GetValue = GetValue + self.SetList = SetList + self.SetLabel = SetLabel + self.SetDisabled = SetDisabled + self.AddItem = AddItem + self.SetMultiselect = SetMultiselect + self.GetMultiselect = GetMultiselect + self.SetItemValue = SetItemValue + self.SetItemDisabled = SetItemDisabled + self.ToggleDrop = ToggleDrop + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) + +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/StatusbarWidget.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/StatusbarWidget.lua new file mode 100644 index 0000000..05467aa --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/StatusbarWidget.lua @@ -0,0 +1,233 @@ +-- Widget is based on the AceGUIWidget-DropDown.lua supplied with AceGUI-3.0 +-- Widget created by Yssaril + +local AceGUI = LibStub("AceGUI-3.0") +local Media = LibStub("LibSharedMedia-3.0") + +local AGSMW = LibStub("AceGUISharedMediaWidgets-1.0") + +do + local widgetType = "LSM30_Statusbar" + local widgetVersion = 13 + + local contentFrameCache = {} + local function ReturnSelf(self) + self:ClearAllPoints() + self:Hide() + self.check:Hide() + table.insert(contentFrameCache, self) + end + + local function ContentOnClick(this, button) + local self = this.obj + self:Fire("OnValueChanged", this.text:GetText()) + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function GetContentLine() + local frame + if next(contentFrameCache) then + frame = table.remove(contentFrameCache) + else + frame = CreateFrame("Button", nil, UIParent) + --frame:SetWidth(200) + frame:SetHeight(18) + frame:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]], "ADD") + frame:SetScript("OnClick", ContentOnClick) + local check = frame:CreateTexture("OVERLAY") + check:SetWidth(16) + check:SetHeight(16) + check:SetPoint("LEFT",frame,"LEFT",1,-1) + check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check") + check:Hide() + frame.check = check + local bar = frame:CreateTexture("ARTWORK") + bar:SetHeight(16) + bar:SetPoint("LEFT",check,"RIGHT",1,0) + bar:SetPoint("RIGHT",frame,"RIGHT",-1,0) + frame.bar = bar + local text = frame:CreateFontString(nil,"OVERLAY","GameFontWhite") + + local font, size = text:GetFont() + text:SetFont(font,size,"OUTLINE") + + text:SetPoint("TOPLEFT", check, "TOPRIGHT", 3, 0) + text:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -2, 0) + text:SetJustifyH("LEFT") + text:SetText("Test Test Test Test Test Test Test") + frame.text = text + frame.ReturnSelf = ReturnSelf + end + frame:Show() + return frame + end + + local function OnAcquire(self) + self:SetHeight(44) + self:SetWidth(200) + end + + local function OnRelease(self) + self:SetText("") + self:SetLabel("") + self:SetDisabled(false) + + self.value = nil + self.list = nil + self.open = nil + self.hasClose = nil + + self.frame:ClearAllPoints() + self.frame:Hide() + end + + local function SetValue(self, value) -- Set the value to an item in the List. + if self.list then + self:SetText(value or "") + end + self.value = value + end + + local function GetValue(self) + return self.value + end + + local function SetList(self, list) -- Set the list of values for the dropdown (key => value pairs) + self.list = list or Media:HashTable("statusbar") + end + + + local function SetText(self, text) -- Set the text displayed in the box. + self.frame.text:SetText(text or "") + local statusbar = self.list[text] ~= text and self.list[text] or Media:Fetch('statusbar',text) + self.bar:SetTexture(statusbar) + end + + local function SetLabel(self, text) -- Set the text for the label. + self.frame.label:SetText(text or "") + end + + local function AddItem(self, key, value) -- Add an item to the list. + self.list = self.list or {} + self.list[key] = value + end + local SetItemValue = AddItem -- Set the value of a item in the list. <<same as adding a new item>> + + local function SetMultiselect(self, flag) end -- Toggle multi-selecting. <<Dummy function to stay inline with the dropdown API>> + local function GetMultiselect() return false end-- Query the multi-select flag. <<Dummy function to stay inline with the dropdown API>> + local function SetItemDisabled(self, key) end-- Disable one item in the list. <<Dummy function to stay inline with the dropdown API>> + + local function SetDisabled(self, disabled) -- Disable the widget. + self.disabled = disabled + if disabled then + self.frame:Disable() + else + self.frame:Enable() + end + end + + local function textSort(a,b) + return string.upper(a) < string.upper(b) + end + + local sortedlist = {} + local function ToggleDrop(this) + local self = this.obj + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + AceGUI:ClearFocus() + else + AceGUI:SetFocus(self) + self.dropdown = AGSMW:GetDropDownFrame() + local width = self.frame:GetWidth() + self.dropdown:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT") + self.dropdown:SetPoint("TOPRIGHT", self.frame, "BOTTOMRIGHT", width < 160 and (160 - width) or 0, 0) + for k, v in pairs(self.list) do + sortedlist[#sortedlist+1] = k + end + table.sort(sortedlist, textSort) + for i, k in ipairs(sortedlist) do + local f = GetContentLine() + f.text:SetText(k) + --print(k) + if k == self.value then + f.check:Show() + end + + local statusbar = self.list[k] ~= k and self.list[k] or Media:Fetch('statusbar',k) + f.bar:SetTexture(statusbar) + f.obj = self + f.dropdown = self.dropdown + self.dropdown:AddFrame(f) + end + wipe(sortedlist) + end + end + + local function ClearFocus(self) + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function OnHide(this) + local self = this.obj + if self.dropdown then + self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) + end + end + + local function Drop_OnEnter(this) + this.obj:Fire("OnEnter") + end + + local function Drop_OnLeave(this) + this.obj:Fire("OnLeave") + end + + local function Constructor() + local frame = AGSMW:GetBaseFrame() + local self = {} + + self.type = widgetType + self.frame = frame + frame.obj = self + frame.dropButton.obj = self + frame.dropButton:SetScript("OnEnter", Drop_OnEnter) + frame.dropButton:SetScript("OnLeave", Drop_OnLeave) + frame.dropButton:SetScript("OnClick",ToggleDrop) + frame:SetScript("OnHide", OnHide) + + local bar = frame:CreateTexture(nil, "OVERLAY") + bar:SetPoint("TOPLEFT", frame,"TOPLEFT",6,-25) + bar:SetPoint("BOTTOMRIGHT", frame,"BOTTOMRIGHT", -21, 5) + bar:SetAlpha(0.5) + self.bar = bar + + self.alignoffset = 31 + + self.OnRelease = OnRelease + self.OnAcquire = OnAcquire + self.ClearFocus = ClearFocus + self.SetText = SetText + self.SetValue = SetValue + self.GetValue = GetValue + self.SetList = SetList + self.SetLabel = SetLabel + self.SetDisabled = SetDisabled + self.AddItem = AddItem + self.SetMultiselect = SetMultiselect + self.GetMultiselect = GetMultiselect + self.SetItemValue = SetItemValue + self.SetItemDisabled = SetItemDisabled + self.ToggleDrop = ToggleDrop + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) + +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/prototypes.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/prototypes.lua new file mode 100644 index 0000000..95b511d --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/prototypes.lua @@ -0,0 +1,266 @@ +-- Widget created by Yssaril +local DataVersion = 9004 +local AGSMW = LibStub:NewLibrary("AceGUISharedMediaWidgets-1.0", DataVersion) + +if not AGSMW then + return -- already loaded and no upgrade necessary +end + +local AceGUI = LibStub("AceGUI-3.0") +local Media = LibStub("LibSharedMedia-3.0") + +AGSMW = AGSMW or {} + +AceGUIWidgetLSMlists = { + ['font'] = Media:HashTable("font"), + ['sound'] = Media:HashTable("sound"), + ['statusbar'] = Media:HashTable("statusbar"), + ['border'] = Media:HashTable("border"), + ['background'] = Media:HashTable("background"), +} + +do + local function disable(frame) + frame.label:SetTextColor(.5,.5,.5) + frame.text:SetTextColor(.5,.5,.5) + frame.dropButton:Disable() + if frame.displayButtonFont then + frame.displayButtonFont:SetTextColor(.5,.5,.5) + frame.displayButton:Disable() + end + end + + local function enable(frame) + frame.label:SetTextColor(1,.82,0) + frame.text:SetTextColor(1,1,1) + frame.dropButton:Enable() + if frame.displayButtonFont then + frame.displayButtonFont:SetTextColor(1,1,1) + frame.displayButton:Enable() + end + end + + local displayButtonBackdrop = { + edgeFile = "Interface/Tooltips/UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 4, right = 4, top = 4, bottom = 4 }, + } + + -- create or retrieve BaseFrame + function AGSMW:GetBaseFrame() + local frame = CreateFrame("Frame", nil, UIParent) + frame:SetHeight(44) + frame:SetWidth(200) + + local label = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall") + label:SetPoint("TOPLEFT",frame,"TOPLEFT",0,0) + label:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0) + label:SetJustifyH("LEFT") + label:SetHeight(18) + label:SetText("") + frame.label = label + + local DLeft = frame:CreateTexture(nil, "ARTWORK") + DLeft:SetWidth(25) + DLeft:SetHeight(64) + DLeft:SetPoint("BOTTOMLEFT", frame, "BOTTOMLEFT", -17, -21) + DLeft:SetTexture([[Interface\Glues\CharacterCreate\CharacterCreate-LabelFrame]]) + DLeft:SetTexCoord(0, 0.1953125, 0, 1) + frame.DLeft = DLeft + + local DRight = frame:CreateTexture(nil, "ARTWORK") + DRight:SetWidth(25) + DRight:SetHeight(64) + DRight:SetPoint("TOP", DLeft, "TOP") + DRight:SetPoint("RIGHT", frame, "RIGHT", 17, 0) + DRight:SetTexture([[Interface\Glues\CharacterCreate\CharacterCreate-LabelFrame]]) + DRight:SetTexCoord(0.8046875, 1, 0, 1) + frame.DRight = DRight + + local DMiddle = frame:CreateTexture(nil, "ARTWORK") + DMiddle:SetHeight(64) + DMiddle:SetPoint("TOP", DLeft, "TOP") + DMiddle:SetPoint("LEFT", DLeft, "RIGHT") + DMiddle:SetPoint("RIGHT", DRight, "LEFT") + DMiddle:SetTexture([[Interface\Glues\CharacterCreate\CharacterCreate-LabelFrame]]) + DMiddle:SetTexCoord(0.1953125, 0.8046875, 0, 1) + frame.DMiddle = DMiddle + + local text = frame:CreateFontString(nil,"OVERLAY","GameFontHighlightSmall") + text:SetPoint("RIGHT",DRight,"RIGHT",-43,1) + text:SetPoint("LEFT",DLeft,"LEFT",26,1) + text:SetJustifyH("RIGHT") + text:SetHeight(18) + text:SetText("") + frame.text = text + + local dropButton = CreateFrame("Button", nil, frame) + dropButton:SetWidth(24) + dropButton:SetHeight(24) + dropButton:SetPoint("TOPRIGHT", DRight, "TOPRIGHT", -16, -18) + dropButton:SetNormalTexture([[Interface\ChatFrame\UI-ChatIcon-ScrollDown-Up]]) + dropButton:SetPushedTexture([[Interface\ChatFrame\UI-ChatIcon-ScrollDown-Down]]) + dropButton:SetDisabledTexture([[Interface\ChatFrame\UI-ChatIcon-ScrollDown-Disabled]]) + dropButton:SetHighlightTexture([[Interface\Buttons\UI-Common-MouseHilight]], "ADD") + frame.dropButton = dropButton + + frame.Disable = disable + frame.Enable = enable + return frame + end + + function AGSMW:GetBaseFrameWithWindow() + local frame = self:GetBaseFrame() + + local displayButton = CreateFrame("Button", nil, frame, BackdropTemplateMixin and "BackdropTemplate") + displayButton:SetHeight(42) + displayButton:SetWidth(42) + displayButton:SetPoint("TOPLEFT", frame, "TOPLEFT", 1, -2) + displayButton:SetBackdrop(displayButtonBackdrop) + displayButton:SetBackdropBorderColor(.5, .5, .5) + frame.displayButton = displayButton + + frame.label:SetPoint("TOPLEFT",displayButton,"TOPRIGHT",1,2) + + frame.DLeft:SetPoint("BOTTOMLEFT", displayButton, "BOTTOMRIGHT", -17, -20) + + return frame + end + +end + +do + + 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 frameBackdrop = { + bgFile=[[Interface\DialogFrame\UI-DialogBox-Background-Dark]], + edgeFile = [[Interface\DialogFrame\UI-DialogBox-Border]], + tile = true, tileSize = 32, edgeSize = 32, + insets = { left = 11, right = 12, top = 12, bottom = 9 }, + } + + local function OnMouseWheel(self, dir) + self.slider:SetValue(self.slider:GetValue()+(15*dir*-1)) + end + + local function AddFrame(self, frame) + frame:SetParent(self.contentframe) + frame:SetFrameStrata(self:GetFrameStrata()) + frame:SetFrameLevel(self:GetFrameLevel() + 100) + + if next(self.contentRepo) then + frame:SetPoint("TOPLEFT", self.contentRepo[#self.contentRepo], "BOTTOMLEFT", 0, 0) + frame:SetPoint("RIGHT", self.contentframe, "RIGHT", 0, 0) + self.contentframe:SetHeight(self.contentframe:GetHeight() + frame:GetHeight()) + self.contentRepo[#self.contentRepo+1] = frame + else + self.contentframe:SetHeight(frame:GetHeight()) + frame:SetPoint("TOPLEFT", self.contentframe, "TOPLEFT", 0, 0) + frame:SetPoint("RIGHT", self.contentframe, "RIGHT", 0, 0) + self.contentRepo[1] = frame + end + + if self.contentframe:GetHeight() > UIParent:GetHeight()*2/5 - 20 then + self.scrollframe:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -28, 12) + self:SetHeight(UIParent:GetHeight()*2/5) + self.slider:Show() + self:SetScript("OnMouseWheel", OnMouseWheel) + self.slider:SetMinMaxValues(0, self.contentframe:GetHeight()-self.scrollframe:GetHeight()) + else + self.scrollframe:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -14, 12) + self:SetHeight(self.contentframe:GetHeight()+25) + self.slider:Hide() + self:SetScript("OnMouseWheel", nil) + self.slider:SetMinMaxValues(0, 0) + end + self.contentframe:SetWidth(self.scrollframe:GetWidth()) + end + + local function ClearFrames(self) + for i, frame in ipairs(self.contentRepo) do + frame:ReturnSelf() + self.contentRepo[i] = nil + end + end + + local function slider_OnValueChanged(self, value) + self.frame.scrollframe:SetVerticalScroll(value) + end + + local DropDownCache = {} + function AGSMW:GetDropDownFrame() + local frame + if next(DropDownCache) then + frame = table.remove(DropDownCache) + else + frame = CreateFrame("Frame", nil, UIParent, BackdropTemplateMixin and "BackdropTemplate") + frame:SetClampedToScreen(true) + frame:SetWidth(188) + frame:SetBackdrop(frameBackdrop) + frame:SetFrameStrata("TOOLTIP") + frame:EnableMouseWheel(true) + + local contentframe = CreateFrame("Frame", nil, frame) + contentframe:SetWidth(160) + contentframe:SetHeight(0) + frame.contentframe = contentframe + + local scrollframe = CreateFrame("ScrollFrame", nil, frame) + scrollframe:SetWidth(160) + scrollframe:SetPoint("TOPLEFT", frame, "TOPLEFT", 14, -13) + scrollframe:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -14, 12) + scrollframe:SetScrollChild(contentframe) + frame.scrollframe = scrollframe + + contentframe:SetPoint("TOPLEFT", scrollframe) + contentframe:SetPoint("TOPRIGHT", scrollframe) + + local bgTex = frame:CreateTexture(nil, "ARTWORK") + bgTex:SetAllPoints(scrollframe) + frame.bgTex = bgTex + + frame.AddFrame = AddFrame + frame.ClearFrames = ClearFrames + frame.contentRepo = {} -- store all our frames in here so we can get rid of them later + + local slider = CreateFrame("Slider", nil, scrollframe, BackdropTemplateMixin and "BackdropTemplate") + slider:SetOrientation("VERTICAL") + slider:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -14, -10) + slider:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -14, 10) + slider:SetBackdrop(sliderBackdrop) + slider:SetThumbTexture([[Interface\Buttons\UI-SliderBar-Button-Vertical]]) + slider:SetMinMaxValues(0, 1) + --slider:SetValueStep(1) + slider:SetWidth(12) + slider.frame = frame + slider:SetScript("OnValueChanged", slider_OnValueChanged) + frame.slider = slider + end + frame:SetHeight(UIParent:GetHeight()*2/5) + frame.slider:SetValue(0) + frame:Show() + return frame + end + + function AGSMW:ReturnDropDownFrame(frame) + ClearFrames(frame) + frame:ClearAllPoints() + frame:Hide() + frame:SetBackdrop(frameBackdrop) + frame.bgTex:SetTexture(nil) + table.insert(DropDownCache, frame) + return nil + end +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/widget.xml b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/widget.xml new file mode 100644 index 0000000..43c46a1 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/widget.xml @@ -0,0 +1,9 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="prototypes.lua" /> + <Script file="FontWidget.lua" /> + <Script file="SoundWidget.lua" /> + <Script file="StatusbarWidget.lua" /> + <Script file="BorderWidget.lua" /> + <Script file="BackgroundWidget.lua" /> +</Ui> diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/CHANGES.txt b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/CHANGES.txt new file mode 100644 index 0000000..410408e --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/CHANGES.txt @@ -0,0 +1,12 @@ +------------------------------------------------------------------------ +r64 | nevcairiel | 2020-10-19 22:06:38 +0000 (Mon, 19 Oct 2020) | 1 line +Changed paths: + M /trunk/AceGUI-3.0-SharedMediaWidgets/BorderWidget.lua + M /trunk/AceGUI-3.0-SharedMediaWidgets/FontWidget.lua + M /trunk/AceGUI-3.0-SharedMediaWidgets/SoundWidget.lua + M /trunk/AceGUI-3.0-SharedMediaWidgets/StatusbarWidget.lua + M /trunk/AceGUI-3.0-SharedMediaWidgets.toc + +Bump all widget versions to ensure the new prototype is used everywhere +------------------------------------------------------------------------ + diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.lua new file mode 100644 index 0000000..cde61f6 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.lua @@ -0,0 +1,1026 @@ +--- **AceGUI-3.0** provides access to numerous widgets which can be used to create GUIs. +-- AceGUI is used by AceConfigDialog to create the option GUIs, but you can use it by itself +-- to create any custom GUI. There are more extensive examples in the test suite in the Ace3 +-- stand-alone distribution. +-- +-- **Note**: When using AceGUI-3.0 directly, please do not modify the frames of the widgets directly, +-- as any "unknown" change to the widgets will cause addons that get your widget out of the widget pool +-- to misbehave. If you think some part of a widget should be modifiable, please open a ticket, and we"ll +-- implement a proper API to modify it. +-- @usage +-- local AceGUI = LibStub("AceGUI-3.0") +-- -- Create a container frame +-- local f = AceGUI:Create("Frame") +-- f:SetCallback("OnClose",function(widget) AceGUI:Release(widget) end) +-- f:SetTitle("AceGUI-3.0 Example") +-- f:SetStatusText("Status Bar") +-- f:SetLayout("Flow") +-- -- Create a button +-- local btn = AceGUI:Create("Button") +-- btn:SetWidth(170) +-- btn:SetText("Button !") +-- btn:SetCallback("OnClick", function() print("Click!") end) +-- -- Add the button to the container +-- f:AddChild(btn) +-- @class file +-- @name AceGUI-3.0 +-- @release $Id: AceGUI-3.0.lua 1231 2020-04-14 22:20:36Z nevcairiel $ +local ACEGUI_MAJOR, ACEGUI_MINOR = "AceGUI-3.0", 41 +local AceGUI, oldminor = LibStub:NewLibrary(ACEGUI_MAJOR, ACEGUI_MINOR) + +if not AceGUI then return end -- No upgrade needed + +-- Lua APIs +local tinsert = table.insert +local select, pairs, next, type = select, pairs, next, type +local error, assert = error, assert +local setmetatable, rawget = setmetatable, rawget +local math_max = math.max + +-- WoW APIs +local UIParent = UIParent + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: geterrorhandler, LibStub + +--local con = LibStub("AceConsole-3.0",true) + +AceGUI.WidgetRegistry = AceGUI.WidgetRegistry or {} +AceGUI.LayoutRegistry = AceGUI.LayoutRegistry or {} +AceGUI.WidgetBase = AceGUI.WidgetBase or {} +AceGUI.WidgetContainerBase = AceGUI.WidgetContainerBase or {} +AceGUI.WidgetVersions = AceGUI.WidgetVersions or {} +AceGUI.tooltip = AceGUI.tooltip or CreateFrame("GameTooltip", "AceGUITooltip", UIParent, "GameTooltipTemplate") + +-- local upvalues +local WidgetRegistry = AceGUI.WidgetRegistry +local LayoutRegistry = AceGUI.LayoutRegistry +local WidgetVersions = AceGUI.WidgetVersions + +--[[ + xpcall safecall implementation +]] +local xpcall = xpcall + +local function errorhandler(err) + return geterrorhandler()(err) +end + +local function safecall(func, ...) + if func then + return xpcall(func, errorhandler, ...) + end +end + +-- Recycling functions +local newWidget, delWidget +do + -- Version Upgrade in Minor 29 + -- Internal Storage of the objects changed, from an array table + -- to a hash table, and additionally we introduced versioning on + -- the widgets which would discard all widgets from a pre-29 version + -- anyway, so we just clear the storage now, and don't try to + -- convert the storage tables to the new format. + -- This should generally not cause *many* widgets to end up in trash, + -- since once dialogs are opened, all addons should be loaded already + -- and AceGUI should be on the latest version available on the users + -- setup. + -- -- nevcairiel - Nov 2nd, 2009 + if oldminor and oldminor < 29 and AceGUI.objPools then + AceGUI.objPools = nil + end + + AceGUI.objPools = AceGUI.objPools or {} + local objPools = AceGUI.objPools + --Returns a new instance, if none are available either returns a new table or calls the given contructor + function newWidget(type) + if not WidgetRegistry[type] then + error("Attempt to instantiate unknown widget type", 2) + end + + if not objPools[type] then + objPools[type] = {} + end + + local newObj = next(objPools[type]) + if not newObj then + newObj = WidgetRegistry[type]() + newObj.AceGUIWidgetVersion = WidgetVersions[type] + else + objPools[type][newObj] = nil + -- if the widget is older then the latest, don't even try to reuse it + -- just forget about it, and grab a new one. + if not newObj.AceGUIWidgetVersion or newObj.AceGUIWidgetVersion < WidgetVersions[type] then + return newWidget(type) + end + end + return newObj + end + -- Releases an instance to the Pool + function delWidget(obj,type) + if not objPools[type] then + objPools[type] = {} + end + if objPools[type][obj] then + error("Attempt to Release Widget that is already released", 2) + end + objPools[type][obj] = true + end +end + + +------------------- +-- API Functions -- +------------------- + +-- Gets a widget Object + +--- Create a new Widget of the given type. +-- This function will instantiate a new widget (or use one from the widget pool), and call the +-- OnAcquire function on it, before returning. +-- @param type The type of the widget. +-- @return The newly created widget. +function AceGUI:Create(type) + if WidgetRegistry[type] then + local widget = newWidget(type) + + if rawget(widget, "Acquire") then + widget.OnAcquire = widget.Acquire + widget.Acquire = nil + elseif rawget(widget, "Aquire") then + widget.OnAcquire = widget.Aquire + widget.Aquire = nil + end + + if rawget(widget, "Release") then + widget.OnRelease = rawget(widget, "Release") + widget.Release = nil + end + + if widget.OnAcquire then + widget:OnAcquire() + else + error(("Widget type %s doesn't supply an OnAcquire Function"):format(type)) + end + -- Set the default Layout ("List") + safecall(widget.SetLayout, widget, "List") + safecall(widget.ResumeLayout, widget) + return widget + end +end + +--- Releases a widget Object. +-- This function calls OnRelease on the widget and places it back in the widget pool. +-- Any data on the widget is being erased, and the widget will be hidden.\\ +-- If this widget is a Container-Widget, all of its Child-Widgets will be releases as well. +-- @param widget The widget to release +function AceGUI:Release(widget) + if widget.isQueuedForRelease then return end + widget.isQueuedForRelease = true + safecall(widget.PauseLayout, widget) + widget.frame:Hide() + widget:Fire("OnRelease") + safecall(widget.ReleaseChildren, widget) + + if widget.OnRelease then + widget:OnRelease() +-- else +-- error(("Widget type %s doesn't supply an OnRelease Function"):format(widget.type)) + end + for k in pairs(widget.userdata) do + widget.userdata[k] = nil + end + for k in pairs(widget.events) do + widget.events[k] = nil + end + widget.width = nil + widget.relWidth = nil + widget.height = nil + widget.relHeight = nil + widget.noAutoHeight = nil + widget.frame:ClearAllPoints() + widget.frame:Hide() + widget.frame:SetParent(UIParent) + widget.frame.width = nil + widget.frame.height = nil + if widget.content then + widget.content.width = nil + widget.content.height = nil + end + widget.isQueuedForRelease = nil + delWidget(widget, widget.type) +end + +--- Check if a widget is currently in the process of being released +-- This function check if this widget, or any of its parents (in which case it'll be released shortly as well) +-- are currently being released. This allows addon to handle any callbacks accordingly. +-- @param widget The widget to check +function AceGUI:IsReleasing(widget) + if widget.isQueuedForRelease then + return true + end + + if widget.parent and widget.parent.AceGUIWidgetVersion then + return AceGUI:IsReleasing(widget.parent) + end + + return false +end + +----------- +-- Focus -- +----------- + + +--- Called when a widget has taken focus. +-- e.g. Dropdowns opening, Editboxes gaining kb focus +-- @param widget The widget that should be focused +function AceGUI:SetFocus(widget) + if self.FocusedWidget and self.FocusedWidget ~= widget then + safecall(self.FocusedWidget.ClearFocus, self.FocusedWidget) + end + self.FocusedWidget = widget +end + + +--- Called when something has happened that could cause widgets with focus to drop it +-- e.g. titlebar of a frame being clicked +function AceGUI:ClearFocus() + if self.FocusedWidget then + safecall(self.FocusedWidget.ClearFocus, self.FocusedWidget) + self.FocusedWidget = nil + end +end + +------------- +-- Widgets -- +------------- +--[[ + Widgets must provide the following functions + OnAcquire() - Called when the object is acquired, should set everything to a default hidden state + + And the following members + frame - the frame or derivitive object that will be treated as the widget for size and anchoring purposes + type - the type of the object, same as the name given to :RegisterWidget() + + Widgets contain a table called userdata, this is a safe place to store data associated with the wigdet + It will be cleared automatically when a widget is released + Placing values directly into a widget object should be avoided + + If the Widget can act as a container for other Widgets the following + content - frame or derivitive that children will be anchored to + + The Widget can supply the following Optional Members + :OnRelease() - Called when the object is Released, should remove any additional anchors and clear any data + :OnWidthSet(width) - Called when the width of the widget is changed + :OnHeightSet(height) - Called when the height of the widget is changed + Widgets should not use the OnSizeChanged events of thier frame or content members, use these methods instead + AceGUI already sets a handler to the event + :LayoutFinished(width, height) - called after a layout has finished, the width and height will be the width and height of the + area used for controls. These can be nil if the layout used the existing size to layout the controls. + +]] + +-------------------------- +-- Widget Base Template -- +-------------------------- +do + local WidgetBase = AceGUI.WidgetBase + + WidgetBase.SetParent = function(self, parent) + local frame = self.frame + frame:SetParent(nil) + frame:SetParent(parent.content) + self.parent = parent + end + + WidgetBase.SetCallback = function(self, name, func) + if type(func) == "function" then + self.events[name] = func + end + end + + WidgetBase.Fire = function(self, name, ...) + if self.events[name] then + local success, ret = safecall(self.events[name], self, name, ...) + if success then + return ret + end + end + end + + WidgetBase.SetWidth = function(self, width) + self.frame:SetWidth(width) + self.frame.width = width + if self.OnWidthSet then + self:OnWidthSet(width) + end + end + + WidgetBase.SetRelativeWidth = function(self, width) + if width <= 0 or width > 1 then + error(":SetRelativeWidth(width): Invalid relative width.", 2) + end + self.relWidth = width + self.width = "relative" + end + + WidgetBase.SetHeight = function(self, height) + self.frame:SetHeight(height) + self.frame.height = height + if self.OnHeightSet then + self:OnHeightSet(height) + end + end + + --[[ WidgetBase.SetRelativeHeight = function(self, height) + if height <= 0 or height > 1 then + error(":SetRelativeHeight(height): Invalid relative height.", 2) + end + self.relHeight = height + self.height = "relative" + end ]] + + WidgetBase.IsVisible = function(self) + return self.frame:IsVisible() + end + + WidgetBase.IsShown= function(self) + return self.frame:IsShown() + end + + WidgetBase.Release = function(self) + AceGUI:Release(self) + end + + WidgetBase.IsReleasing = function(self) + return AceGUI:IsReleasing(self) + end + + WidgetBase.SetPoint = function(self, ...) + return self.frame:SetPoint(...) + end + + WidgetBase.ClearAllPoints = function(self) + return self.frame:ClearAllPoints() + end + + WidgetBase.GetNumPoints = function(self) + return self.frame:GetNumPoints() + end + + WidgetBase.GetPoint = function(self, ...) + return self.frame:GetPoint(...) + end + + WidgetBase.GetUserDataTable = function(self) + return self.userdata + end + + WidgetBase.SetUserData = function(self, key, value) + self.userdata[key] = value + end + + WidgetBase.GetUserData = function(self, key) + return self.userdata[key] + end + + WidgetBase.IsFullHeight = function(self) + return self.height == "fill" + end + + WidgetBase.SetFullHeight = function(self, isFull) + if isFull then + self.height = "fill" + else + self.height = nil + end + end + + WidgetBase.IsFullWidth = function(self) + return self.width == "fill" + end + + WidgetBase.SetFullWidth = function(self, isFull) + if isFull then + self.width = "fill" + else + self.width = nil + end + end + +-- local function LayoutOnUpdate(this) +-- this:SetScript("OnUpdate",nil) +-- this.obj:PerformLayout() +-- end + + local WidgetContainerBase = AceGUI.WidgetContainerBase + + WidgetContainerBase.PauseLayout = function(self) + self.LayoutPaused = true + end + + WidgetContainerBase.ResumeLayout = function(self) + self.LayoutPaused = nil + end + + WidgetContainerBase.PerformLayout = function(self) + if self.LayoutPaused then + return + end + safecall(self.LayoutFunc, self.content, self.children) + end + + --call this function to layout, makes sure layed out objects get a frame to get sizes etc + WidgetContainerBase.DoLayout = function(self) + self:PerformLayout() +-- if not self.parent then +-- self.frame:SetScript("OnUpdate", LayoutOnUpdate) +-- end + end + + WidgetContainerBase.AddChild = function(self, child, beforeWidget) + if beforeWidget then + local siblingIndex = 1 + for _, widget in pairs(self.children) do + if widget == beforeWidget then + break + end + siblingIndex = siblingIndex + 1 + end + tinsert(self.children, siblingIndex, child) + else + tinsert(self.children, child) + end + child:SetParent(self) + child.frame:Show() + self:DoLayout() + end + + WidgetContainerBase.AddChildren = function(self, ...) + for i = 1, select("#", ...) do + local child = select(i, ...) + tinsert(self.children, child) + child:SetParent(self) + child.frame:Show() + end + self:DoLayout() + end + + WidgetContainerBase.ReleaseChildren = function(self) + local children = self.children + for i = 1,#children do + AceGUI:Release(children[i]) + children[i] = nil + end + end + + WidgetContainerBase.SetLayout = function(self, Layout) + self.LayoutFunc = AceGUI:GetLayout(Layout) + end + + WidgetContainerBase.SetAutoAdjustHeight = function(self, adjust) + if adjust then + self.noAutoHeight = nil + else + self.noAutoHeight = true + end + end + + local function FrameResize(this) + local self = this.obj + if this:GetWidth() and this:GetHeight() then + if self.OnWidthSet then + self:OnWidthSet(this:GetWidth()) + end + if self.OnHeightSet then + self:OnHeightSet(this:GetHeight()) + end + end + end + + local function ContentResize(this) + if this:GetWidth() and this:GetHeight() then + this.width = this:GetWidth() + this.height = this:GetHeight() + this.obj:DoLayout() + end + end + + setmetatable(WidgetContainerBase, {__index=WidgetBase}) + + --One of these function should be called on each Widget Instance as part of its creation process + + --- Register a widget-class as a container for newly created widgets. + -- @param widget The widget class + function AceGUI:RegisterAsContainer(widget) + widget.children = {} + widget.userdata = {} + widget.events = {} + widget.base = WidgetContainerBase + widget.content.obj = widget + widget.frame.obj = widget + widget.content:SetScript("OnSizeChanged", ContentResize) + widget.frame:SetScript("OnSizeChanged", FrameResize) + setmetatable(widget, {__index = WidgetContainerBase}) + widget:SetLayout("List") + return widget + end + + --- Register a widget-class as a widget. + -- @param widget The widget class + function AceGUI:RegisterAsWidget(widget) + widget.userdata = {} + widget.events = {} + widget.base = WidgetBase + widget.frame.obj = widget + widget.frame:SetScript("OnSizeChanged", FrameResize) + setmetatable(widget, {__index = WidgetBase}) + return widget + end +end + + + + +------------------ +-- Widget API -- +------------------ + +--- Registers a widget Constructor, this function returns a new instance of the Widget +-- @param Name The name of the widget +-- @param Constructor The widget constructor function +-- @param Version The version of the widget +function AceGUI:RegisterWidgetType(Name, Constructor, Version) + assert(type(Constructor) == "function") + assert(type(Version) == "number") + + local oldVersion = WidgetVersions[Name] + if oldVersion and oldVersion >= Version then return end + + WidgetVersions[Name] = Version + WidgetRegistry[Name] = Constructor +end + +--- Registers a Layout Function +-- @param Name The name of the layout +-- @param LayoutFunc Reference to the layout function +function AceGUI:RegisterLayout(Name, LayoutFunc) + assert(type(LayoutFunc) == "function") + if type(Name) == "string" then + Name = Name:upper() + end + LayoutRegistry[Name] = LayoutFunc +end + +--- Get a Layout Function from the registry +-- @param Name The name of the layout +function AceGUI:GetLayout(Name) + if type(Name) == "string" then + Name = Name:upper() + end + return LayoutRegistry[Name] +end + +AceGUI.counts = AceGUI.counts or {} + +--- A type-based counter to count the number of widgets created. +-- This is used by widgets that require a named frame, e.g. when a Blizzard +-- Template requires it. +-- @param type The widget type +function AceGUI:GetNextWidgetNum(type) + if not self.counts[type] then + self.counts[type] = 0 + end + self.counts[type] = self.counts[type] + 1 + return self.counts[type] +end + +--- Return the number of created widgets for this type. +-- In contrast to GetNextWidgetNum, the number is not incremented. +-- @param type The widget type +function AceGUI:GetWidgetCount(type) + return self.counts[type] or 0 +end + +--- Return the version of the currently registered widget type. +-- @param type The widget type +function AceGUI:GetWidgetVersion(type) + return WidgetVersions[type] +end + +------------- +-- Layouts -- +------------- + +--[[ + A Layout is a func that takes 2 parameters + content - the frame that widgets will be placed inside + children - a table containing the widgets to layout +]] + +-- Very simple Layout, Children are stacked on top of each other down the left side +AceGUI:RegisterLayout("List", + function(content, children) + local height = 0 + local width = content.width or content:GetWidth() or 0 + for i = 1, #children do + local child = children[i] + + local frame = child.frame + frame:ClearAllPoints() + frame:Show() + if i == 1 then + frame:SetPoint("TOPLEFT", content) + else + frame:SetPoint("TOPLEFT", children[i-1].frame, "BOTTOMLEFT") + end + + if child.width == "fill" then + child:SetWidth(width) + frame:SetPoint("RIGHT", content) + + if child.DoLayout then + child:DoLayout() + end + elseif child.width == "relative" then + child:SetWidth(width * child.relWidth) + + if child.DoLayout then + child:DoLayout() + end + end + + height = height + (frame.height or frame:GetHeight() or 0) + end + safecall(content.obj.LayoutFinished, content.obj, nil, height) + end) + +-- A single control fills the whole content area +AceGUI:RegisterLayout("Fill", + function(content, children) + if children[1] then + children[1]:SetWidth(content:GetWidth() or 0) + children[1]:SetHeight(content:GetHeight() or 0) + children[1].frame:ClearAllPoints() + children[1].frame:SetAllPoints(content) + children[1].frame:Show() + safecall(content.obj.LayoutFinished, content.obj, nil, children[1].frame:GetHeight()) + end + end) + +local layoutrecursionblock = nil +local function safelayoutcall(object, func, ...) + layoutrecursionblock = true + object[func](object, ...) + layoutrecursionblock = nil +end + +AceGUI:RegisterLayout("Flow", + function(content, children) + if layoutrecursionblock then return end + --used height so far + local height = 0 + --width used in the current row + local usedwidth = 0 + --height of the current row + local rowheight = 0 + local rowoffset = 0 + + local width = content.width or content:GetWidth() or 0 + + --control at the start of the row + local rowstart + local rowstartoffset + local isfullheight + + local frameoffset + local lastframeoffset + local oversize + for i = 1, #children do + local child = children[i] + oversize = nil + local frame = child.frame + local frameheight = frame.height or frame:GetHeight() or 0 + local framewidth = frame.width or frame:GetWidth() or 0 + lastframeoffset = frameoffset + -- HACK: Why did we set a frameoffset of (frameheight / 2) ? + -- That was moving all widgets half the widgets size down, is that intended? + -- Actually, it seems to be neccessary for many cases, we'll leave it in for now. + -- If widgets seem to anchor weirdly with this, provide a valid alignoffset for them. + -- TODO: Investigate moar! + frameoffset = child.alignoffset or (frameheight / 2) + + if child.width == "relative" then + framewidth = width * child.relWidth + end + + frame:Show() + frame:ClearAllPoints() + if i == 1 then + -- anchor the first control to the top left + frame:SetPoint("TOPLEFT", content) + rowheight = frameheight + rowoffset = frameoffset + rowstart = frame + rowstartoffset = frameoffset + usedwidth = framewidth + if usedwidth > width then + oversize = true + end + else + -- if there isn't available width for the control start a new row + -- if a control is "fill" it will be on a row of its own full width + if usedwidth == 0 or ((framewidth) + usedwidth > width) or child.width == "fill" then + if isfullheight then + -- a previous row has already filled the entire height, there's nothing we can usefully do anymore + -- (maybe error/warn about this?) + break + end + --anchor the previous row, we will now know its height and offset + rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -(height + (rowoffset - rowstartoffset) + 3)) + height = height + rowheight + 3 + --save this as the rowstart so we can anchor it after the row is complete and we have the max height and offset of controls in it + rowstart = frame + rowstartoffset = frameoffset + rowheight = frameheight + rowoffset = frameoffset + usedwidth = framewidth + if usedwidth > width then + oversize = true + end + -- put the control on the current row, adding it to the width and checking if the height needs to be increased + else + --handles cases where the new height is higher than either control because of the offsets + --math.max(rowheight-rowoffset+frameoffset, frameheight-frameoffset+rowoffset) + + --offset is always the larger of the two offsets + rowoffset = math_max(rowoffset, frameoffset) + rowheight = math_max(rowheight, rowoffset + (frameheight / 2)) + + frame:SetPoint("TOPLEFT", children[i-1].frame, "TOPRIGHT", 0, frameoffset - lastframeoffset) + usedwidth = framewidth + usedwidth + end + end + + if child.width == "fill" then + safelayoutcall(child, "SetWidth", width) + frame:SetPoint("RIGHT", content) + + usedwidth = 0 + rowstart = frame + rowstartoffset = frameoffset + + if child.DoLayout then + child:DoLayout() + end + rowheight = frame.height or frame:GetHeight() or 0 + rowoffset = child.alignoffset or (rowheight / 2) + rowstartoffset = rowoffset + elseif child.width == "relative" then + safelayoutcall(child, "SetWidth", width * child.relWidth) + + if child.DoLayout then + child:DoLayout() + end + elseif oversize then + if width > 1 then + frame:SetPoint("RIGHT", content) + end + end + + if child.height == "fill" then + frame:SetPoint("BOTTOM", content) + isfullheight = true + end + end + + --anchor the last row, if its full height needs a special case since its height has just been changed by the anchor + if isfullheight then + rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -height) + elseif rowstart then + rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -(height + (rowoffset - rowstartoffset) + 3)) + end + + height = height + rowheight + 3 + safecall(content.obj.LayoutFinished, content.obj, nil, height) + end) + +-- Get alignment method and value. Possible alignment methods are a callback, a number, "start", "middle", "end", "fill" or "TOPLEFT", "BOTTOMRIGHT" etc. +local GetCellAlign = function (dir, tableObj, colObj, cellObj, cell, child) + local fn = cellObj and (cellObj["align" .. dir] or cellObj.align) + or colObj and (colObj["align" .. dir] or colObj.align) + or tableObj["align" .. dir] or tableObj.align + or "CENTERLEFT" + local child, cell, val = child or 0, cell or 0, nil + + if type(fn) == "string" then + fn = fn:lower() + fn = dir == "V" and (fn:sub(1, 3) == "top" and "start" or fn:sub(1, 6) == "bottom" and "end" or fn:sub(1, 6) == "center" and "middle") + or dir == "H" and (fn:sub(-4) == "left" and "start" or fn:sub(-5) == "right" and "end" or fn:sub(-6) == "center" and "middle") + or fn + val = (fn == "start" or fn == "fill") and 0 or fn == "end" and cell - child or (cell - child) / 2 + elseif type(fn) == "function" then + val = fn(child or 0, cell, dir) + else + val = fn + end + + return fn, max(0, min(val, cell)) +end + +-- Get width or height for multiple cells combined +local GetCellDimension = function (dir, laneDim, from, to, space) + local dim = 0 + for cell=from,to do + dim = dim + (laneDim[cell] or 0) + end + return dim + max(0, to - from) * (space or 0) +end + +--[[ Options +============ +Container: + - columns ({col, col, ...}): Column settings. "col" can be a number (<= 0: content width, <1: rel. width, <10: weight, >=10: abs. width) or a table with column setting. + - space, spaceH, spaceV: Overall, horizontal and vertical spacing between cells. + - align, alignH, alignV: Overall, horizontal and vertical cell alignment. See GetCellAlign() for possible values. +Columns: + - width: Fixed column width (nil or <=0: content width, <1: rel. width, >=1: abs. width). + - min or 1: Min width for content based width + - max or 2: Max width for content based width + - weight: Flexible column width. The leftover width after accounting for fixed-width columns is distributed to weighted columns according to their weights. + - align, alignH, alignV: Overwrites the container setting for alignment. +Cell: + - colspan: Makes a cell span multiple columns. + - rowspan: Makes a cell span multiple rows. + - align, alignH, alignV: Overwrites the container and column setting for alignment. +]] +AceGUI:RegisterLayout("Table", + function (content, children) + local obj = content.obj + obj:PauseLayout() + + local tableObj = obj:GetUserData("table") + local cols = tableObj.columns + local spaceH = tableObj.spaceH or tableObj.space or 0 + local spaceV = tableObj.spaceV or tableObj.space or 0 + local totalH = (content:GetWidth() or content.width or 0) - spaceH * (#cols - 1) + + -- We need to reuse these because layout events can come in very frequently + local layoutCache = obj:GetUserData("layoutCache") + if not layoutCache then + layoutCache = {{}, {}, {}, {}, {}, {}} + obj:SetUserData("layoutCache", layoutCache) + end + local t, laneH, laneV, rowspans, rowStart, colStart = unpack(layoutCache) + + -- Create the grid + local n, slotFound = 0 + for i,child in ipairs(children) do + if child:IsShown() then + repeat + n = n + 1 + local col = (n - 1) % #cols + 1 + local row = ceil(n / #cols) + local rowspan = rowspans[col] + local cell = rowspan and rowspan.child or child + local cellObj = cell:GetUserData("cell") + slotFound = not rowspan + + -- Rowspan + if not rowspan and cellObj and cellObj.rowspan then + rowspan = {child = child, from = row, to = row + cellObj.rowspan - 1} + rowspans[col] = rowspan + end + if rowspan and i == #children then + rowspan.to = row + end + + -- Colspan + local colspan = max(0, min((cellObj and cellObj.colspan or 1) - 1, #cols - col)) + n = n + colspan + + -- Place the cell + if not rowspan or rowspan.to == row then + t[n] = cell + rowStart[cell] = rowspan and rowspan.from or row + colStart[cell] = col + + if rowspan then + rowspans[col] = nil + end + end + until slotFound + end + end + + local rows = ceil(n / #cols) + + -- Determine fixed size cols and collect weights + local extantH, totalWeight = totalH, 0 + for col,colObj in ipairs(cols) do + laneH[col] = 0 + + if type(colObj) == "number" then + colObj = {[colObj >= 1 and colObj < 10 and "weight" or "width"] = colObj} + cols[col] = colObj + end + + if colObj.weight then + -- Weight + totalWeight = totalWeight + (colObj.weight or 1) + else + if not colObj.width or colObj.width <= 0 then + -- Content width + for row=1,rows do + local child = t[(row - 1) * #cols + col] + if child then + local f = child.frame + f:ClearAllPoints() + local childH = f:GetWidth() or 0 + + laneH[col] = max(laneH[col], childH - GetCellDimension("H", laneH, colStart[child], col - 1, spaceH)) + end + end + + laneH[col] = max(colObj.min or colObj[1] or 0, min(laneH[col], colObj.max or colObj[2] or laneH[col])) + else + -- Rel./Abs. width + laneH[col] = colObj.width < 1 and colObj.width * totalH or colObj.width + end + extantH = max(0, extantH - laneH[col]) + end + end + + -- Determine sizes based on weight + local scale = totalWeight > 0 and extantH / totalWeight or 0 + for col,colObj in pairs(cols) do + if colObj.weight then + laneH[col] = scale * colObj.weight + end + end + + -- Arrange children + for row=1,rows do + local rowV = 0 + + -- Horizontal placement and sizing + for col=1,#cols do + local child = t[(row - 1) * #cols + col] + if child then + local colObj = cols[colStart[child]] + local cellObj = child:GetUserData("cell") + local offsetH = GetCellDimension("H", laneH, 1, colStart[child] - 1, spaceH) + (colStart[child] == 1 and 0 or spaceH) + local cellH = GetCellDimension("H", laneH, colStart[child], col, spaceH) + + local f = child.frame + f:ClearAllPoints() + local childH = f:GetWidth() or 0 + + local alignFn, align = GetCellAlign("H", tableObj, colObj, cellObj, cellH, childH) + f:SetPoint("LEFT", content, offsetH + align, 0) + if child:IsFullWidth() or alignFn == "fill" or childH > cellH then + f:SetPoint("RIGHT", content, "LEFT", offsetH + align + cellH, 0) + end + + if child.DoLayout then + child:DoLayout() + end + + rowV = max(rowV, (f:GetHeight() or 0) - GetCellDimension("V", laneV, rowStart[child], row - 1, spaceV)) + end + end + + laneV[row] = rowV + + -- Vertical placement and sizing + for col=1,#cols do + local child = t[(row - 1) * #cols + col] + if child then + local colObj = cols[colStart[child]] + local cellObj = child:GetUserData("cell") + local offsetV = GetCellDimension("V", laneV, 1, rowStart[child] - 1, spaceV) + (rowStart[child] == 1 and 0 or spaceV) + local cellV = GetCellDimension("V", laneV, rowStart[child], row, spaceV) + + local f = child.frame + local childV = f:GetHeight() or 0 + + local alignFn, align = GetCellAlign("V", tableObj, colObj, cellObj, cellV, childV) + if child:IsFullHeight() or alignFn == "fill" then + f:SetHeight(cellV) + end + f:SetPoint("TOP", content, 0, -(offsetV + align)) + end + end + end + + -- Calculate total height + local totalV = GetCellDimension("V", laneV, 1, #laneV, spaceV) + + -- Cleanup + for _,v in pairs(layoutCache) do wipe(v) end + + safecall(obj.LayoutFinished, obj, nil, totalV) + obj:ResumeLayout() + end) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.xml b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.xml new file mode 100644 index 0000000..b515077 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.xml @@ -0,0 +1,28 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="AceGUI-3.0.lua"/> + <!-- Container --> + <Script file="widgets\AceGUIContainer-BlizOptionsGroup.lua"/> + <Script file="widgets\AceGUIContainer-DropDownGroup.lua"/> + <Script file="widgets\AceGUIContainer-Frame.lua"/> + <Script file="widgets\AceGUIContainer-InlineGroup.lua"/> + <Script file="widgets\AceGUIContainer-ScrollFrame.lua"/> + <Script file="widgets\AceGUIContainer-SimpleGroup.lua"/> + <Script file="widgets\AceGUIContainer-TabGroup.lua"/> + <Script file="widgets\AceGUIContainer-TreeGroup.lua"/> + <Script file="widgets\AceGUIContainer-Window.lua"/> + <!-- Widgets --> + <Script file="widgets\AceGUIWidget-Button.lua"/> + <Script file="widgets\AceGUIWidget-CheckBox.lua"/> + <Script file="widgets\AceGUIWidget-ColorPicker.lua"/> + <Script file="widgets\AceGUIWidget-DropDown.lua"/> + <Script file="widgets\AceGUIWidget-DropDown-Items.lua"/> + <Script file="widgets\AceGUIWidget-EditBox.lua"/> + <Script file="widgets\AceGUIWidget-Heading.lua"/> + <Script file="widgets\AceGUIWidget-Icon.lua"/> + <Script file="widgets\AceGUIWidget-InteractiveLabel.lua"/> + <Script file="widgets\AceGUIWidget-Keybinding.lua"/> + <Script file="widgets\AceGUIWidget-Label.lua"/> + <Script file="widgets\AceGUIWidget-MultiLineEditBox.lua"/> + <Script file="widgets\AceGUIWidget-Slider.lua"/> +</Ui> diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua new file mode 100644 index 0000000..9a48f8b --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua @@ -0,0 +1,138 @@ +--[[----------------------------------------------------------------------------- +BlizOptionsGroup Container +Simple container widget for the integration of AceGUI into the Blizzard Interface Options +-------------------------------------------------------------------------------]] +local Type, Version = "BlizOptionsGroup", 21 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local CreateFrame = CreateFrame + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] + +local function OnShow(frame) + frame.obj:Fire("OnShow") +end + +local function OnHide(frame) + frame.obj:Fire("OnHide") +end + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] + +local function okay(frame) + frame.obj:Fire("okay") +end + +local function cancel(frame) + frame.obj:Fire("cancel") +end + +local function default(frame) + frame.obj:Fire("default") +end + +local function refresh(frame) + frame.obj:Fire("refresh") +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] + +local methods = { + ["OnAcquire"] = function(self) + self:SetName() + self:SetTitle() + end, + + -- ["OnRelease"] = nil, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local contentwidth = width - 63 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - 26 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end, + + ["SetName"] = function(self, name, parent) + self.frame.name = name + self.frame.parent = parent + end, + + ["SetTitle"] = function(self, title) + local content = self.content + content:ClearAllPoints() + if not title or title == "" then + content:SetPoint("TOPLEFT", 10, -10) + self.label:SetText("") + else + content:SetPoint("TOPLEFT", 10, -40) + self.label:SetText(title) + end + content:SetPoint("BOTTOMRIGHT", -10, 10) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Frame") + frame:Hide() + + -- support functions for the Blizzard Interface Options + frame.okay = okay + frame.cancel = cancel + frame.default = default + frame.refresh = refresh + + frame:SetScript("OnHide", OnHide) + frame:SetScript("OnShow", OnShow) + + local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge") + label:SetPoint("TOPLEFT", 10, -15) + label:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", 10, -45) + label:SetJustifyH("LEFT") + label:SetJustifyV("TOP") + + --Container Support + local content = CreateFrame("Frame", nil, frame) + content:SetPoint("TOPLEFT", 10, -10) + content:SetPoint("BOTTOMRIGHT", -10, 10) + + local widget = { + label = label, + frame = frame, + content = content, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua new file mode 100644 index 0000000..379ea25 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua @@ -0,0 +1,157 @@ +--[[----------------------------------------------------------------------------- +DropdownGroup Container +Container controlled by a dropdown on the top. +-------------------------------------------------------------------------------]] +local Type, Version = "DropdownGroup", 22 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local assert, pairs, type = assert, pairs, type + +-- WoW APIs +local CreateFrame = CreateFrame + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function SelectedGroup(self, event, value) + local group = self.parentgroup + local status = group.status or group.localstatus + status.selected = value + self.parentgroup:Fire("OnGroupSelected", value) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self.dropdown:SetText("") + self:SetDropdownWidth(200) + self:SetTitle("") + end, + + ["OnRelease"] = function(self) + self.dropdown.list = nil + self.status = nil + for k in pairs(self.localstatus) do + self.localstatus[k] = nil + end + end, + + ["SetTitle"] = function(self, title) + self.titletext:SetText(title) + self.dropdown.frame:ClearAllPoints() + if title and title ~= "" then + self.dropdown.frame:SetPoint("TOPRIGHT", -2, 0) + else + self.dropdown.frame:SetPoint("TOPLEFT", -1, 0) + end + end, + + ["SetGroupList"] = function(self,list,order) + self.dropdown:SetList(list,order) + end, + + ["SetStatusTable"] = function(self, status) + assert(type(status) == "table") + self.status = status + end, + + ["SetGroup"] = function(self,group) + self.dropdown:SetValue(group) + local status = self.status or self.localstatus + status.selected = group + self:Fire("OnGroupSelected", group) + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local contentwidth = width - 26 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - 63 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end, + + ["LayoutFinished"] = function(self, width, height) + self:SetHeight((height or 0) + 63) + end, + + ["SetDropdownWidth"] = function(self, width) + self.dropdown:SetWidth(width) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local PaneBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 5, bottom = 3 } +} + +local function Constructor() + local frame = CreateFrame("Frame") + frame:SetHeight(100) + frame:SetWidth(100) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + + local titletext = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") + titletext:SetPoint("TOPLEFT", 4, -5) + titletext:SetPoint("TOPRIGHT", -4, -5) + titletext:SetJustifyH("LEFT") + titletext:SetHeight(18) + + local dropdown = AceGUI:Create("Dropdown") + dropdown.frame:SetParent(frame) + dropdown.frame:SetFrameLevel(dropdown.frame:GetFrameLevel() + 2) + dropdown:SetCallback("OnValueChanged", SelectedGroup) + dropdown.frame:SetPoint("TOPLEFT", -1, 0) + dropdown.frame:Show() + dropdown:SetLabel("") + + local border = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) + border:SetPoint("TOPLEFT", 0, -26) + border:SetPoint("BOTTOMRIGHT", 0, 3) + border:SetBackdrop(PaneBackdrop) + border:SetBackdropColor(0.1,0.1,0.1,0.5) + border:SetBackdropBorderColor(0.4,0.4,0.4) + + --Container Support + local content = CreateFrame("Frame", nil, border) + content:SetPoint("TOPLEFT", 10, -10) + content:SetPoint("BOTTOMRIGHT", -10, 10) + + local widget = { + frame = frame, + localstatus = {}, + titletext = titletext, + dropdown = dropdown, + border = border, + content = content, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + dropdown.parentgroup = widget + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua new file mode 100644 index 0000000..fbd6005 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua @@ -0,0 +1,316 @@ +--[[----------------------------------------------------------------------------- +Frame Container +-------------------------------------------------------------------------------]] +local Type, Version = "Frame", 27 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs, assert, type = pairs, assert, type +local wipe = table.wipe + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame, UIParent = CreateFrame, UIParent + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: CLOSE + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Button_OnClick(frame) + PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT + frame.obj:Hide() +end + +local function Frame_OnShow(frame) + frame.obj:Fire("OnShow") +end + +local function Frame_OnClose(frame) + frame.obj:Fire("OnClose") +end + +local function Frame_OnMouseDown(frame) + AceGUI:ClearFocus() +end + +local function Title_OnMouseDown(frame) + frame:GetParent():StartMoving() + AceGUI:ClearFocus() +end + +local function MoverSizer_OnMouseUp(mover) + local frame = mover:GetParent() + frame:StopMovingOrSizing() + local self = frame.obj + local status = self.status or self.localstatus + status.width = frame:GetWidth() + status.height = frame:GetHeight() + status.top = frame:GetTop() + status.left = frame:GetLeft() +end + +local function SizerSE_OnMouseDown(frame) + frame:GetParent():StartSizing("BOTTOMRIGHT") + AceGUI:ClearFocus() +end + +local function SizerS_OnMouseDown(frame) + frame:GetParent():StartSizing("BOTTOM") + AceGUI:ClearFocus() +end + +local function SizerE_OnMouseDown(frame) + frame:GetParent():StartSizing("RIGHT") + AceGUI:ClearFocus() +end + +local function StatusBar_OnEnter(frame) + frame.obj:Fire("OnEnterStatusBar") +end + +local function StatusBar_OnLeave(frame) + frame.obj:Fire("OnLeaveStatusBar") +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self.frame:SetParent(UIParent) + self.frame:SetFrameStrata("FULLSCREEN_DIALOG") + self:SetTitle() + self:SetStatusText() + self:ApplyStatus() + self:Show() + self:EnableResize(true) + end, + + ["OnRelease"] = function(self) + self.status = nil + wipe(self.localstatus) + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local contentwidth = width - 34 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - 57 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end, + + ["SetTitle"] = function(self, title) + self.titletext:SetText(title) + self.titlebg:SetWidth((self.titletext:GetWidth() or 0) + 10) + end, + + ["SetStatusText"] = function(self, text) + self.statustext:SetText(text) + end, + + ["Hide"] = function(self) + self.frame:Hide() + end, + + ["Show"] = function(self) + self.frame:Show() + end, + + ["EnableResize"] = function(self, state) + local func = state and "Show" or "Hide" + self.sizer_se[func](self.sizer_se) + self.sizer_s[func](self.sizer_s) + self.sizer_e[func](self.sizer_e) + end, + + -- called to set an external table to store status in + ["SetStatusTable"] = function(self, status) + assert(type(status) == "table") + self.status = status + self:ApplyStatus() + end, + + ["ApplyStatus"] = function(self) + local status = self.status or self.localstatus + local frame = self.frame + self:SetWidth(status.width or 700) + self:SetHeight(status.height or 500) + frame:ClearAllPoints() + if status.top and status.left then + frame:SetPoint("TOP", UIParent, "BOTTOM", 0, status.top) + frame:SetPoint("LEFT", UIParent, "LEFT", status.left, 0) + else + frame:SetPoint("CENTER") + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local FrameBackdrop = { + bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background", + edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border", + tile = true, tileSize = 32, edgeSize = 32, + insets = { left = 8, right = 8, top = 8, bottom = 8 } +} + +local PaneBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 5, bottom = 3 } +} + +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent, BackdropTemplateMixin and "BackdropTemplate" or nil) + frame:Hide() + + frame:EnableMouse(true) + frame:SetMovable(true) + frame:SetResizable(true) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + frame:SetBackdrop(FrameBackdrop) + frame:SetBackdropColor(0, 0, 0, 1) + frame:SetMinResize(400, 200) + frame:SetToplevel(true) + frame:SetScript("OnShow", Frame_OnShow) + frame:SetScript("OnHide", Frame_OnClose) + frame:SetScript("OnMouseDown", Frame_OnMouseDown) + + local closebutton = CreateFrame("Button", nil, frame, "UIPanelButtonTemplate") + closebutton:SetScript("OnClick", Button_OnClick) + closebutton:SetPoint("BOTTOMRIGHT", -27, 17) + closebutton:SetHeight(20) + closebutton:SetWidth(100) + closebutton:SetText(CLOSE) + + local statusbg = CreateFrame("Button", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) + statusbg:SetPoint("BOTTOMLEFT", 15, 15) + statusbg:SetPoint("BOTTOMRIGHT", -132, 15) + statusbg:SetHeight(24) + statusbg:SetBackdrop(PaneBackdrop) + statusbg:SetBackdropColor(0.1,0.1,0.1) + statusbg:SetBackdropBorderColor(0.4,0.4,0.4) + statusbg:SetScript("OnEnter", StatusBar_OnEnter) + statusbg:SetScript("OnLeave", StatusBar_OnLeave) + + local statustext = statusbg:CreateFontString(nil, "OVERLAY", "GameFontNormal") + statustext:SetPoint("TOPLEFT", 7, -2) + statustext:SetPoint("BOTTOMRIGHT", -7, 2) + statustext:SetHeight(20) + statustext:SetJustifyH("LEFT") + statustext:SetText("") + + local titlebg = frame:CreateTexture(nil, "OVERLAY") + titlebg:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header + titlebg:SetTexCoord(0.31, 0.67, 0, 0.63) + titlebg:SetPoint("TOP", 0, 12) + titlebg:SetWidth(100) + titlebg:SetHeight(40) + + local title = CreateFrame("Frame", nil, frame) + title:EnableMouse(true) + title:SetScript("OnMouseDown", Title_OnMouseDown) + title:SetScript("OnMouseUp", MoverSizer_OnMouseUp) + title:SetAllPoints(titlebg) + + local titletext = title:CreateFontString(nil, "OVERLAY", "GameFontNormal") + titletext:SetPoint("TOP", titlebg, "TOP", 0, -14) + + local titlebg_l = frame:CreateTexture(nil, "OVERLAY") + titlebg_l:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header + titlebg_l:SetTexCoord(0.21, 0.31, 0, 0.63) + titlebg_l:SetPoint("RIGHT", titlebg, "LEFT") + titlebg_l:SetWidth(30) + titlebg_l:SetHeight(40) + + local titlebg_r = frame:CreateTexture(nil, "OVERLAY") + titlebg_r:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header + titlebg_r:SetTexCoord(0.67, 0.77, 0, 0.63) + titlebg_r:SetPoint("LEFT", titlebg, "RIGHT") + titlebg_r:SetWidth(30) + titlebg_r:SetHeight(40) + + local sizer_se = CreateFrame("Frame", nil, frame) + sizer_se:SetPoint("BOTTOMRIGHT") + sizer_se:SetWidth(25) + sizer_se:SetHeight(25) + sizer_se:EnableMouse() + sizer_se:SetScript("OnMouseDown",SizerSE_OnMouseDown) + sizer_se:SetScript("OnMouseUp", MoverSizer_OnMouseUp) + + local line1 = sizer_se:CreateTexture(nil, "BACKGROUND") + line1:SetWidth(14) + line1:SetHeight(14) + line1:SetPoint("BOTTOMRIGHT", -8, 8) + line1:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + local x = 0.1 * 14/17 + line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) + + local line2 = sizer_se:CreateTexture(nil, "BACKGROUND") + line2:SetWidth(8) + line2:SetHeight(8) + line2:SetPoint("BOTTOMRIGHT", -8, 8) + line2:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + local x = 0.1 * 8/17 + line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) + + local sizer_s = CreateFrame("Frame", nil, frame) + sizer_s:SetPoint("BOTTOMRIGHT", -25, 0) + sizer_s:SetPoint("BOTTOMLEFT") + sizer_s:SetHeight(25) + sizer_s:EnableMouse(true) + sizer_s:SetScript("OnMouseDown", SizerS_OnMouseDown) + sizer_s:SetScript("OnMouseUp", MoverSizer_OnMouseUp) + + local sizer_e = CreateFrame("Frame", nil, frame) + sizer_e:SetPoint("BOTTOMRIGHT", 0, 25) + sizer_e:SetPoint("TOPRIGHT") + sizer_e:SetWidth(25) + sizer_e:EnableMouse(true) + sizer_e:SetScript("OnMouseDown", SizerE_OnMouseDown) + sizer_e:SetScript("OnMouseUp", MoverSizer_OnMouseUp) + + --Container Support + local content = CreateFrame("Frame", nil, frame) + content:SetPoint("TOPLEFT", 17, -27) + content:SetPoint("BOTTOMRIGHT", -17, 40) + + local widget = { + localstatus = {}, + titletext = titletext, + statustext = statustext, + titlebg = titlebg, + sizer_se = sizer_se, + sizer_s = sizer_s, + sizer_e = sizer_e, + content = content, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + closebutton.obj, statusbg.obj = widget, widget + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua new file mode 100644 index 0000000..357e843 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua @@ -0,0 +1,103 @@ +--[[----------------------------------------------------------------------------- +InlineGroup Container +Simple container widget that creates a visible "box" with an optional title. +-------------------------------------------------------------------------------]] +local Type, Version = "InlineGroup", 22 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetWidth(300) + self:SetHeight(100) + self:SetTitle("") + end, + + -- ["OnRelease"] = nil, + + ["SetTitle"] = function(self,title) + self.titletext:SetText(title) + end, + + + ["LayoutFinished"] = function(self, width, height) + if self.noAutoHeight then return end + self:SetHeight((height or 0) + 40) + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local contentwidth = width - 20 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - 20 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local PaneBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 5, bottom = 3 } +} + +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + + local titletext = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") + titletext:SetPoint("TOPLEFT", 14, 0) + titletext:SetPoint("TOPRIGHT", -14, 0) + titletext:SetJustifyH("LEFT") + titletext:SetHeight(18) + + local border = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) + border:SetPoint("TOPLEFT", 0, -17) + border:SetPoint("BOTTOMRIGHT", -1, 3) + border:SetBackdrop(PaneBackdrop) + border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) + border:SetBackdropBorderColor(0.4, 0.4, 0.4) + + --Container Support + local content = CreateFrame("Frame", nil, border) + content:SetPoint("TOPLEFT", 10, -10) + content:SetPoint("BOTTOMRIGHT", -10, 10) + + local widget = { + frame = frame, + content = content, + titletext = titletext, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua new file mode 100644 index 0000000..d110d03 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua @@ -0,0 +1,215 @@ +--[[----------------------------------------------------------------------------- +ScrollFrame Container +Plain container that scrolls its content and doesn't grow in height. +-------------------------------------------------------------------------------]] +local Type, Version = "ScrollFrame", 26 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs, assert, type = pairs, assert, type +local min, max, floor = math.min, math.max, math.floor + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function FixScrollOnUpdate(frame) + frame:SetScript("OnUpdate", nil) + frame.obj:FixScroll() +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function ScrollFrame_OnMouseWheel(frame, value) + frame.obj:MoveScroll(value) +end + +local function ScrollFrame_OnSizeChanged(frame) + frame:SetScript("OnUpdate", FixScrollOnUpdate) +end + +local function ScrollBar_OnScrollValueChanged(frame, value) + frame.obj:SetScroll(value) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetScroll(0) + self.scrollframe:SetScript("OnUpdate", FixScrollOnUpdate) + end, + + ["OnRelease"] = function(self) + self.status = nil + for k in pairs(self.localstatus) do + self.localstatus[k] = nil + end + self.scrollframe:SetPoint("BOTTOMRIGHT") + self.scrollbar:Hide() + self.scrollBarShown = nil + self.content.height, self.content.width, self.content.original_width = nil, nil, nil + end, + + ["SetScroll"] = function(self, value) + local status = self.status or self.localstatus + local viewheight = self.scrollframe:GetHeight() + local height = self.content:GetHeight() + local offset + + if viewheight > height then + offset = 0 + else + offset = floor((height - viewheight) / 1000.0 * value) + end + self.content:ClearAllPoints() + self.content:SetPoint("TOPLEFT", 0, offset) + self.content:SetPoint("TOPRIGHT", 0, offset) + status.offset = offset + status.scrollvalue = value + end, + + ["MoveScroll"] = function(self, value) + local status = self.status or self.localstatus + local height, viewheight = self.scrollframe:GetHeight(), self.content:GetHeight() + + if self.scrollBarShown then + local diff = height - viewheight + local delta = 1 + if value < 0 then + delta = -1 + end + self.scrollbar:SetValue(min(max(status.scrollvalue + delta*(1000/(diff/45)),0), 1000)) + end + end, + + ["FixScroll"] = function(self) + if self.updateLock then return end + self.updateLock = true + local status = self.status or self.localstatus + local height, viewheight = self.scrollframe:GetHeight(), self.content:GetHeight() + local offset = status.offset or 0 + -- Give us a margin of error of 2 pixels to stop some conditions that i would blame on floating point inaccuracys + -- No-one is going to miss 2 pixels at the bottom of the frame, anyhow! + if viewheight < height + 2 then + if self.scrollBarShown then + self.scrollBarShown = nil + self.scrollbar:Hide() + self.scrollbar:SetValue(0) + self.scrollframe:SetPoint("BOTTOMRIGHT") + if self.content.original_width then + self.content.width = self.content.original_width + end + self:DoLayout() + end + else + if not self.scrollBarShown then + self.scrollBarShown = true + self.scrollbar:Show() + self.scrollframe:SetPoint("BOTTOMRIGHT", -20, 0) + if self.content.original_width then + self.content.width = self.content.original_width - 20 + end + self:DoLayout() + end + local value = (offset / (viewheight - height) * 1000) + if value > 1000 then value = 1000 end + self.scrollbar:SetValue(value) + self:SetScroll(value) + if value < 1000 then + self.content:ClearAllPoints() + self.content:SetPoint("TOPLEFT", 0, offset) + self.content:SetPoint("TOPRIGHT", 0, offset) + status.offset = offset + end + end + self.updateLock = nil + end, + + ["LayoutFinished"] = function(self, width, height) + self.content:SetHeight(height or 0 + 20) + + -- update the scrollframe + self:FixScroll() + + -- schedule another update when everything has "settled" + self.scrollframe:SetScript("OnUpdate", FixScrollOnUpdate) + end, + + ["SetStatusTable"] = function(self, status) + assert(type(status) == "table") + self.status = status + if not status.scrollvalue then + status.scrollvalue = 0 + end + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + content.width = width - (self.scrollBarShown and 20 or 0) + content.original_width = width + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + content.height = height + end +} +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + local num = AceGUI:GetNextWidgetNum(Type) + + local scrollframe = CreateFrame("ScrollFrame", nil, frame) + scrollframe:SetPoint("TOPLEFT") + scrollframe:SetPoint("BOTTOMRIGHT") + scrollframe:EnableMouseWheel(true) + scrollframe:SetScript("OnMouseWheel", ScrollFrame_OnMouseWheel) + scrollframe:SetScript("OnSizeChanged", ScrollFrame_OnSizeChanged) + + local scrollbar = CreateFrame("Slider", ("AceConfigDialogScrollFrame%dScrollBar"):format(num), scrollframe, "UIPanelScrollBarTemplate") + scrollbar:SetPoint("TOPLEFT", scrollframe, "TOPRIGHT", 4, -16) + scrollbar:SetPoint("BOTTOMLEFT", scrollframe, "BOTTOMRIGHT", 4, 16) + scrollbar:SetMinMaxValues(0, 1000) + scrollbar:SetValueStep(1) + scrollbar:SetValue(0) + scrollbar:SetWidth(16) + scrollbar:Hide() + -- set the script as the last step, so it doesn't fire yet + scrollbar:SetScript("OnValueChanged", ScrollBar_OnScrollValueChanged) + + local scrollbg = scrollbar:CreateTexture(nil, "BACKGROUND") + scrollbg:SetAllPoints(scrollbar) + scrollbg:SetColorTexture(0, 0, 0, 0.4) + + --Container Support + local content = CreateFrame("Frame", nil, scrollframe) + content:SetPoint("TOPLEFT") + content:SetPoint("TOPRIGHT") + content:SetHeight(400) + scrollframe:SetScrollChild(content) + + local widget = { + localstatus = { scrollvalue = 0 }, + scrollframe = scrollframe, + scrollbar = scrollbar, + content = content, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + scrollframe.obj, scrollbar.obj = widget, widget + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua new file mode 100644 index 0000000..57512c3 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua @@ -0,0 +1,69 @@ +--[[----------------------------------------------------------------------------- +SimpleGroup Container +Simple container widget that just groups widgets. +-------------------------------------------------------------------------------]] +local Type, Version = "SimpleGroup", 20 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetWidth(300) + self:SetHeight(100) + end, + + -- ["OnRelease"] = nil, + + ["LayoutFinished"] = function(self, width, height) + if self.noAutoHeight then return end + self:SetHeight(height or 0) + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + content:SetWidth(width) + content.width = width + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + content:SetHeight(height) + content.height = height + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + + --Container Support + local content = CreateFrame("Frame", nil, frame) + content:SetPoint("TOPLEFT") + content:SetPoint("BOTTOMRIGHT") + + local widget = { + frame = frame, + content = content, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua new file mode 100644 index 0000000..195ab0b --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua @@ -0,0 +1,349 @@ +--[[----------------------------------------------------------------------------- +TabGroup Container +Container that uses tabs on top to switch between groups. +-------------------------------------------------------------------------------]] +local Type, Version = "TabGroup", 37 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs, ipairs, assert, type, wipe = pairs, ipairs, assert, type, wipe + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame, UIParent = CreateFrame, UIParent +local _G = _G + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: PanelTemplates_TabResize, PanelTemplates_SetDisabledTabState, PanelTemplates_SelectTab, PanelTemplates_DeselectTab + +-- local upvalue storage used by BuildTabs +local widths = {} +local rowwidths = {} +local rowends = {} + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function UpdateTabLook(frame) + if frame.disabled then + PanelTemplates_SetDisabledTabState(frame) + elseif frame.selected then + PanelTemplates_SelectTab(frame) + else + PanelTemplates_DeselectTab(frame) + end +end + +local function Tab_SetText(frame, text) + frame:_SetText(text) + local width = frame.obj.frame.width or frame.obj.frame:GetWidth() or 0 + PanelTemplates_TabResize(frame, 0, nil, nil, width, frame:GetFontString():GetStringWidth()) +end + +local function Tab_SetSelected(frame, selected) + frame.selected = selected + UpdateTabLook(frame) +end + +local function Tab_SetDisabled(frame, disabled) + frame.disabled = disabled + UpdateTabLook(frame) +end + +local function BuildTabsOnUpdate(frame) + local self = frame.obj + self:BuildTabs() + frame:SetScript("OnUpdate", nil) +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Tab_OnClick(frame) + if not (frame.selected or frame.disabled) then + PlaySound(841) -- SOUNDKIT.IG_CHARACTER_INFO_TAB + frame.obj:SelectTab(frame.value) + end +end + +local function Tab_OnEnter(frame) + local self = frame.obj + self:Fire("OnTabEnter", self.tabs[frame.id].value, frame) +end + +local function Tab_OnLeave(frame) + local self = frame.obj + self:Fire("OnTabLeave", self.tabs[frame.id].value, frame) +end + +local function Tab_OnShow(frame) + _G[frame:GetName().."HighlightTexture"]:SetWidth(frame:GetTextWidth() + 30) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetTitle() + end, + + ["OnRelease"] = function(self) + self.status = nil + for k in pairs(self.localstatus) do + self.localstatus[k] = nil + end + self.tablist = nil + for _, tab in pairs(self.tabs) do + tab:Hide() + end + end, + + ["CreateTab"] = function(self, id) + local tabname = ("AceGUITabGroup%dTab%d"):format(self.num, id) + local tab = CreateFrame("Button", tabname, self.border, "OptionsFrameTabButtonTemplate") + tab.obj = self + tab.id = id + + tab.text = _G[tabname .. "Text"] + tab.text:ClearAllPoints() + tab.text:SetPoint("LEFT", 14, -3) + tab.text:SetPoint("RIGHT", -12, -3) + + tab:SetScript("OnClick", Tab_OnClick) + tab:SetScript("OnEnter", Tab_OnEnter) + tab:SetScript("OnLeave", Tab_OnLeave) + tab:SetScript("OnShow", Tab_OnShow) + + tab._SetText = tab.SetText + tab.SetText = Tab_SetText + tab.SetSelected = Tab_SetSelected + tab.SetDisabled = Tab_SetDisabled + + return tab + end, + + ["SetTitle"] = function(self, text) + self.titletext:SetText(text or "") + if text and text ~= "" then + self.alignoffset = 25 + else + self.alignoffset = 18 + end + self:BuildTabs() + end, + + ["SetStatusTable"] = function(self, status) + assert(type(status) == "table") + self.status = status + end, + + ["SelectTab"] = function(self, value) + local status = self.status or self.localstatus + local found + for i, v in ipairs(self.tabs) do + if v.value == value then + v:SetSelected(true) + found = true + else + v:SetSelected(false) + end + end + status.selected = value + if found then + self:Fire("OnGroupSelected",value) + end + end, + + ["SetTabs"] = function(self, tabs) + self.tablist = tabs + self:BuildTabs() + end, + + + ["BuildTabs"] = function(self) + local hastitle = (self.titletext:GetText() and self.titletext:GetText() ~= "") + local tablist = self.tablist + local tabs = self.tabs + + if not tablist then return end + + local width = self.frame.width or self.frame:GetWidth() or 0 + + wipe(widths) + wipe(rowwidths) + wipe(rowends) + + --Place Text into tabs and get thier initial width + for i, v in ipairs(tablist) do + local tab = tabs[i] + if not tab then + tab = self:CreateTab(i) + tabs[i] = tab + end + + tab:Show() + tab:SetText(v.text) + tab:SetDisabled(v.disabled) + tab.value = v.value + + widths[i] = tab:GetWidth() - 6 --tabs are anchored 10 pixels from the right side of the previous one to reduce spacing, but add a fixed 4px padding for the text + end + + for i = (#tablist)+1, #tabs, 1 do + tabs[i]:Hide() + end + + --First pass, find the minimum number of rows needed to hold all tabs and the initial tab layout + local numtabs = #tablist + local numrows = 1 + local usedwidth = 0 + + for i = 1, #tablist do + --If this is not the first tab of a row and there isn't room for it + if usedwidth ~= 0 and (width - usedwidth - widths[i]) < 0 then + rowwidths[numrows] = usedwidth + 10 --first tab in each row takes up an extra 10px + rowends[numrows] = i - 1 + numrows = numrows + 1 + usedwidth = 0 + end + usedwidth = usedwidth + widths[i] + end + rowwidths[numrows] = usedwidth + 10 --first tab in each row takes up an extra 10px + rowends[numrows] = #tablist + + --Fix for single tabs being left on the last row, move a tab from the row above if applicable + if numrows > 1 then + --if the last row has only one tab + if rowends[numrows-1] == numtabs-1 then + --if there are more than 2 tabs in the 2nd last row + if (numrows == 2 and rowends[numrows-1] > 2) or (rowends[numrows] - rowends[numrows-1] > 2) then + --move 1 tab from the second last row to the last, if there is enough space + if (rowwidths[numrows] + widths[numtabs-1]) <= width then + rowends[numrows-1] = rowends[numrows-1] - 1 + rowwidths[numrows] = rowwidths[numrows] + widths[numtabs-1] + rowwidths[numrows-1] = rowwidths[numrows-1] - widths[numtabs-1] + end + end + end + end + + --anchor the rows as defined and resize tabs to fill thier row + local starttab = 1 + for row, endtab in ipairs(rowends) do + local first = true + for tabno = starttab, endtab do + local tab = tabs[tabno] + tab:ClearAllPoints() + if first then + tab:SetPoint("TOPLEFT", self.frame, "TOPLEFT", 0, -(hastitle and 14 or 7)-(row-1)*20 ) + first = false + else + tab:SetPoint("LEFT", tabs[tabno-1], "RIGHT", -10, 0) + end + end + + -- equal padding for each tab to fill the available width, + -- if the used space is above 75% already + -- the 18 pixel is the typical width of a scrollbar, so we can have a tab group inside a scrolling frame, + -- and not have the tabs jump around funny when switching between tabs that need scrolling and those that don't + local padding = 0 + if not (numrows == 1 and rowwidths[1] < width*0.75 - 18) then + padding = (width - rowwidths[row]) / (endtab - starttab+1) + end + + for i = starttab, endtab do + PanelTemplates_TabResize(tabs[i], padding + 4, nil, nil, width, tabs[i]:GetFontString():GetStringWidth()) + end + starttab = endtab + 1 + end + + self.borderoffset = (hastitle and 17 or 10)+((numrows)*20) + self.border:SetPoint("TOPLEFT", 1, -self.borderoffset) + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local contentwidth = width - 60 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + self:BuildTabs(self) + self.frame:SetScript("OnUpdate", BuildTabsOnUpdate) + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - (self.borderoffset + 23) + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end, + + ["LayoutFinished"] = function(self, width, height) + if self.noAutoHeight then return end + self:SetHeight((height or 0) + (self.borderoffset + 23)) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local PaneBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 5, bottom = 3 } +} + +local function Constructor() + local num = AceGUI:GetNextWidgetNum(Type) + local frame = CreateFrame("Frame",nil,UIParent) + frame:SetHeight(100) + frame:SetWidth(100) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + + local titletext = frame:CreateFontString(nil,"OVERLAY","GameFontNormal") + titletext:SetPoint("TOPLEFT", 14, 0) + titletext:SetPoint("TOPRIGHT", -14, 0) + titletext:SetJustifyH("LEFT") + titletext:SetHeight(18) + titletext:SetText("") + + local border = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) + border:SetPoint("TOPLEFT", 1, -27) + border:SetPoint("BOTTOMRIGHT", -1, 3) + border:SetBackdrop(PaneBackdrop) + border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) + border:SetBackdropBorderColor(0.4, 0.4, 0.4) + + local content = CreateFrame("Frame", nil, border) + content:SetPoint("TOPLEFT", 10, -7) + content:SetPoint("BOTTOMRIGHT", -10, 7) + + local widget = { + num = num, + frame = frame, + localstatus = {}, + alignoffset = 18, + titletext = titletext, + border = border, + borderoffset = 27, + tabs = {}, + content = content, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua new file mode 100644 index 0000000..cdc8051 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua @@ -0,0 +1,715 @@ +--[[----------------------------------------------------------------------------- +TreeGroup Container +Container that uses a tree control to switch between groups. +-------------------------------------------------------------------------------]] +local Type, Version = "TreeGroup", 45 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local next, pairs, ipairs, assert, type = next, pairs, ipairs, assert, type +local math_min, math_max, floor = math.min, math.max, floor +local select, tremove, unpack, tconcat = select, table.remove, unpack, table.concat + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: FONT_COLOR_CODE_CLOSE + +-- Recycling functions +local new, del +do + local pool = setmetatable({},{__mode='k'}) + function new() + local t = next(pool) + if t then + pool[t] = nil + return t + else + return {} + end + end + function del(t) + for k in pairs(t) do + t[k] = nil + end + pool[t] = true + end +end + +local DEFAULT_TREE_WIDTH = 175 +local DEFAULT_TREE_SIZABLE = true + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function GetButtonUniqueValue(line) + local parent = line.parent + if parent and parent.value then + return GetButtonUniqueValue(parent).."\001"..line.value + else + return line.value + end +end + +local function UpdateButton(button, treeline, selected, canExpand, isExpanded) + local self = button.obj + local toggle = button.toggle + local text = treeline.text or "" + local icon = treeline.icon + local iconCoords = treeline.iconCoords + local level = treeline.level + local value = treeline.value + local uniquevalue = treeline.uniquevalue + local disabled = treeline.disabled + + button.treeline = treeline + button.value = value + button.uniquevalue = uniquevalue + if selected then + button:LockHighlight() + button.selected = true + else + button:UnlockHighlight() + button.selected = false + end + button.level = level + if ( level == 1 ) then + button:SetNormalFontObject("GameFontNormal") + button:SetHighlightFontObject("GameFontHighlight") + button.text:SetPoint("LEFT", (icon and 16 or 0) + 8, 2) + else + button:SetNormalFontObject("GameFontHighlightSmall") + button:SetHighlightFontObject("GameFontHighlightSmall") + button.text:SetPoint("LEFT", (icon and 16 or 0) + 8 * level, 2) + end + + if disabled then + button:EnableMouse(false) + button.text:SetText("|cff808080"..text..FONT_COLOR_CODE_CLOSE) + else + button.text:SetText(text) + button:EnableMouse(true) + end + + if icon then + button.icon:SetTexture(icon) + button.icon:SetPoint("LEFT", 8 * level, (level == 1) and 0 or 1) + else + button.icon:SetTexture(nil) + end + + if iconCoords then + button.icon:SetTexCoord(unpack(iconCoords)) + else + button.icon:SetTexCoord(0, 1, 0, 1) + end + + if canExpand then + if not isExpanded then + toggle:SetNormalTexture(130838) -- Interface\\Buttons\\UI-PlusButton-UP + toggle:SetPushedTexture(130836) -- Interface\\Buttons\\UI-PlusButton-DOWN + else + toggle:SetNormalTexture(130821) -- Interface\\Buttons\\UI-MinusButton-UP + toggle:SetPushedTexture(130820) -- Interface\\Buttons\\UI-MinusButton-DOWN + end + toggle:Show() + else + toggle:Hide() + end +end + +local function ShouldDisplayLevel(tree) + local result = false + for k, v in ipairs(tree) do + if v.children == nil and v.visible ~= false then + result = true + elseif v.children then + result = result or ShouldDisplayLevel(v.children) + end + if result then return result end + end + return false +end + +local function addLine(self, v, tree, level, parent) + local line = new() + line.value = v.value + line.text = v.text + line.icon = v.icon + line.iconCoords = v.iconCoords + line.disabled = v.disabled + line.tree = tree + line.level = level + line.parent = parent + line.visible = v.visible + line.uniquevalue = GetButtonUniqueValue(line) + if v.children then + line.hasChildren = true + else + line.hasChildren = nil + end + self.lines[#self.lines+1] = line + return line +end + +--fire an update after one frame to catch the treeframes height +local function FirstFrameUpdate(frame) + local self = frame.obj + frame:SetScript("OnUpdate", nil) + self:RefreshTree(nil, true) +end + +local function BuildUniqueValue(...) + local n = select('#', ...) + if n == 1 then + return ... + else + return (...).."\001"..BuildUniqueValue(select(2,...)) + end +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Expand_OnClick(frame) + local button = frame.button + local self = button.obj + local status = (self.status or self.localstatus).groups + status[button.uniquevalue] = not status[button.uniquevalue] + self:RefreshTree() +end + +local function Button_OnClick(frame) + local self = frame.obj + self:Fire("OnClick", frame.uniquevalue, frame.selected) + if not frame.selected then + self:SetSelected(frame.uniquevalue) + frame.selected = true + frame:LockHighlight() + self:RefreshTree() + end + AceGUI:ClearFocus() +end + +local function Button_OnDoubleClick(button) + local self = button.obj + local status = (self.status or self.localstatus).groups + status[button.uniquevalue] = not status[button.uniquevalue] + self:RefreshTree() +end + +local function Button_OnEnter(frame) + local self = frame.obj + self:Fire("OnButtonEnter", frame.uniquevalue, frame) + + if self.enabletooltips then + local tooltip = AceGUI.tooltip + tooltip:SetOwner(frame, "ANCHOR_NONE") + tooltip:ClearAllPoints() + tooltip:SetPoint("LEFT",frame,"RIGHT") + tooltip:SetText(frame.text:GetText() or "", 1, .82, 0, true) + + tooltip:Show() + end +end + +local function Button_OnLeave(frame) + local self = frame.obj + self:Fire("OnButtonLeave", frame.uniquevalue, frame) + + if self.enabletooltips then + AceGUI.tooltip:Hide() + end +end + +local function OnScrollValueChanged(frame, value) + if frame.obj.noupdate then return end + local self = frame.obj + local status = self.status or self.localstatus + status.scrollvalue = floor(value + 0.5) + self:RefreshTree() + AceGUI:ClearFocus() +end + +local function Tree_OnSizeChanged(frame) + frame.obj:RefreshTree() +end + +local function Tree_OnMouseWheel(frame, delta) + local self = frame.obj + if self.showscroll then + local scrollbar = self.scrollbar + local min, max = scrollbar:GetMinMaxValues() + local value = scrollbar:GetValue() + local newvalue = math_min(max,math_max(min,value - delta)) + if value ~= newvalue then + scrollbar:SetValue(newvalue) + end + end +end + +local function Dragger_OnLeave(frame) + frame:SetBackdropColor(1, 1, 1, 0) +end + +local function Dragger_OnEnter(frame) + frame:SetBackdropColor(1, 1, 1, 0.8) +end + +local function Dragger_OnMouseDown(frame) + local treeframe = frame:GetParent() + treeframe:StartSizing("RIGHT") +end + +local function Dragger_OnMouseUp(frame) + local treeframe = frame:GetParent() + local self = treeframe.obj + local treeframeParent = treeframe:GetParent() + treeframe:StopMovingOrSizing() + --treeframe:SetScript("OnUpdate", nil) + treeframe:SetUserPlaced(false) + --Without this :GetHeight will get stuck on the current height, causing the tree contents to not resize + treeframe:SetHeight(0) + treeframe:ClearAllPoints() + treeframe:SetPoint("TOPLEFT", treeframeParent, "TOPLEFT",0,0) + treeframe:SetPoint("BOTTOMLEFT", treeframeParent, "BOTTOMLEFT",0,0) + + local status = self.status or self.localstatus + status.treewidth = treeframe:GetWidth() + + treeframe.obj:Fire("OnTreeResize",treeframe:GetWidth()) + -- recalculate the content width + treeframe.obj:OnWidthSet(status.fullwidth) + -- update the layout of the content + treeframe.obj:DoLayout() +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetTreeWidth(DEFAULT_TREE_WIDTH, DEFAULT_TREE_SIZABLE) + self:EnableButtonTooltips(true) + self.frame:SetScript("OnUpdate", FirstFrameUpdate) + end, + + ["OnRelease"] = function(self) + self.status = nil + self.tree = nil + self.frame:SetScript("OnUpdate", nil) + for k, v in pairs(self.localstatus) do + if k == "groups" then + for k2 in pairs(v) do + v[k2] = nil + end + else + self.localstatus[k] = nil + end + end + self.localstatus.scrollvalue = 0 + self.localstatus.treewidth = DEFAULT_TREE_WIDTH + self.localstatus.treesizable = DEFAULT_TREE_SIZABLE + end, + + ["EnableButtonTooltips"] = function(self, enable) + self.enabletooltips = enable + end, + + ["CreateButton"] = function(self) + local num = AceGUI:GetNextWidgetNum("TreeGroupButton") + local button = CreateFrame("Button", ("AceGUI30TreeButton%d"):format(num), self.treeframe, "OptionsListButtonTemplate") + button.obj = self + + local icon = button:CreateTexture(nil, "OVERLAY") + icon:SetWidth(14) + icon:SetHeight(14) + button.icon = icon + + button:SetScript("OnClick",Button_OnClick) + button:SetScript("OnDoubleClick", Button_OnDoubleClick) + button:SetScript("OnEnter",Button_OnEnter) + button:SetScript("OnLeave",Button_OnLeave) + + button.toggle.button = button + button.toggle:SetScript("OnClick",Expand_OnClick) + + button.text:SetHeight(14) -- Prevents text wrapping + + return button + end, + + ["SetStatusTable"] = function(self, status) + assert(type(status) == "table") + self.status = status + if not status.groups then + status.groups = {} + end + if not status.scrollvalue then + status.scrollvalue = 0 + end + if not status.treewidth then + status.treewidth = DEFAULT_TREE_WIDTH + end + if status.treesizable == nil then + status.treesizable = DEFAULT_TREE_SIZABLE + end + self:SetTreeWidth(status.treewidth,status.treesizable) + self:RefreshTree() + end, + + --sets the tree to be displayed + ["SetTree"] = function(self, tree, filter) + self.filter = filter + if tree then + assert(type(tree) == "table") + end + self.tree = tree + self:RefreshTree() + end, + + ["BuildLevel"] = function(self, tree, level, parent) + local groups = (self.status or self.localstatus).groups + + for i, v in ipairs(tree) do + if v.children then + if not self.filter or ShouldDisplayLevel(v.children) then + local line = addLine(self, v, tree, level, parent) + if groups[line.uniquevalue] then + self:BuildLevel(v.children, level+1, line) + end + end + elseif v.visible ~= false or not self.filter then + addLine(self, v, tree, level, parent) + end + end + end, + + ["RefreshTree"] = function(self,scrollToSelection,fromOnUpdate) + local buttons = self.buttons + local lines = self.lines + + for i, v in ipairs(buttons) do + v:Hide() + end + while lines[1] do + local t = tremove(lines) + for k in pairs(t) do + t[k] = nil + end + del(t) + end + + if not self.tree then return end + --Build the list of visible entries from the tree and status tables + local status = self.status or self.localstatus + local groupstatus = status.groups + local tree = self.tree + + local treeframe = self.treeframe + + status.scrollToSelection = status.scrollToSelection or scrollToSelection -- needs to be cached in case the control hasn't been drawn yet (code bails out below) + + self:BuildLevel(tree, 1) + + local numlines = #lines + + local maxlines = (floor(((self.treeframe:GetHeight()or 0) - 20 ) / 18)) + if maxlines <= 0 then return end + + if self.frame:GetParent() == UIParent and not fromOnUpdate then + self.frame:SetScript("OnUpdate", FirstFrameUpdate) + return + end + + local first, last + + scrollToSelection = status.scrollToSelection + status.scrollToSelection = nil + + if numlines <= maxlines then + --the whole tree fits in the frame + status.scrollvalue = 0 + self:ShowScroll(false) + first, last = 1, numlines + else + self:ShowScroll(true) + --scrolling will be needed + self.noupdate = true + self.scrollbar:SetMinMaxValues(0, numlines - maxlines) + --check if we are scrolled down too far + if numlines - status.scrollvalue < maxlines then + status.scrollvalue = numlines - maxlines + end + self.noupdate = nil + first, last = status.scrollvalue+1, status.scrollvalue + maxlines + --show selection? + if scrollToSelection and status.selected then + local show + for i,line in ipairs(lines) do -- find the line number + if line.uniquevalue==status.selected then + show=i + end + end + if not show then + -- selection was deleted or something? + elseif show>=first and show<=last then + -- all good + else + -- scrolling needed! + if show<first then + status.scrollvalue = show-1 + else + status.scrollvalue = show-maxlines + end + first, last = status.scrollvalue+1, status.scrollvalue + maxlines + end + end + if self.scrollbar:GetValue() ~= status.scrollvalue then + self.scrollbar:SetValue(status.scrollvalue) + end + end + + local buttonnum = 1 + for i = first, last do + local line = lines[i] + local button = buttons[buttonnum] + if not button then + button = self:CreateButton() + + buttons[buttonnum] = button + button:SetParent(treeframe) + button:SetFrameLevel(treeframe:GetFrameLevel()+1) + button:ClearAllPoints() + if buttonnum == 1 then + if self.showscroll then + button:SetPoint("TOPRIGHT", -22, -10) + button:SetPoint("TOPLEFT", 0, -10) + else + button:SetPoint("TOPRIGHT", 0, -10) + button:SetPoint("TOPLEFT", 0, -10) + end + else + button:SetPoint("TOPRIGHT", buttons[buttonnum-1], "BOTTOMRIGHT",0,0) + button:SetPoint("TOPLEFT", buttons[buttonnum-1], "BOTTOMLEFT",0,0) + end + end + + UpdateButton(button, line, status.selected == line.uniquevalue, line.hasChildren, groupstatus[line.uniquevalue] ) + button:Show() + buttonnum = buttonnum + 1 + end + + end, + + ["SetSelected"] = function(self, value) + local status = self.status or self.localstatus + if status.selected ~= value then + status.selected = value + self:Fire("OnGroupSelected", value) + end + end, + + ["Select"] = function(self, uniquevalue, ...) + self.filter = false + local status = self.status or self.localstatus + local groups = status.groups + local path = {...} + for i = 1, #path do + groups[tconcat(path, "\001", 1, i)] = true + end + status.selected = uniquevalue + self:RefreshTree(true) + self:Fire("OnGroupSelected", uniquevalue) + end, + + ["SelectByPath"] = function(self, ...) + self:Select(BuildUniqueValue(...), ...) + end, + + ["SelectByValue"] = function(self, uniquevalue) + self:Select(uniquevalue, ("\001"):split(uniquevalue)) + end, + + ["ShowScroll"] = function(self, show) + self.showscroll = show + if show then + self.scrollbar:Show() + if self.buttons[1] then + self.buttons[1]:SetPoint("TOPRIGHT", self.treeframe,"TOPRIGHT",-22,-10) + end + else + self.scrollbar:Hide() + if self.buttons[1] then + self.buttons[1]:SetPoint("TOPRIGHT", self.treeframe,"TOPRIGHT",0,-10) + end + end + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local treeframe = self.treeframe + local status = self.status or self.localstatus + status.fullwidth = width + + local contentwidth = width - status.treewidth - 20 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + + local maxtreewidth = math_min(400, width - 50) + + if maxtreewidth > 100 and status.treewidth > maxtreewidth then + self:SetTreeWidth(maxtreewidth, status.treesizable) + end + treeframe:SetMaxResize(maxtreewidth, 1600) + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - 20 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end, + + ["SetTreeWidth"] = function(self, treewidth, resizable) + if not resizable then + if type(treewidth) == 'number' then + resizable = false + elseif type(treewidth) == 'boolean' then + resizable = treewidth + treewidth = DEFAULT_TREE_WIDTH + else + resizable = false + treewidth = DEFAULT_TREE_WIDTH + end + end + self.treeframe:SetWidth(treewidth) + self.dragger:EnableMouse(resizable) + + local status = self.status or self.localstatus + status.treewidth = treewidth + status.treesizable = resizable + + -- recalculate the content width + if status.fullwidth then + self:OnWidthSet(status.fullwidth) + end + end, + + ["GetTreeWidth"] = function(self) + local status = self.status or self.localstatus + return status.treewidth or DEFAULT_TREE_WIDTH + end, + + ["LayoutFinished"] = function(self, width, height) + if self.noAutoHeight then return end + self:SetHeight((height or 0) + 20) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local PaneBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 5, bottom = 3 } +} + +local DraggerBackdrop = { + bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", + edgeFile = nil, + tile = true, tileSize = 16, edgeSize = 1, + insets = { left = 3, right = 3, top = 7, bottom = 7 } +} + +local function Constructor() + local num = AceGUI:GetNextWidgetNum(Type) + local frame = CreateFrame("Frame", nil, UIParent) + + local treeframe = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) + treeframe:SetPoint("TOPLEFT") + treeframe:SetPoint("BOTTOMLEFT") + treeframe:SetWidth(DEFAULT_TREE_WIDTH) + treeframe:EnableMouseWheel(true) + treeframe:SetBackdrop(PaneBackdrop) + treeframe:SetBackdropColor(0.1, 0.1, 0.1, 0.5) + treeframe:SetBackdropBorderColor(0.4, 0.4, 0.4) + treeframe:SetResizable(true) + treeframe:SetMinResize(100, 1) + treeframe:SetMaxResize(400, 1600) + treeframe:SetScript("OnUpdate", FirstFrameUpdate) + treeframe:SetScript("OnSizeChanged", Tree_OnSizeChanged) + treeframe:SetScript("OnMouseWheel", Tree_OnMouseWheel) + + local dragger = CreateFrame("Frame", nil, treeframe, BackdropTemplateMixin and "BackdropTemplate" or nil) + dragger:SetWidth(8) + dragger:SetPoint("TOP", treeframe, "TOPRIGHT") + dragger:SetPoint("BOTTOM", treeframe, "BOTTOMRIGHT") + dragger:SetBackdrop(DraggerBackdrop) + dragger:SetBackdropColor(1, 1, 1, 0) + dragger:SetScript("OnEnter", Dragger_OnEnter) + dragger:SetScript("OnLeave", Dragger_OnLeave) + dragger:SetScript("OnMouseDown", Dragger_OnMouseDown) + dragger:SetScript("OnMouseUp", Dragger_OnMouseUp) + + local scrollbar = CreateFrame("Slider", ("AceConfigDialogTreeGroup%dScrollBar"):format(num), treeframe, "UIPanelScrollBarTemplate") + scrollbar:SetScript("OnValueChanged", nil) + scrollbar:SetPoint("TOPRIGHT", -10, -26) + scrollbar:SetPoint("BOTTOMRIGHT", -10, 26) + scrollbar:SetMinMaxValues(0,0) + scrollbar:SetValueStep(1) + scrollbar:SetValue(0) + scrollbar:SetWidth(16) + scrollbar:SetScript("OnValueChanged", OnScrollValueChanged) + + local scrollbg = scrollbar:CreateTexture(nil, "BACKGROUND") + scrollbg:SetAllPoints(scrollbar) + scrollbg:SetColorTexture(0,0,0,0.4) + + local border = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) + border:SetPoint("TOPLEFT", treeframe, "TOPRIGHT") + border:SetPoint("BOTTOMRIGHT") + border:SetBackdrop(PaneBackdrop) + border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) + border:SetBackdropBorderColor(0.4, 0.4, 0.4) + + --Container Support + local content = CreateFrame("Frame", nil, border) + content:SetPoint("TOPLEFT", 10, -10) + content:SetPoint("BOTTOMRIGHT", -10, 10) + + local widget = { + frame = frame, + lines = {}, + levels = {}, + buttons = {}, + hasChildren = {}, + localstatus = { groups = {}, scrollvalue = 0 }, + filter = false, + treeframe = treeframe, + dragger = dragger, + scrollbar = scrollbar, + border = border, + content = content, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + treeframe.obj, dragger.obj, scrollbar.obj = widget, widget, widget + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua new file mode 100644 index 0000000..2e28a3d --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua @@ -0,0 +1,336 @@ +local AceGUI = LibStub("AceGUI-3.0") + +-- Lua APIs +local pairs, assert, type = pairs, assert, type + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame, UIParent = CreateFrame, UIParent + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: GameFontNormal + +---------------- +-- Main Frame -- +---------------- +--[[ + Events : + OnClose + +]] +do + local Type = "Window" + local Version = 6 + + local function frameOnShow(this) + this.obj:Fire("OnShow") + end + + local function frameOnClose(this) + this.obj:Fire("OnClose") + end + + local function closeOnClick(this) + PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT + this.obj:Hide() + end + + local function frameOnMouseDown(this) + AceGUI:ClearFocus() + end + + local function titleOnMouseDown(this) + this:GetParent():StartMoving() + AceGUI:ClearFocus() + end + + local function frameOnMouseUp(this) + local frame = this:GetParent() + frame:StopMovingOrSizing() + local self = frame.obj + local status = self.status or self.localstatus + status.width = frame:GetWidth() + status.height = frame:GetHeight() + status.top = frame:GetTop() + status.left = frame:GetLeft() + end + + local function sizerseOnMouseDown(this) + this:GetParent():StartSizing("BOTTOMRIGHT") + AceGUI:ClearFocus() + end + + local function sizersOnMouseDown(this) + this:GetParent():StartSizing("BOTTOM") + AceGUI:ClearFocus() + end + + local function sizereOnMouseDown(this) + this:GetParent():StartSizing("RIGHT") + AceGUI:ClearFocus() + end + + local function sizerOnMouseUp(this) + this:GetParent():StopMovingOrSizing() + end + + local function SetTitle(self,title) + self.titletext:SetText(title) + end + + local function SetStatusText(self,text) + -- self.statustext:SetText(text) + end + + local function Hide(self) + self.frame:Hide() + end + + local function Show(self) + self.frame:Show() + end + + local function OnAcquire(self) + self.frame:SetParent(UIParent) + self.frame:SetFrameStrata("FULLSCREEN_DIALOG") + self:ApplyStatus() + self:EnableResize(true) + self:Show() + end + + local function OnRelease(self) + self.status = nil + for k in pairs(self.localstatus) do + self.localstatus[k] = nil + end + end + + -- called to set an external table to store status in + local function SetStatusTable(self, status) + assert(type(status) == "table") + self.status = status + self:ApplyStatus() + end + + local function ApplyStatus(self) + local status = self.status or self.localstatus + local frame = self.frame + self:SetWidth(status.width or 700) + self:SetHeight(status.height or 500) + if status.top and status.left then + frame:SetPoint("TOP",UIParent,"BOTTOM",0,status.top) + frame:SetPoint("LEFT",UIParent,"LEFT",status.left,0) + else + frame:SetPoint("CENTER",UIParent,"CENTER") + end + end + + local function OnWidthSet(self, width) + local content = self.content + local contentwidth = width - 34 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + end + + + local function OnHeightSet(self, height) + local content = self.content + local contentheight = height - 57 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end + + local function EnableResize(self, state) + local func = state and "Show" or "Hide" + self.sizer_se[func](self.sizer_se) + self.sizer_s[func](self.sizer_s) + self.sizer_e[func](self.sizer_e) + end + + local function Constructor() + local frame = CreateFrame("Frame",nil,UIParent) + local self = {} + self.type = "Window" + + self.Hide = Hide + self.Show = Show + self.SetTitle = SetTitle + self.OnRelease = OnRelease + self.OnAcquire = OnAcquire + self.SetStatusText = SetStatusText + self.SetStatusTable = SetStatusTable + self.ApplyStatus = ApplyStatus + self.OnWidthSet = OnWidthSet + self.OnHeightSet = OnHeightSet + self.EnableResize = EnableResize + + self.localstatus = {} + + self.frame = frame + frame.obj = self + frame:SetWidth(700) + frame:SetHeight(500) + frame:SetPoint("CENTER",UIParent,"CENTER",0,0) + frame:EnableMouse() + frame:SetMovable(true) + frame:SetResizable(true) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + frame:SetScript("OnMouseDown", frameOnMouseDown) + + frame:SetScript("OnShow",frameOnShow) + frame:SetScript("OnHide",frameOnClose) + frame:SetMinResize(240,240) + frame:SetToplevel(true) + + local titlebg = frame:CreateTexture(nil, "BACKGROUND") + titlebg:SetTexture(251966) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Title-Background + titlebg:SetPoint("TOPLEFT", 9, -6) + titlebg:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", -28, -24) + + local dialogbg = frame:CreateTexture(nil, "BACKGROUND") + dialogbg:SetTexture(137056) -- Interface\\Tooltips\\UI-Tooltip-Background + dialogbg:SetPoint("TOPLEFT", 8, -24) + dialogbg:SetPoint("BOTTOMRIGHT", -6, 8) + dialogbg:SetVertexColor(0, 0, 0, .75) + + local topleft = frame:CreateTexture(nil, "BORDER") + topleft:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + topleft:SetWidth(64) + topleft:SetHeight(64) + topleft:SetPoint("TOPLEFT") + topleft:SetTexCoord(0.501953125, 0.625, 0, 1) + + local topright = frame:CreateTexture(nil, "BORDER") + topright:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + topright:SetWidth(64) + topright:SetHeight(64) + topright:SetPoint("TOPRIGHT") + topright:SetTexCoord(0.625, 0.75, 0, 1) + + local top = frame:CreateTexture(nil, "BORDER") + top:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + top:SetHeight(64) + top:SetPoint("TOPLEFT", topleft, "TOPRIGHT") + top:SetPoint("TOPRIGHT", topright, "TOPLEFT") + top:SetTexCoord(0.25, 0.369140625, 0, 1) + + local bottomleft = frame:CreateTexture(nil, "BORDER") + bottomleft:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + bottomleft:SetWidth(64) + bottomleft:SetHeight(64) + bottomleft:SetPoint("BOTTOMLEFT") + bottomleft:SetTexCoord(0.751953125, 0.875, 0, 1) + + local bottomright = frame:CreateTexture(nil, "BORDER") + bottomright:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + bottomright:SetWidth(64) + bottomright:SetHeight(64) + bottomright:SetPoint("BOTTOMRIGHT") + bottomright:SetTexCoord(0.875, 1, 0, 1) + + local bottom = frame:CreateTexture(nil, "BORDER") + bottom:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + bottom:SetHeight(64) + bottom:SetPoint("BOTTOMLEFT", bottomleft, "BOTTOMRIGHT") + bottom:SetPoint("BOTTOMRIGHT", bottomright, "BOTTOMLEFT") + bottom:SetTexCoord(0.376953125, 0.498046875, 0, 1) + + local left = frame:CreateTexture(nil, "BORDER") + left:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + left:SetWidth(64) + left:SetPoint("TOPLEFT", topleft, "BOTTOMLEFT") + left:SetPoint("BOTTOMLEFT", bottomleft, "TOPLEFT") + left:SetTexCoord(0.001953125, 0.125, 0, 1) + + local right = frame:CreateTexture(nil, "BORDER") + right:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + right:SetWidth(64) + right:SetPoint("TOPRIGHT", topright, "BOTTOMRIGHT") + right:SetPoint("BOTTOMRIGHT", bottomright, "TOPRIGHT") + right:SetTexCoord(0.1171875, 0.2421875, 0, 1) + + local close = CreateFrame("Button", nil, frame, "UIPanelCloseButton") + close:SetPoint("TOPRIGHT", 2, 1) + close:SetScript("OnClick", closeOnClick) + self.closebutton = close + close.obj = self + + local titletext = frame:CreateFontString(nil, "ARTWORK") + titletext:SetFontObject(GameFontNormal) + titletext:SetPoint("TOPLEFT", 12, -8) + titletext:SetPoint("TOPRIGHT", -32, -8) + self.titletext = titletext + + local title = CreateFrame("Button", nil, frame) + title:SetPoint("TOPLEFT", titlebg) + title:SetPoint("BOTTOMRIGHT", titlebg) + title:EnableMouse() + title:SetScript("OnMouseDown",titleOnMouseDown) + title:SetScript("OnMouseUp", frameOnMouseUp) + self.title = title + + local sizer_se = CreateFrame("Frame",nil,frame) + sizer_se:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,0) + sizer_se:SetWidth(25) + sizer_se:SetHeight(25) + sizer_se:EnableMouse() + sizer_se:SetScript("OnMouseDown",sizerseOnMouseDown) + sizer_se:SetScript("OnMouseUp", sizerOnMouseUp) + self.sizer_se = sizer_se + + local line1 = sizer_se:CreateTexture(nil, "BACKGROUND") + self.line1 = line1 + line1:SetWidth(14) + line1:SetHeight(14) + line1:SetPoint("BOTTOMRIGHT", -8, 8) + line1:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + local x = 0.1 * 14/17 + line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) + + local line2 = sizer_se:CreateTexture(nil, "BACKGROUND") + self.line2 = line2 + line2:SetWidth(8) + line2:SetHeight(8) + line2:SetPoint("BOTTOMRIGHT", -8, 8) + line2:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + local x = 0.1 * 8/17 + line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) + + local sizer_s = CreateFrame("Frame",nil,frame) + sizer_s:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-25,0) + sizer_s:SetPoint("BOTTOMLEFT",frame,"BOTTOMLEFT",0,0) + sizer_s:SetHeight(25) + sizer_s:EnableMouse() + sizer_s:SetScript("OnMouseDown",sizersOnMouseDown) + sizer_s:SetScript("OnMouseUp", sizerOnMouseUp) + self.sizer_s = sizer_s + + local sizer_e = CreateFrame("Frame",nil,frame) + sizer_e:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,25) + sizer_e:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0) + sizer_e:SetWidth(25) + sizer_e:EnableMouse() + sizer_e:SetScript("OnMouseDown",sizereOnMouseDown) + sizer_e:SetScript("OnMouseUp", sizerOnMouseUp) + self.sizer_e = sizer_e + + --Container Support + local content = CreateFrame("Frame",nil,frame) + self.content = content + content.obj = self + content:SetPoint("TOPLEFT",frame,"TOPLEFT",12,-32) + content:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-12,13) + + AceGUI:RegisterAsContainer(self) + return self + end + + AceGUI:RegisterWidgetType(Type,Constructor,Version) +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua new file mode 100644 index 0000000..0e286ca --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua @@ -0,0 +1,103 @@ +--[[----------------------------------------------------------------------------- +Button Widget +Graphical Button. +-------------------------------------------------------------------------------]] +local Type, Version = "Button", 24 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local _G = _G +local PlaySound, CreateFrame, UIParent = PlaySound, CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Button_OnClick(frame, ...) + AceGUI:ClearFocus() + PlaySound(852) -- SOUNDKIT.IG_MAINMENU_OPTION + frame.obj:Fire("OnClick", ...) +end + +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + -- restore default values + self:SetHeight(24) + self:SetWidth(200) + self:SetDisabled(false) + self:SetAutoWidth(false) + self:SetText() + end, + + -- ["OnRelease"] = nil, + + ["SetText"] = function(self, text) + self.text:SetText(text) + if self.autoWidth then + self:SetWidth(self.text:GetStringWidth() + 30) + end + end, + + ["SetAutoWidth"] = function(self, autoWidth) + self.autoWidth = autoWidth + if self.autoWidth then + self:SetWidth(self.text:GetStringWidth() + 30) + end + end, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.frame:Disable() + else + self.frame:Enable() + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local name = "AceGUI30Button" .. AceGUI:GetNextWidgetNum(Type) + local frame = CreateFrame("Button", name, UIParent, "UIPanelButtonTemplate") + frame:Hide() + + frame:EnableMouse(true) + frame:SetScript("OnClick", Button_OnClick) + frame:SetScript("OnEnter", Control_OnEnter) + frame:SetScript("OnLeave", Control_OnLeave) + + local text = frame:GetFontString() + text:ClearAllPoints() + text:SetPoint("TOPLEFT", 15, -1) + text:SetPoint("BOTTOMRIGHT", -15, 1) + text:SetJustifyV("MIDDLE") + + local widget = { + text = text, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua new file mode 100644 index 0000000..53ef618 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua @@ -0,0 +1,296 @@ +--[[----------------------------------------------------------------------------- +Checkbox Widget +-------------------------------------------------------------------------------]] +local Type, Version = "CheckBox", 26 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local select, pairs = select, pairs + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame, UIParent = CreateFrame, UIParent + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: SetDesaturation, GameFontHighlight + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function AlignImage(self) + local img = self.image:GetTexture() + self.text:ClearAllPoints() + if not img then + self.text:SetPoint("LEFT", self.checkbg, "RIGHT") + self.text:SetPoint("RIGHT") + else + self.text:SetPoint("LEFT", self.image, "RIGHT", 1, 0) + self.text:SetPoint("RIGHT") + end +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function CheckBox_OnMouseDown(frame) + local self = frame.obj + if not self.disabled then + if self.image:GetTexture() then + self.text:SetPoint("LEFT", self.image,"RIGHT", 2, -1) + else + self.text:SetPoint("LEFT", self.checkbg, "RIGHT", 1, -1) + end + end + AceGUI:ClearFocus() +end + +local function CheckBox_OnMouseUp(frame) + local self = frame.obj + if not self.disabled then + self:ToggleChecked() + + if self.checked then + PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON + else -- for both nil and false (tristate) + PlaySound(857) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_OFF + end + + self:Fire("OnValueChanged", self.checked) + AlignImage(self) + end +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetType() + self:SetValue(false) + self:SetTriState(nil) + -- height is calculated from the width and required space for the description + self:SetWidth(200) + self:SetImage() + self:SetDisabled(nil) + self:SetDescription(nil) + end, + + -- ["OnRelease"] = nil, + + ["OnWidthSet"] = function(self, width) + if self.desc then + self.desc:SetWidth(width - 30) + if self.desc:GetText() and self.desc:GetText() ~= "" then + self:SetHeight(28 + self.desc:GetStringHeight()) + end + end + end, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.frame:Disable() + self.text:SetTextColor(0.5, 0.5, 0.5) + SetDesaturation(self.check, true) + if self.desc then + self.desc:SetTextColor(0.5, 0.5, 0.5) + end + else + self.frame:Enable() + self.text:SetTextColor(1, 1, 1) + if self.tristate and self.checked == nil then + SetDesaturation(self.check, true) + else + SetDesaturation(self.check, false) + end + if self.desc then + self.desc:SetTextColor(1, 1, 1) + end + end + end, + + ["SetValue"] = function(self, value) + local check = self.check + self.checked = value + if value then + SetDesaturation(check, false) + check:Show() + else + --Nil is the unknown tristate value + if self.tristate and value == nil then + SetDesaturation(check, true) + check:Show() + else + SetDesaturation(check, false) + check:Hide() + end + end + self:SetDisabled(self.disabled) + end, + + ["GetValue"] = function(self) + return self.checked + end, + + ["SetTriState"] = function(self, enabled) + self.tristate = enabled + self:SetValue(self:GetValue()) + end, + + ["SetType"] = function(self, type) + local checkbg = self.checkbg + local check = self.check + local highlight = self.highlight + + local size + if type == "radio" then + size = 16 + checkbg:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton + checkbg:SetTexCoord(0, 0.25, 0, 1) + check:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton + check:SetTexCoord(0.25, 0.5, 0, 1) + check:SetBlendMode("ADD") + highlight:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton + highlight:SetTexCoord(0.5, 0.75, 0, 1) + else + size = 24 + checkbg:SetTexture(130755) -- Interface\\Buttons\\UI-CheckBox-Up + checkbg:SetTexCoord(0, 1, 0, 1) + check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check + check:SetTexCoord(0, 1, 0, 1) + check:SetBlendMode("BLEND") + highlight:SetTexture(130753) -- Interface\\Buttons\\UI-CheckBox-Highlight + highlight:SetTexCoord(0, 1, 0, 1) + end + checkbg:SetHeight(size) + checkbg:SetWidth(size) + end, + + ["ToggleChecked"] = function(self) + local value = self:GetValue() + if self.tristate then + --cycle in true, nil, false order + if value then + self:SetValue(nil) + elseif value == nil then + self:SetValue(false) + else + self:SetValue(true) + end + else + self:SetValue(not self:GetValue()) + end + end, + + ["SetLabel"] = function(self, label) + self.text:SetText(label) + end, + + ["SetDescription"] = function(self, desc) + if desc then + if not self.desc then + local desc = self.frame:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall") + desc:ClearAllPoints() + desc:SetPoint("TOPLEFT", self.checkbg, "TOPRIGHT", 5, -21) + desc:SetWidth(self.frame.width - 30) + desc:SetPoint("RIGHT", self.frame, "RIGHT", -30, 0) + desc:SetJustifyH("LEFT") + desc:SetJustifyV("TOP") + self.desc = desc + end + self.desc:Show() + --self.text:SetFontObject(GameFontNormal) + self.desc:SetText(desc) + self:SetHeight(28 + self.desc:GetStringHeight()) + else + if self.desc then + self.desc:SetText("") + self.desc:Hide() + end + --self.text:SetFontObject(GameFontHighlight) + self:SetHeight(24) + end + end, + + ["SetImage"] = function(self, path, ...) + local image = self.image + image:SetTexture(path) + + if image:GetTexture() then + local n = select("#", ...) + if n == 4 or n == 8 then + image:SetTexCoord(...) + else + image:SetTexCoord(0, 1, 0, 1) + end + end + AlignImage(self) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Button", nil, UIParent) + frame:Hide() + + frame:EnableMouse(true) + frame:SetScript("OnEnter", Control_OnEnter) + frame:SetScript("OnLeave", Control_OnLeave) + frame:SetScript("OnMouseDown", CheckBox_OnMouseDown) + frame:SetScript("OnMouseUp", CheckBox_OnMouseUp) + + local checkbg = frame:CreateTexture(nil, "ARTWORK") + checkbg:SetWidth(24) + checkbg:SetHeight(24) + checkbg:SetPoint("TOPLEFT") + checkbg:SetTexture(130755) -- Interface\\Buttons\\UI-CheckBox-Up + + local check = frame:CreateTexture(nil, "OVERLAY") + check:SetAllPoints(checkbg) + check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check + + local text = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight") + text:SetJustifyH("LEFT") + text:SetHeight(18) + text:SetPoint("LEFT", checkbg, "RIGHT") + text:SetPoint("RIGHT") + + local highlight = frame:CreateTexture(nil, "HIGHLIGHT") + highlight:SetTexture(130753) -- Interface\\Buttons\\UI-CheckBox-Highlight + highlight:SetBlendMode("ADD") + highlight:SetAllPoints(checkbg) + + local image = frame:CreateTexture(nil, "OVERLAY") + image:SetHeight(16) + image:SetWidth(16) + image:SetPoint("LEFT", checkbg, "RIGHT", 1, 0) + + local widget = { + checkbg = checkbg, + check = check, + text = text, + highlight = highlight, + image = image, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua new file mode 100644 index 0000000..1101162 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua @@ -0,0 +1,190 @@ +--[[----------------------------------------------------------------------------- +ColorPicker Widget +-------------------------------------------------------------------------------]] +local Type, Version = "ColorPicker", 25 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: ColorPickerFrame, OpacitySliderFrame + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function ColorCallback(self, r, g, b, a, isAlpha) + if not self.HasAlpha then + a = 1 + end + self:SetColor(r, g, b, a) + if ColorPickerFrame:IsVisible() then + --colorpicker is still open + self:Fire("OnValueChanged", r, g, b, a) + else + --colorpicker is closed, color callback is first, ignore it, + --alpha callback is the final call after it closes so confirm now + if isAlpha then + self:Fire("OnValueConfirmed", r, g, b, a) + end + end +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function ColorSwatch_OnClick(frame) + ColorPickerFrame:Hide() + local self = frame.obj + if not self.disabled then + ColorPickerFrame:SetFrameStrata("FULLSCREEN_DIALOG") + ColorPickerFrame:SetFrameLevel(frame:GetFrameLevel() + 10) + ColorPickerFrame:SetClampedToScreen(true) + + ColorPickerFrame.func = function() + local r, g, b = ColorPickerFrame:GetColorRGB() + local a = 1 - OpacitySliderFrame:GetValue() + ColorCallback(self, r, g, b, a) + end + + ColorPickerFrame.hasOpacity = self.HasAlpha + ColorPickerFrame.opacityFunc = function() + local r, g, b = ColorPickerFrame:GetColorRGB() + local a = 1 - OpacitySliderFrame:GetValue() + ColorCallback(self, r, g, b, a, true) + end + + local r, g, b, a = self.r, self.g, self.b, self.a + if self.HasAlpha then + ColorPickerFrame.opacity = 1 - (a or 0) + end + ColorPickerFrame:SetColorRGB(r, g, b) + + ColorPickerFrame.cancelFunc = function() + ColorCallback(self, r, g, b, a, true) + end + + ColorPickerFrame:Show() + end + AceGUI:ClearFocus() +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetHeight(24) + self:SetWidth(200) + self:SetHasAlpha(false) + self:SetColor(0, 0, 0, 1) + self:SetDisabled(nil) + self:SetLabel(nil) + end, + + -- ["OnRelease"] = nil, + + ["SetLabel"] = function(self, text) + self.text:SetText(text) + end, + + ["SetColor"] = function(self, r, g, b, a) + self.r = r + self.g = g + self.b = b + self.a = a or 1 + self.colorSwatch:SetVertexColor(r, g, b, a) + end, + + ["SetHasAlpha"] = function(self, HasAlpha) + self.HasAlpha = HasAlpha + end, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if self.disabled then + self.frame:Disable() + self.text:SetTextColor(0.5, 0.5, 0.5) + else + self.frame:Enable() + self.text:SetTextColor(1, 1, 1) + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Button", nil, UIParent) + frame:Hide() + + frame:EnableMouse(true) + frame:SetScript("OnEnter", Control_OnEnter) + frame:SetScript("OnLeave", Control_OnLeave) + frame:SetScript("OnClick", ColorSwatch_OnClick) + + local colorSwatch = frame:CreateTexture(nil, "OVERLAY") + colorSwatch:SetWidth(19) + colorSwatch:SetHeight(19) + colorSwatch:SetTexture(130939) -- Interface\\ChatFrame\\ChatFrameColorSwatch + colorSwatch:SetPoint("LEFT") + + local texture = frame:CreateTexture(nil, "BACKGROUND") + colorSwatch.background = texture + texture:SetWidth(16) + texture:SetHeight(16) + texture:SetColorTexture(1, 1, 1) + texture:SetPoint("CENTER", colorSwatch) + texture:Show() + + local checkers = frame:CreateTexture(nil, "BACKGROUND") + colorSwatch.checkers = checkers + checkers:SetWidth(14) + checkers:SetHeight(14) + checkers:SetTexture(188523) -- Tileset\\Generic\\Checkers + checkers:SetTexCoord(.25, 0, 0.5, .25) + checkers:SetDesaturated(true) + checkers:SetVertexColor(1, 1, 1, 0.75) + checkers:SetPoint("CENTER", colorSwatch) + checkers:Show() + + local text = frame:CreateFontString(nil,"OVERLAY","GameFontHighlight") + text:SetHeight(24) + text:SetJustifyH("LEFT") + text:SetTextColor(1, 1, 1) + text:SetPoint("LEFT", colorSwatch, "RIGHT", 2, 0) + text:SetPoint("RIGHT") + + --local highlight = frame:CreateTexture(nil, "HIGHLIGHT") + --highlight:SetTexture(136810) -- Interface\\QuestFrame\\UI-QuestTitleHighlight + --highlight:SetBlendMode("ADD") + --highlight:SetAllPoints(frame) + + local widget = { + colorSwatch = colorSwatch, + text = text, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua new file mode 100644 index 0000000..7ae1401 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua @@ -0,0 +1,471 @@ +--[[ $Id: AceGUIWidget-DropDown-Items.lua 1202 2019-05-15 23:11:22Z nevcairiel $ ]]-- + +local AceGUI = LibStub("AceGUI-3.0") + +-- Lua APIs +local select, assert = select, assert + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame = CreateFrame + +local function fixlevels(parent,...) + local i = 1 + local child = select(i, ...) + while child do + child:SetFrameLevel(parent:GetFrameLevel()+1) + fixlevels(child, child:GetChildren()) + i = i + 1 + child = select(i, ...) + end +end + +local function fixstrata(strata, parent, ...) + local i = 1 + local child = select(i, ...) + parent:SetFrameStrata(strata) + while child do + fixstrata(strata, child, child:GetChildren()) + i = i + 1 + child = select(i, ...) + end +end + +-- ItemBase is the base "class" for all dropdown items. +-- Each item has to use ItemBase.Create(widgetType) to +-- create an initial 'self' value. +-- ItemBase will add common functions and ui event handlers. +-- Be sure to keep basic usage when you override functions. + +local ItemBase = { + -- NOTE: The ItemBase version is added to each item's version number + -- to ensure proper updates on ItemBase changes. + -- Use at least 1000er steps. + version = 1000, + counter = 0, +} + +function ItemBase.Frame_OnEnter(this) + local self = this.obj + + if self.useHighlight then + self.highlight:Show() + end + self:Fire("OnEnter") + + if self.specialOnEnter then + self.specialOnEnter(self) + end +end + +function ItemBase.Frame_OnLeave(this) + local self = this.obj + + self.highlight:Hide() + self:Fire("OnLeave") + + if self.specialOnLeave then + self.specialOnLeave(self) + end +end + +-- exported, AceGUI callback +function ItemBase.OnAcquire(self) + self.frame:SetToplevel(true) + self.frame:SetFrameStrata("FULLSCREEN_DIALOG") +end + +-- exported, AceGUI callback +function ItemBase.OnRelease(self) + self:SetDisabled(false) + self.pullout = nil + self.frame:SetParent(nil) + self.frame:ClearAllPoints() + self.frame:Hide() +end + +-- exported +-- NOTE: this is called by a Dropdown-Pullout. +-- Do not call this method directly +function ItemBase.SetPullout(self, pullout) + self.pullout = pullout + + self.frame:SetParent(nil) + self.frame:SetParent(pullout.itemFrame) + self.parent = pullout.itemFrame + fixlevels(pullout.itemFrame, pullout.itemFrame:GetChildren()) +end + +-- exported +function ItemBase.SetText(self, text) + self.text:SetText(text or "") +end + +-- exported +function ItemBase.GetText(self) + return self.text:GetText() +end + +-- exported +function ItemBase.SetPoint(self, ...) + self.frame:SetPoint(...) +end + +-- exported +function ItemBase.Show(self) + self.frame:Show() +end + +-- exported +function ItemBase.Hide(self) + self.frame:Hide() +end + +-- exported +function ItemBase.SetDisabled(self, disabled) + self.disabled = disabled + if disabled then + self.useHighlight = false + self.text:SetTextColor(.5, .5, .5) + else + self.useHighlight = true + self.text:SetTextColor(1, 1, 1) + end +end + +-- exported +-- NOTE: this is called by a Dropdown-Pullout. +-- Do not call this method directly +function ItemBase.SetOnLeave(self, func) + self.specialOnLeave = func +end + +-- exported +-- NOTE: this is called by a Dropdown-Pullout. +-- Do not call this method directly +function ItemBase.SetOnEnter(self, func) + self.specialOnEnter = func +end + +function ItemBase.Create(type) + -- NOTE: Most of the following code is copied from AceGUI-3.0/Dropdown widget + local count = AceGUI:GetNextWidgetNum(type) + local frame = CreateFrame("Button", "AceGUI30DropDownItem"..count) + local self = {} + self.frame = frame + frame.obj = self + self.type = type + + self.useHighlight = true + + frame:SetHeight(17) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + + local text = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall") + text:SetTextColor(1,1,1) + text:SetJustifyH("LEFT") + text:SetPoint("TOPLEFT",frame,"TOPLEFT",18,0) + text:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-8,0) + self.text = text + + local highlight = frame:CreateTexture(nil, "OVERLAY") + highlight:SetTexture(136810) -- Interface\\QuestFrame\\UI-QuestTitleHighlight + highlight:SetBlendMode("ADD") + highlight:SetHeight(14) + highlight:ClearAllPoints() + highlight:SetPoint("RIGHT",frame,"RIGHT",-3,0) + highlight:SetPoint("LEFT",frame,"LEFT",5,0) + highlight:Hide() + self.highlight = highlight + + local check = frame:CreateTexture("OVERLAY") + check:SetWidth(16) + check:SetHeight(16) + check:SetPoint("LEFT",frame,"LEFT",3,-1) + check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check + check:Hide() + self.check = check + + local sub = frame:CreateTexture("OVERLAY") + sub:SetWidth(16) + sub:SetHeight(16) + sub:SetPoint("RIGHT",frame,"RIGHT",-3,-1) + sub:SetTexture(130940) -- Interface\\ChatFrame\\ChatFrameExpandArrow + sub:Hide() + self.sub = sub + + frame:SetScript("OnEnter", ItemBase.Frame_OnEnter) + frame:SetScript("OnLeave", ItemBase.Frame_OnLeave) + + self.OnAcquire = ItemBase.OnAcquire + self.OnRelease = ItemBase.OnRelease + + self.SetPullout = ItemBase.SetPullout + self.GetText = ItemBase.GetText + self.SetText = ItemBase.SetText + self.SetDisabled = ItemBase.SetDisabled + + self.SetPoint = ItemBase.SetPoint + self.Show = ItemBase.Show + self.Hide = ItemBase.Hide + + self.SetOnLeave = ItemBase.SetOnLeave + self.SetOnEnter = ItemBase.SetOnEnter + + return self +end + +-- Register a dummy LibStub library to retrieve the ItemBase, so other addons can use it. +local IBLib = LibStub:NewLibrary("AceGUI-3.0-DropDown-ItemBase", ItemBase.version) +if IBLib then + IBLib.GetItemBase = function() return ItemBase end +end + +--[[ + Template for items: + +-- Item: +-- +do + local widgetType = "Dropdown-Item-" + local widgetVersion = 1 + + local function Constructor() + local self = ItemBase.Create(widgetType) + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end +--]] + +-- Item: Header +-- A single text entry. +-- Special: Different text color and no highlight +do + local widgetType = "Dropdown-Item-Header" + local widgetVersion = 1 + + local function OnEnter(this) + local self = this.obj + self:Fire("OnEnter") + + if self.specialOnEnter then + self.specialOnEnter(self) + end + end + + local function OnLeave(this) + local self = this.obj + self:Fire("OnLeave") + + if self.specialOnLeave then + self.specialOnLeave(self) + end + end + + -- exported, override + local function SetDisabled(self, disabled) + ItemBase.SetDisabled(self, disabled) + if not disabled then + self.text:SetTextColor(1, 1, 0) + end + end + + local function Constructor() + local self = ItemBase.Create(widgetType) + + self.SetDisabled = SetDisabled + + self.frame:SetScript("OnEnter", OnEnter) + self.frame:SetScript("OnLeave", OnLeave) + + self.text:SetTextColor(1, 1, 0) + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end + +-- Item: Execute +-- A simple button +do + local widgetType = "Dropdown-Item-Execute" + local widgetVersion = 1 + + local function Frame_OnClick(this, button) + local self = this.obj + if self.disabled then return end + self:Fire("OnClick") + if self.pullout then + self.pullout:Close() + end + end + + local function Constructor() + local self = ItemBase.Create(widgetType) + + self.frame:SetScript("OnClick", Frame_OnClick) + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end + +-- Item: Toggle +-- Some sort of checkbox for dropdown menus. +-- Does not close the pullout on click. +do + local widgetType = "Dropdown-Item-Toggle" + local widgetVersion = 4 + + local function UpdateToggle(self) + if self.value then + self.check:Show() + else + self.check:Hide() + end + end + + local function OnRelease(self) + ItemBase.OnRelease(self) + self:SetValue(nil) + end + + local function Frame_OnClick(this, button) + local self = this.obj + if self.disabled then return end + self.value = not self.value + if self.value then + PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON + else + PlaySound(857) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_OFF + end + UpdateToggle(self) + self:Fire("OnValueChanged", self.value) + end + + -- exported + local function SetValue(self, value) + self.value = value + UpdateToggle(self) + end + + -- exported + local function GetValue(self) + return self.value + end + + local function Constructor() + local self = ItemBase.Create(widgetType) + + self.frame:SetScript("OnClick", Frame_OnClick) + + self.SetValue = SetValue + self.GetValue = GetValue + self.OnRelease = OnRelease + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end + +-- Item: Menu +-- Shows a submenu on mouse over +-- Does not close the pullout on click +do + local widgetType = "Dropdown-Item-Menu" + local widgetVersion = 2 + + local function OnEnter(this) + local self = this.obj + self:Fire("OnEnter") + + if self.specialOnEnter then + self.specialOnEnter(self) + end + + self.highlight:Show() + + if not self.disabled and self.submenu then + self.submenu:Open("TOPLEFT", self.frame, "TOPRIGHT", self.pullout:GetRightBorderWidth(), 0, self.frame:GetFrameLevel() + 100) + end + end + + local function OnHide(this) + local self = this.obj + if self.submenu then + self.submenu:Close() + end + end + + -- exported + local function SetMenu(self, menu) + assert(menu.type == "Dropdown-Pullout") + self.submenu = menu + end + + -- exported + local function CloseMenu(self) + self.submenu:Close() + end + + local function Constructor() + local self = ItemBase.Create(widgetType) + + self.sub:Show() + + self.frame:SetScript("OnEnter", OnEnter) + self.frame:SetScript("OnHide", OnHide) + + self.SetMenu = SetMenu + self.CloseMenu = CloseMenu + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end + +-- Item: Separator +-- A single line to separate items +do + local widgetType = "Dropdown-Item-Separator" + local widgetVersion = 2 + + -- exported, override + local function SetDisabled(self, disabled) + ItemBase.SetDisabled(self, disabled) + self.useHighlight = false + end + + local function Constructor() + local self = ItemBase.Create(widgetType) + + self.SetDisabled = SetDisabled + + local line = self.frame:CreateTexture(nil, "OVERLAY") + line:SetHeight(1) + line:SetColorTexture(.5, .5, .5) + line:SetPoint("LEFT", self.frame, "LEFT", 10, 0) + line:SetPoint("RIGHT", self.frame, "RIGHT", -10, 0) + + self.text:Hide() + + self.useHighlight = false + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua new file mode 100644 index 0000000..5481630 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua @@ -0,0 +1,737 @@ +--[[ $Id: AceGUIWidget-DropDown.lua 1239 2020-09-20 10:22:02Z nevcairiel $ ]]-- +local AceGUI = LibStub("AceGUI-3.0") + +-- Lua APIs +local min, max, floor = math.min, math.max, math.floor +local select, pairs, ipairs, type, tostring = select, pairs, ipairs, type, tostring +local tsort = table.sort + +-- WoW APIs +local PlaySound = PlaySound +local UIParent, CreateFrame = UIParent, CreateFrame +local _G = _G + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: CLOSE + +local function fixlevels(parent,...) + local i = 1 + local child = select(i, ...) + while child do + child:SetFrameLevel(parent:GetFrameLevel()+1) + fixlevels(child, child:GetChildren()) + i = i + 1 + child = select(i, ...) + end +end + +local function fixstrata(strata, parent, ...) + local i = 1 + local child = select(i, ...) + parent:SetFrameStrata(strata) + while child do + fixstrata(strata, child, child:GetChildren()) + i = i + 1 + child = select(i, ...) + end +end + +do + local widgetType = "Dropdown-Pullout" + local widgetVersion = 5 + + --[[ Static data ]]-- + + local backdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border", + edgeSize = 32, + tileSize = 32, + tile = true, + insets = { left = 11, right = 12, top = 12, bottom = 11 }, + } + local sliderBackdrop = { + bgFile = "Interface\\Buttons\\UI-SliderBar-Background", + edgeFile = "Interface\\Buttons\\UI-SliderBar-Border", + tile = true, tileSize = 8, edgeSize = 8, + insets = { left = 3, right = 3, top = 3, bottom = 3 } + } + + local defaultWidth = 200 + local defaultMaxHeight = 600 + + --[[ UI Event Handlers ]]-- + + -- HACK: This should be no part of the pullout, but there + -- is no other 'clean' way to response to any item-OnEnter + -- Used to close Submenus when an other item is entered + local function OnEnter(item) + local self = item.pullout + for k, v in ipairs(self.items) do + if v.CloseMenu and v ~= item then + v:CloseMenu() + end + end + end + + -- See the note in Constructor() for each scroll related function + local function OnMouseWheel(this, value) + this.obj:MoveScroll(value) + end + + local function OnScrollValueChanged(this, value) + this.obj:SetScroll(value) + end + + local function OnSizeChanged(this) + this.obj:FixScroll() + end + + --[[ Exported methods ]]-- + + -- exported + local function SetScroll(self, value) + local status = self.scrollStatus + local frame, child = self.scrollFrame, self.itemFrame + local height, viewheight = frame:GetHeight(), child:GetHeight() + + local offset + if height > viewheight then + offset = 0 + else + offset = floor((viewheight - height) / 1000 * value) + end + child:ClearAllPoints() + child:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, offset) + child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", self.slider:IsShown() and -12 or 0, offset) + status.offset = offset + status.scrollvalue = value + end + + -- exported + local function MoveScroll(self, value) + local status = self.scrollStatus + local frame, child = self.scrollFrame, self.itemFrame + local height, viewheight = frame:GetHeight(), child:GetHeight() + + if height > viewheight then + self.slider:Hide() + else + self.slider:Show() + local diff = height - viewheight + local delta = 1 + if value < 0 then + delta = -1 + end + self.slider:SetValue(min(max(status.scrollvalue + delta*(1000/(diff/45)),0), 1000)) + end + end + + -- exported + local function FixScroll(self) + local status = self.scrollStatus + local frame, child = self.scrollFrame, self.itemFrame + local height, viewheight = frame:GetHeight(), child:GetHeight() + local offset = status.offset or 0 + + if viewheight < height then + self.slider:Hide() + child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", 0, offset) + self.slider:SetValue(0) + else + self.slider:Show() + local value = (offset / (viewheight - height) * 1000) + if value > 1000 then value = 1000 end + self.slider:SetValue(value) + self:SetScroll(value) + if value < 1000 then + child:ClearAllPoints() + child:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, offset) + child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -12, offset) + status.offset = offset + end + end + end + + -- exported, AceGUI callback + local function OnAcquire(self) + self.frame:SetParent(UIParent) + --self.itemFrame:SetToplevel(true) + end + + -- exported, AceGUI callback + local function OnRelease(self) + self:Clear() + self.frame:ClearAllPoints() + self.frame:Hide() + end + + -- exported + local function AddItem(self, item) + self.items[#self.items + 1] = item + + local h = #self.items * 16 + self.itemFrame:SetHeight(h) + self.frame:SetHeight(min(h + 34, self.maxHeight)) -- +34: 20 for scrollFrame placement (10 offset) and +14 for item placement + + item.frame:SetPoint("LEFT", self.itemFrame, "LEFT") + item.frame:SetPoint("RIGHT", self.itemFrame, "RIGHT") + + item:SetPullout(self) + item:SetOnEnter(OnEnter) + end + + -- exported + local function Open(self, point, relFrame, relPoint, x, y) + local items = self.items + local frame = self.frame + local itemFrame = self.itemFrame + + frame:SetPoint(point, relFrame, relPoint, x, y) + + + local height = 8 + for i, item in pairs(items) do + item:SetPoint("TOP", itemFrame, "TOP", 0, -2 + (i - 1) * -16) + item:Show() + + height = height + 16 + end + itemFrame:SetHeight(height) + fixstrata("TOOLTIP", frame, frame:GetChildren()) + frame:Show() + self:Fire("OnOpen") + end + + -- exported + local function Close(self) + self.frame:Hide() + self:Fire("OnClose") + end + + -- exported + local function Clear(self) + local items = self.items + for i, item in pairs(items) do + AceGUI:Release(item) + items[i] = nil + end + end + + -- exported + local function IterateItems(self) + return ipairs(self.items) + end + + -- exported + local function SetHideOnLeave(self, val) + self.hideOnLeave = val + end + + -- exported + local function SetMaxHeight(self, height) + self.maxHeight = height or defaultMaxHeight + if self.frame:GetHeight() > height then + self.frame:SetHeight(height) + elseif (self.itemFrame:GetHeight() + 34) < height then + self.frame:SetHeight(self.itemFrame:GetHeight() + 34) -- see :AddItem + end + end + + -- exported + local function GetRightBorderWidth(self) + return 6 + (self.slider:IsShown() and 12 or 0) + end + + -- exported + local function GetLeftBorderWidth(self) + return 6 + end + + --[[ Constructor ]]-- + + local function Constructor() + local count = AceGUI:GetNextWidgetNum(widgetType) + local frame = CreateFrame("Frame", "AceGUI30Pullout"..count, UIParent, BackdropTemplateMixin and "BackdropTemplate" or nil) + local self = {} + self.count = count + self.type = widgetType + self.frame = frame + frame.obj = self + + self.OnAcquire = OnAcquire + self.OnRelease = OnRelease + + self.AddItem = AddItem + self.Open = Open + self.Close = Close + self.Clear = Clear + self.IterateItems = IterateItems + self.SetHideOnLeave = SetHideOnLeave + + self.SetScroll = SetScroll + self.MoveScroll = MoveScroll + self.FixScroll = FixScroll + + self.SetMaxHeight = SetMaxHeight + self.GetRightBorderWidth = GetRightBorderWidth + self.GetLeftBorderWidth = GetLeftBorderWidth + + self.items = {} + + self.scrollStatus = { + scrollvalue = 0, + } + + self.maxHeight = defaultMaxHeight + + frame:SetBackdrop(backdrop) + frame:SetBackdropColor(0, 0, 0) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + frame:SetClampedToScreen(true) + frame:SetWidth(defaultWidth) + frame:SetHeight(self.maxHeight) + --frame:SetToplevel(true) + + -- NOTE: The whole scroll frame code is copied from the AceGUI-3.0 widget ScrollFrame + local scrollFrame = CreateFrame("ScrollFrame", nil, frame) + local itemFrame = CreateFrame("Frame", nil, scrollFrame) + + self.scrollFrame = scrollFrame + self.itemFrame = itemFrame + + scrollFrame.obj = self + itemFrame.obj = self + + local slider = CreateFrame("Slider", "AceGUI30PulloutScrollbar"..count, scrollFrame, BackdropTemplateMixin and "BackdropTemplate" or nil) + slider:SetOrientation("VERTICAL") + slider:SetHitRectInsets(0, 0, -10, 0) + slider:SetBackdrop(sliderBackdrop) + slider:SetWidth(8) + slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Vertical") + slider:SetFrameStrata("FULLSCREEN_DIALOG") + self.slider = slider + slider.obj = self + + scrollFrame:SetScrollChild(itemFrame) + scrollFrame:SetPoint("TOPLEFT", frame, "TOPLEFT", 6, -12) + scrollFrame:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -6, 12) + scrollFrame:EnableMouseWheel(true) + scrollFrame:SetScript("OnMouseWheel", OnMouseWheel) + scrollFrame:SetScript("OnSizeChanged", OnSizeChanged) + scrollFrame:SetToplevel(true) + scrollFrame:SetFrameStrata("FULLSCREEN_DIALOG") + + itemFrame:SetPoint("TOPLEFT", scrollFrame, "TOPLEFT", 0, 0) + itemFrame:SetPoint("TOPRIGHT", scrollFrame, "TOPRIGHT", -12, 0) + itemFrame:SetHeight(400) + itemFrame:SetToplevel(true) + itemFrame:SetFrameStrata("FULLSCREEN_DIALOG") + + slider:SetPoint("TOPLEFT", scrollFrame, "TOPRIGHT", -16, 0) + slider:SetPoint("BOTTOMLEFT", scrollFrame, "BOTTOMRIGHT", -16, 0) + slider:SetScript("OnValueChanged", OnScrollValueChanged) + slider:SetMinMaxValues(0, 1000) + slider:SetValueStep(1) + slider:SetValue(0) + + scrollFrame:Show() + itemFrame:Show() + slider:Hide() + + self:FixScroll() + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) +end + +do + local widgetType = "Dropdown" + local widgetVersion = 35 + + --[[ Static data ]]-- + + --[[ UI event handler ]]-- + + local function Control_OnEnter(this) + this.obj.button:LockHighlight() + this.obj:Fire("OnEnter") + end + + local function Control_OnLeave(this) + this.obj.button:UnlockHighlight() + this.obj:Fire("OnLeave") + end + + local function Dropdown_OnHide(this) + local self = this.obj + if self.open then + self.pullout:Close() + end + end + + local function Dropdown_TogglePullout(this) + local self = this.obj + PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON + if self.open then + self.open = nil + self.pullout:Close() + AceGUI:ClearFocus() + else + self.open = true + self.pullout:SetWidth(self.pulloutWidth or self.frame:GetWidth()) + self.pullout:Open("TOPLEFT", self.frame, "BOTTOMLEFT", 0, self.label:IsShown() and -2 or 0) + AceGUI:SetFocus(self) + end + end + + local function OnPulloutOpen(this) + local self = this.userdata.obj + local value = self.value + + if not self.multiselect then + for i, item in this:IterateItems() do + item:SetValue(item.userdata.value == value) + end + end + + self.open = true + self:Fire("OnOpened") + end + + local function OnPulloutClose(this) + local self = this.userdata.obj + self.open = nil + self:Fire("OnClosed") + end + + local function ShowMultiText(self) + local text + for i, widget in self.pullout:IterateItems() do + if widget.type == "Dropdown-Item-Toggle" then + if widget:GetValue() then + if text then + text = text..", "..widget:GetText() + else + text = widget:GetText() + end + end + end + end + self:SetText(text) + end + + local function OnItemValueChanged(this, event, checked) + local self = this.userdata.obj + + if self.multiselect then + self:Fire("OnValueChanged", this.userdata.value, checked) + ShowMultiText(self) + else + if checked then + self:SetValue(this.userdata.value) + self:Fire("OnValueChanged", this.userdata.value) + else + this:SetValue(true) + end + if self.open then + self.pullout:Close() + end + end + end + + --[[ Exported methods ]]-- + + -- exported, AceGUI callback + local function OnAcquire(self) + local pullout = AceGUI:Create("Dropdown-Pullout") + self.pullout = pullout + pullout.userdata.obj = self + pullout:SetCallback("OnClose", OnPulloutClose) + pullout:SetCallback("OnOpen", OnPulloutOpen) + self.pullout.frame:SetFrameLevel(self.frame:GetFrameLevel() + 1) + fixlevels(self.pullout.frame, self.pullout.frame:GetChildren()) + + self:SetHeight(44) + self:SetWidth(200) + self:SetLabel() + self:SetPulloutWidth(nil) + self.list = {} + end + + -- exported, AceGUI callback + local function OnRelease(self) + if self.open then + self.pullout:Close() + end + AceGUI:Release(self.pullout) + self.pullout = nil + + self:SetText("") + self:SetDisabled(false) + self:SetMultiselect(false) + + self.value = nil + self.list = nil + self.open = nil + self.hasClose = nil + + self.frame:ClearAllPoints() + self.frame:Hide() + end + + -- exported + local function SetDisabled(self, disabled) + self.disabled = disabled + if disabled then + self.text:SetTextColor(0.5,0.5,0.5) + self.button:Disable() + self.button_cover:Disable() + self.label:SetTextColor(0.5,0.5,0.5) + else + self.button:Enable() + self.button_cover:Enable() + self.label:SetTextColor(1,.82,0) + self.text:SetTextColor(1,1,1) + end + end + + -- exported + local function ClearFocus(self) + if self.open then + self.pullout:Close() + end + end + + -- exported + local function SetText(self, text) + self.text:SetText(text or "") + end + + -- exported + local function SetLabel(self, text) + if text and text ~= "" then + self.label:SetText(text) + self.label:Show() + self.dropdown:SetPoint("TOPLEFT",self.frame,"TOPLEFT",-15,-14) + self:SetHeight(40) + self.alignoffset = 26 + else + self.label:SetText("") + self.label:Hide() + self.dropdown:SetPoint("TOPLEFT",self.frame,"TOPLEFT",-15,0) + self:SetHeight(26) + self.alignoffset = 12 + end + end + + -- exported + local function SetValue(self, value) + self:SetText(self.list[value] or "") + self.value = value + end + + -- exported + local function GetValue(self) + return self.value + end + + -- exported + local function SetItemValue(self, item, value) + if not self.multiselect then return end + for i, widget in self.pullout:IterateItems() do + if widget.userdata.value == item then + if widget.SetValue then + widget:SetValue(value) + end + end + end + ShowMultiText(self) + end + + -- exported + local function SetItemDisabled(self, item, disabled) + for i, widget in self.pullout:IterateItems() do + if widget.userdata.value == item then + widget:SetDisabled(disabled) + end + end + end + + local function AddListItem(self, value, text, itemType) + if not itemType then itemType = "Dropdown-Item-Toggle" end + local exists = AceGUI:GetWidgetVersion(itemType) + if not exists then error(("The given item type, %q, does not exist within AceGUI-3.0"):format(tostring(itemType)), 2) end + + local item = AceGUI:Create(itemType) + item:SetText(text) + item.userdata.obj = self + item.userdata.value = value + item:SetCallback("OnValueChanged", OnItemValueChanged) + self.pullout:AddItem(item) + end + + local function AddCloseButton(self) + if not self.hasClose then + local close = AceGUI:Create("Dropdown-Item-Execute") + close:SetText(CLOSE) + self.pullout:AddItem(close) + self.hasClose = true + end + end + + -- exported + local sortlist = {} + local function sortTbl(x,y) + local num1, num2 = tonumber(x), tonumber(y) + if num1 and num2 then -- numeric comparison, either two numbers or numeric strings + return num1 < num2 + else -- compare everything else tostring'ed + return tostring(x) < tostring(y) + end + end + local function SetList(self, list, order, itemType) + self.list = list or {} + self.pullout:Clear() + self.hasClose = nil + if not list then return end + + if type(order) ~= "table" then + for v in pairs(list) do + sortlist[#sortlist + 1] = v + end + tsort(sortlist, sortTbl) + + for i, key in ipairs(sortlist) do + AddListItem(self, key, list[key], itemType) + sortlist[i] = nil + end + else + for i, key in ipairs(order) do + AddListItem(self, key, list[key], itemType) + end + end + if self.multiselect then + ShowMultiText(self) + AddCloseButton(self) + end + end + + -- exported + local function AddItem(self, value, text, itemType) + self.list[value] = text + AddListItem(self, value, text, itemType) + end + + -- exported + local function SetMultiselect(self, multi) + self.multiselect = multi + if multi then + ShowMultiText(self) + AddCloseButton(self) + end + end + + -- exported + local function GetMultiselect(self) + return self.multiselect + end + + local function SetPulloutWidth(self, width) + self.pulloutWidth = width + end + + --[[ Constructor ]]-- + + local function Constructor() + local count = AceGUI:GetNextWidgetNum(widgetType) + local frame = CreateFrame("Frame", nil, UIParent) + local dropdown = CreateFrame("Frame", "AceGUI30DropDown"..count, frame, "UIDropDownMenuTemplate") + + local self = {} + self.type = widgetType + self.frame = frame + self.dropdown = dropdown + self.count = count + frame.obj = self + dropdown.obj = self + + self.OnRelease = OnRelease + self.OnAcquire = OnAcquire + + self.ClearFocus = ClearFocus + + self.SetText = SetText + self.SetValue = SetValue + self.GetValue = GetValue + self.SetList = SetList + self.SetLabel = SetLabel + self.SetDisabled = SetDisabled + self.AddItem = AddItem + self.SetMultiselect = SetMultiselect + self.GetMultiselect = GetMultiselect + self.SetItemValue = SetItemValue + self.SetItemDisabled = SetItemDisabled + self.SetPulloutWidth = SetPulloutWidth + + self.alignoffset = 26 + + frame:SetScript("OnHide",Dropdown_OnHide) + + dropdown:ClearAllPoints() + dropdown:SetPoint("TOPLEFT",frame,"TOPLEFT",-15,0) + dropdown:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",17,0) + dropdown:SetScript("OnHide", nil) + + local left = _G[dropdown:GetName() .. "Left"] + local middle = _G[dropdown:GetName() .. "Middle"] + local right = _G[dropdown:GetName() .. "Right"] + + middle:ClearAllPoints() + right:ClearAllPoints() + + middle:SetPoint("LEFT", left, "RIGHT", 0, 0) + middle:SetPoint("RIGHT", right, "LEFT", 0, 0) + right:SetPoint("TOPRIGHT", dropdown, "TOPRIGHT", 0, 17) + + local button = _G[dropdown:GetName() .. "Button"] + self.button = button + button.obj = self + button:SetScript("OnEnter",Control_OnEnter) + button:SetScript("OnLeave",Control_OnLeave) + button:SetScript("OnClick",Dropdown_TogglePullout) + + local button_cover = CreateFrame("BUTTON",nil,self.frame) + self.button_cover = button_cover + button_cover.obj = self + button_cover:SetPoint("TOPLEFT",self.frame,"BOTTOMLEFT",0,25) + button_cover:SetPoint("BOTTOMRIGHT",self.frame,"BOTTOMRIGHT") + button_cover:SetScript("OnEnter",Control_OnEnter) + button_cover:SetScript("OnLeave",Control_OnLeave) + button_cover:SetScript("OnClick",Dropdown_TogglePullout) + + local text = _G[dropdown:GetName() .. "Text"] + self.text = text + text.obj = self + text:ClearAllPoints() + text:SetPoint("RIGHT", right, "RIGHT" ,-43, 2) + text:SetPoint("LEFT", left, "LEFT", 25, 2) + + local label = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall") + label:SetPoint("TOPLEFT",frame,"TOPLEFT",0,0) + label:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0) + label:SetJustifyH("LEFT") + label:SetHeight(18) + label:Hide() + self.label = label + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua new file mode 100644 index 0000000..29f7e00 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua @@ -0,0 +1,263 @@ +--[[----------------------------------------------------------------------------- +EditBox Widget +-------------------------------------------------------------------------------]] +local Type, Version = "EditBox", 28 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local tostring, pairs = tostring, pairs + +-- WoW APIs +local PlaySound = PlaySound +local GetCursorInfo, ClearCursor, GetSpellInfo = GetCursorInfo, ClearCursor, GetSpellInfo +local CreateFrame, UIParent = CreateFrame, UIParent +local _G = _G + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: AceGUIEditBoxInsertLink, ChatFontNormal, OKAY + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +if not AceGUIEditBoxInsertLink then + -- upgradeable hook + hooksecurefunc("ChatEdit_InsertLink", function(...) return _G.AceGUIEditBoxInsertLink(...) end) +end + +function _G.AceGUIEditBoxInsertLink(text) + for i = 1, AceGUI:GetWidgetCount(Type) do + local editbox = _G["AceGUI-3.0EditBox"..i] + if editbox and editbox:IsVisible() and editbox:HasFocus() then + editbox:Insert(text) + return true + end + end +end + +local function ShowButton(self) + if not self.disablebutton then + self.button:Show() + self.editbox:SetTextInsets(0, 20, 3, 3) + end +end + +local function HideButton(self) + self.button:Hide() + self.editbox:SetTextInsets(0, 0, 3, 3) +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function Frame_OnShowFocus(frame) + frame.obj.editbox:SetFocus() + frame:SetScript("OnShow", nil) +end + +local function EditBox_OnEscapePressed(frame) + AceGUI:ClearFocus() +end + +local function EditBox_OnEnterPressed(frame) + local self = frame.obj + local value = frame:GetText() + local cancel = self:Fire("OnEnterPressed", value) + if not cancel then + PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON + HideButton(self) + end +end + +local function EditBox_OnReceiveDrag(frame) + local self = frame.obj + local type, id, info = GetCursorInfo() + local name + if type == "item" then + name = info + elseif type == "spell" then + name = GetSpellInfo(id, info) + elseif type == "macro" then + name = GetMacroInfo(id) + end + if name then + self:SetText(name) + self:Fire("OnEnterPressed", name) + ClearCursor() + HideButton(self) + AceGUI:ClearFocus() + end +end + +local function EditBox_OnTextChanged(frame) + local self = frame.obj + local value = frame:GetText() + if tostring(value) ~= tostring(self.lasttext) then + self:Fire("OnTextChanged", value) + self.lasttext = value + ShowButton(self) + end +end + +local function EditBox_OnFocusGained(frame) + AceGUI:SetFocus(frame.obj) +end + +local function Button_OnClick(frame) + local editbox = frame.obj.editbox + editbox:ClearFocus() + EditBox_OnEnterPressed(editbox) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + -- height is controlled by SetLabel + self:SetWidth(200) + self:SetDisabled(false) + self:SetLabel() + self:SetText() + self:DisableButton(false) + self:SetMaxLetters(0) + end, + + ["OnRelease"] = function(self) + self:ClearFocus() + end, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.editbox:EnableMouse(false) + self.editbox:ClearFocus() + self.editbox:SetTextColor(0.5,0.5,0.5) + self.label:SetTextColor(0.5,0.5,0.5) + else + self.editbox:EnableMouse(true) + self.editbox:SetTextColor(1,1,1) + self.label:SetTextColor(1,.82,0) + end + end, + + ["SetText"] = function(self, text) + self.lasttext = text or "" + self.editbox:SetText(text or "") + self.editbox:SetCursorPosition(0) + HideButton(self) + end, + + ["GetText"] = function(self, text) + return self.editbox:GetText() + end, + + ["SetLabel"] = function(self, text) + if text and text ~= "" then + self.label:SetText(text) + self.label:Show() + self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,-18) + self:SetHeight(44) + self.alignoffset = 30 + else + self.label:SetText("") + self.label:Hide() + self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,0) + self:SetHeight(26) + self.alignoffset = 12 + end + end, + + ["DisableButton"] = function(self, disabled) + self.disablebutton = disabled + if disabled then + HideButton(self) + end + end, + + ["SetMaxLetters"] = function (self, num) + self.editbox:SetMaxLetters(num or 0) + end, + + ["ClearFocus"] = function(self) + self.editbox:ClearFocus() + self.frame:SetScript("OnShow", nil) + end, + + ["SetFocus"] = function(self) + self.editbox:SetFocus() + if not self.frame:IsShown() then + self.frame:SetScript("OnShow", Frame_OnShowFocus) + end + end, + + ["HighlightText"] = function(self, from, to) + self.editbox:HighlightText(from, to) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local num = AceGUI:GetNextWidgetNum(Type) + local frame = CreateFrame("Frame", nil, UIParent) + frame:Hide() + + local editbox = CreateFrame("EditBox", "AceGUI-3.0EditBox"..num, frame, "InputBoxTemplate") + editbox:SetAutoFocus(false) + editbox:SetFontObject(ChatFontNormal) + editbox:SetScript("OnEnter", Control_OnEnter) + editbox:SetScript("OnLeave", Control_OnLeave) + editbox:SetScript("OnEscapePressed", EditBox_OnEscapePressed) + editbox:SetScript("OnEnterPressed", EditBox_OnEnterPressed) + editbox:SetScript("OnTextChanged", EditBox_OnTextChanged) + editbox:SetScript("OnReceiveDrag", EditBox_OnReceiveDrag) + editbox:SetScript("OnMouseDown", EditBox_OnReceiveDrag) + editbox:SetScript("OnEditFocusGained", EditBox_OnFocusGained) + editbox:SetTextInsets(0, 0, 3, 3) + editbox:SetMaxLetters(256) + editbox:SetPoint("BOTTOMLEFT", 6, 0) + editbox:SetPoint("BOTTOMRIGHT") + editbox:SetHeight(19) + + local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall") + label:SetPoint("TOPLEFT", 0, -2) + label:SetPoint("TOPRIGHT", 0, -2) + label:SetJustifyH("LEFT") + label:SetHeight(18) + + local button = CreateFrame("Button", nil, editbox, "UIPanelButtonTemplate") + button:SetWidth(40) + button:SetHeight(20) + button:SetPoint("RIGHT", -2, 0) + button:SetText(OKAY) + button:SetScript("OnClick", Button_OnClick) + button:Hide() + + local widget = { + alignoffset = 30, + editbox = editbox, + label = label, + button = button, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + editbox.obj, button.obj = widget, widget + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua new file mode 100644 index 0000000..862ae88 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua @@ -0,0 +1,78 @@ +--[[----------------------------------------------------------------------------- +Heading Widget +-------------------------------------------------------------------------------]] +local Type, Version = "Heading", 20 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetText() + self:SetFullWidth() + self:SetHeight(18) + end, + + -- ["OnRelease"] = nil, + + ["SetText"] = function(self, text) + self.label:SetText(text or "") + if text and text ~= "" then + self.left:SetPoint("RIGHT", self.label, "LEFT", -5, 0) + self.right:Show() + else + self.left:SetPoint("RIGHT", -3, 0) + self.right:Hide() + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + frame:Hide() + + local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontNormal") + label:SetPoint("TOP") + label:SetPoint("BOTTOM") + label:SetJustifyH("CENTER") + + local left = frame:CreateTexture(nil, "BACKGROUND") + left:SetHeight(8) + left:SetPoint("LEFT", 3, 0) + left:SetPoint("RIGHT", label, "LEFT", -5, 0) + left:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + left:SetTexCoord(0.81, 0.94, 0.5, 1) + + local right = frame:CreateTexture(nil, "BACKGROUND") + right:SetHeight(8) + right:SetPoint("RIGHT", -3, 0) + right:SetPoint("LEFT", label, "RIGHT", 5, 0) + right:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + right:SetTexCoord(0.81, 0.94, 0.5, 1) + + local widget = { + label = label, + left = left, + right = right, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua new file mode 100644 index 0000000..378e813 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua @@ -0,0 +1,140 @@ +--[[----------------------------------------------------------------------------- +Icon Widget +-------------------------------------------------------------------------------]] +local Type, Version = "Icon", 21 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local select, pairs, print = select, pairs, print + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function Button_OnClick(frame, button) + frame.obj:Fire("OnClick", button) + AceGUI:ClearFocus() +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetHeight(110) + self:SetWidth(110) + self:SetLabel() + self:SetImage(nil) + self:SetImageSize(64, 64) + self:SetDisabled(false) + end, + + -- ["OnRelease"] = nil, + + ["SetLabel"] = function(self, text) + if text and text ~= "" then + self.label:Show() + self.label:SetText(text) + self:SetHeight(self.image:GetHeight() + 25) + else + self.label:Hide() + self:SetHeight(self.image:GetHeight() + 10) + end + end, + + ["SetImage"] = function(self, path, ...) + local image = self.image + image:SetTexture(path) + + if image:GetTexture() then + local n = select("#", ...) + if n == 4 or n == 8 then + image:SetTexCoord(...) + else + image:SetTexCoord(0, 1, 0, 1) + end + end + end, + + ["SetImageSize"] = function(self, width, height) + self.image:SetWidth(width) + self.image:SetHeight(height) + --self.frame:SetWidth(width + 30) + if self.label:IsShown() then + self:SetHeight(height + 25) + else + self:SetHeight(height + 10) + end + end, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.frame:Disable() + self.label:SetTextColor(0.5, 0.5, 0.5) + self.image:SetVertexColor(0.5, 0.5, 0.5, 0.5) + else + self.frame:Enable() + self.label:SetTextColor(1, 1, 1) + self.image:SetVertexColor(1, 1, 1, 1) + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Button", nil, UIParent) + frame:Hide() + + frame:EnableMouse(true) + frame:SetScript("OnEnter", Control_OnEnter) + frame:SetScript("OnLeave", Control_OnLeave) + frame:SetScript("OnClick", Button_OnClick) + + local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontHighlight") + label:SetPoint("BOTTOMLEFT") + label:SetPoint("BOTTOMRIGHT") + label:SetJustifyH("CENTER") + label:SetJustifyV("TOP") + label:SetHeight(18) + + local image = frame:CreateTexture(nil, "BACKGROUND") + image:SetWidth(64) + image:SetHeight(64) + image:SetPoint("TOP", 0, -5) + + local highlight = frame:CreateTexture(nil, "HIGHLIGHT") + highlight:SetAllPoints(image) + highlight:SetTexture(136580) -- Interface\\PaperDollInfoFrame\\UI-Character-Tab-Highlight + highlight:SetTexCoord(0, 1, 0.23, 0.77) + highlight:SetBlendMode("ADD") + + local widget = { + label = label, + image = image, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + widget.SetText = function(self, ...) print("AceGUI-3.0-Icon: SetText is deprecated! Use SetLabel instead!"); self:SetLabel(...) end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua new file mode 100644 index 0000000..255dd97 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua @@ -0,0 +1,94 @@ +--[[----------------------------------------------------------------------------- +InteractiveLabel Widget +-------------------------------------------------------------------------------]] +local Type, Version = "InteractiveLabel", 21 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local select, pairs = select, pairs + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function Label_OnClick(frame, button) + frame.obj:Fire("OnClick", button) + AceGUI:ClearFocus() +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:LabelOnAcquire() + self:SetHighlight() + self:SetHighlightTexCoord() + self:SetDisabled(false) + end, + + -- ["OnRelease"] = nil, + + ["SetHighlight"] = function(self, ...) + self.highlight:SetTexture(...) + end, + + ["SetHighlightTexCoord"] = function(self, ...) + local c = select("#", ...) + if c == 4 or c == 8 then + self.highlight:SetTexCoord(...) + else + self.highlight:SetTexCoord(0, 1, 0, 1) + end + end, + + ["SetDisabled"] = function(self,disabled) + self.disabled = disabled + if disabled then + self.frame:EnableMouse(false) + self.label:SetTextColor(0.5, 0.5, 0.5) + else + self.frame:EnableMouse(true) + self.label:SetTextColor(1, 1, 1) + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + -- create a Label type that we will hijack + local label = AceGUI:Create("Label") + + local frame = label.frame + frame:EnableMouse(true) + frame:SetScript("OnEnter", Control_OnEnter) + frame:SetScript("OnLeave", Control_OnLeave) + frame:SetScript("OnMouseDown", Label_OnClick) + + local highlight = frame:CreateTexture(nil, "HIGHLIGHT") + highlight:SetTexture(nil) + highlight:SetAllPoints() + highlight:SetBlendMode("ADD") + + label.highlight = highlight + label.type = Type + label.LabelOnAcquire = label.OnAcquire + for method, func in pairs(methods) do + label[method] = func + end + + return label +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) + diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua new file mode 100644 index 0000000..17a3c0b --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua @@ -0,0 +1,249 @@ +--[[----------------------------------------------------------------------------- +Keybinding Widget +Set Keybindings in the Config UI. +-------------------------------------------------------------------------------]] +local Type, Version = "Keybinding", 26 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local IsShiftKeyDown, IsControlKeyDown, IsAltKeyDown = IsShiftKeyDown, IsControlKeyDown, IsAltKeyDown +local CreateFrame, UIParent = CreateFrame, UIParent + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: NOT_BOUND + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] + +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function Keybinding_OnClick(frame, button) + if button == "LeftButton" or button == "RightButton" then + local self = frame.obj + if self.waitingForKey then + frame:EnableKeyboard(false) + frame:EnableMouseWheel(false) + self.msgframe:Hide() + frame:UnlockHighlight() + self.waitingForKey = nil + else + frame:EnableKeyboard(true) + frame:EnableMouseWheel(true) + self.msgframe:Show() + frame:LockHighlight() + self.waitingForKey = true + end + end + AceGUI:ClearFocus() +end + +local ignoreKeys = { + ["BUTTON1"] = true, ["BUTTON2"] = true, + ["UNKNOWN"] = true, + ["LSHIFT"] = true, ["LCTRL"] = true, ["LALT"] = true, + ["RSHIFT"] = true, ["RCTRL"] = true, ["RALT"] = true, +} +local function Keybinding_OnKeyDown(frame, key) + local self = frame.obj + if self.waitingForKey then + local keyPressed = key + if keyPressed == "ESCAPE" then + keyPressed = "" + else + if ignoreKeys[keyPressed] then return end + if IsShiftKeyDown() then + keyPressed = "SHIFT-"..keyPressed + end + if IsControlKeyDown() then + keyPressed = "CTRL-"..keyPressed + end + if IsAltKeyDown() then + keyPressed = "ALT-"..keyPressed + end + end + + frame:EnableKeyboard(false) + frame:EnableMouseWheel(false) + self.msgframe:Hide() + frame:UnlockHighlight() + self.waitingForKey = nil + + if not self.disabled then + self:SetKey(keyPressed) + self:Fire("OnKeyChanged", keyPressed) + end + end +end + +local function Keybinding_OnMouseDown(frame, button) + if button == "LeftButton" or button == "RightButton" then + return + elseif button == "MiddleButton" then + button = "BUTTON3" + elseif button == "Button4" then + button = "BUTTON4" + elseif button == "Button5" then + button = "BUTTON5" + end + Keybinding_OnKeyDown(frame, button) +end + +local function Keybinding_OnMouseWheel(frame, direction) + local button + if direction >= 0 then + button = "MOUSEWHEELUP" + else + button = "MOUSEWHEELDOWN" + end + Keybinding_OnKeyDown(frame, button) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetWidth(200) + self:SetLabel("") + self:SetKey("") + self.waitingForKey = nil + self.msgframe:Hide() + self:SetDisabled(false) + self.button:EnableKeyboard(false) + self.button:EnableMouseWheel(false) + end, + + -- ["OnRelease"] = nil, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.button:Disable() + self.label:SetTextColor(0.5,0.5,0.5) + else + self.button:Enable() + self.label:SetTextColor(1,1,1) + end + end, + + ["SetKey"] = function(self, key) + if (key or "") == "" then + self.button:SetText(NOT_BOUND) + self.button:SetNormalFontObject("GameFontNormal") + else + self.button:SetText(key) + self.button:SetNormalFontObject("GameFontHighlight") + end + end, + + ["GetKey"] = function(self) + local key = self.button:GetText() + if key == NOT_BOUND then + key = nil + end + return key + end, + + ["SetLabel"] = function(self, label) + self.label:SetText(label or "") + if (label or "") == "" then + self.alignoffset = nil + self:SetHeight(24) + else + self.alignoffset = 30 + self:SetHeight(44) + end + end, +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] + +local ControlBackdrop = { + bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 3, bottom = 3 } +} + +local function keybindingMsgFixWidth(frame) + frame:SetWidth(frame.msg:GetWidth() + 10) + frame:SetScript("OnUpdate", nil) +end + +local function Constructor() + local name = "AceGUI30KeybindingButton" .. AceGUI:GetNextWidgetNum(Type) + + local frame = CreateFrame("Frame", nil, UIParent) + local button = CreateFrame("Button", name, frame, "UIPanelButtonTemplate") + + button:EnableMouse(true) + button:EnableMouseWheel(false) + button:RegisterForClicks("AnyDown") + button:SetScript("OnEnter", Control_OnEnter) + button:SetScript("OnLeave", Control_OnLeave) + button:SetScript("OnClick", Keybinding_OnClick) + button:SetScript("OnKeyDown", Keybinding_OnKeyDown) + button:SetScript("OnMouseDown", Keybinding_OnMouseDown) + button:SetScript("OnMouseWheel", Keybinding_OnMouseWheel) + button:SetPoint("BOTTOMLEFT") + button:SetPoint("BOTTOMRIGHT") + button:SetHeight(24) + button:EnableKeyboard(false) + + local text = button:GetFontString() + text:SetPoint("LEFT", 7, 0) + text:SetPoint("RIGHT", -7, 0) + + local label = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight") + label:SetPoint("TOPLEFT") + label:SetPoint("TOPRIGHT") + label:SetJustifyH("CENTER") + label:SetHeight(18) + + local msgframe = CreateFrame("Frame", nil, UIParent, BackdropTemplateMixin and "BackdropTemplate" or nil) + msgframe:SetHeight(30) + msgframe:SetBackdrop(ControlBackdrop) + msgframe:SetBackdropColor(0,0,0) + msgframe:SetFrameStrata("FULLSCREEN_DIALOG") + msgframe:SetFrameLevel(1000) + msgframe:SetToplevel(true) + + local msg = msgframe:CreateFontString(nil, "OVERLAY", "GameFontNormal") + msg:SetText("Press a key to bind, ESC to clear the binding or click the button again to cancel.") + msgframe.msg = msg + msg:SetPoint("TOPLEFT", 5, -5) + msgframe:SetScript("OnUpdate", keybindingMsgFixWidth) + msgframe:SetPoint("BOTTOM", button, "TOP") + msgframe:Hide() + + local widget = { + button = button, + label = label, + msgframe = msgframe, + frame = frame, + alignoffset = 30, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + button.obj = widget + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua new file mode 100644 index 0000000..5c75f3b --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua @@ -0,0 +1,179 @@ +--[[----------------------------------------------------------------------------- +Label Widget +Displays text and optionally an icon. +-------------------------------------------------------------------------------]] +local Type, Version = "Label", 27 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local max, select, pairs = math.max, select, pairs + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: GameFontHighlightSmall + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] + +local function UpdateImageAnchor(self) + if self.resizing then return end + local frame = self.frame + local width = frame.width or frame:GetWidth() or 0 + local image = self.image + local label = self.label + local height + + label:ClearAllPoints() + image:ClearAllPoints() + + if self.imageshown then + local imagewidth = image:GetWidth() + if (width - imagewidth) < 200 or (label:GetText() or "") == "" then + -- image goes on top centered when less than 200 width for the text, or if there is no text + image:SetPoint("TOP") + label:SetPoint("TOP", image, "BOTTOM") + label:SetPoint("LEFT") + label:SetWidth(width) + height = image:GetHeight() + label:GetStringHeight() + else + -- image on the left + image:SetPoint("TOPLEFT") + if image:GetHeight() > label:GetStringHeight() then + label:SetPoint("LEFT", image, "RIGHT", 4, 0) + else + label:SetPoint("TOPLEFT", image, "TOPRIGHT", 4, 0) + end + label:SetWidth(width - imagewidth - 4) + height = max(image:GetHeight(), label:GetStringHeight()) + end + else + -- no image shown + label:SetPoint("TOPLEFT") + label:SetWidth(width) + height = label:GetStringHeight() + end + + -- avoid zero-height labels, since they can used as spacers + if not height or height == 0 then + height = 1 + end + + self.resizing = true + frame:SetHeight(height) + frame.height = height + self.resizing = nil +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + -- set the flag to stop constant size updates + self.resizing = true + -- height is set dynamically by the text and image size + self:SetWidth(200) + self:SetText() + self:SetImage(nil) + self:SetImageSize(16, 16) + self:SetColor() + self:SetFontObject() + self:SetJustifyH("LEFT") + self:SetJustifyV("TOP") + + -- reset the flag + self.resizing = nil + -- run the update explicitly + UpdateImageAnchor(self) + end, + + -- ["OnRelease"] = nil, + + ["OnWidthSet"] = function(self, width) + UpdateImageAnchor(self) + end, + + ["SetText"] = function(self, text) + self.label:SetText(text) + UpdateImageAnchor(self) + end, + + ["SetColor"] = function(self, r, g, b) + if not (r and g and b) then + r, g, b = 1, 1, 1 + end + self.label:SetVertexColor(r, g, b) + end, + + ["SetImage"] = function(self, path, ...) + local image = self.image + image:SetTexture(path) + + if image:GetTexture() then + self.imageshown = true + local n = select("#", ...) + if n == 4 or n == 8 then + image:SetTexCoord(...) + else + image:SetTexCoord(0, 1, 0, 1) + end + else + self.imageshown = nil + end + UpdateImageAnchor(self) + end, + + ["SetFont"] = function(self, font, height, flags) + self.label:SetFont(font, height, flags) + UpdateImageAnchor(self) + end, + + ["SetFontObject"] = function(self, font) + self:SetFont((font or GameFontHighlightSmall):GetFont()) + end, + + ["SetImageSize"] = function(self, width, height) + self.image:SetWidth(width) + self.image:SetHeight(height) + UpdateImageAnchor(self) + end, + + ["SetJustifyH"] = function(self, justifyH) + self.label:SetJustifyH(justifyH) + end, + + ["SetJustifyV"] = function(self, justifyV) + self.label:SetJustifyV(justifyV) + end, +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + frame:Hide() + + local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontHighlightSmall") + local image = frame:CreateTexture(nil, "BACKGROUND") + + -- create widget + local widget = { + label = label, + image = image, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua new file mode 100644 index 0000000..0e953ab --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua @@ -0,0 +1,366 @@ +local Type, Version = "MultiLineEditBox", 29 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local GetCursorInfo, GetSpellInfo, ClearCursor = GetCursorInfo, GetSpellInfo, ClearCursor +local CreateFrame, UIParent = CreateFrame, UIParent +local _G = _G + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: ACCEPT, ChatFontNormal + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] + +if not AceGUIMultiLineEditBoxInsertLink then + -- upgradeable hook + hooksecurefunc("ChatEdit_InsertLink", function(...) return _G.AceGUIMultiLineEditBoxInsertLink(...) end) +end + +function _G.AceGUIMultiLineEditBoxInsertLink(text) + for i = 1, AceGUI:GetWidgetCount(Type) do + local editbox = _G[("MultiLineEditBox%uEdit"):format(i)] + if editbox and editbox:IsVisible() and editbox:HasFocus() then + editbox:Insert(text) + return true + end + end +end + + +local function Layout(self) + self:SetHeight(self.numlines * 14 + (self.disablebutton and 19 or 41) + self.labelHeight) + + if self.labelHeight == 0 then + self.scrollBar:SetPoint("TOP", self.frame, "TOP", 0, -23) + else + self.scrollBar:SetPoint("TOP", self.label, "BOTTOM", 0, -19) + end + + if self.disablebutton then + self.scrollBar:SetPoint("BOTTOM", self.frame, "BOTTOM", 0, 21) + self.scrollBG:SetPoint("BOTTOMLEFT", 0, 4) + else + self.scrollBar:SetPoint("BOTTOM", self.button, "TOP", 0, 18) + self.scrollBG:SetPoint("BOTTOMLEFT", self.button, "TOPLEFT") + end +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function OnClick(self) -- Button + self = self.obj + self.editBox:ClearFocus() + if not self:Fire("OnEnterPressed", self.editBox:GetText()) then + self.button:Disable() + end +end + +local function OnCursorChanged(self, _, y, _, cursorHeight) -- EditBox + self, y = self.obj.scrollFrame, -y + local offset = self:GetVerticalScroll() + if y < offset then + self:SetVerticalScroll(y) + else + y = y + cursorHeight - self:GetHeight() + if y > offset then + self:SetVerticalScroll(y) + end + end +end + +local function OnEditFocusLost(self) -- EditBox + self:HighlightText(0, 0) + self.obj:Fire("OnEditFocusLost") +end + +local function OnEnter(self) -- EditBox / ScrollFrame + self = self.obj + if not self.entered then + self.entered = true + self:Fire("OnEnter") + end +end + +local function OnLeave(self) -- EditBox / ScrollFrame + self = self.obj + if self.entered then + self.entered = nil + self:Fire("OnLeave") + end +end + +local function OnMouseUp(self) -- ScrollFrame + self = self.obj.editBox + self:SetFocus() + self:SetCursorPosition(self:GetNumLetters()) +end + +local function OnReceiveDrag(self) -- EditBox / ScrollFrame + local type, id, info = GetCursorInfo() + if type == "spell" then + info = GetSpellInfo(id, info) + elseif type ~= "item" then + return + end + ClearCursor() + self = self.obj + local editBox = self.editBox + if not editBox:HasFocus() then + editBox:SetFocus() + editBox:SetCursorPosition(editBox:GetNumLetters()) + end + editBox:Insert(info) + self.button:Enable() +end + +local function OnSizeChanged(self, width, height) -- ScrollFrame + self.obj.editBox:SetWidth(width) +end + +local function OnTextChanged(self, userInput) -- EditBox + if userInput then + self = self.obj + self:Fire("OnTextChanged", self.editBox:GetText()) + self.button:Enable() + end +end + +local function OnTextSet(self) -- EditBox + self:HighlightText(0, 0) + self:SetCursorPosition(self:GetNumLetters()) + self:SetCursorPosition(0) + self.obj.button:Disable() +end + +local function OnVerticalScroll(self, offset) -- ScrollFrame + local editBox = self.obj.editBox + editBox:SetHitRectInsets(0, 0, offset, editBox:GetHeight() - offset - self:GetHeight()) +end + +local function OnShowFocus(frame) + frame.obj.editBox:SetFocus() + frame:SetScript("OnShow", nil) +end + +local function OnEditFocusGained(frame) + AceGUI:SetFocus(frame.obj) + frame.obj:Fire("OnEditFocusGained") +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self.editBox:SetText("") + self:SetDisabled(false) + self:SetWidth(200) + self:DisableButton(false) + self:SetNumLines() + self.entered = nil + self:SetMaxLetters(0) + end, + + ["OnRelease"] = function(self) + self:ClearFocus() + end, + + ["SetDisabled"] = function(self, disabled) + local editBox = self.editBox + if disabled then + editBox:ClearFocus() + editBox:EnableMouse(false) + editBox:SetTextColor(0.5, 0.5, 0.5) + self.label:SetTextColor(0.5, 0.5, 0.5) + self.scrollFrame:EnableMouse(false) + self.button:Disable() + else + editBox:EnableMouse(true) + editBox:SetTextColor(1, 1, 1) + self.label:SetTextColor(1, 0.82, 0) + self.scrollFrame:EnableMouse(true) + end + end, + + ["SetLabel"] = function(self, text) + if text and text ~= "" then + self.label:SetText(text) + if self.labelHeight ~= 10 then + self.labelHeight = 10 + self.label:Show() + end + elseif self.labelHeight ~= 0 then + self.labelHeight = 0 + self.label:Hide() + end + Layout(self) + end, + + ["SetNumLines"] = function(self, value) + if not value or value < 4 then + value = 4 + end + self.numlines = value + Layout(self) + end, + + ["SetText"] = function(self, text) + self.editBox:SetText(text) + end, + + ["GetText"] = function(self) + return self.editBox:GetText() + end, + + ["SetMaxLetters"] = function (self, num) + self.editBox:SetMaxLetters(num or 0) + end, + + ["DisableButton"] = function(self, disabled) + self.disablebutton = disabled + if disabled then + self.button:Hide() + else + self.button:Show() + end + Layout(self) + end, + + ["ClearFocus"] = function(self) + self.editBox:ClearFocus() + self.frame:SetScript("OnShow", nil) + end, + + ["SetFocus"] = function(self) + self.editBox:SetFocus() + if not self.frame:IsShown() then + self.frame:SetScript("OnShow", OnShowFocus) + end + end, + + ["HighlightText"] = function(self, from, to) + self.editBox:HighlightText(from, to) + end, + + ["GetCursorPosition"] = function(self) + return self.editBox:GetCursorPosition() + end, + + ["SetCursorPosition"] = function(self, ...) + return self.editBox:SetCursorPosition(...) + end, + + +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local backdrop = { + bgFile = [[Interface\Tooltips\UI-Tooltip-Background]], + edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]], edgeSize = 16, + insets = { left = 4, right = 3, top = 4, bottom = 3 } +} + +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + frame:Hide() + + local widgetNum = AceGUI:GetNextWidgetNum(Type) + + local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall") + label:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, -4) + label:SetPoint("TOPRIGHT", frame, "TOPRIGHT", 0, -4) + label:SetJustifyH("LEFT") + label:SetText(ACCEPT) + label:SetHeight(10) + + local button = CreateFrame("Button", ("%s%dButton"):format(Type, widgetNum), frame, "UIPanelButtonTemplate") + button:SetPoint("BOTTOMLEFT", 0, 4) + button:SetHeight(22) + button:SetWidth(label:GetStringWidth() + 24) + button:SetText(ACCEPT) + button:SetScript("OnClick", OnClick) + button:Disable() + + local text = button:GetFontString() + text:ClearAllPoints() + text:SetPoint("TOPLEFT", button, "TOPLEFT", 5, -5) + text:SetPoint("BOTTOMRIGHT", button, "BOTTOMRIGHT", -5, 1) + text:SetJustifyV("MIDDLE") + + local scrollBG = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) + scrollBG:SetBackdrop(backdrop) + scrollBG:SetBackdropColor(0, 0, 0) + scrollBG:SetBackdropBorderColor(0.4, 0.4, 0.4) + + local scrollFrame = CreateFrame("ScrollFrame", ("%s%dScrollFrame"):format(Type, widgetNum), frame, "UIPanelScrollFrameTemplate") + + local scrollBar = _G[scrollFrame:GetName() .. "ScrollBar"] + scrollBar:ClearAllPoints() + scrollBar:SetPoint("TOP", label, "BOTTOM", 0, -19) + scrollBar:SetPoint("BOTTOM", button, "TOP", 0, 18) + scrollBar:SetPoint("RIGHT", frame, "RIGHT") + + scrollBG:SetPoint("TOPRIGHT", scrollBar, "TOPLEFT", 0, 19) + scrollBG:SetPoint("BOTTOMLEFT", button, "TOPLEFT") + + scrollFrame:SetPoint("TOPLEFT", scrollBG, "TOPLEFT", 5, -6) + scrollFrame:SetPoint("BOTTOMRIGHT", scrollBG, "BOTTOMRIGHT", -4, 4) + scrollFrame:SetScript("OnEnter", OnEnter) + scrollFrame:SetScript("OnLeave", OnLeave) + scrollFrame:SetScript("OnMouseUp", OnMouseUp) + scrollFrame:SetScript("OnReceiveDrag", OnReceiveDrag) + scrollFrame:SetScript("OnSizeChanged", OnSizeChanged) + scrollFrame:HookScript("OnVerticalScroll", OnVerticalScroll) + + local editBox = CreateFrame("EditBox", ("%s%dEdit"):format(Type, widgetNum), scrollFrame) + editBox:SetAllPoints() + editBox:SetFontObject(ChatFontNormal) + editBox:SetMultiLine(true) + editBox:EnableMouse(true) + editBox:SetAutoFocus(false) + editBox:SetCountInvisibleLetters(false) + editBox:SetScript("OnCursorChanged", OnCursorChanged) + editBox:SetScript("OnEditFocusLost", OnEditFocusLost) + editBox:SetScript("OnEnter", OnEnter) + editBox:SetScript("OnEscapePressed", editBox.ClearFocus) + editBox:SetScript("OnLeave", OnLeave) + editBox:SetScript("OnMouseDown", OnReceiveDrag) + editBox:SetScript("OnReceiveDrag", OnReceiveDrag) + editBox:SetScript("OnTextChanged", OnTextChanged) + editBox:SetScript("OnTextSet", OnTextSet) + editBox:SetScript("OnEditFocusGained", OnEditFocusGained) + + + scrollFrame:SetScrollChild(editBox) + + local widget = { + button = button, + editBox = editBox, + frame = frame, + label = label, + labelHeight = 10, + numlines = 4, + scrollBar = scrollBar, + scrollBG = scrollBG, + scrollFrame = scrollFrame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + button.obj, editBox.obj, scrollFrame.obj = widget, widget, widget + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua new file mode 100644 index 0000000..9f26d2d --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua @@ -0,0 +1,284 @@ +--[[----------------------------------------------------------------------------- +Slider Widget +Graphical Slider, like, for Range values. +-------------------------------------------------------------------------------]] +local Type, Version = "Slider", 23 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local min, max, floor = math.min, math.max, math.floor +local tonumber, pairs = tonumber, pairs + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame, UIParent = CreateFrame, UIParent + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: GameFontHighlightSmall + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function UpdateText(self) + local value = self.value or 0 + if self.ispercent then + self.editbox:SetText(("%s%%"):format(floor(value * 1000 + 0.5) / 10)) + else + self.editbox:SetText(floor(value * 100 + 0.5) / 100) + end +end + +local function UpdateLabels(self) + local min, max = (self.min or 0), (self.max or 100) + if self.ispercent then + self.lowtext:SetFormattedText("%s%%", (min * 100)) + self.hightext:SetFormattedText("%s%%", (max * 100)) + else + self.lowtext:SetText(min) + self.hightext:SetText(max) + end +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function Frame_OnMouseDown(frame) + frame.obj.slider:EnableMouseWheel(true) + AceGUI:ClearFocus() +end + +local function Slider_OnValueChanged(frame, newvalue) + local self = frame.obj + if not frame.setup then + if self.step and self.step > 0 then + local min_value = self.min or 0 + newvalue = floor((newvalue - min_value) / self.step + 0.5) * self.step + min_value + end + if newvalue ~= self.value and not self.disabled then + self.value = newvalue + self:Fire("OnValueChanged", newvalue) + end + if self.value then + UpdateText(self) + end + end +end + +local function Slider_OnMouseUp(frame) + local self = frame.obj + self:Fire("OnMouseUp", self.value) +end + +local function Slider_OnMouseWheel(frame, v) + local self = frame.obj + if not self.disabled then + local value = self.value + if v > 0 then + value = min(value + (self.step or 1), self.max) + else + value = max(value - (self.step or 1), self.min) + end + self.slider:SetValue(value) + end +end + +local function EditBox_OnEscapePressed(frame) + frame:ClearFocus() +end + +local function EditBox_OnEnterPressed(frame) + local self = frame.obj + local value = frame:GetText() + if self.ispercent then + value = value:gsub('%%', '') + value = tonumber(value) / 100 + else + value = tonumber(value) + end + + if value then + PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON + self.slider:SetValue(value) + self:Fire("OnMouseUp", value) + end +end + +local function EditBox_OnEnter(frame) + frame:SetBackdropBorderColor(0.5, 0.5, 0.5, 1) +end + +local function EditBox_OnLeave(frame) + frame:SetBackdropBorderColor(0.3, 0.3, 0.3, 0.8) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetWidth(200) + self:SetHeight(44) + self:SetDisabled(false) + self:SetIsPercent(nil) + self:SetSliderValues(0,100,1) + self:SetValue(0) + self.slider:EnableMouseWheel(false) + end, + + -- ["OnRelease"] = nil, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.slider:EnableMouse(false) + self.label:SetTextColor(.5, .5, .5) + self.hightext:SetTextColor(.5, .5, .5) + self.lowtext:SetTextColor(.5, .5, .5) + --self.valuetext:SetTextColor(.5, .5, .5) + self.editbox:SetTextColor(.5, .5, .5) + self.editbox:EnableMouse(false) + self.editbox:ClearFocus() + else + self.slider:EnableMouse(true) + self.label:SetTextColor(1, .82, 0) + self.hightext:SetTextColor(1, 1, 1) + self.lowtext:SetTextColor(1, 1, 1) + --self.valuetext:SetTextColor(1, 1, 1) + self.editbox:SetTextColor(1, 1, 1) + self.editbox:EnableMouse(true) + end + end, + + ["SetValue"] = function(self, value) + self.slider.setup = true + self.slider:SetValue(value) + self.value = value + UpdateText(self) + self.slider.setup = nil + end, + + ["GetValue"] = function(self) + return self.value + end, + + ["SetLabel"] = function(self, text) + self.label:SetText(text) + end, + + ["SetSliderValues"] = function(self, min, max, step) + local frame = self.slider + frame.setup = true + self.min = min + self.max = max + self.step = step + frame:SetMinMaxValues(min or 0,max or 100) + UpdateLabels(self) + frame:SetValueStep(step or 1) + if self.value then + frame:SetValue(self.value) + end + frame.setup = nil + end, + + ["SetIsPercent"] = function(self, value) + self.ispercent = value + UpdateLabels(self) + UpdateText(self) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local SliderBackdrop = { + bgFile = "Interface\\Buttons\\UI-SliderBar-Background", + edgeFile = "Interface\\Buttons\\UI-SliderBar-Border", + tile = true, tileSize = 8, edgeSize = 8, + insets = { left = 3, right = 3, top = 6, bottom = 6 } +} + +local ManualBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\ChatFrame\\ChatFrameBackground", + tile = true, edgeSize = 1, tileSize = 5, +} + +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + + frame:EnableMouse(true) + frame:SetScript("OnMouseDown", Frame_OnMouseDown) + + local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") + label:SetPoint("TOPLEFT") + label:SetPoint("TOPRIGHT") + label:SetJustifyH("CENTER") + label:SetHeight(15) + + local slider = CreateFrame("Slider", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) + slider:SetOrientation("HORIZONTAL") + slider:SetHeight(15) + slider:SetHitRectInsets(0, 0, -10, 0) + slider:SetBackdrop(SliderBackdrop) + slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Horizontal") + slider:SetPoint("TOP", label, "BOTTOM") + slider:SetPoint("LEFT", 3, 0) + slider:SetPoint("RIGHT", -3, 0) + slider:SetValue(0) + slider:SetScript("OnValueChanged",Slider_OnValueChanged) + slider:SetScript("OnEnter", Control_OnEnter) + slider:SetScript("OnLeave", Control_OnLeave) + slider:SetScript("OnMouseUp", Slider_OnMouseUp) + slider:SetScript("OnMouseWheel", Slider_OnMouseWheel) + + local lowtext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall") + lowtext:SetPoint("TOPLEFT", slider, "BOTTOMLEFT", 2, 3) + + local hightext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall") + hightext:SetPoint("TOPRIGHT", slider, "BOTTOMRIGHT", -2, 3) + + local editbox = CreateFrame("EditBox", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) + editbox:SetAutoFocus(false) + editbox:SetFontObject(GameFontHighlightSmall) + editbox:SetPoint("TOP", slider, "BOTTOM") + editbox:SetHeight(14) + editbox:SetWidth(70) + editbox:SetJustifyH("CENTER") + editbox:EnableMouse(true) + editbox:SetBackdrop(ManualBackdrop) + editbox:SetBackdropColor(0, 0, 0, 0.5) + editbox:SetBackdropBorderColor(0.3, 0.3, 0.30, 0.80) + editbox:SetScript("OnEnter", EditBox_OnEnter) + editbox:SetScript("OnLeave", EditBox_OnLeave) + editbox:SetScript("OnEnterPressed", EditBox_OnEnterPressed) + editbox:SetScript("OnEscapePressed", EditBox_OnEscapePressed) + + local widget = { + label = label, + slider = slider, + lowtext = lowtext, + hightext = hightext, + editbox = editbox, + alignoffset = 25, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + slider.obj, editbox.obj = widget, widget + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type,Constructor,Version) diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.lua new file mode 100644 index 0000000..9016d1e --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.lua @@ -0,0 +1,239 @@ +--[[ $Id: CallbackHandler-1.0.lua 3 2008-09-29 16:54:20Z nevcairiel $ ]] +local MAJOR, MINOR = "CallbackHandler-1.0", 3 +local CallbackHandler = LibStub:NewLibrary(MAJOR, MINOR) + +if not CallbackHandler then return end -- No upgrade needed + +local meta = {__index = function(tbl, key) tbl[key] = {} return tbl[key] end} + +local type = type +local pcall = pcall +local pairs = pairs +local assert = assert +local concat = table.concat +local loadstring = loadstring +local next = next +local select = select +local type = type +local xpcall = xpcall + +local function errorhandler(err) + return geterrorhandler()(err) +end + +local function CreateDispatcher(argCount) + local code = [[ + local next, xpcall, eh = ... + + local method, ARGS + local function call() method(ARGS) end + + local function dispatch(handlers, ...) + local index + index, method = next(handlers) + if not method then return end + local OLD_ARGS = ARGS + ARGS = ... + repeat + xpcall(call, eh) + index, method = next(handlers, index) + until not method + ARGS = OLD_ARGS + end + + return dispatch + ]] + + local ARGS, OLD_ARGS = {}, {} + for i = 1, argCount do ARGS[i], OLD_ARGS[i] = "arg"..i, "old_arg"..i end + code = code:gsub("OLD_ARGS", concat(OLD_ARGS, ", ")):gsub("ARGS", concat(ARGS, ", ")) + return assert(loadstring(code, "safecall Dispatcher["..argCount.."]"))(next, xpcall, errorhandler) +end + +local Dispatchers = setmetatable({}, {__index=function(self, argCount) + local dispatcher = CreateDispatcher(argCount) + rawset(self, argCount, dispatcher) + return dispatcher +end}) + +-------------------------------------------------------------------------- +-- CallbackHandler:New +-- +-- target - target object to embed public APIs in +-- RegisterName - name of the callback registration API, default "RegisterCallback" +-- UnregisterName - name of the callback unregistration API, default "UnregisterCallback" +-- UnregisterAllName - name of the API to unregister all callbacks, default "UnregisterAllCallbacks". false == don't publish this API. + +function CallbackHandler:New(target, RegisterName, UnregisterName, UnregisterAllName, OnUsed, OnUnused) + -- TODO: Remove this after beta has gone out + assert(not OnUsed and not OnUnused, "ACE-80: OnUsed/OnUnused are deprecated. Callbacks are now done to registry.OnUsed and registry.OnUnused") + + RegisterName = RegisterName or "RegisterCallback" + UnregisterName = UnregisterName or "UnregisterCallback" + if UnregisterAllName==nil then -- false is used to indicate "don't want this method" + UnregisterAllName = "UnregisterAllCallbacks" + end + + -- we declare all objects and exported APIs inside this closure to quickly gain access + -- to e.g. function names, the "target" parameter, etc + + + -- Create the registry object + local events = setmetatable({}, meta) + local registry = { recurse=0, events=events } + + -- registry:Fire() - fires the given event/message into the registry + function registry:Fire(eventname, ...) + if not rawget(events, eventname) or not next(events[eventname]) then return end + local oldrecurse = registry.recurse + registry.recurse = oldrecurse + 1 + + Dispatchers[select('#', ...) + 1](events[eventname], eventname, ...) + + registry.recurse = oldrecurse + + if registry.insertQueue and oldrecurse==0 then + -- Something in one of our callbacks wanted to register more callbacks; they got queued + for eventname,callbacks in pairs(registry.insertQueue) do + local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. + for self,func in pairs(callbacks) do + events[eventname][self] = func + -- fire OnUsed callback? + if first and registry.OnUsed then + registry.OnUsed(registry, target, eventname) + first = nil + end + end + end + registry.insertQueue = nil + end + end + + -- Registration of a callback, handles: + -- self["method"], leads to self["method"](self, ...) + -- self with function ref, leads to functionref(...) + -- "addonId" (instead of self) with function ref, leads to functionref(...) + -- all with an optional arg, which, if present, gets passed as first argument (after self if present) + target[RegisterName] = function(self, eventname, method, ... --[[actually just a single arg]]) + if type(eventname) ~= "string" then + error("Usage: "..RegisterName.."(eventname, method[, arg]): 'eventname' - string expected.", 2) + end + + method = method or eventname + + local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. + + if type(method) ~= "string" and type(method) ~= "function" then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - string or function expected.", 2) + end + + local regfunc + + if type(method) == "string" then + -- self["method"] calling style + if type(self) ~= "table" then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): self was not a table?", 2) + elseif self==target then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): do not use Library:"..RegisterName.."(), use your own 'self'", 2) + elseif type(self[method]) ~= "function" then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - method '"..tostring(method).."' not found on self.", 2) + end + + if select("#",...)>=1 then -- this is not the same as testing for arg==nil! + local arg=select(1,...) + regfunc = function(...) self[method](self,arg,...) end + else + regfunc = function(...) self[method](self,...) end + end + else + -- function ref with self=object or self="addonId" + if type(self)~="table" and type(self)~="string" then + error("Usage: "..RegisterName.."(self or \"addonId\", eventname, method): 'self or addonId': table or string expected.", 2) + end + + if select("#",...)>=1 then -- this is not the same as testing for arg==nil! + local arg=select(1,...) + regfunc = function(...) method(arg,...) end + else + regfunc = method + end + end + + + if events[eventname][self] or registry.recurse<1 then + -- if registry.recurse<1 then + -- we're overwriting an existing entry, or not currently recursing. just set it. + events[eventname][self] = regfunc + -- fire OnUsed callback? + if registry.OnUsed and first then + registry.OnUsed(registry, target, eventname) + end + else + -- we're currently processing a callback in this registry, so delay the registration of this new entry! + -- yes, we're a bit wasteful on garbage, but this is a fringe case, so we're picking low implementation overhead over garbage efficiency + registry.insertQueue = registry.insertQueue or setmetatable({},meta) + registry.insertQueue[eventname][self] = regfunc + end + end + + -- Unregister a callback + target[UnregisterName] = function(self, eventname) + if not self or self==target then + error("Usage: "..UnregisterName.."(eventname): bad 'self'", 2) + end + if type(eventname) ~= "string" then + error("Usage: "..UnregisterName.."(eventname): 'eventname' - string expected.", 2) + end + if rawget(events, eventname) and events[eventname][self] then + events[eventname][self] = nil + -- Fire OnUnused callback? + if registry.OnUnused and not next(events[eventname]) then + registry.OnUnused(registry, target, eventname) + end + end + if registry.insertQueue and rawget(registry.insertQueue, eventname) and registry.insertQueue[eventname][self] then + registry.insertQueue[eventname][self] = nil + end + end + + -- OPTIONAL: Unregister all callbacks for given selfs/addonIds + if UnregisterAllName then + target[UnregisterAllName] = function(...) + if select("#",...)<1 then + error("Usage: "..UnregisterAllName.."([whatFor]): missing 'self' or \"addonId\" to unregister events for.", 2) + end + if select("#",...)==1 and ...==target then + error("Usage: "..UnregisterAllName.."([whatFor]): supply a meaningful 'self' or \"addonId\"", 2) + end + + + for i=1,select("#",...) do + local self = select(i,...) + if registry.insertQueue then + for eventname, callbacks in pairs(registry.insertQueue) do + if callbacks[self] then + callbacks[self] = nil + end + end + end + for eventname, callbacks in pairs(events) do + if callbacks[self] then + callbacks[self] = nil + -- Fire OnUnused callback? + if registry.OnUnused and not next(callbacks) then + registry.OnUnused(registry, target, eventname) + end + end + end + end + end + end + + return registry +end + + +-- CallbackHandler purposefully does NOT do explicit embedding. Nor does it +-- try to upgrade old implicit embeds since the system is selfcontained and +-- relies on closures to work. + diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.xml b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.xml new file mode 100644 index 0000000..876df83 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="CallbackHandler-1.0.lua"/> +</Ui> \ No newline at end of file diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/LibSharedMedia-3.0.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/LibSharedMedia-3.0.lua new file mode 100644 index 0000000..c66e9cc --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/LibSharedMedia-3.0.lua @@ -0,0 +1,300 @@ +--[[ +Name: LibSharedMedia-3.0 +Revision: $Revision: 114 $ +Author: Elkano (elkano@gmx.de) +Inspired By: SurfaceLib by Haste/Otravi (troeks@gmail.com) +Website: http://www.wowace.com/projects/libsharedmedia-3-0/ +Description: Shared handling of media data (fonts, sounds, textures, ...) between addons. +Dependencies: LibStub, CallbackHandler-1.0 +License: LGPL v2.1 +]] + +local MAJOR, MINOR = "LibSharedMedia-3.0", 8020003 -- 8.2.0 v3 / increase manually on changes +local lib = LibStub:NewLibrary(MAJOR, MINOR) + +if not lib then return end + +local _G = getfenv(0) + +local pairs = _G.pairs +local type = _G.type + +local band = _G.bit.band +local table_sort = _G.table.sort + +local RESTRICTED_FILE_ACCESS = WOW_PROJECT_ID == WOW_PROJECT_MAINLINE -- starting with 8.2, some rules for file access have changed; classic still uses the old way + +local locale = GetLocale() +local locale_is_western +local LOCALE_MASK = 0 +lib.LOCALE_BIT_koKR = 1 +lib.LOCALE_BIT_ruRU = 2 +lib.LOCALE_BIT_zhCN = 4 +lib.LOCALE_BIT_zhTW = 8 +lib.LOCALE_BIT_western = 128 + +local CallbackHandler = LibStub:GetLibrary("CallbackHandler-1.0") + +lib.callbacks = lib.callbacks or CallbackHandler:New(lib) + +lib.DefaultMedia = lib.DefaultMedia or {} +lib.MediaList = lib.MediaList or {} +lib.MediaTable = lib.MediaTable or {} +lib.MediaType = lib.MediaType or {} +lib.OverrideMedia = lib.OverrideMedia or {} + +local defaultMedia = lib.DefaultMedia +local mediaList = lib.MediaList +local mediaTable = lib.MediaTable +local overrideMedia = lib.OverrideMedia + + +-- create mediatype constants +lib.MediaType.BACKGROUND = "background" -- background textures +lib.MediaType.BORDER = "border" -- border textures +lib.MediaType.FONT = "font" -- fonts +lib.MediaType.STATUSBAR = "statusbar" -- statusbar textures +lib.MediaType.SOUND = "sound" -- sound files + +-- populate lib with default Blizzard data +-- BACKGROUND +if not lib.MediaTable.background then lib.MediaTable.background = {} end +lib.MediaTable.background["None"] = [[]] +lib.MediaTable.background["Blizzard Collections Background"] = [[Interface\Collections\CollectionsBackgroundTile]] +lib.MediaTable.background["Blizzard Dialog Background"] = [[Interface\DialogFrame\UI-DialogBox-Background]] +lib.MediaTable.background["Blizzard Dialog Background Dark"] = [[Interface\DialogFrame\UI-DialogBox-Background-Dark]] +lib.MediaTable.background["Blizzard Dialog Background Gold"] = [[Interface\DialogFrame\UI-DialogBox-Gold-Background]] +lib.MediaTable.background["Blizzard Garrison Background"] = [[Interface\Garrison\GarrisonUIBackground]] +lib.MediaTable.background["Blizzard Garrison Background 2"] = [[Interface\Garrison\GarrisonUIBackground2]] +lib.MediaTable.background["Blizzard Garrison Background 3"] = [[Interface\Garrison\GarrisonMissionUIInfoBoxBackgroundTile]] +lib.MediaTable.background["Blizzard Low Health"] = [[Interface\FullScreenTextures\LowHealth]] +lib.MediaTable.background["Blizzard Marble"] = [[Interface\FrameGeneral\UI-Background-Marble]] +lib.MediaTable.background["Blizzard Out of Control"] = [[Interface\FullScreenTextures\OutOfControl]] +lib.MediaTable.background["Blizzard Parchment"] = [[Interface\AchievementFrame\UI-Achievement-Parchment-Horizontal]] +lib.MediaTable.background["Blizzard Parchment 2"] = [[Interface\AchievementFrame\UI-GuildAchievement-Parchment-Horizontal]] +lib.MediaTable.background["Blizzard Rock"] = [[Interface\FrameGeneral\UI-Background-Rock]] +lib.MediaTable.background["Blizzard Tabard Background"] = [[Interface\TabardFrame\TabardFrameBackground]] +lib.MediaTable.background["Blizzard Tooltip"] = [[Interface\Tooltips\UI-Tooltip-Background]] +lib.MediaTable.background["Solid"] = [[Interface\Buttons\WHITE8X8]] +lib.DefaultMedia.background = "None" + +-- BORDER +if not lib.MediaTable.border then lib.MediaTable.border = {} end +lib.MediaTable.border["None"] = [[]] +lib.MediaTable.border["Blizzard Achievement Wood"] = [[Interface\AchievementFrame\UI-Achievement-WoodBorder]] +lib.MediaTable.border["Blizzard Chat Bubble"] = [[Interface\Tooltips\ChatBubble-Backdrop]] +lib.MediaTable.border["Blizzard Dialog"] = [[Interface\DialogFrame\UI-DialogBox-Border]] +lib.MediaTable.border["Blizzard Dialog Gold"] = [[Interface\DialogFrame\UI-DialogBox-Gold-Border]] +lib.MediaTable.border["Blizzard Party"] = [[Interface\CHARACTERFRAME\UI-Party-Border]] +lib.MediaTable.border["Blizzard Tooltip"] = [[Interface\Tooltips\UI-Tooltip-Border]] +lib.DefaultMedia.border = "None" + +-- FONT +if not lib.MediaTable.font then lib.MediaTable.font = {} end +local SML_MT_font = lib.MediaTable.font +--[[ +All font files are currently in all clients, the following table depicts which font supports which charset as of 5.0.4 +Fonts were checked using langcover.pl from DejaVu fonts (http://sourceforge.net/projects/dejavu/) and FontForge (http://fontforge.org/) +latin means check for: de, en, es, fr, it, pt + +file name latin koKR ruRU zhCN zhTW +2002.ttf 2002 X X X - - +2002B.ttf 2002 Bold X X X - - +ARHei.ttf AR CrystalzcuheiGBK Demibold X - X X X +ARIALN.TTF Arial Narrow X - X - - +ARKai_C.ttf AR ZhongkaiGBK Medium (Combat) X - X X X +ARKai_T.ttf AR ZhongkaiGBK Medium X - X X X +bHEI00M.ttf AR Heiti2 Medium B5 - - - - X +bHEI01B.ttf AR Heiti2 Bold B5 - - - - X +bKAI00M.ttf AR Kaiti Medium B5 - - - - X +bLEI00D.ttf AR Leisu Demi B5 - - - - X +FRIZQT__.TTF Friz Quadrata TT X - - - - +FRIZQT___CYR.TTF FrizQuadrataCTT x - X - - +K_Damage.TTF YDIWingsM - X X - - +K_Pagetext.TTF MoK X X X - - +MORPHEUS.TTF Morpheus X - - - - +MORPHEUS_CYR.TTF Morpheus X - X - - +NIM_____.ttf Nimrod MT X - X - - +SKURRI.TTF Skurri X - - - - +SKURRI_CYR.TTF Skurri X - X - - + +WARNING: Although FRIZQT___CYR is available on western clients, it doesn't support special European characters e.g. é, ï, ö +Due to this, we cannot use it as a replacement for FRIZQT__.TTF +]] + +if locale == "koKR" then + LOCALE_MASK = lib.LOCALE_BIT_koKR +-- + SML_MT_font["굵은 글꼴"] = [[Fonts\2002B.TTF]] + SML_MT_font["기본 글꼴"] = [[Fonts\2002.TTF]] + SML_MT_font["데미지 글꼴"] = [[Fonts\K_Damage.TTF]] + SML_MT_font["퀘스트 글꼴"] = [[Fonts\K_Pagetext.TTF]] +-- + lib.DefaultMedia["font"] = "기본 글꼴" -- someone from koKR please adjust if needed +-- +elseif locale == "zhCN" then + LOCALE_MASK = lib.LOCALE_BIT_zhCN +-- + SML_MT_font["伤害数字"] = [[Fonts\ARKai_C.ttf]] + SML_MT_font["默认"] = [[Fonts\ARKai_T.ttf]] + SML_MT_font["聊天"] = [[Fonts\ARHei.ttf]] +-- + lib.DefaultMedia["font"] = "默认" -- someone from zhCN please adjust if needed +-- +elseif locale == "zhTW" then + LOCALE_MASK = lib.LOCALE_BIT_zhTW +-- + SML_MT_font["提示訊息"] = [[Fonts\bHEI00M.ttf]] + SML_MT_font["聊天"] = [[Fonts\bHEI01B.ttf]] + SML_MT_font["傷害數字"] = [[Fonts\bKAI00M.ttf]] + SML_MT_font["預設"] = [[Fonts\bLEI00D.ttf]] +-- + lib.DefaultMedia["font"] = "預設" -- someone from zhTW please adjust if needed + +elseif locale == "ruRU" then + LOCALE_MASK = lib.LOCALE_BIT_ruRU +-- + SML_MT_font["2002"] = [[Fonts\2002.TTF]] + SML_MT_font["2002 Bold"] = [[Fonts\2002B.TTF]] + SML_MT_font["AR CrystalzcuheiGBK Demibold"] = [[Fonts\ARHei.TTF]] + SML_MT_font["AR ZhongkaiGBK Medium (Combat)"] = [[Fonts\ARKai_C.TTF]] + SML_MT_font["AR ZhongkaiGBK Medium"] = [[Fonts\ARKai_T.TTF]] + SML_MT_font["Arial Narrow"] = [[Fonts\ARIALN.TTF]] + SML_MT_font["Friz Quadrata TT"] = [[Fonts\FRIZQT___CYR.TTF]] + SML_MT_font["MoK"] = [[Fonts\K_Pagetext.TTF]] + SML_MT_font["Morpheus"] = [[Fonts\MORPHEUS_CYR.TTF]] + SML_MT_font["Nimrod MT"] = [[Fonts\NIM_____.ttf]] + SML_MT_font["Skurri"] = [[Fonts\SKURRI_CYR.TTF]] +-- + lib.DefaultMedia.font = "Friz Quadrata TT" +-- +else + LOCALE_MASK = lib.LOCALE_BIT_western + locale_is_western = true +-- + SML_MT_font["2002"] = [[Fonts\2002.TTF]] + SML_MT_font["2002 Bold"] = [[Fonts\2002B.TTF]] + SML_MT_font["AR CrystalzcuheiGBK Demibold"] = [[Fonts\ARHei.TTF]] + SML_MT_font["AR ZhongkaiGBK Medium (Combat)"] = [[Fonts\ARKai_C.TTF]] + SML_MT_font["AR ZhongkaiGBK Medium"] = [[Fonts\ARKai_T.TTF]] + SML_MT_font["Arial Narrow"] = [[Fonts\ARIALN.TTF]] + SML_MT_font["Friz Quadrata TT"] = [[Fonts\FRIZQT__.TTF]] + SML_MT_font["MoK"] = [[Fonts\K_Pagetext.TTF]] + SML_MT_font["Morpheus"] = [[Fonts\MORPHEUS_CYR.TTF]] + SML_MT_font["Nimrod MT"] = [[Fonts\NIM_____.ttf]] + SML_MT_font["Skurri"] = [[Fonts\SKURRI_CYR.TTF]] +-- + lib.DefaultMedia.font = "Friz Quadrata TT" +-- +end + +-- STATUSBAR +if not lib.MediaTable.statusbar then lib.MediaTable.statusbar = {} end +lib.MediaTable.statusbar["Blizzard"] = [[Interface\TargetingFrame\UI-StatusBar]] +lib.MediaTable.statusbar["Blizzard Character Skills Bar"] = [[Interface\PaperDollInfoFrame\UI-Character-Skills-Bar]] +lib.MediaTable.statusbar["Blizzard Raid Bar"] = [[Interface\RaidFrame\Raid-Bar-Hp-Fill]] +lib.MediaTable.statusbar["Solid"] = [[Interface\Buttons\WHITE8X8]] +lib.DefaultMedia.statusbar = "Blizzard" + +-- SOUND +if not lib.MediaTable.sound then lib.MediaTable.sound = {} end +lib.MediaTable.sound["None"] = RESTRICTED_FILE_ACCESS and 1 or [[Interface\Quiet.ogg]] -- Relies on the fact that PlaySound[File] doesn't error on these values. +lib.DefaultMedia.sound = "None" + +local function rebuildMediaList(mediatype) + local mtable = mediaTable[mediatype] + if not mtable then return end + if not mediaList[mediatype] then mediaList[mediatype] = {} end + local mlist = mediaList[mediatype] + -- list can only get larger, so simply overwrite it + local i = 0 + for k in pairs(mtable) do + i = i + 1 + mlist[i] = k + end + table_sort(mlist) +end + +function lib:Register(mediatype, key, data, langmask) + if type(mediatype) ~= "string" then + error(MAJOR..":Register(mediatype, key, data, langmask) - mediatype must be string, got "..type(mediatype)) + end + if type(key) ~= "string" then + error(MAJOR..":Register(mediatype, key, data, langmask) - key must be string, got "..type(key)) + end + mediatype = mediatype:lower() + if mediatype == lib.MediaType.FONT and ((langmask and band(langmask, LOCALE_MASK) == 0) or not (langmask or locale_is_western)) then + -- ignore fonts that aren't flagged as supporting local glyphs on non-western clients + return false + end + if type(data) == "string" and (mediatype == lib.MediaType.BACKGROUND or mediatype == lib.MediaType.BORDER or mediatype == lib.MediaType.STATUSBAR or mediatype == lib.MediaType.SOUND) then + local path = data:lower() + if RESTRICTED_FILE_ACCESS and not path:find("^interface") then + -- files accessed via path only allowed from interface folder + return false + end + if mediatype == lib.MediaType.SOUND and not (path:find(".ogg", nil, true) or path:find(".mp3", nil, true)) then + -- Only ogg and mp3 are valid sounds. + return false + end + end + if not mediaTable[mediatype] then mediaTable[mediatype] = {} end + local mtable = mediaTable[mediatype] + if mtable[key] then return false end + + mtable[key] = data + rebuildMediaList(mediatype) + self.callbacks:Fire("LibSharedMedia_Registered", mediatype, key) + return true +end + +function lib:Fetch(mediatype, key, noDefault) + local mtt = mediaTable[mediatype] + local overridekey = overrideMedia[mediatype] + local result = mtt and ((overridekey and mtt[overridekey] or mtt[key]) or (not noDefault and defaultMedia[mediatype] and mtt[defaultMedia[mediatype]])) or nil + return result ~= "" and result or nil +end + +function lib:IsValid(mediatype, key) + return mediaTable[mediatype] and (not key or mediaTable[mediatype][key]) and true or false +end + +function lib:HashTable(mediatype) + return mediaTable[mediatype] +end + +function lib:List(mediatype) + if not mediaTable[mediatype] then + return nil + end + if not mediaList[mediatype] then + rebuildMediaList(mediatype) + end + return mediaList[mediatype] +end + +function lib:GetGlobal(mediatype) + return overrideMedia[mediatype] +end + +function lib:SetGlobal(mediatype, key) + if not mediaTable[mediatype] then + return false + end + overrideMedia[mediatype] = (key and mediaTable[mediatype][key]) and key or nil + self.callbacks:Fire("LibSharedMedia_SetGlobal", mediatype, overrideMedia[mediatype]) + return true +end + +function lib:GetDefault(mediatype) + return defaultMedia[mediatype] +end + +function lib:SetDefault(mediatype, key) + if mediaTable[mediatype] and mediaTable[mediatype][key] and not defaultMedia[mediatype] then + defaultMedia[mediatype] = key + return true + else + return false + end +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/lib.xml b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/lib.xml new file mode 100644 index 0000000..34aa874 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/lib.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="LibSharedMedia-3.0.lua" /> +</Ui> \ No newline at end of file diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.lua b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.lua new file mode 100644 index 0000000..0a41ac0 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.lua @@ -0,0 +1,30 @@ +-- LibStub is a simple versioning stub meant for use in Libraries. http://www.wowace.com/wiki/LibStub for more info +-- LibStub is hereby placed in the Public Domain Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel, joshborke +local LIBSTUB_MAJOR, LIBSTUB_MINOR = "LibStub", 2 -- NEVER MAKE THIS AN SVN REVISION! IT NEEDS TO BE USABLE IN ALL REPOS! +local LibStub = _G[LIBSTUB_MAJOR] + +if not LibStub or LibStub.minor < LIBSTUB_MINOR then + LibStub = LibStub or {libs = {}, minors = {} } + _G[LIBSTUB_MAJOR] = LibStub + LibStub.minor = LIBSTUB_MINOR + + function LibStub:NewLibrary(major, minor) + assert(type(major) == "string", "Bad argument #2 to `NewLibrary' (string expected)") + minor = assert(tonumber(strmatch(minor, "%d+")), "Minor version must either be a number or contain a number.") + + local oldminor = self.minors[major] + if oldminor and oldminor >= minor then return nil end + self.minors[major], self.libs[major] = minor, self.libs[major] or {} + return self.libs[major], oldminor + end + + function LibStub:GetLibrary(major, silent) + if not self.libs[major] and not silent then + error(("Cannot find a library instance of %q."):format(tostring(major)), 2) + end + return self.libs[major], self.minors[major] + end + + function LibStub:IterateLibraries() return pairs(self.libs) end + setmetatable(LibStub, { __call = LibStub.GetLibrary }) +end diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.toc b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.toc new file mode 100644 index 0000000..4d9130c --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.toc @@ -0,0 +1,9 @@ +## Interface: 20400 +## Title: Lib: LibStub +## Notes: Universal Library Stub +## Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel +## X-Website: http://jira.wowace.com/browse/LS +## X-Category: Library +## X-License: Public Domain + +LibStub.lua diff --git a/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/widget.xml b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/widget.xml new file mode 100644 index 0000000..ecf2945 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0-SharedMediaWidgets/widget.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Include file="AceGUI-3.0-SharedMediaWidgets\widget.xml" /> +</Ui> diff --git a/Titan/libs/Ace/AceGUI-3.0/AceGUI-3.0.lua b/Titan/libs/Ace/AceGUI-3.0/AceGUI-3.0.lua new file mode 100644 index 0000000..f05b1ed --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/AceGUI-3.0.lua @@ -0,0 +1,1020 @@ +--- **AceGUI-3.0** provides access to numerous widgets which can be used to create GUIs. +-- AceGUI is used by AceConfigDialog to create the option GUIs, but you can use it by itself +-- to create any custom GUI. There are more extensive examples in the test suite in the Ace3 +-- stand-alone distribution. +-- +-- **Note**: When using AceGUI-3.0 directly, please do not modify the frames of the widgets directly, +-- as any "unknown" change to the widgets will cause addons that get your widget out of the widget pool +-- to misbehave. If you think some part of a widget should be modifiable, please open a ticket, and we"ll +-- implement a proper API to modify it. +-- @usage +-- local AceGUI = LibStub("AceGUI-3.0") +-- -- Create a container frame +-- local f = AceGUI:Create("Frame") +-- f:SetCallback("OnClose",function(widget) AceGUI:Release(widget) end) +-- f:SetTitle("AceGUI-3.0 Example") +-- f:SetStatusText("Status Bar") +-- f:SetLayout("Flow") +-- -- Create a button +-- local btn = AceGUI:Create("Button") +-- btn:SetWidth(170) +-- btn:SetText("Button !") +-- btn:SetCallback("OnClick", function() print("Click!") end) +-- -- Add the button to the container +-- f:AddChild(btn) +-- @class file +-- @name AceGUI-3.0 +-- @release $Id: AceGUI-3.0.lua 1288 2022-09-25 14:19:00Z funkehdude $ +local ACEGUI_MAJOR, ACEGUI_MINOR = "AceGUI-3.0", 41 +local AceGUI, oldminor = LibStub:NewLibrary(ACEGUI_MAJOR, ACEGUI_MINOR) + +if not AceGUI then return end -- No upgrade needed + +-- Lua APIs +local tinsert, wipe = table.insert, table.wipe +local select, pairs, next, type = select, pairs, next, type +local error, assert = error, assert +local setmetatable, rawget = setmetatable, rawget +local math_max, math_min, math_ceil = math.max, math.min, math.ceil + +-- WoW APIs +local UIParent = UIParent + +AceGUI.WidgetRegistry = AceGUI.WidgetRegistry or {} +AceGUI.LayoutRegistry = AceGUI.LayoutRegistry or {} +AceGUI.WidgetBase = AceGUI.WidgetBase or {} +AceGUI.WidgetContainerBase = AceGUI.WidgetContainerBase or {} +AceGUI.WidgetVersions = AceGUI.WidgetVersions or {} +AceGUI.tooltip = AceGUI.tooltip or CreateFrame("GameTooltip", "AceGUITooltip", UIParent, "GameTooltipTemplate") + +-- local upvalues +local WidgetRegistry = AceGUI.WidgetRegistry +local LayoutRegistry = AceGUI.LayoutRegistry +local WidgetVersions = AceGUI.WidgetVersions + +--[[ + xpcall safecall implementation +]] +local xpcall = xpcall + +local function errorhandler(err) + return geterrorhandler()(err) +end + +local function safecall(func, ...) + if func then + return xpcall(func, errorhandler, ...) + end +end + +-- Recycling functions +local newWidget, delWidget +do + -- Version Upgrade in Minor 29 + -- Internal Storage of the objects changed, from an array table + -- to a hash table, and additionally we introduced versioning on + -- the widgets which would discard all widgets from a pre-29 version + -- anyway, so we just clear the storage now, and don't try to + -- convert the storage tables to the new format. + -- This should generally not cause *many* widgets to end up in trash, + -- since once dialogs are opened, all addons should be loaded already + -- and AceGUI should be on the latest version available on the users + -- setup. + -- -- nevcairiel - Nov 2nd, 2009 + if oldminor and oldminor < 29 and AceGUI.objPools then + AceGUI.objPools = nil + end + + AceGUI.objPools = AceGUI.objPools or {} + local objPools = AceGUI.objPools + --Returns a new instance, if none are available either returns a new table or calls the given contructor + function newWidget(widgetType) + if not WidgetRegistry[widgetType] then + error("Attempt to instantiate unknown widget type", 2) + end + + if not objPools[widgetType] then + objPools[widgetType] = {} + end + + local newObj = next(objPools[widgetType]) + if not newObj then + newObj = WidgetRegistry[widgetType]() + newObj.AceGUIWidgetVersion = WidgetVersions[widgetType] + else + objPools[widgetType][newObj] = nil + -- if the widget is older then the latest, don't even try to reuse it + -- just forget about it, and grab a new one. + if not newObj.AceGUIWidgetVersion or newObj.AceGUIWidgetVersion < WidgetVersions[widgetType] then + return newWidget(widgetType) + end + end + return newObj + end + -- Releases an instance to the Pool + function delWidget(obj,widgetType) + if not objPools[widgetType] then + objPools[widgetType] = {} + end + if objPools[widgetType][obj] then + error("Attempt to Release Widget that is already released", 2) + end + objPools[widgetType][obj] = true + end +end + + +------------------- +-- API Functions -- +------------------- + +-- Gets a widget Object + +--- Create a new Widget of the given type. +-- This function will instantiate a new widget (or use one from the widget pool), and call the +-- OnAcquire function on it, before returning. +-- @param type The type of the widget. +-- @return The newly created widget. +function AceGUI:Create(widgetType) + if WidgetRegistry[widgetType] then + local widget = newWidget(widgetType) + + if rawget(widget, "Acquire") then + widget.OnAcquire = widget.Acquire + widget.Acquire = nil + elseif rawget(widget, "Aquire") then + widget.OnAcquire = widget.Aquire + widget.Aquire = nil + end + + if rawget(widget, "Release") then + widget.OnRelease = rawget(widget, "Release") + widget.Release = nil + end + + if widget.OnAcquire then + widget:OnAcquire() + else + error(("Widget type %s doesn't supply an OnAcquire Function"):format(widgetType)) + end + -- Set the default Layout ("List") + safecall(widget.SetLayout, widget, "List") + safecall(widget.ResumeLayout, widget) + return widget + end +end + +--- Releases a widget Object. +-- This function calls OnRelease on the widget and places it back in the widget pool. +-- Any data on the widget is being erased, and the widget will be hidden.\\ +-- If this widget is a Container-Widget, all of its Child-Widgets will be releases as well. +-- @param widget The widget to release +function AceGUI:Release(widget) + if widget.isQueuedForRelease then return end + widget.isQueuedForRelease = true + safecall(widget.PauseLayout, widget) + widget.frame:Hide() + widget:Fire("OnRelease") + safecall(widget.ReleaseChildren, widget) + + if widget.OnRelease then + widget:OnRelease() +-- else +-- error(("Widget type %s doesn't supply an OnRelease Function"):format(widget.type)) + end + for k in pairs(widget.userdata) do + widget.userdata[k] = nil + end + for k in pairs(widget.events) do + widget.events[k] = nil + end + widget.width = nil + widget.relWidth = nil + widget.height = nil + widget.relHeight = nil + widget.noAutoHeight = nil + widget.frame:ClearAllPoints() + widget.frame:Hide() + widget.frame:SetParent(UIParent) + widget.frame.width = nil + widget.frame.height = nil + if widget.content then + widget.content.width = nil + widget.content.height = nil + end + widget.isQueuedForRelease = nil + delWidget(widget, widget.type) +end + +--- Check if a widget is currently in the process of being released +-- This function check if this widget, or any of its parents (in which case it'll be released shortly as well) +-- are currently being released. This allows addon to handle any callbacks accordingly. +-- @param widget The widget to check +function AceGUI:IsReleasing(widget) + if widget.isQueuedForRelease then + return true + end + + if widget.parent and widget.parent.AceGUIWidgetVersion then + return AceGUI:IsReleasing(widget.parent) + end + + return false +end + +----------- +-- Focus -- +----------- + + +--- Called when a widget has taken focus. +-- e.g. Dropdowns opening, Editboxes gaining kb focus +-- @param widget The widget that should be focused +function AceGUI:SetFocus(widget) + if self.FocusedWidget and self.FocusedWidget ~= widget then + safecall(self.FocusedWidget.ClearFocus, self.FocusedWidget) + end + self.FocusedWidget = widget +end + + +--- Called when something has happened that could cause widgets with focus to drop it +-- e.g. titlebar of a frame being clicked +function AceGUI:ClearFocus() + if self.FocusedWidget then + safecall(self.FocusedWidget.ClearFocus, self.FocusedWidget) + self.FocusedWidget = nil + end +end + +------------- +-- Widgets -- +------------- +--[[ + Widgets must provide the following functions + OnAcquire() - Called when the object is acquired, should set everything to a default hidden state + + And the following members + frame - the frame or derivitive object that will be treated as the widget for size and anchoring purposes + type - the type of the object, same as the name given to :RegisterWidget() + + Widgets contain a table called userdata, this is a safe place to store data associated with the wigdet + It will be cleared automatically when a widget is released + Placing values directly into a widget object should be avoided + + If the Widget can act as a container for other Widgets the following + content - frame or derivitive that children will be anchored to + + The Widget can supply the following Optional Members + :OnRelease() - Called when the object is Released, should remove any additional anchors and clear any data + :OnWidthSet(width) - Called when the width of the widget is changed + :OnHeightSet(height) - Called when the height of the widget is changed + Widgets should not use the OnSizeChanged events of thier frame or content members, use these methods instead + AceGUI already sets a handler to the event + :LayoutFinished(width, height) - called after a layout has finished, the width and height will be the width and height of the + area used for controls. These can be nil if the layout used the existing size to layout the controls. + +]] + +-------------------------- +-- Widget Base Template -- +-------------------------- +do + local WidgetBase = AceGUI.WidgetBase + + WidgetBase.SetParent = function(self, parent) + local frame = self.frame + frame:SetParent(nil) + frame:SetParent(parent.content) + self.parent = parent + end + + WidgetBase.SetCallback = function(self, name, func) + if type(func) == "function" then + self.events[name] = func + end + end + + WidgetBase.Fire = function(self, name, ...) + if self.events[name] then + local success, ret = safecall(self.events[name], self, name, ...) + if success then + return ret + end + end + end + + WidgetBase.SetWidth = function(self, width) + self.frame:SetWidth(width) + self.frame.width = width + if self.OnWidthSet then + self:OnWidthSet(width) + end + end + + WidgetBase.SetRelativeWidth = function(self, width) + if width <= 0 or width > 1 then + error(":SetRelativeWidth(width): Invalid relative width.", 2) + end + self.relWidth = width + self.width = "relative" + end + + WidgetBase.SetHeight = function(self, height) + self.frame:SetHeight(height) + self.frame.height = height + if self.OnHeightSet then + self:OnHeightSet(height) + end + end + + --[[ WidgetBase.SetRelativeHeight = function(self, height) + if height <= 0 or height > 1 then + error(":SetRelativeHeight(height): Invalid relative height.", 2) + end + self.relHeight = height + self.height = "relative" + end ]] + + WidgetBase.IsVisible = function(self) + return self.frame:IsVisible() + end + + WidgetBase.IsShown= function(self) + return self.frame:IsShown() + end + + WidgetBase.Release = function(self) + AceGUI:Release(self) + end + + WidgetBase.IsReleasing = function(self) + return AceGUI:IsReleasing(self) + end + + WidgetBase.SetPoint = function(self, ...) + return self.frame:SetPoint(...) + end + + WidgetBase.ClearAllPoints = function(self) + return self.frame:ClearAllPoints() + end + + WidgetBase.GetNumPoints = function(self) + return self.frame:GetNumPoints() + end + + WidgetBase.GetPoint = function(self, ...) + return self.frame:GetPoint(...) + end + + WidgetBase.GetUserDataTable = function(self) + return self.userdata + end + + WidgetBase.SetUserData = function(self, key, value) + self.userdata[key] = value + end + + WidgetBase.GetUserData = function(self, key) + return self.userdata[key] + end + + WidgetBase.IsFullHeight = function(self) + return self.height == "fill" + end + + WidgetBase.SetFullHeight = function(self, isFull) + if isFull then + self.height = "fill" + else + self.height = nil + end + end + + WidgetBase.IsFullWidth = function(self) + return self.width == "fill" + end + + WidgetBase.SetFullWidth = function(self, isFull) + if isFull then + self.width = "fill" + else + self.width = nil + end + end + +-- local function LayoutOnUpdate(this) +-- this:SetScript("OnUpdate",nil) +-- this.obj:PerformLayout() +-- end + + local WidgetContainerBase = AceGUI.WidgetContainerBase + + WidgetContainerBase.PauseLayout = function(self) + self.LayoutPaused = true + end + + WidgetContainerBase.ResumeLayout = function(self) + self.LayoutPaused = nil + end + + WidgetContainerBase.PerformLayout = function(self) + if self.LayoutPaused then + return + end + safecall(self.LayoutFunc, self.content, self.children) + end + + --call this function to layout, makes sure layed out objects get a frame to get sizes etc + WidgetContainerBase.DoLayout = function(self) + self:PerformLayout() +-- if not self.parent then +-- self.frame:SetScript("OnUpdate", LayoutOnUpdate) +-- end + end + + WidgetContainerBase.AddChild = function(self, child, beforeWidget) + if beforeWidget then + local siblingIndex = 1 + for _, widget in pairs(self.children) do + if widget == beforeWidget then + break + end + siblingIndex = siblingIndex + 1 + end + tinsert(self.children, siblingIndex, child) + else + tinsert(self.children, child) + end + child:SetParent(self) + child.frame:Show() + self:DoLayout() + end + + WidgetContainerBase.AddChildren = function(self, ...) + for i = 1, select("#", ...) do + local child = select(i, ...) + tinsert(self.children, child) + child:SetParent(self) + child.frame:Show() + end + self:DoLayout() + end + + WidgetContainerBase.ReleaseChildren = function(self) + local children = self.children + for i = 1,#children do + AceGUI:Release(children[i]) + children[i] = nil + end + end + + WidgetContainerBase.SetLayout = function(self, Layout) + self.LayoutFunc = AceGUI:GetLayout(Layout) + end + + WidgetContainerBase.SetAutoAdjustHeight = function(self, adjust) + if adjust then + self.noAutoHeight = nil + else + self.noAutoHeight = true + end + end + + local function FrameResize(this) + local self = this.obj + if this:GetWidth() and this:GetHeight() then + if self.OnWidthSet then + self:OnWidthSet(this:GetWidth()) + end + if self.OnHeightSet then + self:OnHeightSet(this:GetHeight()) + end + end + end + + local function ContentResize(this) + if this:GetWidth() and this:GetHeight() then + this.width = this:GetWidth() + this.height = this:GetHeight() + this.obj:DoLayout() + end + end + + setmetatable(WidgetContainerBase, {__index=WidgetBase}) + + --One of these function should be called on each Widget Instance as part of its creation process + + --- Register a widget-class as a container for newly created widgets. + -- @param widget The widget class + function AceGUI:RegisterAsContainer(widget) + widget.children = {} + widget.userdata = {} + widget.events = {} + widget.base = WidgetContainerBase + widget.content.obj = widget + widget.frame.obj = widget + widget.content:SetScript("OnSizeChanged", ContentResize) + widget.frame:SetScript("OnSizeChanged", FrameResize) + setmetatable(widget, {__index = WidgetContainerBase}) + widget:SetLayout("List") + return widget + end + + --- Register a widget-class as a widget. + -- @param widget The widget class + function AceGUI:RegisterAsWidget(widget) + widget.userdata = {} + widget.events = {} + widget.base = WidgetBase + widget.frame.obj = widget + widget.frame:SetScript("OnSizeChanged", FrameResize) + setmetatable(widget, {__index = WidgetBase}) + return widget + end +end + + + + +------------------ +-- Widget API -- +------------------ + +--- Registers a widget Constructor, this function returns a new instance of the Widget +-- @param Name The name of the widget +-- @param Constructor The widget constructor function +-- @param Version The version of the widget +function AceGUI:RegisterWidgetType(Name, Constructor, Version) + assert(type(Constructor) == "function") + assert(type(Version) == "number") + + local oldVersion = WidgetVersions[Name] + if oldVersion and oldVersion >= Version then return end + + WidgetVersions[Name] = Version + WidgetRegistry[Name] = Constructor +end + +--- Registers a Layout Function +-- @param Name The name of the layout +-- @param LayoutFunc Reference to the layout function +function AceGUI:RegisterLayout(Name, LayoutFunc) + assert(type(LayoutFunc) == "function") + if type(Name) == "string" then + Name = Name:upper() + end + LayoutRegistry[Name] = LayoutFunc +end + +--- Get a Layout Function from the registry +-- @param Name The name of the layout +function AceGUI:GetLayout(Name) + if type(Name) == "string" then + Name = Name:upper() + end + return LayoutRegistry[Name] +end + +AceGUI.counts = AceGUI.counts or {} + +--- A type-based counter to count the number of widgets created. +-- This is used by widgets that require a named frame, e.g. when a Blizzard +-- Template requires it. +-- @param type The widget type +function AceGUI:GetNextWidgetNum(widgetType) + if not self.counts[widgetType] then + self.counts[widgetType] = 0 + end + self.counts[widgetType] = self.counts[widgetType] + 1 + return self.counts[widgetType] +end + +--- Return the number of created widgets for this type. +-- In contrast to GetNextWidgetNum, the number is not incremented. +-- @param widgetType The widget type +function AceGUI:GetWidgetCount(widgetType) + return self.counts[widgetType] or 0 +end + +--- Return the version of the currently registered widget type. +-- @param widgetType The widget type +function AceGUI:GetWidgetVersion(widgetType) + return WidgetVersions[widgetType] +end + +------------- +-- Layouts -- +------------- + +--[[ + A Layout is a func that takes 2 parameters + content - the frame that widgets will be placed inside + children - a table containing the widgets to layout +]] + +-- Very simple Layout, Children are stacked on top of each other down the left side +AceGUI:RegisterLayout("List", + function(content, children) + local height = 0 + local width = content.width or content:GetWidth() or 0 + for i = 1, #children do + local child = children[i] + + local frame = child.frame + frame:ClearAllPoints() + frame:Show() + if i == 1 then + frame:SetPoint("TOPLEFT", content) + else + frame:SetPoint("TOPLEFT", children[i-1].frame, "BOTTOMLEFT") + end + + if child.width == "fill" then + child:SetWidth(width) + frame:SetPoint("RIGHT", content) + + if child.DoLayout then + child:DoLayout() + end + elseif child.width == "relative" then + child:SetWidth(width * child.relWidth) + + if child.DoLayout then + child:DoLayout() + end + end + + height = height + (frame.height or frame:GetHeight() or 0) + end + safecall(content.obj.LayoutFinished, content.obj, nil, height) + end) + +-- A single control fills the whole content area +AceGUI:RegisterLayout("Fill", + function(content, children) + if children[1] then + children[1]:SetWidth(content:GetWidth() or 0) + children[1]:SetHeight(content:GetHeight() or 0) + children[1].frame:ClearAllPoints() + children[1].frame:SetAllPoints(content) + children[1].frame:Show() + safecall(content.obj.LayoutFinished, content.obj, nil, children[1].frame:GetHeight()) + end + end) + +local layoutrecursionblock = nil +local function safelayoutcall(object, func, ...) + layoutrecursionblock = true + object[func](object, ...) + layoutrecursionblock = nil +end + +AceGUI:RegisterLayout("Flow", + function(content, children) + if layoutrecursionblock then return end + --used height so far + local height = 0 + --width used in the current row + local usedwidth = 0 + --height of the current row + local rowheight = 0 + local rowoffset = 0 + + local width = content.width or content:GetWidth() or 0 + + --control at the start of the row + local rowstart + local rowstartoffset + local isfullheight + + local frameoffset + local lastframeoffset + local oversize + for i = 1, #children do + local child = children[i] + oversize = nil + local frame = child.frame + local frameheight = frame.height or frame:GetHeight() or 0 + local framewidth = frame.width or frame:GetWidth() or 0 + lastframeoffset = frameoffset + -- HACK: Why did we set a frameoffset of (frameheight / 2) ? + -- That was moving all widgets half the widgets size down, is that intended? + -- Actually, it seems to be neccessary for many cases, we'll leave it in for now. + -- If widgets seem to anchor weirdly with this, provide a valid alignoffset for them. + -- TODO: Investigate moar! + frameoffset = child.alignoffset or (frameheight / 2) + + if child.width == "relative" then + framewidth = width * child.relWidth + end + + frame:Show() + frame:ClearAllPoints() + if i == 1 then + -- anchor the first control to the top left + frame:SetPoint("TOPLEFT", content) + rowheight = frameheight + rowoffset = frameoffset + rowstart = frame + rowstartoffset = frameoffset + usedwidth = framewidth + if usedwidth > width then + oversize = true + end + else + -- if there isn't available width for the control start a new row + -- if a control is "fill" it will be on a row of its own full width + if usedwidth == 0 or ((framewidth) + usedwidth > width) or child.width == "fill" then + if isfullheight then + -- a previous row has already filled the entire height, there's nothing we can usefully do anymore + -- (maybe error/warn about this?) + break + end + --anchor the previous row, we will now know its height and offset + rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -(height + (rowoffset - rowstartoffset) + 3)) + height = height + rowheight + 3 + --save this as the rowstart so we can anchor it after the row is complete and we have the max height and offset of controls in it + rowstart = frame + rowstartoffset = frameoffset + rowheight = frameheight + rowoffset = frameoffset + usedwidth = framewidth + if usedwidth > width then + oversize = true + end + -- put the control on the current row, adding it to the width and checking if the height needs to be increased + else + --handles cases where the new height is higher than either control because of the offsets + --math.max(rowheight-rowoffset+frameoffset, frameheight-frameoffset+rowoffset) + + --offset is always the larger of the two offsets + rowoffset = math_max(rowoffset, frameoffset) + rowheight = math_max(rowheight, rowoffset + (frameheight / 2)) + + frame:SetPoint("TOPLEFT", children[i-1].frame, "TOPRIGHT", 0, frameoffset - lastframeoffset) + usedwidth = framewidth + usedwidth + end + end + + if child.width == "fill" then + safelayoutcall(child, "SetWidth", width) + frame:SetPoint("RIGHT", content) + + usedwidth = 0 + rowstart = frame + + if child.DoLayout then + child:DoLayout() + end + rowheight = frame.height or frame:GetHeight() or 0 + rowoffset = child.alignoffset or (rowheight / 2) + rowstartoffset = rowoffset + elseif child.width == "relative" then + safelayoutcall(child, "SetWidth", width * child.relWidth) + + if child.DoLayout then + child:DoLayout() + end + elseif oversize then + if width > 1 then + frame:SetPoint("RIGHT", content) + end + end + + if child.height == "fill" then + frame:SetPoint("BOTTOM", content) + isfullheight = true + end + end + + --anchor the last row, if its full height needs a special case since its height has just been changed by the anchor + if isfullheight then + rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -height) + elseif rowstart then + rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -(height + (rowoffset - rowstartoffset) + 3)) + end + + height = height + rowheight + 3 + safecall(content.obj.LayoutFinished, content.obj, nil, height) + end) + +-- Get alignment method and value. Possible alignment methods are a callback, a number, "start", "middle", "end", "fill" or "TOPLEFT", "BOTTOMRIGHT" etc. +local GetCellAlign = function (dir, tableObj, colObj, cellObj, cell, child) + local fn = cellObj and (cellObj["align" .. dir] or cellObj.align) + or colObj and (colObj["align" .. dir] or colObj.align) + or tableObj["align" .. dir] or tableObj.align + or "CENTERLEFT" + local val + child, cell = child or 0, cell or 0 + + if type(fn) == "string" then + fn = fn:lower() + fn = dir == "V" and (fn:sub(1, 3) == "top" and "start" or fn:sub(1, 6) == "bottom" and "end" or fn:sub(1, 6) == "center" and "middle") + or dir == "H" and (fn:sub(-4) == "left" and "start" or fn:sub(-5) == "right" and "end" or fn:sub(-6) == "center" and "middle") + or fn + val = (fn == "start" or fn == "fill") and 0 or fn == "end" and cell - child or (cell - child) / 2 + elseif type(fn) == "function" then + val = fn(child or 0, cell, dir) + else + val = fn + end + + return fn, math_max(0, math_min(val, cell)) +end + +-- Get width or height for multiple cells combined +local GetCellDimension = function (dir, laneDim, from, to, space) + local dim = 0 + for cell=from,to do + dim = dim + (laneDim[cell] or 0) + end + return dim + math_max(0, to - from) * (space or 0) +end + +--[[ Options +============ +Container: + - columns ({col, col, ...}): Column settings. "col" can be a number (<= 0: content width, <1: rel. width, <10: weight, >=10: abs. width) or a table with column setting. + - space, spaceH, spaceV: Overall, horizontal and vertical spacing between cells. + - align, alignH, alignV: Overall, horizontal and vertical cell alignment. See GetCellAlign() for possible values. +Columns: + - width: Fixed column width (nil or <=0: content width, <1: rel. width, >=1: abs. width). + - min or 1: Min width for content based width + - max or 2: Max width for content based width + - weight: Flexible column width. The leftover width after accounting for fixed-width columns is distributed to weighted columns according to their weights. + - align, alignH, alignV: Overwrites the container setting for alignment. +Cell: + - colspan: Makes a cell span multiple columns. + - rowspan: Makes a cell span multiple rows. + - align, alignH, alignV: Overwrites the container and column setting for alignment. +]] +AceGUI:RegisterLayout("Table", + function (content, children) + local obj = content.obj + obj:PauseLayout() + + local tableObj = obj:GetUserData("table") + local cols = tableObj.columns + local spaceH = tableObj.spaceH or tableObj.space or 0 + local spaceV = tableObj.spaceV or tableObj.space or 0 + local totalH = (content:GetWidth() or content.width or 0) - spaceH * (#cols - 1) + + -- We need to reuse these because layout events can come in very frequently + local layoutCache = obj:GetUserData("layoutCache") + if not layoutCache then + layoutCache = {{}, {}, {}, {}, {}, {}} + obj:SetUserData("layoutCache", layoutCache) + end + local t, laneH, laneV, rowspans, rowStart, colStart = unpack(layoutCache) + + -- Create the grid + local n, slotFound = 0 + for i,child in ipairs(children) do + if child:IsShown() then + repeat + n = n + 1 + local col = (n - 1) % #cols + 1 + local row = math_ceil(n / #cols) + local rowspan = rowspans[col] + local cell = rowspan and rowspan.child or child + local cellObj = cell:GetUserData("cell") + slotFound = not rowspan + + -- Rowspan + if not rowspan and cellObj and cellObj.rowspan then + rowspan = {child = child, from = row, to = row + cellObj.rowspan - 1} + rowspans[col] = rowspan + end + if rowspan and i == #children then + rowspan.to = row + end + + -- Colspan + local colspan = math_max(0, math_min((cellObj and cellObj.colspan or 1) - 1, #cols - col)) + n = n + colspan + + -- Place the cell + if not rowspan or rowspan.to == row then + t[n] = cell + rowStart[cell] = rowspan and rowspan.from or row + colStart[cell] = col + + if rowspan then + rowspans[col] = nil + end + end + until slotFound + end + end + + local rows = math_ceil(n / #cols) + + -- Determine fixed size cols and collect weights + local extantH, totalWeight = totalH, 0 + for col,colObj in ipairs(cols) do + laneH[col] = 0 + + if type(colObj) == "number" then + colObj = {[colObj >= 1 and colObj < 10 and "weight" or "width"] = colObj} + cols[col] = colObj + end + + if colObj.weight then + -- Weight + totalWeight = totalWeight + (colObj.weight or 1) + else + if not colObj.width or colObj.width <= 0 then + -- Content width + for row=1,rows do + local child = t[(row - 1) * #cols + col] + if child then + local f = child.frame + f:ClearAllPoints() + local childH = f:GetWidth() or 0 + + laneH[col] = math_max(laneH[col], childH - GetCellDimension("H", laneH, colStart[child], col - 1, spaceH)) + end + end + + laneH[col] = math_max(colObj.min or colObj[1] or 0, math_min(laneH[col], colObj.max or colObj[2] or laneH[col])) + else + -- Rel./Abs. width + laneH[col] = colObj.width < 1 and colObj.width * totalH or colObj.width + end + extantH = math_max(0, extantH - laneH[col]) + end + end + + -- Determine sizes based on weight + local scale = totalWeight > 0 and extantH / totalWeight or 0 + for col,colObj in pairs(cols) do + if colObj.weight then + laneH[col] = scale * colObj.weight + end + end + + -- Arrange children + for row=1,rows do + local rowV = 0 + + -- Horizontal placement and sizing + for col=1,#cols do + local child = t[(row - 1) * #cols + col] + if child then + local colObj = cols[colStart[child]] + local cellObj = child:GetUserData("cell") + local offsetH = GetCellDimension("H", laneH, 1, colStart[child] - 1, spaceH) + (colStart[child] == 1 and 0 or spaceH) + local cellH = GetCellDimension("H", laneH, colStart[child], col, spaceH) + + local f = child.frame + f:ClearAllPoints() + local childH = f:GetWidth() or 0 + + local alignFn, align = GetCellAlign("H", tableObj, colObj, cellObj, cellH, childH) + f:SetPoint("LEFT", content, offsetH + align, 0) + if child:IsFullWidth() or alignFn == "fill" or childH > cellH then + f:SetPoint("RIGHT", content, "LEFT", offsetH + align + cellH, 0) + end + + if child.DoLayout then + child:DoLayout() + end + + rowV = math_max(rowV, (f:GetHeight() or 0) - GetCellDimension("V", laneV, rowStart[child], row - 1, spaceV)) + end + end + + laneV[row] = rowV + + -- Vertical placement and sizing + for col=1,#cols do + local child = t[(row - 1) * #cols + col] + if child then + local colObj = cols[colStart[child]] + local cellObj = child:GetUserData("cell") + local offsetV = GetCellDimension("V", laneV, 1, rowStart[child] - 1, spaceV) + (rowStart[child] == 1 and 0 or spaceV) + local cellV = GetCellDimension("V", laneV, rowStart[child], row, spaceV) + + local f = child.frame + local childV = f:GetHeight() or 0 + + local alignFn, align = GetCellAlign("V", tableObj, colObj, cellObj, cellV, childV) + if child:IsFullHeight() or alignFn == "fill" then + f:SetHeight(cellV) + end + f:SetPoint("TOP", content, 0, -(offsetV + align)) + end + end + end + + -- Calculate total height + local totalV = GetCellDimension("V", laneV, 1, #laneV, spaceV) + + -- Cleanup + for _,v in pairs(layoutCache) do wipe(v) end + + safecall(obj.LayoutFinished, obj, nil, totalV) + obj:ResumeLayout() + end) diff --git a/Titan/libs/Ace/AceGUI-3.0/AceGUI-3.0.xml b/Titan/libs/Ace/AceGUI-3.0/AceGUI-3.0.xml new file mode 100644 index 0000000..b515077 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/AceGUI-3.0.xml @@ -0,0 +1,28 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="AceGUI-3.0.lua"/> + <!-- Container --> + <Script file="widgets\AceGUIContainer-BlizOptionsGroup.lua"/> + <Script file="widgets\AceGUIContainer-DropDownGroup.lua"/> + <Script file="widgets\AceGUIContainer-Frame.lua"/> + <Script file="widgets\AceGUIContainer-InlineGroup.lua"/> + <Script file="widgets\AceGUIContainer-ScrollFrame.lua"/> + <Script file="widgets\AceGUIContainer-SimpleGroup.lua"/> + <Script file="widgets\AceGUIContainer-TabGroup.lua"/> + <Script file="widgets\AceGUIContainer-TreeGroup.lua"/> + <Script file="widgets\AceGUIContainer-Window.lua"/> + <!-- Widgets --> + <Script file="widgets\AceGUIWidget-Button.lua"/> + <Script file="widgets\AceGUIWidget-CheckBox.lua"/> + <Script file="widgets\AceGUIWidget-ColorPicker.lua"/> + <Script file="widgets\AceGUIWidget-DropDown.lua"/> + <Script file="widgets\AceGUIWidget-DropDown-Items.lua"/> + <Script file="widgets\AceGUIWidget-EditBox.lua"/> + <Script file="widgets\AceGUIWidget-Heading.lua"/> + <Script file="widgets\AceGUIWidget-Icon.lua"/> + <Script file="widgets\AceGUIWidget-InteractiveLabel.lua"/> + <Script file="widgets\AceGUIWidget-Keybinding.lua"/> + <Script file="widgets\AceGUIWidget-Label.lua"/> + <Script file="widgets\AceGUIWidget-MultiLineEditBox.lua"/> + <Script file="widgets\AceGUIWidget-Slider.lua"/> +</Ui> diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua new file mode 100644 index 0000000..d95db58 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua @@ -0,0 +1,143 @@ +--[[----------------------------------------------------------------------------- +BlizOptionsGroup Container +Simple container widget for the integration of AceGUI into the Blizzard Interface Options +-------------------------------------------------------------------------------]] +local Type, Version = "BlizOptionsGroup", 26 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local CreateFrame = CreateFrame + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] + +local function OnShow(frame) + frame.obj:Fire("OnShow") +end + +local function OnHide(frame) + frame.obj:Fire("OnHide") +end + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] + +local function okay(frame) + frame.obj:Fire("okay") +end + +local function cancel(frame) + frame.obj:Fire("cancel") +end + +local function default(frame) + frame.obj:Fire("default") +end + +local function refresh(frame) + frame.obj:Fire("refresh") +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] + +local methods = { + ["OnAcquire"] = function(self) + self:SetName() + self:SetTitle() + end, + + -- ["OnRelease"] = nil, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local contentwidth = width - 63 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - 26 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end, + + ["SetName"] = function(self, name, parent) + self.frame.name = name + self.frame.parent = parent + end, + + ["SetTitle"] = function(self, title) + local content = self.content + content:ClearAllPoints() + if not title or title == "" then + content:SetPoint("TOPLEFT", 10, -10) + self.label:SetText("") + else + content:SetPoint("TOPLEFT", 10, -40) + self.label:SetText(title) + end + content:SetPoint("BOTTOMRIGHT", -10, 10) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Frame", nil, InterfaceOptionsFramePanelContainer) + frame:Hide() + + -- support functions for the Blizzard Interface Options + frame.okay = okay + frame.cancel = cancel + frame.default = default + frame.refresh = refresh + + -- 10.0 support function aliases (cancel has been removed) + frame.OnCommit = okay + frame.OnDefault = default + frame.OnRefresh = refresh + + frame:SetScript("OnHide", OnHide) + frame:SetScript("OnShow", OnShow) + + local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge") + label:SetPoint("TOPLEFT", 10, -15) + label:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", 10, -45) + label:SetJustifyH("LEFT") + label:SetJustifyV("TOP") + + --Container Support + local content = CreateFrame("Frame", nil, frame) + content:SetPoint("TOPLEFT", 10, -10) + content:SetPoint("BOTTOMRIGHT", -10, 10) + + local widget = { + label = label, + frame = frame, + content = content, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua new file mode 100644 index 0000000..cd83755 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua @@ -0,0 +1,157 @@ +--[[----------------------------------------------------------------------------- +DropdownGroup Container +Container controlled by a dropdown on the top. +-------------------------------------------------------------------------------]] +local Type, Version = "DropdownGroup", 22 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local assert, pairs, type = assert, pairs, type + +-- WoW APIs +local CreateFrame = CreateFrame + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function SelectedGroup(self, event, value) + local group = self.parentgroup + local status = group.status or group.localstatus + status.selected = value + self.parentgroup:Fire("OnGroupSelected", value) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self.dropdown:SetText("") + self:SetDropdownWidth(200) + self:SetTitle("") + end, + + ["OnRelease"] = function(self) + self.dropdown.list = nil + self.status = nil + for k in pairs(self.localstatus) do + self.localstatus[k] = nil + end + end, + + ["SetTitle"] = function(self, title) + self.titletext:SetText(title) + self.dropdown.frame:ClearAllPoints() + if title and title ~= "" then + self.dropdown.frame:SetPoint("TOPRIGHT", -2, 0) + else + self.dropdown.frame:SetPoint("TOPLEFT", -1, 0) + end + end, + + ["SetGroupList"] = function(self,list,order) + self.dropdown:SetList(list,order) + end, + + ["SetStatusTable"] = function(self, status) + assert(type(status) == "table") + self.status = status + end, + + ["SetGroup"] = function(self,group) + self.dropdown:SetValue(group) + local status = self.status or self.localstatus + status.selected = group + self:Fire("OnGroupSelected", group) + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local contentwidth = width - 26 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - 63 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end, + + ["LayoutFinished"] = function(self, width, height) + self:SetHeight((height or 0) + 63) + end, + + ["SetDropdownWidth"] = function(self, width) + self.dropdown:SetWidth(width) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local PaneBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 5, bottom = 3 } +} + +local function Constructor() + local frame = CreateFrame("Frame") + frame:SetHeight(100) + frame:SetWidth(100) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + + local titletext = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") + titletext:SetPoint("TOPLEFT", 4, -5) + titletext:SetPoint("TOPRIGHT", -4, -5) + titletext:SetJustifyH("LEFT") + titletext:SetHeight(18) + + local dropdown = AceGUI:Create("Dropdown") + dropdown.frame:SetParent(frame) + dropdown.frame:SetFrameLevel(dropdown.frame:GetFrameLevel() + 2) + dropdown:SetCallback("OnValueChanged", SelectedGroup) + dropdown.frame:SetPoint("TOPLEFT", -1, 0) + dropdown.frame:Show() + dropdown:SetLabel("") + + local border = CreateFrame("Frame", nil, frame, "BackdropTemplate") + border:SetPoint("TOPLEFT", 0, -26) + border:SetPoint("BOTTOMRIGHT", 0, 3) + border:SetBackdrop(PaneBackdrop) + border:SetBackdropColor(0.1,0.1,0.1,0.5) + border:SetBackdropBorderColor(0.4,0.4,0.4) + + --Container Support + local content = CreateFrame("Frame", nil, border) + content:SetPoint("TOPLEFT", 10, -10) + content:SetPoint("BOTTOMRIGHT", -10, 10) + + local widget = { + frame = frame, + localstatus = {}, + titletext = titletext, + dropdown = dropdown, + border = border, + content = content, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + dropdown.parentgroup = widget + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua new file mode 100644 index 0000000..39a1004 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua @@ -0,0 +1,318 @@ +--[[----------------------------------------------------------------------------- +Frame Container +-------------------------------------------------------------------------------]] +local Type, Version = "Frame", 30 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs, assert, type = pairs, assert, type +local wipe = table.wipe + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Button_OnClick(frame) + PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT + frame.obj:Hide() +end + +local function Frame_OnShow(frame) + frame.obj:Fire("OnShow") +end + +local function Frame_OnClose(frame) + frame.obj:Fire("OnClose") +end + +local function Frame_OnMouseDown(frame) + AceGUI:ClearFocus() +end + +local function Title_OnMouseDown(frame) + frame:GetParent():StartMoving() + AceGUI:ClearFocus() +end + +local function MoverSizer_OnMouseUp(mover) + local frame = mover:GetParent() + frame:StopMovingOrSizing() + local self = frame.obj + local status = self.status or self.localstatus + status.width = frame:GetWidth() + status.height = frame:GetHeight() + status.top = frame:GetTop() + status.left = frame:GetLeft() +end + +local function SizerSE_OnMouseDown(frame) + frame:GetParent():StartSizing("BOTTOMRIGHT") + AceGUI:ClearFocus() +end + +local function SizerS_OnMouseDown(frame) + frame:GetParent():StartSizing("BOTTOM") + AceGUI:ClearFocus() +end + +local function SizerE_OnMouseDown(frame) + frame:GetParent():StartSizing("RIGHT") + AceGUI:ClearFocus() +end + +local function StatusBar_OnEnter(frame) + frame.obj:Fire("OnEnterStatusBar") +end + +local function StatusBar_OnLeave(frame) + frame.obj:Fire("OnLeaveStatusBar") +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self.frame:SetParent(UIParent) + self.frame:SetFrameStrata("FULLSCREEN_DIALOG") + self.frame:SetFrameLevel(100) -- Lots of room to draw under it + self:SetTitle() + self:SetStatusText() + self:ApplyStatus() + self:Show() + self:EnableResize(true) + end, + + ["OnRelease"] = function(self) + self.status = nil + wipe(self.localstatus) + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local contentwidth = width - 34 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - 57 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end, + + ["SetTitle"] = function(self, title) + self.titletext:SetText(title) + self.titlebg:SetWidth((self.titletext:GetWidth() or 0) + 10) + end, + + ["SetStatusText"] = function(self, text) + self.statustext:SetText(text) + end, + + ["Hide"] = function(self) + self.frame:Hide() + end, + + ["Show"] = function(self) + self.frame:Show() + end, + + ["EnableResize"] = function(self, state) + local func = state and "Show" or "Hide" + self.sizer_se[func](self.sizer_se) + self.sizer_s[func](self.sizer_s) + self.sizer_e[func](self.sizer_e) + end, + + -- called to set an external table to store status in + ["SetStatusTable"] = function(self, status) + assert(type(status) == "table") + self.status = status + self:ApplyStatus() + end, + + ["ApplyStatus"] = function(self) + local status = self.status or self.localstatus + local frame = self.frame + self:SetWidth(status.width or 700) + self:SetHeight(status.height or 500) + frame:ClearAllPoints() + if status.top and status.left then + frame:SetPoint("TOP", UIParent, "BOTTOM", 0, status.top) + frame:SetPoint("LEFT", UIParent, "LEFT", status.left, 0) + else + frame:SetPoint("CENTER") + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local FrameBackdrop = { + bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background", + edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border", + tile = true, tileSize = 32, edgeSize = 32, + insets = { left = 8, right = 8, top = 8, bottom = 8 } +} + +local PaneBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 5, bottom = 3 } +} + +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent, "BackdropTemplate") + frame:Hide() + + frame:EnableMouse(true) + frame:SetMovable(true) + frame:SetResizable(true) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + frame:SetFrameLevel(100) -- Lots of room to draw under it + frame:SetBackdrop(FrameBackdrop) + frame:SetBackdropColor(0, 0, 0, 1) + if frame.SetResizeBounds then -- WoW 10.0 + frame:SetResizeBounds(400, 200) + else + frame:SetMinResize(400, 200) + end + frame:SetToplevel(true) + frame:SetScript("OnShow", Frame_OnShow) + frame:SetScript("OnHide", Frame_OnClose) + frame:SetScript("OnMouseDown", Frame_OnMouseDown) + + local closebutton = CreateFrame("Button", nil, frame, "UIPanelButtonTemplate") + closebutton:SetScript("OnClick", Button_OnClick) + closebutton:SetPoint("BOTTOMRIGHT", -27, 17) + closebutton:SetHeight(20) + closebutton:SetWidth(100) + closebutton:SetText(CLOSE) + + local statusbg = CreateFrame("Button", nil, frame, "BackdropTemplate") + statusbg:SetPoint("BOTTOMLEFT", 15, 15) + statusbg:SetPoint("BOTTOMRIGHT", -132, 15) + statusbg:SetHeight(24) + statusbg:SetBackdrop(PaneBackdrop) + statusbg:SetBackdropColor(0.1,0.1,0.1) + statusbg:SetBackdropBorderColor(0.4,0.4,0.4) + statusbg:SetScript("OnEnter", StatusBar_OnEnter) + statusbg:SetScript("OnLeave", StatusBar_OnLeave) + + local statustext = statusbg:CreateFontString(nil, "OVERLAY", "GameFontNormal") + statustext:SetPoint("TOPLEFT", 7, -2) + statustext:SetPoint("BOTTOMRIGHT", -7, 2) + statustext:SetHeight(20) + statustext:SetJustifyH("LEFT") + statustext:SetText("") + + local titlebg = frame:CreateTexture(nil, "OVERLAY") + titlebg:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header + titlebg:SetTexCoord(0.31, 0.67, 0, 0.63) + titlebg:SetPoint("TOP", 0, 12) + titlebg:SetWidth(100) + titlebg:SetHeight(40) + + local title = CreateFrame("Frame", nil, frame) + title:EnableMouse(true) + title:SetScript("OnMouseDown", Title_OnMouseDown) + title:SetScript("OnMouseUp", MoverSizer_OnMouseUp) + title:SetAllPoints(titlebg) + + local titletext = title:CreateFontString(nil, "OVERLAY", "GameFontNormal") + titletext:SetPoint("TOP", titlebg, "TOP", 0, -14) + + local titlebg_l = frame:CreateTexture(nil, "OVERLAY") + titlebg_l:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header + titlebg_l:SetTexCoord(0.21, 0.31, 0, 0.63) + titlebg_l:SetPoint("RIGHT", titlebg, "LEFT") + titlebg_l:SetWidth(30) + titlebg_l:SetHeight(40) + + local titlebg_r = frame:CreateTexture(nil, "OVERLAY") + titlebg_r:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header + titlebg_r:SetTexCoord(0.67, 0.77, 0, 0.63) + titlebg_r:SetPoint("LEFT", titlebg, "RIGHT") + titlebg_r:SetWidth(30) + titlebg_r:SetHeight(40) + + local sizer_se = CreateFrame("Frame", nil, frame) + sizer_se:SetPoint("BOTTOMRIGHT") + sizer_se:SetWidth(25) + sizer_se:SetHeight(25) + sizer_se:EnableMouse() + sizer_se:SetScript("OnMouseDown",SizerSE_OnMouseDown) + sizer_se:SetScript("OnMouseUp", MoverSizer_OnMouseUp) + + local line1 = sizer_se:CreateTexture(nil, "BACKGROUND") + line1:SetWidth(14) + line1:SetHeight(14) + line1:SetPoint("BOTTOMRIGHT", -8, 8) + line1:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + local x = 0.1 * 14/17 + line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) + + local line2 = sizer_se:CreateTexture(nil, "BACKGROUND") + line2:SetWidth(8) + line2:SetHeight(8) + line2:SetPoint("BOTTOMRIGHT", -8, 8) + line2:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + x = 0.1 * 8/17 + line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) + + local sizer_s = CreateFrame("Frame", nil, frame) + sizer_s:SetPoint("BOTTOMRIGHT", -25, 0) + sizer_s:SetPoint("BOTTOMLEFT") + sizer_s:SetHeight(25) + sizer_s:EnableMouse(true) + sizer_s:SetScript("OnMouseDown", SizerS_OnMouseDown) + sizer_s:SetScript("OnMouseUp", MoverSizer_OnMouseUp) + + local sizer_e = CreateFrame("Frame", nil, frame) + sizer_e:SetPoint("BOTTOMRIGHT", 0, 25) + sizer_e:SetPoint("TOPRIGHT") + sizer_e:SetWidth(25) + sizer_e:EnableMouse(true) + sizer_e:SetScript("OnMouseDown", SizerE_OnMouseDown) + sizer_e:SetScript("OnMouseUp", MoverSizer_OnMouseUp) + + --Container Support + local content = CreateFrame("Frame", nil, frame) + content:SetPoint("TOPLEFT", 17, -27) + content:SetPoint("BOTTOMRIGHT", -17, 40) + + local widget = { + localstatus = {}, + titletext = titletext, + statustext = statustext, + titlebg = titlebg, + sizer_se = sizer_se, + sizer_s = sizer_s, + sizer_e = sizer_e, + content = content, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + closebutton.obj, statusbg.obj = widget, widget + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua new file mode 100644 index 0000000..1676ae4 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua @@ -0,0 +1,103 @@ +--[[----------------------------------------------------------------------------- +InlineGroup Container +Simple container widget that creates a visible "box" with an optional title. +-------------------------------------------------------------------------------]] +local Type, Version = "InlineGroup", 22 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetWidth(300) + self:SetHeight(100) + self:SetTitle("") + end, + + -- ["OnRelease"] = nil, + + ["SetTitle"] = function(self,title) + self.titletext:SetText(title) + end, + + + ["LayoutFinished"] = function(self, width, height) + if self.noAutoHeight then return end + self:SetHeight((height or 0) + 40) + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local contentwidth = width - 20 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - 20 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local PaneBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 5, bottom = 3 } +} + +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + + local titletext = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") + titletext:SetPoint("TOPLEFT", 14, 0) + titletext:SetPoint("TOPRIGHT", -14, 0) + titletext:SetJustifyH("LEFT") + titletext:SetHeight(18) + + local border = CreateFrame("Frame", nil, frame, "BackdropTemplate") + border:SetPoint("TOPLEFT", 0, -17) + border:SetPoint("BOTTOMRIGHT", -1, 3) + border:SetBackdrop(PaneBackdrop) + border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) + border:SetBackdropBorderColor(0.4, 0.4, 0.4) + + --Container Support + local content = CreateFrame("Frame", nil, border) + content:SetPoint("TOPLEFT", 10, -10) + content:SetPoint("BOTTOMRIGHT", -10, 10) + + local widget = { + frame = frame, + content = content, + titletext = titletext, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua new file mode 100644 index 0000000..d110d03 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua @@ -0,0 +1,215 @@ +--[[----------------------------------------------------------------------------- +ScrollFrame Container +Plain container that scrolls its content and doesn't grow in height. +-------------------------------------------------------------------------------]] +local Type, Version = "ScrollFrame", 26 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs, assert, type = pairs, assert, type +local min, max, floor = math.min, math.max, math.floor + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function FixScrollOnUpdate(frame) + frame:SetScript("OnUpdate", nil) + frame.obj:FixScroll() +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function ScrollFrame_OnMouseWheel(frame, value) + frame.obj:MoveScroll(value) +end + +local function ScrollFrame_OnSizeChanged(frame) + frame:SetScript("OnUpdate", FixScrollOnUpdate) +end + +local function ScrollBar_OnScrollValueChanged(frame, value) + frame.obj:SetScroll(value) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetScroll(0) + self.scrollframe:SetScript("OnUpdate", FixScrollOnUpdate) + end, + + ["OnRelease"] = function(self) + self.status = nil + for k in pairs(self.localstatus) do + self.localstatus[k] = nil + end + self.scrollframe:SetPoint("BOTTOMRIGHT") + self.scrollbar:Hide() + self.scrollBarShown = nil + self.content.height, self.content.width, self.content.original_width = nil, nil, nil + end, + + ["SetScroll"] = function(self, value) + local status = self.status or self.localstatus + local viewheight = self.scrollframe:GetHeight() + local height = self.content:GetHeight() + local offset + + if viewheight > height then + offset = 0 + else + offset = floor((height - viewheight) / 1000.0 * value) + end + self.content:ClearAllPoints() + self.content:SetPoint("TOPLEFT", 0, offset) + self.content:SetPoint("TOPRIGHT", 0, offset) + status.offset = offset + status.scrollvalue = value + end, + + ["MoveScroll"] = function(self, value) + local status = self.status or self.localstatus + local height, viewheight = self.scrollframe:GetHeight(), self.content:GetHeight() + + if self.scrollBarShown then + local diff = height - viewheight + local delta = 1 + if value < 0 then + delta = -1 + end + self.scrollbar:SetValue(min(max(status.scrollvalue + delta*(1000/(diff/45)),0), 1000)) + end + end, + + ["FixScroll"] = function(self) + if self.updateLock then return end + self.updateLock = true + local status = self.status or self.localstatus + local height, viewheight = self.scrollframe:GetHeight(), self.content:GetHeight() + local offset = status.offset or 0 + -- Give us a margin of error of 2 pixels to stop some conditions that i would blame on floating point inaccuracys + -- No-one is going to miss 2 pixels at the bottom of the frame, anyhow! + if viewheight < height + 2 then + if self.scrollBarShown then + self.scrollBarShown = nil + self.scrollbar:Hide() + self.scrollbar:SetValue(0) + self.scrollframe:SetPoint("BOTTOMRIGHT") + if self.content.original_width then + self.content.width = self.content.original_width + end + self:DoLayout() + end + else + if not self.scrollBarShown then + self.scrollBarShown = true + self.scrollbar:Show() + self.scrollframe:SetPoint("BOTTOMRIGHT", -20, 0) + if self.content.original_width then + self.content.width = self.content.original_width - 20 + end + self:DoLayout() + end + local value = (offset / (viewheight - height) * 1000) + if value > 1000 then value = 1000 end + self.scrollbar:SetValue(value) + self:SetScroll(value) + if value < 1000 then + self.content:ClearAllPoints() + self.content:SetPoint("TOPLEFT", 0, offset) + self.content:SetPoint("TOPRIGHT", 0, offset) + status.offset = offset + end + end + self.updateLock = nil + end, + + ["LayoutFinished"] = function(self, width, height) + self.content:SetHeight(height or 0 + 20) + + -- update the scrollframe + self:FixScroll() + + -- schedule another update when everything has "settled" + self.scrollframe:SetScript("OnUpdate", FixScrollOnUpdate) + end, + + ["SetStatusTable"] = function(self, status) + assert(type(status) == "table") + self.status = status + if not status.scrollvalue then + status.scrollvalue = 0 + end + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + content.width = width - (self.scrollBarShown and 20 or 0) + content.original_width = width + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + content.height = height + end +} +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + local num = AceGUI:GetNextWidgetNum(Type) + + local scrollframe = CreateFrame("ScrollFrame", nil, frame) + scrollframe:SetPoint("TOPLEFT") + scrollframe:SetPoint("BOTTOMRIGHT") + scrollframe:EnableMouseWheel(true) + scrollframe:SetScript("OnMouseWheel", ScrollFrame_OnMouseWheel) + scrollframe:SetScript("OnSizeChanged", ScrollFrame_OnSizeChanged) + + local scrollbar = CreateFrame("Slider", ("AceConfigDialogScrollFrame%dScrollBar"):format(num), scrollframe, "UIPanelScrollBarTemplate") + scrollbar:SetPoint("TOPLEFT", scrollframe, "TOPRIGHT", 4, -16) + scrollbar:SetPoint("BOTTOMLEFT", scrollframe, "BOTTOMRIGHT", 4, 16) + scrollbar:SetMinMaxValues(0, 1000) + scrollbar:SetValueStep(1) + scrollbar:SetValue(0) + scrollbar:SetWidth(16) + scrollbar:Hide() + -- set the script as the last step, so it doesn't fire yet + scrollbar:SetScript("OnValueChanged", ScrollBar_OnScrollValueChanged) + + local scrollbg = scrollbar:CreateTexture(nil, "BACKGROUND") + scrollbg:SetAllPoints(scrollbar) + scrollbg:SetColorTexture(0, 0, 0, 0.4) + + --Container Support + local content = CreateFrame("Frame", nil, scrollframe) + content:SetPoint("TOPLEFT") + content:SetPoint("TOPRIGHT") + content:SetHeight(400) + scrollframe:SetScrollChild(content) + + local widget = { + localstatus = { scrollvalue = 0 }, + scrollframe = scrollframe, + scrollbar = scrollbar, + content = content, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + scrollframe.obj, scrollbar.obj = widget, widget + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua new file mode 100644 index 0000000..57512c3 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua @@ -0,0 +1,69 @@ +--[[----------------------------------------------------------------------------- +SimpleGroup Container +Simple container widget that just groups widgets. +-------------------------------------------------------------------------------]] +local Type, Version = "SimpleGroup", 20 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetWidth(300) + self:SetHeight(100) + end, + + -- ["OnRelease"] = nil, + + ["LayoutFinished"] = function(self, width, height) + if self.noAutoHeight then return end + self:SetHeight(height or 0) + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + content:SetWidth(width) + content.width = width + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + content:SetHeight(height) + content.height = height + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + + --Container Support + local content = CreateFrame("Frame", nil, frame) + content:SetPoint("TOPLEFT") + content:SetPoint("BOTTOMRIGHT") + + local widget = { + frame = frame, + content = content, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua new file mode 100644 index 0000000..8e46876 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua @@ -0,0 +1,535 @@ +--[[----------------------------------------------------------------------------- +TabGroup Container +Container that uses tabs on top to switch between groups. +-------------------------------------------------------------------------------]] +local Type, Version = "TabGroup", 38 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs, ipairs, assert, type, wipe = pairs, ipairs, assert, type, table.wipe + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame, UIParent = CreateFrame, UIParent +local _G = _G + +-- local upvalue storage used by BuildTabs +local widths = {} +local rowwidths = {} +local rowends = {} + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] + +local function PanelTemplates_TabResize(tab, padding, absoluteSize, minWidth, maxWidth, absoluteTextSize) + local tabName = tab:GetName(); + + local buttonMiddle = tab.Middle or tab.middleTexture or _G[tabName.."Middle"]; + local buttonMiddleDisabled = tab.MiddleDisabled or (tabName and _G[tabName.."MiddleDisabled"]); + local left = tab.Left or tab.leftTexture or _G[tabName.."Left"]; + local sideWidths = 2 * left:GetWidth(); + local tabText = tab.Text or _G[tab:GetName().."Text"]; + local highlightTexture = tab.HighlightTexture or (tabName and _G[tabName.."HighlightTexture"]); + + local width, tabWidth; + local textWidth; + if ( absoluteTextSize ) then + textWidth = absoluteTextSize; + else + tabText:SetWidth(0); + textWidth = tabText:GetWidth(); + end + -- If there's an absolute size specified then use it + if ( absoluteSize ) then + if ( absoluteSize < sideWidths) then + width = 1; + tabWidth = sideWidths + else + width = absoluteSize - sideWidths; + tabWidth = absoluteSize + end + tabText:SetWidth(width); + else + -- Otherwise try to use padding + if ( padding ) then + width = textWidth + padding; + else + width = textWidth + 24; + end + -- If greater than the maxWidth then cap it + if ( maxWidth and width > maxWidth ) then + if ( padding ) then + width = maxWidth + padding; + else + width = maxWidth + 24; + end + tabText:SetWidth(width); + else + tabText:SetWidth(0); + end + if (minWidth and width < minWidth) then + width = minWidth; + end + tabWidth = width + sideWidths; + end + + if ( buttonMiddle ) then + buttonMiddle:SetWidth(width); + end + if ( buttonMiddleDisabled ) then + buttonMiddleDisabled:SetWidth(width); + end + + tab:SetWidth(tabWidth); + + if ( highlightTexture ) then + highlightTexture:SetWidth(tabWidth); + end +end + +local function PanelTemplates_DeselectTab(tab) + local name = tab:GetName(); + + local left = tab.Left or _G[name.."Left"]; + local middle = tab.Middle or _G[name.."Middle"]; + local right = tab.Right or _G[name.."Right"]; + left:Show(); + middle:Show(); + right:Show(); + --tab:UnlockHighlight(); + tab:Enable(); + local text = tab.Text or _G[name.."Text"]; + text:SetPoint("CENTER", tab, "CENTER", (tab.deselectedTextX or 0), (tab.deselectedTextY or 2)); + + local leftDisabled = tab.LeftDisabled or _G[name.."LeftDisabled"]; + local middleDisabled = tab.MiddleDisabled or _G[name.."MiddleDisabled"]; + local rightDisabled = tab.RightDisabled or _G[name.."RightDisabled"]; + leftDisabled:Hide(); + middleDisabled:Hide(); + rightDisabled:Hide(); +end + +local function PanelTemplates_SelectTab(tab) + local name = tab:GetName(); + + local left = tab.Left or _G[name.."Left"]; + local middle = tab.Middle or _G[name.."Middle"]; + local right = tab.Right or _G[name.."Right"]; + left:Hide(); + middle:Hide(); + right:Hide(); + --tab:LockHighlight(); + tab:Disable(); + tab:SetDisabledFontObject(GameFontHighlightSmall); + local text = tab.Text or _G[name.."Text"]; + text:SetPoint("CENTER", tab, "CENTER", (tab.selectedTextX or 0), (tab.selectedTextY or -3)); + + local leftDisabled = tab.LeftDisabled or _G[name.."LeftDisabled"]; + local middleDisabled = tab.MiddleDisabled or _G[name.."MiddleDisabled"]; + local rightDisabled = tab.RightDisabled or _G[name.."RightDisabled"]; + leftDisabled:Show(); + middleDisabled:Show(); + rightDisabled:Show(); + + if GameTooltip:IsOwned(tab) then + GameTooltip:Hide(); + end +end + +local function PanelTemplates_SetDisabledTabState(tab) + local name = tab:GetName(); + local left = tab.Left or _G[name.."Left"]; + local middle = tab.Middle or _G[name.."Middle"]; + local right = tab.Right or _G[name.."Right"]; + left:Show(); + middle:Show(); + right:Show(); + --tab:UnlockHighlight(); + tab:Disable(); + tab.text = tab:GetText(); + -- Gray out text + tab:SetDisabledFontObject(GameFontDisableSmall); + local leftDisabled = tab.LeftDisabled or _G[name.."LeftDisabled"]; + local middleDisabled = tab.MiddleDisabled or _G[name.."MiddleDisabled"]; + local rightDisabled = tab.RightDisabled or _G[name.."RightDisabled"]; + leftDisabled:Hide(); + middleDisabled:Hide(); + rightDisabled:Hide(); +end + +local function UpdateTabLook(frame) + if frame.disabled then + PanelTemplates_SetDisabledTabState(frame) + elseif frame.selected then + PanelTemplates_SelectTab(frame) + else + PanelTemplates_DeselectTab(frame) + end +end + +local function Tab_SetText(frame, text) + frame:_SetText(text) + local width = frame.obj.frame.width or frame.obj.frame:GetWidth() or 0 + PanelTemplates_TabResize(frame, 0, nil, nil, width, frame:GetFontString():GetStringWidth()) +end + +local function Tab_SetSelected(frame, selected) + frame.selected = selected + UpdateTabLook(frame) +end + +local function Tab_SetDisabled(frame, disabled) + frame.disabled = disabled + UpdateTabLook(frame) +end + +local function BuildTabsOnUpdate(frame) + local self = frame.obj + self:BuildTabs() + frame:SetScript("OnUpdate", nil) +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Tab_OnClick(frame) + if not (frame.selected or frame.disabled) then + PlaySound(841) -- SOUNDKIT.IG_CHARACTER_INFO_TAB + frame.obj:SelectTab(frame.value) + end +end + +local function Tab_OnEnter(frame) + local self = frame.obj + self:Fire("OnTabEnter", self.tabs[frame.id].value, frame) +end + +local function Tab_OnLeave(frame) + local self = frame.obj + self:Fire("OnTabLeave", self.tabs[frame.id].value, frame) +end + +local function Tab_OnShow(frame) + _G[frame:GetName().."HighlightTexture"]:SetWidth(frame:GetTextWidth() + 30) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetTitle() + end, + + ["OnRelease"] = function(self) + self.status = nil + for k in pairs(self.localstatus) do + self.localstatus[k] = nil + end + self.tablist = nil + for _, tab in pairs(self.tabs) do + tab:Hide() + end + end, + + ["CreateTab"] = function(self, id) + local tabname = ("AceGUITabGroup%dTab%d"):format(self.num, id) + local tab = CreateFrame("Button", tabname, self.border) + tab:SetSize(115, 24) + tab.deselectedTextY = -3 + tab.selectedTextY = -2 + + tab.LeftDisabled = tab:CreateTexture(tabname .. "LeftDisabled", "BORDER") + tab.LeftDisabled:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-ActiveTab") + tab.LeftDisabled:SetSize(20, 24) + tab.LeftDisabled:SetPoint("BOTTOMLEFT", 0, -3) + tab.LeftDisabled:SetTexCoord(0, 0.15625, 0, 1.0) + + tab.MiddleDisabled = tab:CreateTexture(tabname .. "MiddleDisabled", "BORDER") + tab.MiddleDisabled:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-ActiveTab") + tab.MiddleDisabled:SetSize(88, 24) + tab.MiddleDisabled:SetPoint("LEFT", tab.LeftDisabled, "RIGHT") + tab.MiddleDisabled:SetTexCoord(0.15625, 0.84375, 0, 1.0) + + tab.RightDisabled = tab:CreateTexture(tabname .. "RightDisabled", "BORDER") + tab.RightDisabled:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-ActiveTab") + tab.RightDisabled:SetSize(20, 24) + tab.RightDisabled:SetPoint("LEFT", tab.MiddleDisabled, "RIGHT") + tab.RightDisabled:SetTexCoord(0.84375, 1.0, 0, 1.0) + + tab.Left = tab:CreateTexture(tabname .. "Left", "BORDER") + tab.Left:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-InActiveTab") + tab.Left:SetSize(20, 24) + tab.Left:SetPoint("TOPLEFT") + tab.Left:SetTexCoord(0, 0.15625, 0, 1.0) + + tab.Middle = tab:CreateTexture(tabname .. "Middle", "BORDER") + tab.Middle:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-InActiveTab") + tab.Middle:SetSize(88, 24) + tab.Middle:SetPoint("LEFT", tab.Left, "RIGHT") + tab.Middle:SetTexCoord(0.15625, 0.84375, 0, 1.0) + + tab.Right = tab:CreateTexture(tabname .. "Right", "BORDER") + tab.Right:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-InActiveTab") + tab.Right:SetSize(20, 24) + tab.Right:SetPoint("LEFT", tab.Middle, "RIGHT") + tab.Right:SetTexCoord(0.84375, 1.0, 0, 1.0) + + tab.Text = tab:CreateFontString(tabname .. "Text") + tab:SetFontString(tab.Text) + + tab:SetNormalFontObject(GameFontNormalSmall) + tab:SetHighlightFontObject(GameFontHighlightSmall) + tab:SetDisabledFontObject(GameFontHighlightSmall) + tab:SetHighlightTexture("Interface\\PaperDollInfoFrame\\UI-Character-Tab-Highlight", "ADD") + tab.HighlightTexture = tab:GetHighlightTexture() + tab.HighlightTexture:ClearAllPoints() + tab.HighlightTexture:SetPoint("LEFT", tab, "LEFT", 10, -4) + tab.HighlightTexture:SetPoint("RIGHT", tab, "RIGHT", -10, -4) + _G[tabname .. "HighlightTexture"] = tab.HighlightTexture + + tab.obj = self + tab.id = id + + tab.text = tab.Text -- compat + tab.text:ClearAllPoints() + tab.text:SetPoint("LEFT", 14, -3) + tab.text:SetPoint("RIGHT", -12, -3) + + tab:SetScript("OnClick", Tab_OnClick) + tab:SetScript("OnEnter", Tab_OnEnter) + tab:SetScript("OnLeave", Tab_OnLeave) + tab:SetScript("OnShow", Tab_OnShow) + + tab._SetText = tab.SetText + tab.SetText = Tab_SetText + tab.SetSelected = Tab_SetSelected + tab.SetDisabled = Tab_SetDisabled + + return tab + end, + + ["SetTitle"] = function(self, text) + self.titletext:SetText(text or "") + if text and text ~= "" then + self.alignoffset = 25 + else + self.alignoffset = 18 + end + self:BuildTabs() + end, + + ["SetStatusTable"] = function(self, status) + assert(type(status) == "table") + self.status = status + end, + + ["SelectTab"] = function(self, value) + local status = self.status or self.localstatus + local found + for i, v in ipairs(self.tabs) do + if v.value == value then + v:SetSelected(true) + found = true + else + v:SetSelected(false) + end + end + status.selected = value + if found then + self:Fire("OnGroupSelected",value) + end + end, + + ["SetTabs"] = function(self, tabs) + self.tablist = tabs + self:BuildTabs() + end, + + + ["BuildTabs"] = function(self) + local hastitle = (self.titletext:GetText() and self.titletext:GetText() ~= "") + local tablist = self.tablist + local tabs = self.tabs + + if not tablist then return end + + local width = self.frame.width or self.frame:GetWidth() or 0 + + wipe(widths) + wipe(rowwidths) + wipe(rowends) + + --Place Text into tabs and get thier initial width + for i, v in ipairs(tablist) do + local tab = tabs[i] + if not tab then + tab = self:CreateTab(i) + tabs[i] = tab + end + + tab:Show() + tab:SetText(v.text) + tab:SetDisabled(v.disabled) + tab.value = v.value + + widths[i] = tab:GetWidth() - 6 --tabs are anchored 10 pixels from the right side of the previous one to reduce spacing, but add a fixed 4px padding for the text + end + + for i = (#tablist)+1, #tabs, 1 do + tabs[i]:Hide() + end + + --First pass, find the minimum number of rows needed to hold all tabs and the initial tab layout + local numtabs = #tablist + local numrows = 1 + local usedwidth = 0 + + for i = 1, #tablist do + --If this is not the first tab of a row and there isn't room for it + if usedwidth ~= 0 and (width - usedwidth - widths[i]) < 0 then + rowwidths[numrows] = usedwidth + 10 --first tab in each row takes up an extra 10px + rowends[numrows] = i - 1 + numrows = numrows + 1 + usedwidth = 0 + end + usedwidth = usedwidth + widths[i] + end + rowwidths[numrows] = usedwidth + 10 --first tab in each row takes up an extra 10px + rowends[numrows] = #tablist + + --Fix for single tabs being left on the last row, move a tab from the row above if applicable + if numrows > 1 then + --if the last row has only one tab + if rowends[numrows-1] == numtabs-1 then + --if there are more than 2 tabs in the 2nd last row + if (numrows == 2 and rowends[numrows-1] > 2) or (rowends[numrows] - rowends[numrows-1] > 2) then + --move 1 tab from the second last row to the last, if there is enough space + if (rowwidths[numrows] + widths[numtabs-1]) <= width then + rowends[numrows-1] = rowends[numrows-1] - 1 + rowwidths[numrows] = rowwidths[numrows] + widths[numtabs-1] + rowwidths[numrows-1] = rowwidths[numrows-1] - widths[numtabs-1] + end + end + end + end + + --anchor the rows as defined and resize tabs to fill thier row + local starttab = 1 + for row, endtab in ipairs(rowends) do + local first = true + for tabno = starttab, endtab do + local tab = tabs[tabno] + tab:ClearAllPoints() + if first then + tab:SetPoint("TOPLEFT", self.frame, "TOPLEFT", 0, -(hastitle and 14 or 7)-(row-1)*20 ) + first = false + else + tab:SetPoint("LEFT", tabs[tabno-1], "RIGHT", -10, 0) + end + end + + -- equal padding for each tab to fill the available width, + -- if the used space is above 75% already + -- the 18 pixel is the typical width of a scrollbar, so we can have a tab group inside a scrolling frame, + -- and not have the tabs jump around funny when switching between tabs that need scrolling and those that don't + local padding = 0 + if not (numrows == 1 and rowwidths[1] < width*0.75 - 18) then + padding = (width - rowwidths[row]) / (endtab - starttab+1) + end + + for i = starttab, endtab do + PanelTemplates_TabResize(tabs[i], padding + 4, nil, nil, width, tabs[i]:GetFontString():GetStringWidth()) + end + starttab = endtab + 1 + end + + self.borderoffset = (hastitle and 17 or 10)+((numrows)*20) + self.border:SetPoint("TOPLEFT", 1, -self.borderoffset) + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local contentwidth = width - 60 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + self:BuildTabs(self) + self.frame:SetScript("OnUpdate", BuildTabsOnUpdate) + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - (self.borderoffset + 23) + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end, + + ["LayoutFinished"] = function(self, width, height) + if self.noAutoHeight then return end + self:SetHeight((height or 0) + (self.borderoffset + 23)) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local PaneBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 5, bottom = 3 } +} + +local function Constructor() + local num = AceGUI:GetNextWidgetNum(Type) + local frame = CreateFrame("Frame",nil,UIParent) + frame:SetHeight(100) + frame:SetWidth(100) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + + local titletext = frame:CreateFontString(nil,"OVERLAY","GameFontNormal") + titletext:SetPoint("TOPLEFT", 14, 0) + titletext:SetPoint("TOPRIGHT", -14, 0) + titletext:SetJustifyH("LEFT") + titletext:SetHeight(18) + titletext:SetText("") + + local border = CreateFrame("Frame", nil, frame, "BackdropTemplate") + border:SetPoint("TOPLEFT", 1, -27) + border:SetPoint("BOTTOMRIGHT", -1, 3) + border:SetBackdrop(PaneBackdrop) + border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) + border:SetBackdropBorderColor(0.4, 0.4, 0.4) + + local content = CreateFrame("Frame", nil, border) + content:SetPoint("TOPLEFT", 10, -7) + content:SetPoint("BOTTOMRIGHT", -10, 7) + + local widget = { + num = num, + frame = frame, + localstatus = {}, + alignoffset = 18, + titletext = titletext, + border = border, + borderoffset = 27, + tabs = {}, + content = content, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua new file mode 100644 index 0000000..89f387a --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua @@ -0,0 +1,719 @@ +--[[----------------------------------------------------------------------------- +TreeGroup Container +Container that uses a tree control to switch between groups. +-------------------------------------------------------------------------------]] +local Type, Version = "TreeGroup", 47 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local next, pairs, ipairs, assert, type = next, pairs, ipairs, assert, type +local math_min, math_max, floor = math.min, math.max, math.floor +local select, tremove, unpack, tconcat = select, table.remove, unpack, table.concat + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +-- Recycling functions +local new, del +do + local pool = setmetatable({},{__mode='k'}) + function new() + local t = next(pool) + if t then + pool[t] = nil + return t + else + return {} + end + end + function del(t) + for k in pairs(t) do + t[k] = nil + end + pool[t] = true + end +end + +local DEFAULT_TREE_WIDTH = 175 +local DEFAULT_TREE_SIZABLE = true + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function GetButtonUniqueValue(line) + local parent = line.parent + if parent and parent.value then + return GetButtonUniqueValue(parent).."\001"..line.value + else + return line.value + end +end + +local function UpdateButton(button, treeline, selected, canExpand, isExpanded) + local self = button.obj + local toggle = button.toggle + local text = treeline.text or "" + local icon = treeline.icon + local iconCoords = treeline.iconCoords + local level = treeline.level + local value = treeline.value + local uniquevalue = treeline.uniquevalue + local disabled = treeline.disabled + + button.treeline = treeline + button.value = value + button.uniquevalue = uniquevalue + if selected then + button:LockHighlight() + button.selected = true + else + button:UnlockHighlight() + button.selected = false + end + button.level = level + if ( level == 1 ) then + button:SetNormalFontObject("GameFontNormal") + button:SetHighlightFontObject("GameFontHighlight") + button.text:SetPoint("LEFT", (icon and 16 or 0) + 8, 2) + else + button:SetNormalFontObject("GameFontHighlightSmall") + button:SetHighlightFontObject("GameFontHighlightSmall") + button.text:SetPoint("LEFT", (icon and 16 or 0) + 8 * level, 2) + end + + if disabled then + button:EnableMouse(false) + button.text:SetText("|cff808080"..text..FONT_COLOR_CODE_CLOSE) + else + button.text:SetText(text) + button:EnableMouse(true) + end + + if icon then + button.icon:SetTexture(icon) + button.icon:SetPoint("LEFT", 8 * level, (level == 1) and 0 or 1) + else + button.icon:SetTexture(nil) + end + + if iconCoords then + button.icon:SetTexCoord(unpack(iconCoords)) + else + button.icon:SetTexCoord(0, 1, 0, 1) + end + + if canExpand then + if not isExpanded then + toggle:SetNormalTexture(130838) -- Interface\\Buttons\\UI-PlusButton-UP + toggle:SetPushedTexture(130836) -- Interface\\Buttons\\UI-PlusButton-DOWN + else + toggle:SetNormalTexture(130821) -- Interface\\Buttons\\UI-MinusButton-UP + toggle:SetPushedTexture(130820) -- Interface\\Buttons\\UI-MinusButton-DOWN + end + toggle:Show() + else + toggle:Hide() + end +end + +local function ShouldDisplayLevel(tree) + local result = false + for k, v in ipairs(tree) do + if v.children == nil and v.visible ~= false then + result = true + elseif v.children then + result = result or ShouldDisplayLevel(v.children) + end + if result then return result end + end + return false +end + +local function addLine(self, v, tree, level, parent) + local line = new() + line.value = v.value + line.text = v.text + line.icon = v.icon + line.iconCoords = v.iconCoords + line.disabled = v.disabled + line.tree = tree + line.level = level + line.parent = parent + line.visible = v.visible + line.uniquevalue = GetButtonUniqueValue(line) + if v.children then + line.hasChildren = true + else + line.hasChildren = nil + end + self.lines[#self.lines+1] = line + return line +end + +--fire an update after one frame to catch the treeframes height +local function FirstFrameUpdate(frame) + local self = frame.obj + frame:SetScript("OnUpdate", nil) + self:RefreshTree(nil, true) +end + +local function BuildUniqueValue(...) + local n = select('#', ...) + if n == 1 then + return ... + else + return (...).."\001"..BuildUniqueValue(select(2,...)) + end +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Expand_OnClick(frame) + local button = frame.button + local self = button.obj + local status = (self.status or self.localstatus).groups + status[button.uniquevalue] = not status[button.uniquevalue] + self:RefreshTree() +end + +local function Button_OnClick(frame) + local self = frame.obj + self:Fire("OnClick", frame.uniquevalue, frame.selected) + if not frame.selected then + self:SetSelected(frame.uniquevalue) + frame.selected = true + frame:LockHighlight() + self:RefreshTree() + end + AceGUI:ClearFocus() +end + +local function Button_OnDoubleClick(button) + local self = button.obj + local status = (self.status or self.localstatus).groups + status[button.uniquevalue] = not status[button.uniquevalue] + self:RefreshTree() +end + +local function Button_OnEnter(frame) + local self = frame.obj + self:Fire("OnButtonEnter", frame.uniquevalue, frame) + + if self.enabletooltips then + local tooltip = AceGUI.tooltip + tooltip:SetOwner(frame, "ANCHOR_NONE") + tooltip:ClearAllPoints() + tooltip:SetPoint("LEFT",frame,"RIGHT") + tooltip:SetText(frame.text:GetText() or "", 1, .82, 0, true) + + tooltip:Show() + end +end + +local function Button_OnLeave(frame) + local self = frame.obj + self:Fire("OnButtonLeave", frame.uniquevalue, frame) + + if self.enabletooltips then + AceGUI.tooltip:Hide() + end +end + +local function OnScrollValueChanged(frame, value) + if frame.obj.noupdate then return end + local self = frame.obj + local status = self.status or self.localstatus + status.scrollvalue = floor(value + 0.5) + self:RefreshTree() + AceGUI:ClearFocus() +end + +local function Tree_OnSizeChanged(frame) + frame.obj:RefreshTree() +end + +local function Tree_OnMouseWheel(frame, delta) + local self = frame.obj + if self.showscroll then + local scrollbar = self.scrollbar + local min, max = scrollbar:GetMinMaxValues() + local value = scrollbar:GetValue() + local newvalue = math_min(max,math_max(min,value - delta)) + if value ~= newvalue then + scrollbar:SetValue(newvalue) + end + end +end + +local function Dragger_OnLeave(frame) + frame:SetBackdropColor(1, 1, 1, 0) +end + +local function Dragger_OnEnter(frame) + frame:SetBackdropColor(1, 1, 1, 0.8) +end + +local function Dragger_OnMouseDown(frame) + local treeframe = frame:GetParent() + treeframe:StartSizing("RIGHT") +end + +local function Dragger_OnMouseUp(frame) + local treeframe = frame:GetParent() + local self = treeframe.obj + local treeframeParent = treeframe:GetParent() + treeframe:StopMovingOrSizing() + --treeframe:SetScript("OnUpdate", nil) + treeframe:SetUserPlaced(false) + --Without this :GetHeight will get stuck on the current height, causing the tree contents to not resize + treeframe:SetHeight(0) + treeframe:ClearAllPoints() + treeframe:SetPoint("TOPLEFT", treeframeParent, "TOPLEFT",0,0) + treeframe:SetPoint("BOTTOMLEFT", treeframeParent, "BOTTOMLEFT",0,0) + + local status = self.status or self.localstatus + status.treewidth = treeframe:GetWidth() + + treeframe.obj:Fire("OnTreeResize",treeframe:GetWidth()) + -- recalculate the content width + treeframe.obj:OnWidthSet(status.fullwidth) + -- update the layout of the content + treeframe.obj:DoLayout() +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetTreeWidth(DEFAULT_TREE_WIDTH, DEFAULT_TREE_SIZABLE) + self:EnableButtonTooltips(true) + self.frame:SetScript("OnUpdate", FirstFrameUpdate) + end, + + ["OnRelease"] = function(self) + self.status = nil + self.tree = nil + self.frame:SetScript("OnUpdate", nil) + for k, v in pairs(self.localstatus) do + if k == "groups" then + for k2 in pairs(v) do + v[k2] = nil + end + else + self.localstatus[k] = nil + end + end + self.localstatus.scrollvalue = 0 + self.localstatus.treewidth = DEFAULT_TREE_WIDTH + self.localstatus.treesizable = DEFAULT_TREE_SIZABLE + end, + + ["EnableButtonTooltips"] = function(self, enable) + self.enabletooltips = enable + end, + + ["CreateButton"] = function(self) + local num = AceGUI:GetNextWidgetNum("TreeGroupButton") + local button = CreateFrame("Button", ("AceGUI30TreeButton%d"):format(num), self.treeframe, "OptionsListButtonTemplate") + button.obj = self + + local icon = button:CreateTexture(nil, "OVERLAY") + icon:SetWidth(14) + icon:SetHeight(14) + button.icon = icon + + button:SetScript("OnClick",Button_OnClick) + button:SetScript("OnDoubleClick", Button_OnDoubleClick) + button:SetScript("OnEnter",Button_OnEnter) + button:SetScript("OnLeave",Button_OnLeave) + + button.toggle.button = button + button.toggle:SetScript("OnClick",Expand_OnClick) + + button.text:SetHeight(14) -- Prevents text wrapping + + return button + end, + + ["SetStatusTable"] = function(self, status) + assert(type(status) == "table") + self.status = status + if not status.groups then + status.groups = {} + end + if not status.scrollvalue then + status.scrollvalue = 0 + end + if not status.treewidth then + status.treewidth = DEFAULT_TREE_WIDTH + end + if status.treesizable == nil then + status.treesizable = DEFAULT_TREE_SIZABLE + end + self:SetTreeWidth(status.treewidth,status.treesizable) + self:RefreshTree() + end, + + --sets the tree to be displayed + ["SetTree"] = function(self, tree, filter) + self.filter = filter + if tree then + assert(type(tree) == "table") + end + self.tree = tree + self:RefreshTree() + end, + + ["BuildLevel"] = function(self, tree, level, parent) + local groups = (self.status or self.localstatus).groups + + for i, v in ipairs(tree) do + if v.children then + if not self.filter or ShouldDisplayLevel(v.children) then + local line = addLine(self, v, tree, level, parent) + if groups[line.uniquevalue] then + self:BuildLevel(v.children, level+1, line) + end + end + elseif v.visible ~= false or not self.filter then + addLine(self, v, tree, level, parent) + end + end + end, + + ["RefreshTree"] = function(self,scrollToSelection,fromOnUpdate) + local buttons = self.buttons + local lines = self.lines + + for i, v in ipairs(buttons) do + v:Hide() + end + while lines[1] do + local t = tremove(lines) + for k in pairs(t) do + t[k] = nil + end + del(t) + end + + if not self.tree then return end + --Build the list of visible entries from the tree and status tables + local status = self.status or self.localstatus + local groupstatus = status.groups + local tree = self.tree + + local treeframe = self.treeframe + + status.scrollToSelection = status.scrollToSelection or scrollToSelection -- needs to be cached in case the control hasn't been drawn yet (code bails out below) + + self:BuildLevel(tree, 1) + + local numlines = #lines + + local maxlines = (floor(((self.treeframe:GetHeight()or 0) - 20 ) / 18)) + if maxlines <= 0 then return end + + if self.frame:GetParent() == UIParent and not fromOnUpdate then + self.frame:SetScript("OnUpdate", FirstFrameUpdate) + return + end + + local first, last + + scrollToSelection = status.scrollToSelection + status.scrollToSelection = nil + + if numlines <= maxlines then + --the whole tree fits in the frame + status.scrollvalue = 0 + self:ShowScroll(false) + first, last = 1, numlines + else + self:ShowScroll(true) + --scrolling will be needed + self.noupdate = true + self.scrollbar:SetMinMaxValues(0, numlines - maxlines) + --check if we are scrolled down too far + if numlines - status.scrollvalue < maxlines then + status.scrollvalue = numlines - maxlines + end + self.noupdate = nil + first, last = status.scrollvalue+1, status.scrollvalue + maxlines + --show selection? + if scrollToSelection and status.selected then + local show + for i,line in ipairs(lines) do -- find the line number + if line.uniquevalue==status.selected then + show=i + end + end + if not show then + -- selection was deleted or something? + elseif show>=first and show<=last then + -- all good + else + -- scrolling needed! + if show<first then + status.scrollvalue = show-1 + else + status.scrollvalue = show-maxlines + end + first, last = status.scrollvalue+1, status.scrollvalue + maxlines + end + end + if self.scrollbar:GetValue() ~= status.scrollvalue then + self.scrollbar:SetValue(status.scrollvalue) + end + end + + local buttonnum = 1 + for i = first, last do + local line = lines[i] + local button = buttons[buttonnum] + if not button then + button = self:CreateButton() + + buttons[buttonnum] = button + button:SetParent(treeframe) + button:SetFrameLevel(treeframe:GetFrameLevel()+1) + button:ClearAllPoints() + if buttonnum == 1 then + if self.showscroll then + button:SetPoint("TOPRIGHT", -22, -10) + button:SetPoint("TOPLEFT", 0, -10) + else + button:SetPoint("TOPRIGHT", 0, -10) + button:SetPoint("TOPLEFT", 0, -10) + end + else + button:SetPoint("TOPRIGHT", buttons[buttonnum-1], "BOTTOMRIGHT",0,0) + button:SetPoint("TOPLEFT", buttons[buttonnum-1], "BOTTOMLEFT",0,0) + end + end + + UpdateButton(button, line, status.selected == line.uniquevalue, line.hasChildren, groupstatus[line.uniquevalue] ) + button:Show() + buttonnum = buttonnum + 1 + end + + end, + + ["SetSelected"] = function(self, value) + local status = self.status or self.localstatus + if status.selected ~= value then + status.selected = value + self:Fire("OnGroupSelected", value) + end + end, + + ["Select"] = function(self, uniquevalue, ...) + self.filter = false + local status = self.status or self.localstatus + local groups = status.groups + local path = {...} + for i = 1, #path do + groups[tconcat(path, "\001", 1, i)] = true + end + status.selected = uniquevalue + self:RefreshTree(true) + self:Fire("OnGroupSelected", uniquevalue) + end, + + ["SelectByPath"] = function(self, ...) + self:Select(BuildUniqueValue(...), ...) + end, + + ["SelectByValue"] = function(self, uniquevalue) + self:Select(uniquevalue, ("\001"):split(uniquevalue)) + end, + + ["ShowScroll"] = function(self, show) + self.showscroll = show + if show then + self.scrollbar:Show() + if self.buttons[1] then + self.buttons[1]:SetPoint("TOPRIGHT", self.treeframe,"TOPRIGHT",-22,-10) + end + else + self.scrollbar:Hide() + if self.buttons[1] then + self.buttons[1]:SetPoint("TOPRIGHT", self.treeframe,"TOPRIGHT",0,-10) + end + end + end, + + ["OnWidthSet"] = function(self, width) + local content = self.content + local treeframe = self.treeframe + local status = self.status or self.localstatus + status.fullwidth = width + + local contentwidth = width - status.treewidth - 20 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + + local maxtreewidth = math_min(400, width - 50) + + if maxtreewidth > 100 and status.treewidth > maxtreewidth then + self:SetTreeWidth(maxtreewidth, status.treesizable) + end + if treeframe.SetResizeBounds then + treeframe:SetResizeBounds(100, 1, maxtreewidth, 1600) + else + treeframe:SetMaxResize(maxtreewidth, 1600) + end + end, + + ["OnHeightSet"] = function(self, height) + local content = self.content + local contentheight = height - 20 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end, + + ["SetTreeWidth"] = function(self, treewidth, resizable) + if not resizable then + if type(treewidth) == 'number' then + resizable = false + elseif type(treewidth) == 'boolean' then + resizable = treewidth + treewidth = DEFAULT_TREE_WIDTH + else + resizable = false + treewidth = DEFAULT_TREE_WIDTH + end + end + self.treeframe:SetWidth(treewidth) + self.dragger:EnableMouse(resizable) + + local status = self.status or self.localstatus + status.treewidth = treewidth + status.treesizable = resizable + + -- recalculate the content width + if status.fullwidth then + self:OnWidthSet(status.fullwidth) + end + end, + + ["GetTreeWidth"] = function(self) + local status = self.status or self.localstatus + return status.treewidth or DEFAULT_TREE_WIDTH + end, + + ["LayoutFinished"] = function(self, width, height) + if self.noAutoHeight then return end + self:SetHeight((height or 0) + 20) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local PaneBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 5, bottom = 3 } +} + +local DraggerBackdrop = { + bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", + edgeFile = nil, + tile = true, tileSize = 16, edgeSize = 1, + insets = { left = 3, right = 3, top = 7, bottom = 7 } +} + +local function Constructor() + local num = AceGUI:GetNextWidgetNum(Type) + local frame = CreateFrame("Frame", nil, UIParent) + + local treeframe = CreateFrame("Frame", nil, frame, "BackdropTemplate") + treeframe:SetPoint("TOPLEFT") + treeframe:SetPoint("BOTTOMLEFT") + treeframe:SetWidth(DEFAULT_TREE_WIDTH) + treeframe:EnableMouseWheel(true) + treeframe:SetBackdrop(PaneBackdrop) + treeframe:SetBackdropColor(0.1, 0.1, 0.1, 0.5) + treeframe:SetBackdropBorderColor(0.4, 0.4, 0.4) + treeframe:SetResizable(true) + if treeframe.SetResizeBounds then -- WoW 10.0 + treeframe:SetResizeBounds(100, 1, 400, 1600) + else + treeframe:SetMinResize(100, 1) + treeframe:SetMaxResize(400, 1600) + end + treeframe:SetScript("OnUpdate", FirstFrameUpdate) + treeframe:SetScript("OnSizeChanged", Tree_OnSizeChanged) + treeframe:SetScript("OnMouseWheel", Tree_OnMouseWheel) + + local dragger = CreateFrame("Frame", nil, treeframe, "BackdropTemplate") + dragger:SetWidth(8) + dragger:SetPoint("TOP", treeframe, "TOPRIGHT") + dragger:SetPoint("BOTTOM", treeframe, "BOTTOMRIGHT") + dragger:SetBackdrop(DraggerBackdrop) + dragger:SetBackdropColor(1, 1, 1, 0) + dragger:SetScript("OnEnter", Dragger_OnEnter) + dragger:SetScript("OnLeave", Dragger_OnLeave) + dragger:SetScript("OnMouseDown", Dragger_OnMouseDown) + dragger:SetScript("OnMouseUp", Dragger_OnMouseUp) + + local scrollbar = CreateFrame("Slider", ("AceConfigDialogTreeGroup%dScrollBar"):format(num), treeframe, "UIPanelScrollBarTemplate") + scrollbar:SetScript("OnValueChanged", nil) + scrollbar:SetPoint("TOPRIGHT", -10, -26) + scrollbar:SetPoint("BOTTOMRIGHT", -10, 26) + scrollbar:SetMinMaxValues(0,0) + scrollbar:SetValueStep(1) + scrollbar:SetValue(0) + scrollbar:SetWidth(16) + scrollbar:SetScript("OnValueChanged", OnScrollValueChanged) + + local scrollbg = scrollbar:CreateTexture(nil, "BACKGROUND") + scrollbg:SetAllPoints(scrollbar) + scrollbg:SetColorTexture(0,0,0,0.4) + + local border = CreateFrame("Frame", nil, frame, "BackdropTemplate") + border:SetPoint("TOPLEFT", treeframe, "TOPRIGHT") + border:SetPoint("BOTTOMRIGHT") + border:SetBackdrop(PaneBackdrop) + border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) + border:SetBackdropBorderColor(0.4, 0.4, 0.4) + + --Container Support + local content = CreateFrame("Frame", nil, border) + content:SetPoint("TOPLEFT", 10, -10) + content:SetPoint("BOTTOMRIGHT", -10, 10) + + local widget = { + frame = frame, + lines = {}, + levels = {}, + buttons = {}, + hasChildren = {}, + localstatus = { groups = {}, scrollvalue = 0 }, + filter = false, + treeframe = treeframe, + dragger = dragger, + scrollbar = scrollbar, + border = border, + content = content, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + treeframe.obj, dragger.obj, scrollbar.obj = widget, widget, widget + + return AceGUI:RegisterAsContainer(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-Window.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-Window.lua new file mode 100644 index 0000000..f378d93 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIContainer-Window.lua @@ -0,0 +1,336 @@ +local AceGUI = LibStub("AceGUI-3.0") + +-- Lua APIs +local pairs, assert, type = pairs, assert, type + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame, UIParent = CreateFrame, UIParent + +---------------- +-- Main Frame -- +---------------- +--[[ + Events : + OnClose + +]] +do + local Type = "Window" + local Version = 8 + + local function frameOnShow(this) + this.obj:Fire("OnShow") + end + + local function frameOnClose(this) + this.obj:Fire("OnClose") + end + + local function closeOnClick(this) + PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT + this.obj:Hide() + end + + local function frameOnMouseDown(this) + AceGUI:ClearFocus() + end + + local function titleOnMouseDown(this) + this:GetParent():StartMoving() + AceGUI:ClearFocus() + end + + local function frameOnMouseUp(this) + local frame = this:GetParent() + frame:StopMovingOrSizing() + local self = frame.obj + local status = self.status or self.localstatus + status.width = frame:GetWidth() + status.height = frame:GetHeight() + status.top = frame:GetTop() + status.left = frame:GetLeft() + end + + local function sizerseOnMouseDown(this) + this:GetParent():StartSizing("BOTTOMRIGHT") + AceGUI:ClearFocus() + end + + local function sizersOnMouseDown(this) + this:GetParent():StartSizing("BOTTOM") + AceGUI:ClearFocus() + end + + local function sizereOnMouseDown(this) + this:GetParent():StartSizing("RIGHT") + AceGUI:ClearFocus() + end + + local function sizerOnMouseUp(this) + this:GetParent():StopMovingOrSizing() + end + + local function SetTitle(self,title) + self.titletext:SetText(title) + end + + local function SetStatusText(self,text) + -- self.statustext:SetText(text) + end + + local function Hide(self) + self.frame:Hide() + end + + local function Show(self) + self.frame:Show() + end + + local function OnAcquire(self) + self.frame:SetParent(UIParent) + self.frame:SetFrameStrata("FULLSCREEN_DIALOG") + self:ApplyStatus() + self:EnableResize(true) + self:Show() + end + + local function OnRelease(self) + self.status = nil + for k in pairs(self.localstatus) do + self.localstatus[k] = nil + end + end + + -- called to set an external table to store status in + local function SetStatusTable(self, status) + assert(type(status) == "table") + self.status = status + self:ApplyStatus() + end + + local function ApplyStatus(self) + local status = self.status or self.localstatus + local frame = self.frame + self:SetWidth(status.width or 700) + self:SetHeight(status.height or 500) + if status.top and status.left then + frame:SetPoint("TOP",UIParent,"BOTTOM",0,status.top) + frame:SetPoint("LEFT",UIParent,"LEFT",status.left,0) + else + frame:SetPoint("CENTER",UIParent,"CENTER") + end + end + + local function OnWidthSet(self, width) + local content = self.content + local contentwidth = width - 34 + if contentwidth < 0 then + contentwidth = 0 + end + content:SetWidth(contentwidth) + content.width = contentwidth + end + + + local function OnHeightSet(self, height) + local content = self.content + local contentheight = height - 57 + if contentheight < 0 then + contentheight = 0 + end + content:SetHeight(contentheight) + content.height = contentheight + end + + local function EnableResize(self, state) + local func = state and "Show" or "Hide" + self.sizer_se[func](self.sizer_se) + self.sizer_s[func](self.sizer_s) + self.sizer_e[func](self.sizer_e) + end + + local function Constructor() + local frame = CreateFrame("Frame",nil,UIParent) + local self = {} + self.type = "Window" + + self.Hide = Hide + self.Show = Show + self.SetTitle = SetTitle + self.OnRelease = OnRelease + self.OnAcquire = OnAcquire + self.SetStatusText = SetStatusText + self.SetStatusTable = SetStatusTable + self.ApplyStatus = ApplyStatus + self.OnWidthSet = OnWidthSet + self.OnHeightSet = OnHeightSet + self.EnableResize = EnableResize + + self.localstatus = {} + + self.frame = frame + frame.obj = self + frame:SetWidth(700) + frame:SetHeight(500) + frame:SetPoint("CENTER",UIParent,"CENTER",0,0) + frame:EnableMouse() + frame:SetMovable(true) + frame:SetResizable(true) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + frame:SetScript("OnMouseDown", frameOnMouseDown) + + frame:SetScript("OnShow",frameOnShow) + frame:SetScript("OnHide",frameOnClose) + if frame.SetResizeBounds then -- WoW 10.0 + frame:SetResizeBounds(240,240) + else + frame:SetMinResize(240,240) + end + frame:SetToplevel(true) + + local titlebg = frame:CreateTexture(nil, "BACKGROUND") + titlebg:SetTexture(251966) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Title-Background + titlebg:SetPoint("TOPLEFT", 9, -6) + titlebg:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", -28, -24) + + local dialogbg = frame:CreateTexture(nil, "BACKGROUND") + dialogbg:SetTexture(137056) -- Interface\\Tooltips\\UI-Tooltip-Background + dialogbg:SetPoint("TOPLEFT", 8, -24) + dialogbg:SetPoint("BOTTOMRIGHT", -6, 8) + dialogbg:SetVertexColor(0, 0, 0, .75) + + local topleft = frame:CreateTexture(nil, "BORDER") + topleft:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + topleft:SetWidth(64) + topleft:SetHeight(64) + topleft:SetPoint("TOPLEFT") + topleft:SetTexCoord(0.501953125, 0.625, 0, 1) + + local topright = frame:CreateTexture(nil, "BORDER") + topright:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + topright:SetWidth(64) + topright:SetHeight(64) + topright:SetPoint("TOPRIGHT") + topright:SetTexCoord(0.625, 0.75, 0, 1) + + local top = frame:CreateTexture(nil, "BORDER") + top:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + top:SetHeight(64) + top:SetPoint("TOPLEFT", topleft, "TOPRIGHT") + top:SetPoint("TOPRIGHT", topright, "TOPLEFT") + top:SetTexCoord(0.25, 0.369140625, 0, 1) + + local bottomleft = frame:CreateTexture(nil, "BORDER") + bottomleft:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + bottomleft:SetWidth(64) + bottomleft:SetHeight(64) + bottomleft:SetPoint("BOTTOMLEFT") + bottomleft:SetTexCoord(0.751953125, 0.875, 0, 1) + + local bottomright = frame:CreateTexture(nil, "BORDER") + bottomright:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + bottomright:SetWidth(64) + bottomright:SetHeight(64) + bottomright:SetPoint("BOTTOMRIGHT") + bottomright:SetTexCoord(0.875, 1, 0, 1) + + local bottom = frame:CreateTexture(nil, "BORDER") + bottom:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + bottom:SetHeight(64) + bottom:SetPoint("BOTTOMLEFT", bottomleft, "BOTTOMRIGHT") + bottom:SetPoint("BOTTOMRIGHT", bottomright, "BOTTOMLEFT") + bottom:SetTexCoord(0.376953125, 0.498046875, 0, 1) + + local left = frame:CreateTexture(nil, "BORDER") + left:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + left:SetWidth(64) + left:SetPoint("TOPLEFT", topleft, "BOTTOMLEFT") + left:SetPoint("BOTTOMLEFT", bottomleft, "TOPLEFT") + left:SetTexCoord(0.001953125, 0.125, 0, 1) + + local right = frame:CreateTexture(nil, "BORDER") + right:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border + right:SetWidth(64) + right:SetPoint("TOPRIGHT", topright, "BOTTOMRIGHT") + right:SetPoint("BOTTOMRIGHT", bottomright, "TOPRIGHT") + right:SetTexCoord(0.1171875, 0.2421875, 0, 1) + + local close = CreateFrame("Button", nil, frame, "UIPanelCloseButton") + close:SetPoint("TOPRIGHT", 2, 1) + close:SetScript("OnClick", closeOnClick) + self.closebutton = close + close.obj = self + + local titletext = frame:CreateFontString(nil, "ARTWORK") + titletext:SetFontObject(GameFontNormal) + titletext:SetPoint("TOPLEFT", 12, -8) + titletext:SetPoint("TOPRIGHT", -32, -8) + self.titletext = titletext + + local title = CreateFrame("Button", nil, frame) + title:SetPoint("TOPLEFT", titlebg) + title:SetPoint("BOTTOMRIGHT", titlebg) + title:EnableMouse() + title:SetScript("OnMouseDown",titleOnMouseDown) + title:SetScript("OnMouseUp", frameOnMouseUp) + self.title = title + + local sizer_se = CreateFrame("Frame",nil,frame) + sizer_se:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,0) + sizer_se:SetWidth(25) + sizer_se:SetHeight(25) + sizer_se:EnableMouse() + sizer_se:SetScript("OnMouseDown",sizerseOnMouseDown) + sizer_se:SetScript("OnMouseUp", sizerOnMouseUp) + self.sizer_se = sizer_se + + local line1 = sizer_se:CreateTexture(nil, "BACKGROUND") + self.line1 = line1 + line1:SetWidth(14) + line1:SetHeight(14) + line1:SetPoint("BOTTOMRIGHT", -8, 8) + line1:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + local x = 0.1 * 14/17 + line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) + + local line2 = sizer_se:CreateTexture(nil, "BACKGROUND") + self.line2 = line2 + line2:SetWidth(8) + line2:SetHeight(8) + line2:SetPoint("BOTTOMRIGHT", -8, 8) + line2:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + x = 0.1 * 8/17 + line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) + + local sizer_s = CreateFrame("Frame",nil,frame) + sizer_s:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-25,0) + sizer_s:SetPoint("BOTTOMLEFT",frame,"BOTTOMLEFT",0,0) + sizer_s:SetHeight(25) + sizer_s:EnableMouse() + sizer_s:SetScript("OnMouseDown",sizersOnMouseDown) + sizer_s:SetScript("OnMouseUp", sizerOnMouseUp) + self.sizer_s = sizer_s + + local sizer_e = CreateFrame("Frame",nil,frame) + sizer_e:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,25) + sizer_e:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0) + sizer_e:SetWidth(25) + sizer_e:EnableMouse() + sizer_e:SetScript("OnMouseDown",sizereOnMouseDown) + sizer_e:SetScript("OnMouseUp", sizerOnMouseUp) + self.sizer_e = sizer_e + + --Container Support + local content = CreateFrame("Frame",nil,frame) + self.content = content + content.obj = self + content:SetPoint("TOPLEFT",frame,"TOPLEFT",12,-32) + content:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-12,13) + + AceGUI:RegisterAsContainer(self) + return self + end + + AceGUI:RegisterWidgetType(Type,Constructor,Version) +end diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Button.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Button.lua new file mode 100644 index 0000000..0e286ca --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Button.lua @@ -0,0 +1,103 @@ +--[[----------------------------------------------------------------------------- +Button Widget +Graphical Button. +-------------------------------------------------------------------------------]] +local Type, Version = "Button", 24 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local _G = _G +local PlaySound, CreateFrame, UIParent = PlaySound, CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Button_OnClick(frame, ...) + AceGUI:ClearFocus() + PlaySound(852) -- SOUNDKIT.IG_MAINMENU_OPTION + frame.obj:Fire("OnClick", ...) +end + +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + -- restore default values + self:SetHeight(24) + self:SetWidth(200) + self:SetDisabled(false) + self:SetAutoWidth(false) + self:SetText() + end, + + -- ["OnRelease"] = nil, + + ["SetText"] = function(self, text) + self.text:SetText(text) + if self.autoWidth then + self:SetWidth(self.text:GetStringWidth() + 30) + end + end, + + ["SetAutoWidth"] = function(self, autoWidth) + self.autoWidth = autoWidth + if self.autoWidth then + self:SetWidth(self.text:GetStringWidth() + 30) + end + end, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.frame:Disable() + else + self.frame:Enable() + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local name = "AceGUI30Button" .. AceGUI:GetNextWidgetNum(Type) + local frame = CreateFrame("Button", name, UIParent, "UIPanelButtonTemplate") + frame:Hide() + + frame:EnableMouse(true) + frame:SetScript("OnClick", Button_OnClick) + frame:SetScript("OnEnter", Control_OnEnter) + frame:SetScript("OnLeave", Control_OnLeave) + + local text = frame:GetFontString() + text:ClearAllPoints() + text:SetPoint("TOPLEFT", 15, -1) + text:SetPoint("BOTTOMRIGHT", -15, 1) + text:SetJustifyV("MIDDLE") + + local widget = { + text = text, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua new file mode 100644 index 0000000..fe17e03 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua @@ -0,0 +1,292 @@ +--[[----------------------------------------------------------------------------- +Checkbox Widget +-------------------------------------------------------------------------------]] +local Type, Version = "CheckBox", 26 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local select, pairs = select, pairs + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function AlignImage(self) + local img = self.image:GetTexture() + self.text:ClearAllPoints() + if not img then + self.text:SetPoint("LEFT", self.checkbg, "RIGHT") + self.text:SetPoint("RIGHT") + else + self.text:SetPoint("LEFT", self.image, "RIGHT", 1, 0) + self.text:SetPoint("RIGHT") + end +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function CheckBox_OnMouseDown(frame) + local self = frame.obj + if not self.disabled then + if self.image:GetTexture() then + self.text:SetPoint("LEFT", self.image,"RIGHT", 2, -1) + else + self.text:SetPoint("LEFT", self.checkbg, "RIGHT", 1, -1) + end + end + AceGUI:ClearFocus() +end + +local function CheckBox_OnMouseUp(frame) + local self = frame.obj + if not self.disabled then + self:ToggleChecked() + + if self.checked then + PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON + else -- for both nil and false (tristate) + PlaySound(857) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_OFF + end + + self:Fire("OnValueChanged", self.checked) + AlignImage(self) + end +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetType() + self:SetValue(false) + self:SetTriState(nil) + -- height is calculated from the width and required space for the description + self:SetWidth(200) + self:SetImage() + self:SetDisabled(nil) + self:SetDescription(nil) + end, + + -- ["OnRelease"] = nil, + + ["OnWidthSet"] = function(self, width) + if self.desc then + self.desc:SetWidth(width - 30) + if self.desc:GetText() and self.desc:GetText() ~= "" then + self:SetHeight(28 + self.desc:GetStringHeight()) + end + end + end, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.frame:Disable() + self.text:SetTextColor(0.5, 0.5, 0.5) + SetDesaturation(self.check, true) + if self.desc then + self.desc:SetTextColor(0.5, 0.5, 0.5) + end + else + self.frame:Enable() + self.text:SetTextColor(1, 1, 1) + if self.tristate and self.checked == nil then + SetDesaturation(self.check, true) + else + SetDesaturation(self.check, false) + end + if self.desc then + self.desc:SetTextColor(1, 1, 1) + end + end + end, + + ["SetValue"] = function(self, value) + local check = self.check + self.checked = value + if value then + SetDesaturation(check, false) + check:Show() + else + --Nil is the unknown tristate value + if self.tristate and value == nil then + SetDesaturation(check, true) + check:Show() + else + SetDesaturation(check, false) + check:Hide() + end + end + self:SetDisabled(self.disabled) + end, + + ["GetValue"] = function(self) + return self.checked + end, + + ["SetTriState"] = function(self, enabled) + self.tristate = enabled + self:SetValue(self:GetValue()) + end, + + ["SetType"] = function(self, type) + local checkbg = self.checkbg + local check = self.check + local highlight = self.highlight + + local size + if type == "radio" then + size = 16 + checkbg:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton + checkbg:SetTexCoord(0, 0.25, 0, 1) + check:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton + check:SetTexCoord(0.25, 0.5, 0, 1) + check:SetBlendMode("ADD") + highlight:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton + highlight:SetTexCoord(0.5, 0.75, 0, 1) + else + size = 24 + checkbg:SetTexture(130755) -- Interface\\Buttons\\UI-CheckBox-Up + checkbg:SetTexCoord(0, 1, 0, 1) + check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check + check:SetTexCoord(0, 1, 0, 1) + check:SetBlendMode("BLEND") + highlight:SetTexture(130753) -- Interface\\Buttons\\UI-CheckBox-Highlight + highlight:SetTexCoord(0, 1, 0, 1) + end + checkbg:SetHeight(size) + checkbg:SetWidth(size) + end, + + ["ToggleChecked"] = function(self) + local value = self:GetValue() + if self.tristate then + --cycle in true, nil, false order + if value then + self:SetValue(nil) + elseif value == nil then + self:SetValue(false) + else + self:SetValue(true) + end + else + self:SetValue(not self:GetValue()) + end + end, + + ["SetLabel"] = function(self, label) + self.text:SetText(label) + end, + + ["SetDescription"] = function(self, desc) + if desc then + if not self.desc then + local f = self.frame:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall") + f:ClearAllPoints() + f:SetPoint("TOPLEFT", self.checkbg, "TOPRIGHT", 5, -21) + f:SetWidth(self.frame.width - 30) + f:SetPoint("RIGHT", self.frame, "RIGHT", -30, 0) + f:SetJustifyH("LEFT") + f:SetJustifyV("TOP") + self.desc = f + end + self.desc:Show() + --self.text:SetFontObject(GameFontNormal) + self.desc:SetText(desc) + self:SetHeight(28 + self.desc:GetStringHeight()) + else + if self.desc then + self.desc:SetText("") + self.desc:Hide() + end + --self.text:SetFontObject(GameFontHighlight) + self:SetHeight(24) + end + end, + + ["SetImage"] = function(self, path, ...) + local image = self.image + image:SetTexture(path) + + if image:GetTexture() then + local n = select("#", ...) + if n == 4 or n == 8 then + image:SetTexCoord(...) + else + image:SetTexCoord(0, 1, 0, 1) + end + end + AlignImage(self) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Button", nil, UIParent) + frame:Hide() + + frame:EnableMouse(true) + frame:SetScript("OnEnter", Control_OnEnter) + frame:SetScript("OnLeave", Control_OnLeave) + frame:SetScript("OnMouseDown", CheckBox_OnMouseDown) + frame:SetScript("OnMouseUp", CheckBox_OnMouseUp) + + local checkbg = frame:CreateTexture(nil, "ARTWORK") + checkbg:SetWidth(24) + checkbg:SetHeight(24) + checkbg:SetPoint("TOPLEFT") + checkbg:SetTexture(130755) -- Interface\\Buttons\\UI-CheckBox-Up + + local check = frame:CreateTexture(nil, "OVERLAY") + check:SetAllPoints(checkbg) + check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check + + local text = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight") + text:SetJustifyH("LEFT") + text:SetHeight(18) + text:SetPoint("LEFT", checkbg, "RIGHT") + text:SetPoint("RIGHT") + + local highlight = frame:CreateTexture(nil, "HIGHLIGHT") + highlight:SetTexture(130753) -- Interface\\Buttons\\UI-CheckBox-Highlight + highlight:SetBlendMode("ADD") + highlight:SetAllPoints(checkbg) + + local image = frame:CreateTexture(nil, "OVERLAY") + image:SetHeight(16) + image:SetWidth(16) + image:SetPoint("LEFT", checkbg, "RIGHT", 1, 0) + + local widget = { + checkbg = checkbg, + check = check, + text = text, + highlight = highlight, + image = image, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua new file mode 100644 index 0000000..d57b008 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua @@ -0,0 +1,186 @@ +--[[----------------------------------------------------------------------------- +ColorPicker Widget +-------------------------------------------------------------------------------]] +local Type, Version = "ColorPicker", 25 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function ColorCallback(self, r, g, b, a, isAlpha) + if not self.HasAlpha then + a = 1 + end + self:SetColor(r, g, b, a) + if ColorPickerFrame:IsVisible() then + --colorpicker is still open + self:Fire("OnValueChanged", r, g, b, a) + else + --colorpicker is closed, color callback is first, ignore it, + --alpha callback is the final call after it closes so confirm now + if isAlpha then + self:Fire("OnValueConfirmed", r, g, b, a) + end + end +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function ColorSwatch_OnClick(frame) + ColorPickerFrame:Hide() + local self = frame.obj + if not self.disabled then + ColorPickerFrame:SetFrameStrata("FULLSCREEN_DIALOG") + ColorPickerFrame:SetFrameLevel(frame:GetFrameLevel() + 10) + ColorPickerFrame:SetClampedToScreen(true) + + ColorPickerFrame.func = function() + local r, g, b = ColorPickerFrame:GetColorRGB() + local a = 1 - OpacitySliderFrame:GetValue() + ColorCallback(self, r, g, b, a) + end + + ColorPickerFrame.hasOpacity = self.HasAlpha + ColorPickerFrame.opacityFunc = function() + local r, g, b = ColorPickerFrame:GetColorRGB() + local a = 1 - OpacitySliderFrame:GetValue() + ColorCallback(self, r, g, b, a, true) + end + + local r, g, b, a = self.r, self.g, self.b, self.a + if self.HasAlpha then + ColorPickerFrame.opacity = 1 - (a or 0) + end + ColorPickerFrame:SetColorRGB(r, g, b) + + ColorPickerFrame.cancelFunc = function() + ColorCallback(self, r, g, b, a, true) + end + + ColorPickerFrame:Show() + end + AceGUI:ClearFocus() +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetHeight(24) + self:SetWidth(200) + self:SetHasAlpha(false) + self:SetColor(0, 0, 0, 1) + self:SetDisabled(nil) + self:SetLabel(nil) + end, + + -- ["OnRelease"] = nil, + + ["SetLabel"] = function(self, text) + self.text:SetText(text) + end, + + ["SetColor"] = function(self, r, g, b, a) + self.r = r + self.g = g + self.b = b + self.a = a or 1 + self.colorSwatch:SetVertexColor(r, g, b, a) + end, + + ["SetHasAlpha"] = function(self, HasAlpha) + self.HasAlpha = HasAlpha + end, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if self.disabled then + self.frame:Disable() + self.text:SetTextColor(0.5, 0.5, 0.5) + else + self.frame:Enable() + self.text:SetTextColor(1, 1, 1) + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Button", nil, UIParent) + frame:Hide() + + frame:EnableMouse(true) + frame:SetScript("OnEnter", Control_OnEnter) + frame:SetScript("OnLeave", Control_OnLeave) + frame:SetScript("OnClick", ColorSwatch_OnClick) + + local colorSwatch = frame:CreateTexture(nil, "OVERLAY") + colorSwatch:SetWidth(19) + colorSwatch:SetHeight(19) + colorSwatch:SetTexture(130939) -- Interface\\ChatFrame\\ChatFrameColorSwatch + colorSwatch:SetPoint("LEFT") + + local texture = frame:CreateTexture(nil, "BACKGROUND") + colorSwatch.background = texture + texture:SetWidth(16) + texture:SetHeight(16) + texture:SetColorTexture(1, 1, 1) + texture:SetPoint("CENTER", colorSwatch) + texture:Show() + + local checkers = frame:CreateTexture(nil, "BACKGROUND") + colorSwatch.checkers = checkers + checkers:SetWidth(14) + checkers:SetHeight(14) + checkers:SetTexture(188523) -- Tileset\\Generic\\Checkers + checkers:SetTexCoord(.25, 0, 0.5, .25) + checkers:SetDesaturated(true) + checkers:SetVertexColor(1, 1, 1, 0.75) + checkers:SetPoint("CENTER", colorSwatch) + checkers:Show() + + local text = frame:CreateFontString(nil,"OVERLAY","GameFontHighlight") + text:SetHeight(24) + text:SetJustifyH("LEFT") + text:SetTextColor(1, 1, 1) + text:SetPoint("LEFT", colorSwatch, "RIGHT", 2, 0) + text:SetPoint("RIGHT") + + --local highlight = frame:CreateTexture(nil, "HIGHLIGHT") + --highlight:SetTexture(136810) -- Interface\\QuestFrame\\UI-QuestTitleHighlight + --highlight:SetBlendMode("ADD") + --highlight:SetAllPoints(frame) + + local widget = { + colorSwatch = colorSwatch, + text = text, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua new file mode 100644 index 0000000..947184c --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua @@ -0,0 +1,471 @@ +--[[ $Id: AceGUIWidget-DropDown-Items.lua 1272 2022-08-29 15:56:35Z nevcairiel $ ]]-- + +local AceGUI = LibStub("AceGUI-3.0") + +-- Lua APIs +local select, assert = select, assert + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame = CreateFrame + +local function fixlevels(parent,...) + local i = 1 + local child = select(i, ...) + while child do + child:SetFrameLevel(parent:GetFrameLevel()+1) + fixlevels(child, child:GetChildren()) + i = i + 1 + child = select(i, ...) + end +end + +local function fixstrata(strata, parent, ...) + local i = 1 + local child = select(i, ...) + parent:SetFrameStrata(strata) + while child do + fixstrata(strata, child, child:GetChildren()) + i = i + 1 + child = select(i, ...) + end +end + +-- ItemBase is the base "class" for all dropdown items. +-- Each item has to use ItemBase.Create(widgetType) to +-- create an initial 'self' value. +-- ItemBase will add common functions and ui event handlers. +-- Be sure to keep basic usage when you override functions. + +local ItemBase = { + -- NOTE: The ItemBase version is added to each item's version number + -- to ensure proper updates on ItemBase changes. + -- Use at least 1000er steps. + version = 2000, + counter = 0, +} + +function ItemBase.Frame_OnEnter(this) + local self = this.obj + + if self.useHighlight then + self.highlight:Show() + end + self:Fire("OnEnter") + + if self.specialOnEnter then + self.specialOnEnter(self) + end +end + +function ItemBase.Frame_OnLeave(this) + local self = this.obj + + self.highlight:Hide() + self:Fire("OnLeave") + + if self.specialOnLeave then + self.specialOnLeave(self) + end +end + +-- exported, AceGUI callback +function ItemBase.OnAcquire(self) + self.frame:SetToplevel(true) + self.frame:SetFrameStrata("FULLSCREEN_DIALOG") +end + +-- exported, AceGUI callback +function ItemBase.OnRelease(self) + self:SetDisabled(false) + self.pullout = nil + self.frame:SetParent(nil) + self.frame:ClearAllPoints() + self.frame:Hide() +end + +-- exported +-- NOTE: this is called by a Dropdown-Pullout. +-- Do not call this method directly +function ItemBase.SetPullout(self, pullout) + self.pullout = pullout + + self.frame:SetParent(nil) + self.frame:SetParent(pullout.itemFrame) + self.parent = pullout.itemFrame + fixlevels(pullout.itemFrame, pullout.itemFrame:GetChildren()) +end + +-- exported +function ItemBase.SetText(self, text) + self.text:SetText(text or "") +end + +-- exported +function ItemBase.GetText(self) + return self.text:GetText() +end + +-- exported +function ItemBase.SetPoint(self, ...) + self.frame:SetPoint(...) +end + +-- exported +function ItemBase.Show(self) + self.frame:Show() +end + +-- exported +function ItemBase.Hide(self) + self.frame:Hide() +end + +-- exported +function ItemBase.SetDisabled(self, disabled) + self.disabled = disabled + if disabled then + self.useHighlight = false + self.text:SetTextColor(.5, .5, .5) + else + self.useHighlight = true + self.text:SetTextColor(1, 1, 1) + end +end + +-- exported +-- NOTE: this is called by a Dropdown-Pullout. +-- Do not call this method directly +function ItemBase.SetOnLeave(self, func) + self.specialOnLeave = func +end + +-- exported +-- NOTE: this is called by a Dropdown-Pullout. +-- Do not call this method directly +function ItemBase.SetOnEnter(self, func) + self.specialOnEnter = func +end + +function ItemBase.Create(type) + -- NOTE: Most of the following code is copied from AceGUI-3.0/Dropdown widget + local count = AceGUI:GetNextWidgetNum(type) + local frame = CreateFrame("Button", "AceGUI30DropDownItem"..count) + local self = {} + self.frame = frame + frame.obj = self + self.type = type + + self.useHighlight = true + + frame:SetHeight(17) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + + local text = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall") + text:SetTextColor(1,1,1) + text:SetJustifyH("LEFT") + text:SetPoint("TOPLEFT",frame,"TOPLEFT",18,0) + text:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-8,0) + self.text = text + + local highlight = frame:CreateTexture(nil, "OVERLAY") + highlight:SetTexture(136810) -- Interface\\QuestFrame\\UI-QuestTitleHighlight + highlight:SetBlendMode("ADD") + highlight:SetHeight(14) + highlight:ClearAllPoints() + highlight:SetPoint("RIGHT",frame,"RIGHT",-3,0) + highlight:SetPoint("LEFT",frame,"LEFT",5,0) + highlight:Hide() + self.highlight = highlight + + local check = frame:CreateTexture(nil, "OVERLAY") + check:SetWidth(16) + check:SetHeight(16) + check:SetPoint("LEFT",frame,"LEFT",3,-1) + check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check + check:Hide() + self.check = check + + local sub = frame:CreateTexture(nil, "OVERLAY") + sub:SetWidth(16) + sub:SetHeight(16) + sub:SetPoint("RIGHT",frame,"RIGHT",-3,-1) + sub:SetTexture(130940) -- Interface\\ChatFrame\\ChatFrameExpandArrow + sub:Hide() + self.sub = sub + + frame:SetScript("OnEnter", ItemBase.Frame_OnEnter) + frame:SetScript("OnLeave", ItemBase.Frame_OnLeave) + + self.OnAcquire = ItemBase.OnAcquire + self.OnRelease = ItemBase.OnRelease + + self.SetPullout = ItemBase.SetPullout + self.GetText = ItemBase.GetText + self.SetText = ItemBase.SetText + self.SetDisabled = ItemBase.SetDisabled + + self.SetPoint = ItemBase.SetPoint + self.Show = ItemBase.Show + self.Hide = ItemBase.Hide + + self.SetOnLeave = ItemBase.SetOnLeave + self.SetOnEnter = ItemBase.SetOnEnter + + return self +end + +-- Register a dummy LibStub library to retrieve the ItemBase, so other addons can use it. +local IBLib = LibStub:NewLibrary("AceGUI-3.0-DropDown-ItemBase", ItemBase.version) +if IBLib then + IBLib.GetItemBase = function() return ItemBase end +end + +--[[ + Template for items: + +-- Item: +-- +do + local widgetType = "Dropdown-Item-" + local widgetVersion = 1 + + local function Constructor() + local self = ItemBase.Create(widgetType) + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end +--]] + +-- Item: Header +-- A single text entry. +-- Special: Different text color and no highlight +do + local widgetType = "Dropdown-Item-Header" + local widgetVersion = 1 + + local function OnEnter(this) + local self = this.obj + self:Fire("OnEnter") + + if self.specialOnEnter then + self.specialOnEnter(self) + end + end + + local function OnLeave(this) + local self = this.obj + self:Fire("OnLeave") + + if self.specialOnLeave then + self.specialOnLeave(self) + end + end + + -- exported, override + local function SetDisabled(self, disabled) + ItemBase.SetDisabled(self, disabled) + if not disabled then + self.text:SetTextColor(1, 1, 0) + end + end + + local function Constructor() + local self = ItemBase.Create(widgetType) + + self.SetDisabled = SetDisabled + + self.frame:SetScript("OnEnter", OnEnter) + self.frame:SetScript("OnLeave", OnLeave) + + self.text:SetTextColor(1, 1, 0) + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end + +-- Item: Execute +-- A simple button +do + local widgetType = "Dropdown-Item-Execute" + local widgetVersion = 1 + + local function Frame_OnClick(this, button) + local self = this.obj + if self.disabled then return end + self:Fire("OnClick") + if self.pullout then + self.pullout:Close() + end + end + + local function Constructor() + local self = ItemBase.Create(widgetType) + + self.frame:SetScript("OnClick", Frame_OnClick) + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end + +-- Item: Toggle +-- Some sort of checkbox for dropdown menus. +-- Does not close the pullout on click. +do + local widgetType = "Dropdown-Item-Toggle" + local widgetVersion = 4 + + local function UpdateToggle(self) + if self.value then + self.check:Show() + else + self.check:Hide() + end + end + + local function OnRelease(self) + ItemBase.OnRelease(self) + self:SetValue(nil) + end + + local function Frame_OnClick(this, button) + local self = this.obj + if self.disabled then return end + self.value = not self.value + if self.value then + PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON + else + PlaySound(857) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_OFF + end + UpdateToggle(self) + self:Fire("OnValueChanged", self.value) + end + + -- exported + local function SetValue(self, value) + self.value = value + UpdateToggle(self) + end + + -- exported + local function GetValue(self) + return self.value + end + + local function Constructor() + local self = ItemBase.Create(widgetType) + + self.frame:SetScript("OnClick", Frame_OnClick) + + self.SetValue = SetValue + self.GetValue = GetValue + self.OnRelease = OnRelease + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end + +-- Item: Menu +-- Shows a submenu on mouse over +-- Does not close the pullout on click +do + local widgetType = "Dropdown-Item-Menu" + local widgetVersion = 2 + + local function OnEnter(this) + local self = this.obj + self:Fire("OnEnter") + + if self.specialOnEnter then + self.specialOnEnter(self) + end + + self.highlight:Show() + + if not self.disabled and self.submenu then + self.submenu:Open("TOPLEFT", self.frame, "TOPRIGHT", self.pullout:GetRightBorderWidth(), 0, self.frame:GetFrameLevel() + 100) + end + end + + local function OnHide(this) + local self = this.obj + if self.submenu then + self.submenu:Close() + end + end + + -- exported + local function SetMenu(self, menu) + assert(menu.type == "Dropdown-Pullout") + self.submenu = menu + end + + -- exported + local function CloseMenu(self) + self.submenu:Close() + end + + local function Constructor() + local self = ItemBase.Create(widgetType) + + self.sub:Show() + + self.frame:SetScript("OnEnter", OnEnter) + self.frame:SetScript("OnHide", OnHide) + + self.SetMenu = SetMenu + self.CloseMenu = CloseMenu + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end + +-- Item: Separator +-- A single line to separate items +do + local widgetType = "Dropdown-Item-Separator" + local widgetVersion = 2 + + -- exported, override + local function SetDisabled(self, disabled) + ItemBase.SetDisabled(self, disabled) + self.useHighlight = false + end + + local function Constructor() + local self = ItemBase.Create(widgetType) + + self.SetDisabled = SetDisabled + + local line = self.frame:CreateTexture(nil, "OVERLAY") + line:SetHeight(1) + line:SetColorTexture(.5, .5, .5) + line:SetPoint("LEFT", self.frame, "LEFT", 10, 0) + line:SetPoint("RIGHT", self.frame, "RIGHT", -10, 0) + + self.text:Hide() + + self.useHighlight = false + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) +end diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua new file mode 100644 index 0000000..59c7f53 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua @@ -0,0 +1,732 @@ +--[[ $Id: AceGUIWidget-DropDown.lua 1284 2022-09-25 09:15:30Z nevcairiel $ ]]-- +local AceGUI = LibStub("AceGUI-3.0") + +-- Lua APIs +local min, max, floor = math.min, math.max, math.floor +local select, pairs, ipairs, type, tostring = select, pairs, ipairs, type, tostring +local tsort = table.sort + +-- WoW APIs +local PlaySound = PlaySound +local UIParent, CreateFrame = UIParent, CreateFrame +local _G = _G + +local function fixlevels(parent,...) + local i = 1 + local child = select(i, ...) + while child do + child:SetFrameLevel(parent:GetFrameLevel()+1) + fixlevels(child, child:GetChildren()) + i = i + 1 + child = select(i, ...) + end +end + +local function fixstrata(strata, parent, ...) + local i = 1 + local child = select(i, ...) + parent:SetFrameStrata(strata) + while child do + fixstrata(strata, child, child:GetChildren()) + i = i + 1 + child = select(i, ...) + end +end + +do + local widgetType = "Dropdown-Pullout" + local widgetVersion = 5 + + --[[ Static data ]]-- + + local backdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border", + edgeSize = 32, + tileSize = 32, + tile = true, + insets = { left = 11, right = 12, top = 12, bottom = 11 }, + } + local sliderBackdrop = { + bgFile = "Interface\\Buttons\\UI-SliderBar-Background", + edgeFile = "Interface\\Buttons\\UI-SliderBar-Border", + tile = true, tileSize = 8, edgeSize = 8, + insets = { left = 3, right = 3, top = 3, bottom = 3 } + } + + local defaultWidth = 200 + local defaultMaxHeight = 600 + + --[[ UI Event Handlers ]]-- + + -- HACK: This should be no part of the pullout, but there + -- is no other 'clean' way to response to any item-OnEnter + -- Used to close Submenus when an other item is entered + local function OnEnter(item) + local self = item.pullout + for k, v in ipairs(self.items) do + if v.CloseMenu and v ~= item then + v:CloseMenu() + end + end + end + + -- See the note in Constructor() for each scroll related function + local function OnMouseWheel(this, value) + this.obj:MoveScroll(value) + end + + local function OnScrollValueChanged(this, value) + this.obj:SetScroll(value) + end + + local function OnSizeChanged(this) + this.obj:FixScroll() + end + + --[[ Exported methods ]]-- + + -- exported + local function SetScroll(self, value) + local status = self.scrollStatus + local frame, child = self.scrollFrame, self.itemFrame + local height, viewheight = frame:GetHeight(), child:GetHeight() + + local offset + if height > viewheight then + offset = 0 + else + offset = floor((viewheight - height) / 1000 * value) + end + child:ClearAllPoints() + child:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, offset) + child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", self.slider:IsShown() and -12 or 0, offset) + status.offset = offset + status.scrollvalue = value + end + + -- exported + local function MoveScroll(self, value) + local status = self.scrollStatus + local frame, child = self.scrollFrame, self.itemFrame + local height, viewheight = frame:GetHeight(), child:GetHeight() + + if height > viewheight then + self.slider:Hide() + else + self.slider:Show() + local diff = height - viewheight + local delta = 1 + if value < 0 then + delta = -1 + end + self.slider:SetValue(min(max(status.scrollvalue + delta*(1000/(diff/45)),0), 1000)) + end + end + + -- exported + local function FixScroll(self) + local status = self.scrollStatus + local frame, child = self.scrollFrame, self.itemFrame + local height, viewheight = frame:GetHeight(), child:GetHeight() + local offset = status.offset or 0 + + if viewheight < height then + self.slider:Hide() + child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", 0, offset) + self.slider:SetValue(0) + else + self.slider:Show() + local value = (offset / (viewheight - height) * 1000) + if value > 1000 then value = 1000 end + self.slider:SetValue(value) + self:SetScroll(value) + if value < 1000 then + child:ClearAllPoints() + child:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, offset) + child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -12, offset) + status.offset = offset + end + end + end + + -- exported, AceGUI callback + local function OnAcquire(self) + self.frame:SetParent(UIParent) + --self.itemFrame:SetToplevel(true) + end + + -- exported, AceGUI callback + local function OnRelease(self) + self:Clear() + self.frame:ClearAllPoints() + self.frame:Hide() + end + + -- exported + local function AddItem(self, item) + self.items[#self.items + 1] = item + + local h = #self.items * 16 + self.itemFrame:SetHeight(h) + self.frame:SetHeight(min(h + 34, self.maxHeight)) -- +34: 20 for scrollFrame placement (10 offset) and +14 for item placement + + item.frame:SetPoint("LEFT", self.itemFrame, "LEFT") + item.frame:SetPoint("RIGHT", self.itemFrame, "RIGHT") + + item:SetPullout(self) + item:SetOnEnter(OnEnter) + end + + -- exported + local function Open(self, point, relFrame, relPoint, x, y) + local items = self.items + local frame = self.frame + local itemFrame = self.itemFrame + + frame:SetPoint(point, relFrame, relPoint, x, y) + + + local height = 8 + for i, item in pairs(items) do + item:SetPoint("TOP", itemFrame, "TOP", 0, -2 + (i - 1) * -16) + item:Show() + + height = height + 16 + end + itemFrame:SetHeight(height) + fixstrata("TOOLTIP", frame, frame:GetChildren()) + frame:Show() + self:Fire("OnOpen") + end + + -- exported + local function Close(self) + self.frame:Hide() + self:Fire("OnClose") + end + + -- exported + local function Clear(self) + local items = self.items + for i, item in pairs(items) do + AceGUI:Release(item) + items[i] = nil + end + end + + -- exported + local function IterateItems(self) + return ipairs(self.items) + end + + -- exported + local function SetHideOnLeave(self, val) + self.hideOnLeave = val + end + + -- exported + local function SetMaxHeight(self, height) + self.maxHeight = height or defaultMaxHeight + if self.frame:GetHeight() > height then + self.frame:SetHeight(height) + elseif (self.itemFrame:GetHeight() + 34) < height then + self.frame:SetHeight(self.itemFrame:GetHeight() + 34) -- see :AddItem + end + end + + -- exported + local function GetRightBorderWidth(self) + return 6 + (self.slider:IsShown() and 12 or 0) + end + + -- exported + local function GetLeftBorderWidth(self) + return 6 + end + + --[[ Constructor ]]-- + + local function Constructor() + local count = AceGUI:GetNextWidgetNum(widgetType) + local frame = CreateFrame("Frame", "AceGUI30Pullout"..count, UIParent, "BackdropTemplate") + local self = {} + self.count = count + self.type = widgetType + self.frame = frame + frame.obj = self + + self.OnAcquire = OnAcquire + self.OnRelease = OnRelease + + self.AddItem = AddItem + self.Open = Open + self.Close = Close + self.Clear = Clear + self.IterateItems = IterateItems + self.SetHideOnLeave = SetHideOnLeave + + self.SetScroll = SetScroll + self.MoveScroll = MoveScroll + self.FixScroll = FixScroll + + self.SetMaxHeight = SetMaxHeight + self.GetRightBorderWidth = GetRightBorderWidth + self.GetLeftBorderWidth = GetLeftBorderWidth + + self.items = {} + + self.scrollStatus = { + scrollvalue = 0, + } + + self.maxHeight = defaultMaxHeight + + frame:SetBackdrop(backdrop) + frame:SetBackdropColor(0, 0, 0) + frame:SetFrameStrata("FULLSCREEN_DIALOG") + frame:SetClampedToScreen(true) + frame:SetWidth(defaultWidth) + frame:SetHeight(self.maxHeight) + --frame:SetToplevel(true) + + -- NOTE: The whole scroll frame code is copied from the AceGUI-3.0 widget ScrollFrame + local scrollFrame = CreateFrame("ScrollFrame", nil, frame) + local itemFrame = CreateFrame("Frame", nil, scrollFrame) + + self.scrollFrame = scrollFrame + self.itemFrame = itemFrame + + scrollFrame.obj = self + itemFrame.obj = self + + local slider = CreateFrame("Slider", "AceGUI30PulloutScrollbar"..count, scrollFrame, "BackdropTemplate") + slider:SetOrientation("VERTICAL") + slider:SetHitRectInsets(0, 0, -10, 0) + slider:SetBackdrop(sliderBackdrop) + slider:SetWidth(8) + slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Vertical") + slider:SetFrameStrata("FULLSCREEN_DIALOG") + self.slider = slider + slider.obj = self + + scrollFrame:SetScrollChild(itemFrame) + scrollFrame:SetPoint("TOPLEFT", frame, "TOPLEFT", 6, -12) + scrollFrame:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -6, 12) + scrollFrame:EnableMouseWheel(true) + scrollFrame:SetScript("OnMouseWheel", OnMouseWheel) + scrollFrame:SetScript("OnSizeChanged", OnSizeChanged) + scrollFrame:SetToplevel(true) + scrollFrame:SetFrameStrata("FULLSCREEN_DIALOG") + + itemFrame:SetPoint("TOPLEFT", scrollFrame, "TOPLEFT", 0, 0) + itemFrame:SetPoint("TOPRIGHT", scrollFrame, "TOPRIGHT", -12, 0) + itemFrame:SetHeight(400) + itemFrame:SetToplevel(true) + itemFrame:SetFrameStrata("FULLSCREEN_DIALOG") + + slider:SetPoint("TOPLEFT", scrollFrame, "TOPRIGHT", -16, 0) + slider:SetPoint("BOTTOMLEFT", scrollFrame, "BOTTOMRIGHT", -16, 0) + slider:SetScript("OnValueChanged", OnScrollValueChanged) + slider:SetMinMaxValues(0, 1000) + slider:SetValueStep(1) + slider:SetValue(0) + + scrollFrame:Show() + itemFrame:Show() + slider:Hide() + + self:FixScroll() + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) +end + +do + local widgetType = "Dropdown" + local widgetVersion = 36 + + --[[ Static data ]]-- + + --[[ UI event handler ]]-- + + local function Control_OnEnter(this) + this.obj.button:LockHighlight() + this.obj:Fire("OnEnter") + end + + local function Control_OnLeave(this) + this.obj.button:UnlockHighlight() + this.obj:Fire("OnLeave") + end + + local function Dropdown_OnHide(this) + local self = this.obj + if self.open then + self.pullout:Close() + end + end + + local function Dropdown_TogglePullout(this) + local self = this.obj + if self.open then + self.open = nil + self.pullout:Close() + AceGUI:ClearFocus() + else + self.open = true + self.pullout:SetWidth(self.pulloutWidth or self.frame:GetWidth()) + self.pullout:Open("TOPLEFT", self.frame, "BOTTOMLEFT", 0, self.label:IsShown() and -2 or 0) + AceGUI:SetFocus(self) + end + end + + local function OnPulloutOpen(this) + local self = this.userdata.obj + local value = self.value + + if not self.multiselect then + for i, item in this:IterateItems() do + item:SetValue(item.userdata.value == value) + end + end + + self.open = true + self:Fire("OnOpened") + end + + local function OnPulloutClose(this) + local self = this.userdata.obj + self.open = nil + self:Fire("OnClosed") + end + + local function ShowMultiText(self) + local text + for i, widget in self.pullout:IterateItems() do + if widget.type == "Dropdown-Item-Toggle" then + if widget:GetValue() then + if text then + text = text..", "..widget:GetText() + else + text = widget:GetText() + end + end + end + end + self:SetText(text) + end + + local function OnItemValueChanged(this, event, checked) + local self = this.userdata.obj + + if self.multiselect then + self:Fire("OnValueChanged", this.userdata.value, checked) + ShowMultiText(self) + else + if checked then + self:SetValue(this.userdata.value) + self:Fire("OnValueChanged", this.userdata.value) + else + this:SetValue(true) + end + if self.open then + self.pullout:Close() + end + end + end + + --[[ Exported methods ]]-- + + -- exported, AceGUI callback + local function OnAcquire(self) + local pullout = AceGUI:Create("Dropdown-Pullout") + self.pullout = pullout + pullout.userdata.obj = self + pullout:SetCallback("OnClose", OnPulloutClose) + pullout:SetCallback("OnOpen", OnPulloutOpen) + self.pullout.frame:SetFrameLevel(self.frame:GetFrameLevel() + 1) + fixlevels(self.pullout.frame, self.pullout.frame:GetChildren()) + + self:SetHeight(44) + self:SetWidth(200) + self:SetLabel() + self:SetPulloutWidth(nil) + self.list = {} + end + + -- exported, AceGUI callback + local function OnRelease(self) + if self.open then + self.pullout:Close() + end + AceGUI:Release(self.pullout) + self.pullout = nil + + self:SetText("") + self:SetDisabled(false) + self:SetMultiselect(false) + + self.value = nil + self.list = nil + self.open = nil + self.hasClose = nil + + self.frame:ClearAllPoints() + self.frame:Hide() + end + + -- exported + local function SetDisabled(self, disabled) + self.disabled = disabled + if disabled then + self.text:SetTextColor(0.5,0.5,0.5) + self.button:Disable() + self.button_cover:Disable() + self.label:SetTextColor(0.5,0.5,0.5) + else + self.button:Enable() + self.button_cover:Enable() + self.label:SetTextColor(1,.82,0) + self.text:SetTextColor(1,1,1) + end + end + + -- exported + local function ClearFocus(self) + if self.open then + self.pullout:Close() + end + end + + -- exported + local function SetText(self, text) + self.text:SetText(text or "") + end + + -- exported + local function SetLabel(self, text) + if text and text ~= "" then + self.label:SetText(text) + self.label:Show() + self.dropdown:SetPoint("TOPLEFT",self.frame,"TOPLEFT",-15,-14) + self:SetHeight(40) + self.alignoffset = 26 + else + self.label:SetText("") + self.label:Hide() + self.dropdown:SetPoint("TOPLEFT",self.frame,"TOPLEFT",-15,0) + self:SetHeight(26) + self.alignoffset = 12 + end + end + + -- exported + local function SetValue(self, value) + self:SetText(self.list[value] or "") + self.value = value + end + + -- exported + local function GetValue(self) + return self.value + end + + -- exported + local function SetItemValue(self, item, value) + if not self.multiselect then return end + for i, widget in self.pullout:IterateItems() do + if widget.userdata.value == item then + if widget.SetValue then + widget:SetValue(value) + end + end + end + ShowMultiText(self) + end + + -- exported + local function SetItemDisabled(self, item, disabled) + for i, widget in self.pullout:IterateItems() do + if widget.userdata.value == item then + widget:SetDisabled(disabled) + end + end + end + + local function AddListItem(self, value, text, itemType) + if not itemType then itemType = "Dropdown-Item-Toggle" end + local exists = AceGUI:GetWidgetVersion(itemType) + if not exists then error(("The given item type, %q, does not exist within AceGUI-3.0"):format(tostring(itemType)), 2) end + + local item = AceGUI:Create(itemType) + item:SetText(text) + item.userdata.obj = self + item.userdata.value = value + item:SetCallback("OnValueChanged", OnItemValueChanged) + self.pullout:AddItem(item) + end + + local function AddCloseButton(self) + if not self.hasClose then + local close = AceGUI:Create("Dropdown-Item-Execute") + close:SetText(CLOSE) + self.pullout:AddItem(close) + self.hasClose = true + end + end + + -- exported + local sortlist = {} + local function sortTbl(x,y) + local num1, num2 = tonumber(x), tonumber(y) + if num1 and num2 then -- numeric comparison, either two numbers or numeric strings + return num1 < num2 + else -- compare everything else tostring'ed + return tostring(x) < tostring(y) + end + end + local function SetList(self, list, order, itemType) + self.list = list or {} + self.pullout:Clear() + self.hasClose = nil + if not list then return end + + if type(order) ~= "table" then + for v in pairs(list) do + sortlist[#sortlist + 1] = v + end + tsort(sortlist, sortTbl) + + for i, key in ipairs(sortlist) do + AddListItem(self, key, list[key], itemType) + sortlist[i] = nil + end + else + for i, key in ipairs(order) do + AddListItem(self, key, list[key], itemType) + end + end + if self.multiselect then + ShowMultiText(self) + AddCloseButton(self) + end + end + + -- exported + local function AddItem(self, value, text, itemType) + self.list[value] = text + AddListItem(self, value, text, itemType) + end + + -- exported + local function SetMultiselect(self, multi) + self.multiselect = multi + if multi then + ShowMultiText(self) + AddCloseButton(self) + end + end + + -- exported + local function GetMultiselect(self) + return self.multiselect + end + + local function SetPulloutWidth(self, width) + self.pulloutWidth = width + end + + --[[ Constructor ]]-- + + local function Constructor() + local count = AceGUI:GetNextWidgetNum(widgetType) + local frame = CreateFrame("Frame", nil, UIParent) + local dropdown = CreateFrame("Frame", "AceGUI30DropDown"..count, frame, "UIDropDownMenuTemplate") + + local self = {} + self.type = widgetType + self.frame = frame + self.dropdown = dropdown + self.count = count + frame.obj = self + dropdown.obj = self + + self.OnRelease = OnRelease + self.OnAcquire = OnAcquire + + self.ClearFocus = ClearFocus + + self.SetText = SetText + self.SetValue = SetValue + self.GetValue = GetValue + self.SetList = SetList + self.SetLabel = SetLabel + self.SetDisabled = SetDisabled + self.AddItem = AddItem + self.SetMultiselect = SetMultiselect + self.GetMultiselect = GetMultiselect + self.SetItemValue = SetItemValue + self.SetItemDisabled = SetItemDisabled + self.SetPulloutWidth = SetPulloutWidth + + self.alignoffset = 26 + + frame:SetScript("OnHide",Dropdown_OnHide) + + dropdown:ClearAllPoints() + dropdown:SetPoint("TOPLEFT",frame,"TOPLEFT",-15,0) + dropdown:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",17,0) + dropdown:SetScript("OnHide", nil) + + local left = _G[dropdown:GetName() .. "Left"] + local middle = _G[dropdown:GetName() .. "Middle"] + local right = _G[dropdown:GetName() .. "Right"] + + middle:ClearAllPoints() + right:ClearAllPoints() + + middle:SetPoint("LEFT", left, "RIGHT", 0, 0) + middle:SetPoint("RIGHT", right, "LEFT", 0, 0) + right:SetPoint("TOPRIGHT", dropdown, "TOPRIGHT", 0, 17) + + local button = _G[dropdown:GetName() .. "Button"] + self.button = button + button.obj = self + button:SetScript("OnEnter",Control_OnEnter) + button:SetScript("OnLeave",Control_OnLeave) + button:SetScript("OnClick",Dropdown_TogglePullout) + + local button_cover = CreateFrame("BUTTON",nil,self.frame) + self.button_cover = button_cover + button_cover.obj = self + button_cover:SetPoint("TOPLEFT",self.frame,"BOTTOMLEFT",0,25) + button_cover:SetPoint("BOTTOMRIGHT",self.frame,"BOTTOMRIGHT") + button_cover:SetScript("OnEnter",Control_OnEnter) + button_cover:SetScript("OnLeave",Control_OnLeave) + button_cover:SetScript("OnClick",Dropdown_TogglePullout) + + local text = _G[dropdown:GetName() .. "Text"] + self.text = text + text.obj = self + text:ClearAllPoints() + text:SetPoint("RIGHT", right, "RIGHT" ,-43, 2) + text:SetPoint("LEFT", left, "LEFT", 25, 2) + + local label = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall") + label:SetPoint("TOPLEFT",frame,"TOPLEFT",0,0) + label:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0) + label:SetJustifyH("LEFT") + label:SetHeight(18) + label:Hide() + self.label = label + + AceGUI:RegisterAsWidget(self) + return self + end + + AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) +end diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua new file mode 100644 index 0000000..bb1e4fd --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua @@ -0,0 +1,259 @@ +--[[----------------------------------------------------------------------------- +EditBox Widget +-------------------------------------------------------------------------------]] +local Type, Version = "EditBox", 28 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local tostring, pairs = tostring, pairs + +-- WoW APIs +local PlaySound = PlaySound +local GetCursorInfo, ClearCursor, GetSpellInfo = GetCursorInfo, ClearCursor, GetSpellInfo +local CreateFrame, UIParent = CreateFrame, UIParent +local _G = _G + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +if not AceGUIEditBoxInsertLink then + -- upgradeable hook + hooksecurefunc("ChatEdit_InsertLink", function(...) return _G.AceGUIEditBoxInsertLink(...) end) +end + +function _G.AceGUIEditBoxInsertLink(text) + for i = 1, AceGUI:GetWidgetCount(Type) do + local editbox = _G["AceGUI-3.0EditBox"..i] + if editbox and editbox:IsVisible() and editbox:HasFocus() then + editbox:Insert(text) + return true + end + end +end + +local function ShowButton(self) + if not self.disablebutton then + self.button:Show() + self.editbox:SetTextInsets(0, 20, 3, 3) + end +end + +local function HideButton(self) + self.button:Hide() + self.editbox:SetTextInsets(0, 0, 3, 3) +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function Frame_OnShowFocus(frame) + frame.obj.editbox:SetFocus() + frame:SetScript("OnShow", nil) +end + +local function EditBox_OnEscapePressed(frame) + AceGUI:ClearFocus() +end + +local function EditBox_OnEnterPressed(frame) + local self = frame.obj + local value = frame:GetText() + local cancel = self:Fire("OnEnterPressed", value) + if not cancel then + PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON + HideButton(self) + end +end + +local function EditBox_OnReceiveDrag(frame) + local self = frame.obj + local type, id, info = GetCursorInfo() + local name + if type == "item" then + name = info + elseif type == "spell" then + name = GetSpellInfo(id, info) + elseif type == "macro" then + name = GetMacroInfo(id) + end + if name then + self:SetText(name) + self:Fire("OnEnterPressed", name) + ClearCursor() + HideButton(self) + AceGUI:ClearFocus() + end +end + +local function EditBox_OnTextChanged(frame) + local self = frame.obj + local value = frame:GetText() + if tostring(value) ~= tostring(self.lasttext) then + self:Fire("OnTextChanged", value) + self.lasttext = value + ShowButton(self) + end +end + +local function EditBox_OnFocusGained(frame) + AceGUI:SetFocus(frame.obj) +end + +local function Button_OnClick(frame) + local editbox = frame.obj.editbox + editbox:ClearFocus() + EditBox_OnEnterPressed(editbox) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + -- height is controlled by SetLabel + self:SetWidth(200) + self:SetDisabled(false) + self:SetLabel() + self:SetText() + self:DisableButton(false) + self:SetMaxLetters(0) + end, + + ["OnRelease"] = function(self) + self:ClearFocus() + end, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.editbox:EnableMouse(false) + self.editbox:ClearFocus() + self.editbox:SetTextColor(0.5,0.5,0.5) + self.label:SetTextColor(0.5,0.5,0.5) + else + self.editbox:EnableMouse(true) + self.editbox:SetTextColor(1,1,1) + self.label:SetTextColor(1,.82,0) + end + end, + + ["SetText"] = function(self, text) + self.lasttext = text or "" + self.editbox:SetText(text or "") + self.editbox:SetCursorPosition(0) + HideButton(self) + end, + + ["GetText"] = function(self, text) + return self.editbox:GetText() + end, + + ["SetLabel"] = function(self, text) + if text and text ~= "" then + self.label:SetText(text) + self.label:Show() + self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,-18) + self:SetHeight(44) + self.alignoffset = 30 + else + self.label:SetText("") + self.label:Hide() + self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,0) + self:SetHeight(26) + self.alignoffset = 12 + end + end, + + ["DisableButton"] = function(self, disabled) + self.disablebutton = disabled + if disabled then + HideButton(self) + end + end, + + ["SetMaxLetters"] = function (self, num) + self.editbox:SetMaxLetters(num or 0) + end, + + ["ClearFocus"] = function(self) + self.editbox:ClearFocus() + self.frame:SetScript("OnShow", nil) + end, + + ["SetFocus"] = function(self) + self.editbox:SetFocus() + if not self.frame:IsShown() then + self.frame:SetScript("OnShow", Frame_OnShowFocus) + end + end, + + ["HighlightText"] = function(self, from, to) + self.editbox:HighlightText(from, to) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local num = AceGUI:GetNextWidgetNum(Type) + local frame = CreateFrame("Frame", nil, UIParent) + frame:Hide() + + local editbox = CreateFrame("EditBox", "AceGUI-3.0EditBox"..num, frame, "InputBoxTemplate") + editbox:SetAutoFocus(false) + editbox:SetFontObject(ChatFontNormal) + editbox:SetScript("OnEnter", Control_OnEnter) + editbox:SetScript("OnLeave", Control_OnLeave) + editbox:SetScript("OnEscapePressed", EditBox_OnEscapePressed) + editbox:SetScript("OnEnterPressed", EditBox_OnEnterPressed) + editbox:SetScript("OnTextChanged", EditBox_OnTextChanged) + editbox:SetScript("OnReceiveDrag", EditBox_OnReceiveDrag) + editbox:SetScript("OnMouseDown", EditBox_OnReceiveDrag) + editbox:SetScript("OnEditFocusGained", EditBox_OnFocusGained) + editbox:SetTextInsets(0, 0, 3, 3) + editbox:SetMaxLetters(256) + editbox:SetPoint("BOTTOMLEFT", 6, 0) + editbox:SetPoint("BOTTOMRIGHT") + editbox:SetHeight(19) + + local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall") + label:SetPoint("TOPLEFT", 0, -2) + label:SetPoint("TOPRIGHT", 0, -2) + label:SetJustifyH("LEFT") + label:SetHeight(18) + + local button = CreateFrame("Button", nil, editbox, "UIPanelButtonTemplate") + button:SetWidth(40) + button:SetHeight(20) + button:SetPoint("RIGHT", -2, 0) + button:SetText(OKAY) + button:SetScript("OnClick", Button_OnClick) + button:Hide() + + local widget = { + alignoffset = 30, + editbox = editbox, + label = label, + button = button, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + editbox.obj, button.obj = widget, widget + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua new file mode 100644 index 0000000..862ae88 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua @@ -0,0 +1,78 @@ +--[[----------------------------------------------------------------------------- +Heading Widget +-------------------------------------------------------------------------------]] +local Type, Version = "Heading", 20 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetText() + self:SetFullWidth() + self:SetHeight(18) + end, + + -- ["OnRelease"] = nil, + + ["SetText"] = function(self, text) + self.label:SetText(text or "") + if text and text ~= "" then + self.left:SetPoint("RIGHT", self.label, "LEFT", -5, 0) + self.right:Show() + else + self.left:SetPoint("RIGHT", -3, 0) + self.right:Hide() + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + frame:Hide() + + local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontNormal") + label:SetPoint("TOP") + label:SetPoint("BOTTOM") + label:SetJustifyH("CENTER") + + local left = frame:CreateTexture(nil, "BACKGROUND") + left:SetHeight(8) + left:SetPoint("LEFT", 3, 0) + left:SetPoint("RIGHT", label, "LEFT", -5, 0) + left:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + left:SetTexCoord(0.81, 0.94, 0.5, 1) + + local right = frame:CreateTexture(nil, "BACKGROUND") + right:SetHeight(8) + right:SetPoint("RIGHT", -3, 0) + right:SetPoint("LEFT", label, "RIGHT", 5, 0) + right:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border + right:SetTexCoord(0.81, 0.94, 0.5, 1) + + local widget = { + label = label, + left = left, + right = right, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua new file mode 100644 index 0000000..378e813 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua @@ -0,0 +1,140 @@ +--[[----------------------------------------------------------------------------- +Icon Widget +-------------------------------------------------------------------------------]] +local Type, Version = "Icon", 21 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local select, pairs, print = select, pairs, print + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function Button_OnClick(frame, button) + frame.obj:Fire("OnClick", button) + AceGUI:ClearFocus() +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetHeight(110) + self:SetWidth(110) + self:SetLabel() + self:SetImage(nil) + self:SetImageSize(64, 64) + self:SetDisabled(false) + end, + + -- ["OnRelease"] = nil, + + ["SetLabel"] = function(self, text) + if text and text ~= "" then + self.label:Show() + self.label:SetText(text) + self:SetHeight(self.image:GetHeight() + 25) + else + self.label:Hide() + self:SetHeight(self.image:GetHeight() + 10) + end + end, + + ["SetImage"] = function(self, path, ...) + local image = self.image + image:SetTexture(path) + + if image:GetTexture() then + local n = select("#", ...) + if n == 4 or n == 8 then + image:SetTexCoord(...) + else + image:SetTexCoord(0, 1, 0, 1) + end + end + end, + + ["SetImageSize"] = function(self, width, height) + self.image:SetWidth(width) + self.image:SetHeight(height) + --self.frame:SetWidth(width + 30) + if self.label:IsShown() then + self:SetHeight(height + 25) + else + self:SetHeight(height + 10) + end + end, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.frame:Disable() + self.label:SetTextColor(0.5, 0.5, 0.5) + self.image:SetVertexColor(0.5, 0.5, 0.5, 0.5) + else + self.frame:Enable() + self.label:SetTextColor(1, 1, 1) + self.image:SetVertexColor(1, 1, 1, 1) + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Button", nil, UIParent) + frame:Hide() + + frame:EnableMouse(true) + frame:SetScript("OnEnter", Control_OnEnter) + frame:SetScript("OnLeave", Control_OnLeave) + frame:SetScript("OnClick", Button_OnClick) + + local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontHighlight") + label:SetPoint("BOTTOMLEFT") + label:SetPoint("BOTTOMRIGHT") + label:SetJustifyH("CENTER") + label:SetJustifyV("TOP") + label:SetHeight(18) + + local image = frame:CreateTexture(nil, "BACKGROUND") + image:SetWidth(64) + image:SetHeight(64) + image:SetPoint("TOP", 0, -5) + + local highlight = frame:CreateTexture(nil, "HIGHLIGHT") + highlight:SetAllPoints(image) + highlight:SetTexture(136580) -- Interface\\PaperDollInfoFrame\\UI-Character-Tab-Highlight + highlight:SetTexCoord(0, 1, 0.23, 0.77) + highlight:SetBlendMode("ADD") + + local widget = { + label = label, + image = image, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + widget.SetText = function(self, ...) print("AceGUI-3.0-Icon: SetText is deprecated! Use SetLabel instead!"); self:SetLabel(...) end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua new file mode 100644 index 0000000..255dd97 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua @@ -0,0 +1,94 @@ +--[[----------------------------------------------------------------------------- +InteractiveLabel Widget +-------------------------------------------------------------------------------]] +local Type, Version = "InteractiveLabel", 21 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local select, pairs = select, pairs + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function Label_OnClick(frame, button) + frame.obj:Fire("OnClick", button) + AceGUI:ClearFocus() +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:LabelOnAcquire() + self:SetHighlight() + self:SetHighlightTexCoord() + self:SetDisabled(false) + end, + + -- ["OnRelease"] = nil, + + ["SetHighlight"] = function(self, ...) + self.highlight:SetTexture(...) + end, + + ["SetHighlightTexCoord"] = function(self, ...) + local c = select("#", ...) + if c == 4 or c == 8 then + self.highlight:SetTexCoord(...) + else + self.highlight:SetTexCoord(0, 1, 0, 1) + end + end, + + ["SetDisabled"] = function(self,disabled) + self.disabled = disabled + if disabled then + self.frame:EnableMouse(false) + self.label:SetTextColor(0.5, 0.5, 0.5) + else + self.frame:EnableMouse(true) + self.label:SetTextColor(1, 1, 1) + end + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + -- create a Label type that we will hijack + local label = AceGUI:Create("Label") + + local frame = label.frame + frame:EnableMouse(true) + frame:SetScript("OnEnter", Control_OnEnter) + frame:SetScript("OnLeave", Control_OnLeave) + frame:SetScript("OnMouseDown", Label_OnClick) + + local highlight = frame:CreateTexture(nil, "HIGHLIGHT") + highlight:SetTexture(nil) + highlight:SetAllPoints() + highlight:SetBlendMode("ADD") + + label.highlight = highlight + label.type = Type + label.LabelOnAcquire = label.OnAcquire + for method, func in pairs(methods) do + label[method] = func + end + + return label +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) + diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua new file mode 100644 index 0000000..0c779dc --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua @@ -0,0 +1,245 @@ +--[[----------------------------------------------------------------------------- +Keybinding Widget +Set Keybindings in the Config UI. +-------------------------------------------------------------------------------]] +local Type, Version = "Keybinding", 26 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local IsShiftKeyDown, IsControlKeyDown, IsAltKeyDown = IsShiftKeyDown, IsControlKeyDown, IsAltKeyDown +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] + +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function Keybinding_OnClick(frame, button) + if button == "LeftButton" or button == "RightButton" then + local self = frame.obj + if self.waitingForKey then + frame:EnableKeyboard(false) + frame:EnableMouseWheel(false) + self.msgframe:Hide() + frame:UnlockHighlight() + self.waitingForKey = nil + else + frame:EnableKeyboard(true) + frame:EnableMouseWheel(true) + self.msgframe:Show() + frame:LockHighlight() + self.waitingForKey = true + end + end + AceGUI:ClearFocus() +end + +local ignoreKeys = { + ["BUTTON1"] = true, ["BUTTON2"] = true, + ["UNKNOWN"] = true, + ["LSHIFT"] = true, ["LCTRL"] = true, ["LALT"] = true, + ["RSHIFT"] = true, ["RCTRL"] = true, ["RALT"] = true, +} +local function Keybinding_OnKeyDown(frame, key) + local self = frame.obj + if self.waitingForKey then + local keyPressed = key + if keyPressed == "ESCAPE" then + keyPressed = "" + else + if ignoreKeys[keyPressed] then return end + if IsShiftKeyDown() then + keyPressed = "SHIFT-"..keyPressed + end + if IsControlKeyDown() then + keyPressed = "CTRL-"..keyPressed + end + if IsAltKeyDown() then + keyPressed = "ALT-"..keyPressed + end + end + + frame:EnableKeyboard(false) + frame:EnableMouseWheel(false) + self.msgframe:Hide() + frame:UnlockHighlight() + self.waitingForKey = nil + + if not self.disabled then + self:SetKey(keyPressed) + self:Fire("OnKeyChanged", keyPressed) + end + end +end + +local function Keybinding_OnMouseDown(frame, button) + if button == "LeftButton" or button == "RightButton" then + return + elseif button == "MiddleButton" then + button = "BUTTON3" + elseif button == "Button4" then + button = "BUTTON4" + elseif button == "Button5" then + button = "BUTTON5" + end + Keybinding_OnKeyDown(frame, button) +end + +local function Keybinding_OnMouseWheel(frame, direction) + local button + if direction >= 0 then + button = "MOUSEWHEELUP" + else + button = "MOUSEWHEELDOWN" + end + Keybinding_OnKeyDown(frame, button) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetWidth(200) + self:SetLabel("") + self:SetKey("") + self.waitingForKey = nil + self.msgframe:Hide() + self:SetDisabled(false) + self.button:EnableKeyboard(false) + self.button:EnableMouseWheel(false) + end, + + -- ["OnRelease"] = nil, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.button:Disable() + self.label:SetTextColor(0.5,0.5,0.5) + else + self.button:Enable() + self.label:SetTextColor(1,1,1) + end + end, + + ["SetKey"] = function(self, key) + if (key or "") == "" then + self.button:SetText(NOT_BOUND) + self.button:SetNormalFontObject("GameFontNormal") + else + self.button:SetText(key) + self.button:SetNormalFontObject("GameFontHighlight") + end + end, + + ["GetKey"] = function(self) + local key = self.button:GetText() + if key == NOT_BOUND then + key = nil + end + return key + end, + + ["SetLabel"] = function(self, label) + self.label:SetText(label or "") + if (label or "") == "" then + self.alignoffset = nil + self:SetHeight(24) + else + self.alignoffset = 30 + self:SetHeight(44) + end + end, +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] + +local ControlBackdrop = { + bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", + edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", + tile = true, tileSize = 16, edgeSize = 16, + insets = { left = 3, right = 3, top = 3, bottom = 3 } +} + +local function keybindingMsgFixWidth(frame) + frame:SetWidth(frame.msg:GetWidth() + 10) + frame:SetScript("OnUpdate", nil) +end + +local function Constructor() + local name = "AceGUI30KeybindingButton" .. AceGUI:GetNextWidgetNum(Type) + + local frame = CreateFrame("Frame", nil, UIParent) + local button = CreateFrame("Button", name, frame, "UIPanelButtonTemplate") + + button:EnableMouse(true) + button:EnableMouseWheel(false) + button:RegisterForClicks("AnyDown") + button:SetScript("OnEnter", Control_OnEnter) + button:SetScript("OnLeave", Control_OnLeave) + button:SetScript("OnClick", Keybinding_OnClick) + button:SetScript("OnKeyDown", Keybinding_OnKeyDown) + button:SetScript("OnMouseDown", Keybinding_OnMouseDown) + button:SetScript("OnMouseWheel", Keybinding_OnMouseWheel) + button:SetPoint("BOTTOMLEFT") + button:SetPoint("BOTTOMRIGHT") + button:SetHeight(24) + button:EnableKeyboard(false) + + local text = button:GetFontString() + text:SetPoint("LEFT", 7, 0) + text:SetPoint("RIGHT", -7, 0) + + local label = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight") + label:SetPoint("TOPLEFT") + label:SetPoint("TOPRIGHT") + label:SetJustifyH("CENTER") + label:SetHeight(18) + + local msgframe = CreateFrame("Frame", nil, UIParent, "BackdropTemplate") + msgframe:SetHeight(30) + msgframe:SetBackdrop(ControlBackdrop) + msgframe:SetBackdropColor(0,0,0) + msgframe:SetFrameStrata("FULLSCREEN_DIALOG") + msgframe:SetFrameLevel(1000) + msgframe:SetToplevel(true) + + local msg = msgframe:CreateFontString(nil, "OVERLAY", "GameFontNormal") + msg:SetText("Press a key to bind, ESC to clear the binding or click the button again to cancel.") + msgframe.msg = msg + msg:SetPoint("TOPLEFT", 5, -5) + msgframe:SetScript("OnUpdate", keybindingMsgFixWidth) + msgframe:SetPoint("BOTTOM", button, "TOP") + msgframe:Hide() + + local widget = { + button = button, + label = label, + msgframe = msgframe, + frame = frame, + alignoffset = 30, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + button.obj = widget + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Label.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Label.lua new file mode 100644 index 0000000..d0841ef --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Label.lua @@ -0,0 +1,179 @@ +--[[----------------------------------------------------------------------------- +Label Widget +Displays text and optionally an icon. +-------------------------------------------------------------------------------]] +local Type, Version = "Label", 28 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local max, select, pairs = math.max, select, pairs + +-- WoW APIs +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] + +local function UpdateImageAnchor(self) + if self.resizing then return end + local frame = self.frame + local width = frame.width or frame:GetWidth() or 0 + local image = self.image + local label = self.label + local height + + label:ClearAllPoints() + image:ClearAllPoints() + + if self.imageshown then + local imagewidth = image:GetWidth() + if (width - imagewidth) < 200 or (label:GetText() or "") == "" then + -- image goes on top centered when less than 200 width for the text, or if there is no text + image:SetPoint("TOP") + label:SetPoint("TOP", image, "BOTTOM") + label:SetPoint("LEFT") + label:SetWidth(width) + height = image:GetHeight() + label:GetStringHeight() + else + -- image on the left + image:SetPoint("TOPLEFT") + if image:GetHeight() > label:GetStringHeight() then + label:SetPoint("LEFT", image, "RIGHT", 4, 0) + else + label:SetPoint("TOPLEFT", image, "TOPRIGHT", 4, 0) + end + label:SetWidth(width - imagewidth - 4) + height = max(image:GetHeight(), label:GetStringHeight()) + end + else + -- no image shown + label:SetPoint("TOPLEFT") + label:SetWidth(width) + height = label:GetStringHeight() + end + + -- avoid zero-height labels, since they can used as spacers + if not height or height == 0 then + height = 1 + end + + self.resizing = true + frame:SetHeight(height) + frame.height = height + self.resizing = nil +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + -- set the flag to stop constant size updates + self.resizing = true + -- height is set dynamically by the text and image size + self:SetWidth(200) + self:SetText() + self:SetImage(nil) + self:SetImageSize(16, 16) + self:SetColor() + self:SetFontObject() + self:SetJustifyH("LEFT") + self:SetJustifyV("TOP") + + -- reset the flag + self.resizing = nil + -- run the update explicitly + UpdateImageAnchor(self) + end, + + -- ["OnRelease"] = nil, + + ["OnWidthSet"] = function(self, width) + UpdateImageAnchor(self) + end, + + ["SetText"] = function(self, text) + self.label:SetText(text) + UpdateImageAnchor(self) + end, + + ["SetColor"] = function(self, r, g, b) + if not (r and g and b) then + r, g, b = 1, 1, 1 + end + self.label:SetVertexColor(r, g, b) + end, + + ["SetImage"] = function(self, path, ...) + local image = self.image + image:SetTexture(path) + + if image:GetTexture() then + self.imageshown = true + local n = select("#", ...) + if n == 4 or n == 8 then + image:SetTexCoord(...) + else + image:SetTexCoord(0, 1, 0, 1) + end + else + self.imageshown = nil + end + UpdateImageAnchor(self) + end, + + ["SetFont"] = function(self, font, height, flags) + if not self.fontObject then + self.fontObject = CreateFont("AceGUI30LabelFont" .. AceGUI:GetNextWidgetNum(Type)) + end + self.fontObject:SetFont(font, height, flags) + self:SetFontObject(self.fontObject) + end, + + ["SetFontObject"] = function(self, font) + self.label:SetFontObject(font or GameFontHighlightSmall) + UpdateImageAnchor(self) + end, + + ["SetImageSize"] = function(self, width, height) + self.image:SetWidth(width) + self.image:SetHeight(height) + UpdateImageAnchor(self) + end, + + ["SetJustifyH"] = function(self, justifyH) + self.label:SetJustifyH(justifyH) + end, + + ["SetJustifyV"] = function(self, justifyV) + self.label:SetJustifyV(justifyV) + end, +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + frame:Hide() + + local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontHighlightSmall") + local image = frame:CreateTexture(nil, "BACKGROUND") + + -- create widget + local widget = { + label = label, + image = image, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua new file mode 100644 index 0000000..bacb2be --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua @@ -0,0 +1,369 @@ +local Type, Version = "MultiLineEditBox", 32 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local pairs = pairs + +-- WoW APIs +local GetCursorInfo, GetSpellInfo, ClearCursor = GetCursorInfo, GetSpellInfo, ClearCursor +local CreateFrame, UIParent = CreateFrame, UIParent +local _G = _G + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] + +if not AceGUIMultiLineEditBoxInsertLink then + -- upgradeable hook + hooksecurefunc("ChatEdit_InsertLink", function(...) return _G.AceGUIMultiLineEditBoxInsertLink(...) end) +end + +function _G.AceGUIMultiLineEditBoxInsertLink(text) + for i = 1, AceGUI:GetWidgetCount(Type) do + local editbox = _G[("MultiLineEditBox%uEdit"):format(i)] + if editbox and editbox:IsVisible() and editbox:HasFocus() then + editbox:Insert(text) + return true + end + end +end + + +local function Layout(self) + self:SetHeight(self.numlines * 14 + (self.disablebutton and 19 or 41) + self.labelHeight) + + if self.labelHeight == 0 then + self.scrollBar:SetPoint("TOP", self.frame, "TOP", 0, -23) + else + self.scrollBar:SetPoint("TOP", self.label, "BOTTOM", 0, -19) + end + + if self.disablebutton then + self.scrollBar:SetPoint("BOTTOM", self.frame, "BOTTOM", 0, 21) + self.scrollBG:SetPoint("BOTTOMLEFT", 0, 4) + else + self.scrollBar:SetPoint("BOTTOM", self.button, "TOP", 0, 18) + self.scrollBG:SetPoint("BOTTOMLEFT", self.button, "TOPLEFT") + end +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function OnClick(self) -- Button + self = self.obj + self.editBox:ClearFocus() + if not self:Fire("OnEnterPressed", self.editBox:GetText()) then + self.button:Disable() + end +end + +local function OnCursorChanged(self, _, y, _, cursorHeight) -- EditBox + self, y = self.obj.scrollFrame, -y + local offset = self:GetVerticalScroll() + if y < offset then + self:SetVerticalScroll(y) + else + y = y + cursorHeight - self:GetHeight() + if y > offset then + self:SetVerticalScroll(y) + end + end +end + +local function OnEditFocusLost(self) -- EditBox + self:HighlightText(0, 0) + self.obj:Fire("OnEditFocusLost") +end + +local function OnEnter(self) -- EditBox / ScrollFrame + self = self.obj + if not self.entered then + self.entered = true + self:Fire("OnEnter") + end +end + +local function OnLeave(self) -- EditBox / ScrollFrame + self = self.obj + if self.entered then + self.entered = nil + self:Fire("OnLeave") + end +end + +local function OnMouseUp(self) -- ScrollFrame + self = self.obj.editBox + self:SetFocus() + self:SetCursorPosition(self:GetNumLetters()) +end + +local function OnReceiveDrag(self) -- EditBox / ScrollFrame + local type, id, info = GetCursorInfo() + if type == "spell" then + info = GetSpellInfo(id, info) + elseif type ~= "item" then + return + end + ClearCursor() + self = self.obj + local editBox = self.editBox + if not editBox:HasFocus() then + editBox:SetFocus() + editBox:SetCursorPosition(editBox:GetNumLetters()) + end + editBox:Insert(info) + self.button:Enable() +end + +local function OnSizeChanged(self, width, height) -- ScrollFrame + self.obj.editBox:SetWidth(width) +end + +local function OnTextChanged(self, userInput) -- EditBox + if userInput then + self = self.obj + self:Fire("OnTextChanged", self.editBox:GetText()) + self.button:Enable() + end +end + +local function OnTextSet(self) -- EditBox + self:HighlightText(0, 0) + self:SetCursorPosition(self:GetNumLetters()) + self:SetCursorPosition(0) + self.obj.button:Disable() +end + +local function OnVerticalScroll(self, offset) -- ScrollFrame + local editBox = self.obj.editBox + editBox:SetHitRectInsets(0, 0, offset, editBox:GetHeight() - offset - self:GetHeight()) +end + +local function OnScrollRangeChanged(self, xrange, yrange) + if yrange == 0 then + self.obj.editBox:SetHitRectInsets(0, 0, 0, 0) + else + OnVerticalScroll(self, self:GetVerticalScroll()) + end +end + +local function OnShowFocus(frame) + frame.obj.editBox:SetFocus() + frame:SetScript("OnShow", nil) +end + +local function OnEditFocusGained(frame) + AceGUI:SetFocus(frame.obj) + frame.obj:Fire("OnEditFocusGained") +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self.editBox:SetText("") + self:SetDisabled(false) + self:SetWidth(200) + self:DisableButton(false) + self:SetNumLines() + self.entered = nil + self:SetMaxLetters(0) + end, + + ["OnRelease"] = function(self) + self:ClearFocus() + end, + + ["SetDisabled"] = function(self, disabled) + local editBox = self.editBox + if disabled then + editBox:ClearFocus() + editBox:EnableMouse(false) + editBox:SetTextColor(0.5, 0.5, 0.5) + self.label:SetTextColor(0.5, 0.5, 0.5) + self.scrollFrame:EnableMouse(false) + self.button:Disable() + else + editBox:EnableMouse(true) + editBox:SetTextColor(1, 1, 1) + self.label:SetTextColor(1, 0.82, 0) + self.scrollFrame:EnableMouse(true) + end + end, + + ["SetLabel"] = function(self, text) + if text and text ~= "" then + self.label:SetText(text) + if self.labelHeight ~= 10 then + self.labelHeight = 10 + self.label:Show() + end + elseif self.labelHeight ~= 0 then + self.labelHeight = 0 + self.label:Hide() + end + Layout(self) + end, + + ["SetNumLines"] = function(self, value) + if not value or value < 4 then + value = 4 + end + self.numlines = value + Layout(self) + end, + + ["SetText"] = function(self, text) + self.editBox:SetText(text) + end, + + ["GetText"] = function(self) + return self.editBox:GetText() + end, + + ["SetMaxLetters"] = function (self, num) + self.editBox:SetMaxLetters(num or 0) + end, + + ["DisableButton"] = function(self, disabled) + self.disablebutton = disabled + if disabled then + self.button:Hide() + else + self.button:Show() + end + Layout(self) + end, + + ["ClearFocus"] = function(self) + self.editBox:ClearFocus() + self.frame:SetScript("OnShow", nil) + end, + + ["SetFocus"] = function(self) + self.editBox:SetFocus() + if not self.frame:IsShown() then + self.frame:SetScript("OnShow", OnShowFocus) + end + end, + + ["HighlightText"] = function(self, from, to) + self.editBox:HighlightText(from, to) + end, + + ["GetCursorPosition"] = function(self) + return self.editBox:GetCursorPosition() + end, + + ["SetCursorPosition"] = function(self, ...) + return self.editBox:SetCursorPosition(...) + end, +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local backdrop = { + bgFile = [[Interface\Tooltips\UI-Tooltip-Background]], + edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]], edgeSize = 16, + insets = { left = 4, right = 3, top = 4, bottom = 3 } +} + +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + frame:Hide() + + local widgetNum = AceGUI:GetNextWidgetNum(Type) + + local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall") + label:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, -4) + label:SetPoint("TOPRIGHT", frame, "TOPRIGHT", 0, -4) + label:SetJustifyH("LEFT") + label:SetText(ACCEPT) + label:SetHeight(10) + + local button = CreateFrame("Button", ("%s%dButton"):format(Type, widgetNum), frame, "UIPanelButtonTemplate") + button:SetPoint("BOTTOMLEFT", 0, 4) + button:SetHeight(22) + button:SetWidth(label:GetStringWidth() + 24) + button:SetText(ACCEPT) + button:SetScript("OnClick", OnClick) + button:Disable() + + local text = button:GetFontString() + text:ClearAllPoints() + text:SetPoint("TOPLEFT", button, "TOPLEFT", 5, -5) + text:SetPoint("BOTTOMRIGHT", button, "BOTTOMRIGHT", -5, 1) + text:SetJustifyV("MIDDLE") + + local scrollBG = CreateFrame("Frame", nil, frame, "BackdropTemplate") + scrollBG:SetBackdrop(backdrop) + scrollBG:SetBackdropColor(0, 0, 0) + scrollBG:SetBackdropBorderColor(0.4, 0.4, 0.4) + + local scrollFrame = CreateFrame("ScrollFrame", ("%s%dScrollFrame"):format(Type, widgetNum), frame, "UIPanelScrollFrameTemplate") + + local scrollBar = _G[scrollFrame:GetName() .. "ScrollBar"] + scrollBar:ClearAllPoints() + scrollBar:SetPoint("TOP", label, "BOTTOM", 0, -19) + scrollBar:SetPoint("BOTTOM", button, "TOP", 0, 18) + scrollBar:SetPoint("RIGHT", frame, "RIGHT") + + scrollBG:SetPoint("TOPRIGHT", scrollBar, "TOPLEFT", 0, 19) + scrollBG:SetPoint("BOTTOMLEFT", button, "TOPLEFT") + + scrollFrame:SetPoint("TOPLEFT", scrollBG, "TOPLEFT", 5, -6) + scrollFrame:SetPoint("BOTTOMRIGHT", scrollBG, "BOTTOMRIGHT", -4, 4) + scrollFrame:SetScript("OnEnter", OnEnter) + scrollFrame:SetScript("OnLeave", OnLeave) + scrollFrame:SetScript("OnMouseUp", OnMouseUp) + scrollFrame:SetScript("OnReceiveDrag", OnReceiveDrag) + scrollFrame:SetScript("OnSizeChanged", OnSizeChanged) + scrollFrame:HookScript("OnVerticalScroll", OnVerticalScroll) + scrollFrame:HookScript("OnScrollRangeChanged", OnScrollRangeChanged) + + local editBox = CreateFrame("EditBox", ("%s%dEdit"):format(Type, widgetNum), scrollFrame) + editBox:SetAllPoints() + editBox:SetFontObject(ChatFontNormal) + editBox:SetMultiLine(true) + editBox:EnableMouse(true) + editBox:SetAutoFocus(false) + editBox:SetCountInvisibleLetters(false) + editBox:SetScript("OnCursorChanged", OnCursorChanged) + editBox:SetScript("OnEditFocusLost", OnEditFocusLost) + editBox:SetScript("OnEnter", OnEnter) + editBox:SetScript("OnEscapePressed", editBox.ClearFocus) + editBox:SetScript("OnLeave", OnLeave) + editBox:SetScript("OnMouseDown", OnReceiveDrag) + editBox:SetScript("OnReceiveDrag", OnReceiveDrag) + editBox:SetScript("OnTextChanged", OnTextChanged) + editBox:SetScript("OnTextSet", OnTextSet) + editBox:SetScript("OnEditFocusGained", OnEditFocusGained) + + + scrollFrame:SetScrollChild(editBox) + + local widget = { + button = button, + editBox = editBox, + frame = frame, + label = label, + labelHeight = 10, + numlines = 4, + scrollBar = scrollBar, + scrollBG = scrollBG, + scrollFrame = scrollFrame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + button.obj, editBox.obj, scrollFrame.obj = widget, widget, widget + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua new file mode 100644 index 0000000..483d400 --- /dev/null +++ b/Titan/libs/Ace/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua @@ -0,0 +1,280 @@ +--[[----------------------------------------------------------------------------- +Slider Widget +Graphical Slider, like, for Range values. +-------------------------------------------------------------------------------]] +local Type, Version = "Slider", 23 +local AceGUI = LibStub and LibStub("AceGUI-3.0", true) +if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end + +-- Lua APIs +local min, max, floor = math.min, math.max, math.floor +local tonumber, pairs = tonumber, pairs + +-- WoW APIs +local PlaySound = PlaySound +local CreateFrame, UIParent = CreateFrame, UIParent + +--[[----------------------------------------------------------------------------- +Support functions +-------------------------------------------------------------------------------]] +local function UpdateText(self) + local value = self.value or 0 + if self.ispercent then + self.editbox:SetText(("%s%%"):format(floor(value * 1000 + 0.5) / 10)) + else + self.editbox:SetText(floor(value * 100 + 0.5) / 100) + end +end + +local function UpdateLabels(self) + local min_value, max_value = (self.min or 0), (self.max or 100) + if self.ispercent then + self.lowtext:SetFormattedText("%s%%", (min_value * 100)) + self.hightext:SetFormattedText("%s%%", (max_value * 100)) + else + self.lowtext:SetText(min_value) + self.hightext:SetText(max_value) + end +end + +--[[----------------------------------------------------------------------------- +Scripts +-------------------------------------------------------------------------------]] +local function Control_OnEnter(frame) + frame.obj:Fire("OnEnter") +end + +local function Control_OnLeave(frame) + frame.obj:Fire("OnLeave") +end + +local function Frame_OnMouseDown(frame) + frame.obj.slider:EnableMouseWheel(true) + AceGUI:ClearFocus() +end + +local function Slider_OnValueChanged(frame, newvalue) + local self = frame.obj + if not frame.setup then + if self.step and self.step > 0 then + local min_value = self.min or 0 + newvalue = floor((newvalue - min_value) / self.step + 0.5) * self.step + min_value + end + if newvalue ~= self.value and not self.disabled then + self.value = newvalue + self:Fire("OnValueChanged", newvalue) + end + if self.value then + UpdateText(self) + end + end +end + +local function Slider_OnMouseUp(frame) + local self = frame.obj + self:Fire("OnMouseUp", self.value) +end + +local function Slider_OnMouseWheel(frame, v) + local self = frame.obj + if not self.disabled then + local value = self.value + if v > 0 then + value = min(value + (self.step or 1), self.max) + else + value = max(value - (self.step or 1), self.min) + end + self.slider:SetValue(value) + end +end + +local function EditBox_OnEscapePressed(frame) + frame:ClearFocus() +end + +local function EditBox_OnEnterPressed(frame) + local self = frame.obj + local value = frame:GetText() + if self.ispercent then + value = value:gsub('%%', '') + value = tonumber(value) / 100 + else + value = tonumber(value) + end + + if value then + PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON + self.slider:SetValue(value) + self:Fire("OnMouseUp", value) + end +end + +local function EditBox_OnEnter(frame) + frame:SetBackdropBorderColor(0.5, 0.5, 0.5, 1) +end + +local function EditBox_OnLeave(frame) + frame:SetBackdropBorderColor(0.3, 0.3, 0.3, 0.8) +end + +--[[----------------------------------------------------------------------------- +Methods +-------------------------------------------------------------------------------]] +local methods = { + ["OnAcquire"] = function(self) + self:SetWidth(200) + self:SetHeight(44) + self:SetDisabled(false) + self:SetIsPercent(nil) + self:SetSliderValues(0,100,1) + self:SetValue(0) + self.slider:EnableMouseWheel(false) + end, + + -- ["OnRelease"] = nil, + + ["SetDisabled"] = function(self, disabled) + self.disabled = disabled + if disabled then + self.slider:EnableMouse(false) + self.label:SetTextColor(.5, .5, .5) + self.hightext:SetTextColor(.5, .5, .5) + self.lowtext:SetTextColor(.5, .5, .5) + --self.valuetext:SetTextColor(.5, .5, .5) + self.editbox:SetTextColor(.5, .5, .5) + self.editbox:EnableMouse(false) + self.editbox:ClearFocus() + else + self.slider:EnableMouse(true) + self.label:SetTextColor(1, .82, 0) + self.hightext:SetTextColor(1, 1, 1) + self.lowtext:SetTextColor(1, 1, 1) + --self.valuetext:SetTextColor(1, 1, 1) + self.editbox:SetTextColor(1, 1, 1) + self.editbox:EnableMouse(true) + end + end, + + ["SetValue"] = function(self, value) + self.slider.setup = true + self.slider:SetValue(value) + self.value = value + UpdateText(self) + self.slider.setup = nil + end, + + ["GetValue"] = function(self) + return self.value + end, + + ["SetLabel"] = function(self, text) + self.label:SetText(text) + end, + + ["SetSliderValues"] = function(self, min_value, max_value, step) + local frame = self.slider + frame.setup = true + self.min = min_value + self.max = max_value + self.step = step + frame:SetMinMaxValues(min_value or 0,max_value or 100) + UpdateLabels(self) + frame:SetValueStep(step or 1) + if self.value then + frame:SetValue(self.value) + end + frame.setup = nil + end, + + ["SetIsPercent"] = function(self, value) + self.ispercent = value + UpdateLabels(self) + UpdateText(self) + end +} + +--[[----------------------------------------------------------------------------- +Constructor +-------------------------------------------------------------------------------]] +local SliderBackdrop = { + bgFile = "Interface\\Buttons\\UI-SliderBar-Background", + edgeFile = "Interface\\Buttons\\UI-SliderBar-Border", + tile = true, tileSize = 8, edgeSize = 8, + insets = { left = 3, right = 3, top = 6, bottom = 6 } +} + +local ManualBackdrop = { + bgFile = "Interface\\ChatFrame\\ChatFrameBackground", + edgeFile = "Interface\\ChatFrame\\ChatFrameBackground", + tile = true, edgeSize = 1, tileSize = 5, +} + +local function Constructor() + local frame = CreateFrame("Frame", nil, UIParent) + + frame:EnableMouse(true) + frame:SetScript("OnMouseDown", Frame_OnMouseDown) + + local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") + label:SetPoint("TOPLEFT") + label:SetPoint("TOPRIGHT") + label:SetJustifyH("CENTER") + label:SetHeight(15) + + local slider = CreateFrame("Slider", nil, frame, "BackdropTemplate") + slider:SetOrientation("HORIZONTAL") + slider:SetHeight(15) + slider:SetHitRectInsets(0, 0, -10, 0) + slider:SetBackdrop(SliderBackdrop) + slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Horizontal") + slider:SetPoint("TOP", label, "BOTTOM") + slider:SetPoint("LEFT", 3, 0) + slider:SetPoint("RIGHT", -3, 0) + slider:SetValue(0) + slider:SetScript("OnValueChanged",Slider_OnValueChanged) + slider:SetScript("OnEnter", Control_OnEnter) + slider:SetScript("OnLeave", Control_OnLeave) + slider:SetScript("OnMouseUp", Slider_OnMouseUp) + slider:SetScript("OnMouseWheel", Slider_OnMouseWheel) + + local lowtext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall") + lowtext:SetPoint("TOPLEFT", slider, "BOTTOMLEFT", 2, 3) + + local hightext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall") + hightext:SetPoint("TOPRIGHT", slider, "BOTTOMRIGHT", -2, 3) + + local editbox = CreateFrame("EditBox", nil, frame, "BackdropTemplate") + editbox:SetAutoFocus(false) + editbox:SetFontObject(GameFontHighlightSmall) + editbox:SetPoint("TOP", slider, "BOTTOM") + editbox:SetHeight(14) + editbox:SetWidth(70) + editbox:SetJustifyH("CENTER") + editbox:EnableMouse(true) + editbox:SetBackdrop(ManualBackdrop) + editbox:SetBackdropColor(0, 0, 0, 0.5) + editbox:SetBackdropBorderColor(0.3, 0.3, 0.30, 0.80) + editbox:SetScript("OnEnter", EditBox_OnEnter) + editbox:SetScript("OnLeave", EditBox_OnLeave) + editbox:SetScript("OnEnterPressed", EditBox_OnEnterPressed) + editbox:SetScript("OnEscapePressed", EditBox_OnEscapePressed) + + local widget = { + label = label, + slider = slider, + lowtext = lowtext, + hightext = hightext, + editbox = editbox, + alignoffset = 25, + frame = frame, + type = Type + } + for method, func in pairs(methods) do + widget[method] = func + end + slider.obj, editbox.obj = widget, widget + + return AceGUI:RegisterAsWidget(widget) +end + +AceGUI:RegisterWidgetType(Type,Constructor,Version) diff --git a/Titan/libs/Ace/AceHook-3.0/AceHook-3.0.lua b/Titan/libs/Ace/AceHook-3.0/AceHook-3.0.lua new file mode 100644 index 0000000..d91c36f --- /dev/null +++ b/Titan/libs/Ace/AceHook-3.0/AceHook-3.0.lua @@ -0,0 +1,511 @@ +--- **AceHook-3.0** offers safe Hooking/Unhooking of functions, methods and frame scripts. +-- Using AceHook-3.0 is recommended when you need to unhook your hooks again, so the hook chain isn't broken +-- when you manually restore the original function. +-- +-- **AceHook-3.0** can be embeded into your addon, either explicitly by calling AceHook:Embed(MyAddon) or by +-- specifying it as an embeded library in your AceAddon. All functions will be available on your addon object +-- and can be accessed directly, without having to explicitly call AceHook itself.\\ +-- It is recommended to embed AceHook, otherwise you'll have to specify a custom `self` on all calls you +-- make into AceHook. +-- @class file +-- @name AceHook-3.0 +-- @release $Id: AceHook-3.0.lua 1202 2019-05-15 23:11:22Z nevcairiel $ +local ACEHOOK_MAJOR, ACEHOOK_MINOR = "AceHook-3.0", 8 +local AceHook, oldminor = LibStub:NewLibrary(ACEHOOK_MAJOR, ACEHOOK_MINOR) + +if not AceHook then return end -- No upgrade needed + +AceHook.embeded = AceHook.embeded or {} +AceHook.registry = AceHook.registry or setmetatable({}, {__index = function(tbl, key) tbl[key] = {} return tbl[key] end }) +AceHook.handlers = AceHook.handlers or {} +AceHook.actives = AceHook.actives or {} +AceHook.scripts = AceHook.scripts or {} +AceHook.onceSecure = AceHook.onceSecure or {} +AceHook.hooks = AceHook.hooks or {} + +-- local upvalues +local registry = AceHook.registry +local handlers = AceHook.handlers +local actives = AceHook.actives +local scripts = AceHook.scripts +local onceSecure = AceHook.onceSecure + +-- Lua APIs +local pairs, next, type = pairs, next, type +local format = string.format +local assert, error = assert, error + +-- WoW APIs +local issecurevariable, hooksecurefunc = issecurevariable, hooksecurefunc +local _G = _G + +-- functions for later definition +local donothing, createHook, hook + +local protectedScripts = { + OnClick = true, +} + +-- upgrading of embeded is done at the bottom of the file + +local mixins = { + "Hook", "SecureHook", + "HookScript", "SecureHookScript", + "Unhook", "UnhookAll", + "IsHooked", + "RawHook", "RawHookScript" +} + +-- AceHook:Embed( target ) +-- target (object) - target object to embed AceHook in +-- +-- Embeds AceEevent into the target object making the functions from the mixins list available on target:.. +function AceHook:Embed( target ) + for k, v in pairs( mixins ) do + target[v] = self[v] + end + self.embeded[target] = true + -- inject the hooks table safely + target.hooks = target.hooks or {} + return target +end + +-- AceHook:OnEmbedDisable( target ) +-- target (object) - target object that is being disabled +-- +-- Unhooks all hooks when the target disables. +-- this method should be called by the target manually or by an addon framework +function AceHook:OnEmbedDisable( target ) + target:UnhookAll() +end + +function createHook(self, handler, orig, secure, failsafe) + local uid + local method = type(handler) == "string" + if failsafe and not secure then + -- failsafe hook creation + uid = function(...) + if actives[uid] then + if method then + self[handler](self, ...) + else + handler(...) + end + end + return orig(...) + end + -- /failsafe hook + else + -- all other hooks + uid = function(...) + if actives[uid] then + if method then + return self[handler](self, ...) + else + return handler(...) + end + elseif not secure then -- backup on non secure + return orig(...) + end + end + -- /hook + end + return uid +end + +function donothing() end + +function hook(self, obj, method, handler, script, secure, raw, forceSecure, usage) + if not handler then handler = method end + + -- These asserts make sure AceHooks's devs play by the rules. + assert(not script or type(script) == "boolean") + assert(not secure or type(secure) == "boolean") + assert(not raw or type(raw) == "boolean") + assert(not forceSecure or type(forceSecure) == "boolean") + assert(usage) + + -- Error checking Battery! + if obj and type(obj) ~= "table" then + error(format("%s: 'object' - nil or table expected got %s", usage, type(obj)), 3) + end + if type(method) ~= "string" then + error(format("%s: 'method' - string expected got %s", usage, type(method)), 3) + end + if type(handler) ~= "string" and type(handler) ~= "function" then + error(format("%s: 'handler' - nil, string, or function expected got %s", usage, type(handler)), 3) + end + if type(handler) == "string" and type(self[handler]) ~= "function" then + error(format("%s: 'handler' - Handler specified does not exist at self[handler]", usage), 3) + end + if script then + if not obj or not obj.GetScript or not obj:HasScript(method) then + error(format("%s: You can only hook a script on a frame object", usage), 3) + end + if not secure and obj.IsProtected and obj:IsProtected() and protectedScripts[method] then + error(format("Cannot hook secure script %q; Use SecureHookScript(obj, method, [handler]) instead.", method), 3) + end + else + local issecure + if obj then + issecure = onceSecure[obj] and onceSecure[obj][method] or issecurevariable(obj, method) + else + issecure = onceSecure[method] or issecurevariable(method) + end + if issecure then + if forceSecure then + if obj then + onceSecure[obj] = onceSecure[obj] or {} + onceSecure[obj][method] = true + else + onceSecure[method] = true + end + elseif not secure then + error(format("%s: Attempt to hook secure function %s. Use `SecureHook' or add `true' to the argument list to override.", usage, method), 3) + end + end + end + + local uid + if obj then + uid = registry[self][obj] and registry[self][obj][method] + else + uid = registry[self][method] + end + + if uid then + if actives[uid] then + -- Only two sane choices exist here. We either a) error 100% of the time or b) always unhook and then hook + -- choice b would likely lead to odd debuging conditions or other mysteries so we're going with a. + error(format("Attempting to rehook already active hook %s.", method)) + end + + if handlers[uid] == handler then -- turn on a decative hook, note enclosures break this ability, small memory leak + actives[uid] = true + return + elseif obj then -- is there any reason not to call unhook instead of doing the following several lines? + if self.hooks and self.hooks[obj] then + self.hooks[obj][method] = nil + end + registry[self][obj][method] = nil + else + if self.hooks then + self.hooks[method] = nil + end + registry[self][method] = nil + end + handlers[uid], actives[uid], scripts[uid] = nil, nil, nil + uid = nil + end + + local orig + if script then + orig = obj:GetScript(method) or donothing + elseif obj then + orig = obj[method] + else + orig = _G[method] + end + + if not orig then + error(format("%s: Attempting to hook a non existing target", usage), 3) + end + + uid = createHook(self, handler, orig, secure, not (raw or secure)) + + if obj then + self.hooks[obj] = self.hooks[obj] or {} + registry[self][obj] = registry[self][obj] or {} + registry[self][obj][method] = uid + + if not secure then + self.hooks[obj][method] = orig + end + + if script then + if not secure then + obj:SetScript(method, uid) + else + obj:HookScript(method, uid) + end + else + if not secure then + obj[method] = uid + else + hooksecurefunc(obj, method, uid) + end + end + else + registry[self][method] = uid + + if not secure then + _G[method] = uid + self.hooks[method] = orig + else + hooksecurefunc(method, uid) + end + end + + actives[uid], handlers[uid], scripts[uid] = true, handler, script and true or nil +end + +--- Hook a function or a method on an object. +-- The hook created will be a "safe hook", that means that your handler will be called +-- before the hooked function ("Pre-Hook"), and you don't have to call the original function yourself, +-- however you cannot stop the execution of the function, or modify any of the arguments/return values.\\ +-- This type of hook is typically used if you need to know if some function got called, and don't want to modify it. +-- @paramsig [object], method, [handler], [hookSecure] +-- @param object The object to hook a method from +-- @param method If object was specified, the name of the method, or the name of the function to hook. +-- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked function) +-- @param hookSecure If true, AceHook will allow hooking of secure functions. +-- @usage +-- -- create an addon with AceHook embeded +-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("HookDemo", "AceHook-3.0") +-- +-- function MyAddon:OnEnable() +-- -- Hook ActionButton_UpdateHotkeys, overwriting the secure status +-- self:Hook("ActionButton_UpdateHotkeys", true) +-- end +-- +-- function MyAddon:ActionButton_UpdateHotkeys(button, type) +-- print(button:GetName() .. " is updating its HotKey") +-- end +function AceHook:Hook(object, method, handler, hookSecure) + if type(object) == "string" then + method, handler, hookSecure, object = object, method, handler, nil + end + + if handler == true then + handler, hookSecure = nil, true + end + + hook(self, object, method, handler, false, false, false, hookSecure or false, "Usage: Hook([object], method, [handler], [hookSecure])") +end + +--- RawHook a function or a method on an object. +-- The hook created will be a "raw hook", that means that your handler will completly replace +-- the original function, and your handler has to call the original function (or not, depending on your intentions).\\ +-- The original function will be stored in `self.hooks[object][method]` or `self.hooks[functionName]` respectively.\\ +-- This type of hook can be used for all purposes, and is usually the most common case when you need to modify arguments +-- or want to control execution of the original function. +-- @paramsig [object], method, [handler], [hookSecure] +-- @param object The object to hook a method from +-- @param method If object was specified, the name of the method, or the name of the function to hook. +-- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked function) +-- @param hookSecure If true, AceHook will allow hooking of secure functions. +-- @usage +-- -- create an addon with AceHook embeded +-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("HookDemo", "AceHook-3.0") +-- +-- function MyAddon:OnEnable() +-- -- Hook ActionButton_UpdateHotkeys, overwriting the secure status +-- self:RawHook("ActionButton_UpdateHotkeys", true) +-- end +-- +-- function MyAddon:ActionButton_UpdateHotkeys(button, type) +-- if button:GetName() == "MyButton" then +-- -- do stuff here +-- else +-- self.hooks.ActionButton_UpdateHotkeys(button, type) +-- end +-- end +function AceHook:RawHook(object, method, handler, hookSecure) + if type(object) == "string" then + method, handler, hookSecure, object = object, method, handler, nil + end + + if handler == true then + handler, hookSecure = nil, true + end + + hook(self, object, method, handler, false, false, true, hookSecure or false, "Usage: RawHook([object], method, [handler], [hookSecure])") +end + +--- SecureHook a function or a method on an object. +-- This function is a wrapper around the `hooksecurefunc` function in the WoW API. Using AceHook +-- extends the functionality of secure hooks, and adds the ability to unhook once the hook isn't +-- required anymore, or the addon is being disabled.\\ +-- Secure Hooks should be used if the secure-status of the function is vital to its function, +-- and taint would block execution. Secure Hooks are always called after the original function was called +-- ("Post Hook"), and you cannot modify the arguments, return values or control the execution. +-- @paramsig [object], method, [handler] +-- @param object The object to hook a method from +-- @param method If object was specified, the name of the method, or the name of the function to hook. +-- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked function) +function AceHook:SecureHook(object, method, handler) + if type(object) == "string" then + method, handler, object = object, method, nil + end + + hook(self, object, method, handler, false, true, false, false, "Usage: SecureHook([object], method, [handler])") +end + +--- Hook a script handler on a frame. +-- The hook created will be a "safe hook", that means that your handler will be called +-- before the hooked script ("Pre-Hook"), and you don't have to call the original function yourself, +-- however you cannot stop the execution of the function, or modify any of the arguments/return values.\\ +-- This is the frame script equivalent of the :Hook safe-hook. It would typically be used to be notified +-- when a certain event happens to a frame. +-- @paramsig frame, script, [handler] +-- @param frame The Frame to hook the script on +-- @param script The script to hook +-- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked script) +-- @usage +-- -- create an addon with AceHook embeded +-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("HookDemo", "AceHook-3.0") +-- +-- function MyAddon:OnEnable() +-- -- Hook the OnShow of FriendsFrame +-- self:HookScript(FriendsFrame, "OnShow", "FriendsFrameOnShow") +-- end +-- +-- function MyAddon:FriendsFrameOnShow(frame) +-- print("The FriendsFrame was shown!") +-- end +function AceHook:HookScript(frame, script, handler) + hook(self, frame, script, handler, true, false, false, false, "Usage: HookScript(object, method, [handler])") +end + +--- RawHook a script handler on a frame. +-- The hook created will be a "raw hook", that means that your handler will completly replace +-- the original script, and your handler has to call the original script (or not, depending on your intentions).\\ +-- The original script will be stored in `self.hooks[frame][script]`.\\ +-- This type of hook can be used for all purposes, and is usually the most common case when you need to modify arguments +-- or want to control execution of the original script. +-- @paramsig frame, script, [handler] +-- @param frame The Frame to hook the script on +-- @param script The script to hook +-- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked script) +-- @usage +-- -- create an addon with AceHook embeded +-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("HookDemo", "AceHook-3.0") +-- +-- function MyAddon:OnEnable() +-- -- Hook the OnShow of FriendsFrame +-- self:RawHookScript(FriendsFrame, "OnShow", "FriendsFrameOnShow") +-- end +-- +-- function MyAddon:FriendsFrameOnShow(frame) +-- -- Call the original function +-- self.hooks[frame].OnShow(frame) +-- -- Do our processing +-- -- .. stuff +-- end +function AceHook:RawHookScript(frame, script, handler) + hook(self, frame, script, handler, true, false, true, false, "Usage: RawHookScript(object, method, [handler])") +end + +--- SecureHook a script handler on a frame. +-- This function is a wrapper around the `frame:HookScript` function in the WoW API. Using AceHook +-- extends the functionality of secure hooks, and adds the ability to unhook once the hook isn't +-- required anymore, or the addon is being disabled.\\ +-- Secure Hooks should be used if the secure-status of the function is vital to its function, +-- and taint would block execution. Secure Hooks are always called after the original function was called +-- ("Post Hook"), and you cannot modify the arguments, return values or control the execution. +-- @paramsig frame, script, [handler] +-- @param frame The Frame to hook the script on +-- @param script The script to hook +-- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked script) +function AceHook:SecureHookScript(frame, script, handler) + hook(self, frame, script, handler, true, true, false, false, "Usage: SecureHookScript(object, method, [handler])") +end + +--- Unhook from the specified function, method or script. +-- @paramsig [obj], method +-- @param obj The object or frame to unhook from +-- @param method The name of the method, function or script to unhook from. +function AceHook:Unhook(obj, method) + local usage = "Usage: Unhook([obj], method)" + if type(obj) == "string" then + method, obj = obj, nil + end + + if obj and type(obj) ~= "table" then + error(format("%s: 'obj' - expecting nil or table got %s", usage, type(obj)), 2) + end + if type(method) ~= "string" then + error(format("%s: 'method' - expeting string got %s", usage, type(method)), 2) + end + + local uid + if obj then + uid = registry[self][obj] and registry[self][obj][method] + else + uid = registry[self][method] + end + + if not uid or not actives[uid] then + -- Declining to error on an unneeded unhook since the end effect is the same and this would just be annoying. + return false + end + + actives[uid], handlers[uid] = nil, nil + + if obj then + registry[self][obj][method] = nil + registry[self][obj] = next(registry[self][obj]) and registry[self][obj] or nil + + -- if the hook reference doesnt exist, then its a secure hook, just bail out and dont do any unhooking + if not self.hooks[obj] or not self.hooks[obj][method] then return true end + + if scripts[uid] and obj:GetScript(method) == uid then -- unhooks scripts + obj:SetScript(method, self.hooks[obj][method] ~= donothing and self.hooks[obj][method] or nil) + scripts[uid] = nil + elseif obj and self.hooks[obj] and self.hooks[obj][method] and obj[method] == uid then -- unhooks methods + obj[method] = self.hooks[obj][method] + end + + self.hooks[obj][method] = nil + self.hooks[obj] = next(self.hooks[obj]) and self.hooks[obj] or nil + else + registry[self][method] = nil + + -- if self.hooks[method] doesn't exist, then this is a SecureHook, just bail out + if not self.hooks[method] then return true end + + if self.hooks[method] and _G[method] == uid then -- unhooks functions + _G[method] = self.hooks[method] + end + + self.hooks[method] = nil + end + return true +end + +--- Unhook all existing hooks for this addon. +function AceHook:UnhookAll() + for key, value in pairs(registry[self]) do + if type(key) == "table" then + for method in pairs(value) do + self:Unhook(key, method) + end + else + self:Unhook(key) + end + end +end + +--- Check if the specific function, method or script is already hooked. +-- @paramsig [obj], method +-- @param obj The object or frame to unhook from +-- @param method The name of the method, function or script to unhook from. +function AceHook:IsHooked(obj, method) + -- we don't check if registry[self] exists, this is done by evil magicks in the metatable + if type(obj) == "string" then + if registry[self][obj] and actives[registry[self][obj]] then + return true, handlers[registry[self][obj]] + end + else + if registry[self][obj] and registry[self][obj][method] and actives[registry[self][obj][method]] then + return true, handlers[registry[self][obj][method]] + end + end + + return false, nil +end + +--- Upgrade our old embeded +for target, v in pairs( AceHook.embeded ) do + AceHook:Embed( target ) +end diff --git a/Titan/libs/Ace/AceHook-3.0/AceHook-3.0.xml b/Titan/libs/Ace/AceHook-3.0/AceHook-3.0.xml new file mode 100644 index 0000000..fe51336 --- /dev/null +++ b/Titan/libs/Ace/AceHook-3.0/AceHook-3.0.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="AceHook-3.0.lua"/> +</Ui> diff --git a/Titan/libs/Ace/AceLocale-3.0/AceLocale-3.0.lua b/Titan/libs/Ace/AceLocale-3.0/AceLocale-3.0.lua new file mode 100644 index 0000000..e133781 --- /dev/null +++ b/Titan/libs/Ace/AceLocale-3.0/AceLocale-3.0.lua @@ -0,0 +1,137 @@ +--- **AceLocale-3.0** manages localization in addons, allowing for multiple locale to be registered with fallback to the base locale for untranslated strings. +-- @class file +-- @name AceLocale-3.0 +-- @release $Id: AceLocale-3.0.lua 1035 2011-07-09 03:20:13Z kaelten $ +local MAJOR,MINOR = "AceLocale-3.0", 6 + +local AceLocale, oldminor = LibStub:NewLibrary(MAJOR, MINOR) + +if not AceLocale then return end -- no upgrade needed + +-- Lua APIs +local assert, tostring, error = assert, tostring, error +local getmetatable, setmetatable, rawset, rawget = getmetatable, setmetatable, rawset, rawget + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: GAME_LOCALE, geterrorhandler + +local gameLocale = GetLocale() +if gameLocale == "enGB" then + gameLocale = "enUS" +end + +AceLocale.apps = AceLocale.apps or {} -- array of ["AppName"]=localetableref +AceLocale.appnames = AceLocale.appnames or {} -- array of [localetableref]="AppName" + +-- This metatable is used on all tables returned from GetLocale +local readmeta = { + __index = function(self, key) -- requesting totally unknown entries: fire off a nonbreaking error and return key + rawset(self, key, key) -- only need to see the warning once, really + geterrorhandler()(MAJOR..": "..tostring(AceLocale.appnames[self])..": Missing entry for '"..tostring(key).."'") + return key + end +} + +-- This metatable is used on all tables returned from GetLocale if the silent flag is true, it does not issue a warning on unknown keys +local readmetasilent = { + __index = function(self, key) -- requesting totally unknown entries: return key + rawset(self, key, key) -- only need to invoke this function once + return key + end +} + +-- Remember the locale table being registered right now (it gets set by :NewLocale()) +-- NOTE: Do never try to register 2 locale tables at once and mix their definition. +local registering + +-- local assert false function +local assertfalse = function() assert(false) end + +-- This metatable proxy is used when registering nondefault locales +local writeproxy = setmetatable({}, { + __newindex = function(self, key, value) + rawset(registering, key, value == true and key or value) -- assigning values: replace 'true' with key string + end, + __index = assertfalse +}) + +-- This metatable proxy is used when registering the default locale. +-- It refuses to overwrite existing values +-- Reason 1: Allows loading locales in any order +-- Reason 2: If 2 modules have the same string, but only the first one to be +-- loaded has a translation for the current locale, the translation +-- doesn't get overwritten. +-- +local writedefaultproxy = setmetatable({}, { + __newindex = function(self, key, value) + if not rawget(registering, key) then + rawset(registering, key, value == true and key or value) + end + end, + __index = assertfalse +}) + +--- Register a new locale (or extend an existing one) for the specified application. +-- :NewLocale will return a table you can fill your locale into, or nil if the locale isn't needed for the players +-- game locale. +-- @paramsig application, locale[, isDefault[, silent]] +-- @param application Unique name of addon / module +-- @param locale Name of the locale to register, e.g. "enUS", "deDE", etc. +-- @param isDefault If this is the default locale being registered (your addon is written in this language, generally enUS) +-- @param silent If true, the locale will not issue warnings for missing keys. Must be set on the first locale registered. If set to "raw", nils will be returned for unknown keys (no metatable used). +-- @usage +-- -- enUS.lua +-- local L = LibStub("AceLocale-3.0"):NewLocale("TestLocale", "enUS", true) +-- L["string1"] = true +-- +-- -- deDE.lua +-- local L = LibStub("AceLocale-3.0"):NewLocale("TestLocale", "deDE") +-- if not L then return end +-- L["string1"] = "Zeichenkette1" +-- @return Locale Table to add localizations to, or nil if the current locale is not required. +function AceLocale:NewLocale(application, locale, isDefault, silent) + + -- GAME_LOCALE allows translators to test translations of addons without having that wow client installed + local gameLocale = GAME_LOCALE or gameLocale + + local app = AceLocale.apps[application] + + if silent and app and getmetatable(app) ~= readmetasilent then + geterrorhandler()("Usage: NewLocale(application, locale[, isDefault[, silent]]): 'silent' must be specified for the first locale registered") + end + + if not app then + if silent=="raw" then + app = {} + else + app = setmetatable({}, silent and readmetasilent or readmeta) + end + AceLocale.apps[application] = app + AceLocale.appnames[app] = application + end + + if locale ~= gameLocale and not isDefault then + return -- nop, we don't need these translations + end + + registering = app -- remember globally for writeproxy and writedefaultproxy + + if isDefault then + return writedefaultproxy + end + + return writeproxy +end + +--- Returns localizations for the current locale (or default locale if translations are missing). +-- Errors if nothing is registered (spank developer, not just a missing translation) +-- @param application Unique name of addon / module +-- @param silent If true, the locale is optional, silently return nil if it's not found (defaults to false, optional) +-- @return The locale table for the current language. +function AceLocale:GetLocale(application, silent) + if not silent and not AceLocale.apps[application] then + error("Usage: GetLocale(application[, silent]): 'application' - No locales registered for '"..tostring(application).."'", 2) + end + return AceLocale.apps[application] +end diff --git a/Titan/libs/Ace/AceLocale-3.0/AceLocale-3.0.xml b/Titan/libs/Ace/AceLocale-3.0/AceLocale-3.0.xml new file mode 100644 index 0000000..bf023f0 --- /dev/null +++ b/Titan/libs/Ace/AceLocale-3.0/AceLocale-3.0.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="AceLocale-3.0.lua"/> +</Ui> diff --git a/Titan/libs/Ace/AceTimer-3.0/AceTimer-3.0.lua b/Titan/libs/Ace/AceTimer-3.0/AceTimer-3.0.lua new file mode 100644 index 0000000..33b4da4 --- /dev/null +++ b/Titan/libs/Ace/AceTimer-3.0/AceTimer-3.0.lua @@ -0,0 +1,278 @@ +--- **AceTimer-3.0** provides a central facility for registering timers. +-- AceTimer supports one-shot timers and repeating timers. All timers are stored in an efficient +-- data structure that allows easy dispatching and fast rescheduling. Timers can be registered +-- or canceled at any time, even from within a running timer, without conflict or large overhead.\\ +-- AceTimer is currently limited to firing timers at a frequency of 0.01s as this is what the WoW timer API +-- restricts us to. +-- +-- All `:Schedule` functions will return a handle to the current timer, which you will need to store if you +-- need to cancel the timer you just registered. +-- +-- **AceTimer-3.0** can be embeded into your addon, either explicitly by calling AceTimer:Embed(MyAddon) or by +-- specifying it as an embeded library in your AceAddon. All functions will be available on your addon object +-- and can be accessed directly, without having to explicitly call AceTimer itself.\\ +-- It is recommended to embed AceTimer, otherwise you'll have to specify a custom `self` on all calls you +-- make into AceTimer. +-- @class file +-- @name AceTimer-3.0 +-- @release $Id: AceTimer-3.0.lua 1202 2019-05-15 23:11:22Z nevcairiel $ + +local MAJOR, MINOR = "AceTimer-3.0", 17 -- Bump minor on changes +local AceTimer, oldminor = LibStub:NewLibrary(MAJOR, MINOR) + +if not AceTimer then return end -- No upgrade needed +AceTimer.activeTimers = AceTimer.activeTimers or {} -- Active timer list +local activeTimers = AceTimer.activeTimers -- Upvalue our private data + +-- Lua APIs +local type, unpack, next, error, select = type, unpack, next, error, select +-- WoW APIs +local GetTime, C_TimerAfter = GetTime, C_Timer.After + +local function new(self, loop, func, delay, ...) + if delay < 0.01 then + delay = 0.01 -- Restrict to the lowest time that the C_Timer API allows us + end + + local timer = { + object = self, + func = func, + looping = loop, + argsCount = select("#", ...), + delay = delay, + ends = GetTime() + delay, + ... + } + + activeTimers[timer] = timer + + -- Create new timer closure to wrap the "timer" object + timer.callback = function() + if not timer.cancelled then + if type(timer.func) == "string" then + -- We manually set the unpack count to prevent issues with an arg set that contains nil and ends with nil + -- e.g. local t = {1, 2, nil, 3, nil} print(#t) will result in 2, instead of 5. This fixes said issue. + timer.object[timer.func](timer.object, unpack(timer, 1, timer.argsCount)) + else + timer.func(unpack(timer, 1, timer.argsCount)) + end + + if timer.looping and not timer.cancelled then + -- Compensate delay to get a perfect average delay, even if individual times don't match up perfectly + -- due to fps differences + local time = GetTime() + local delay = timer.delay - (time - timer.ends) + -- Ensure the delay doesn't go below the threshold + if delay < 0.01 then delay = 0.01 end + C_TimerAfter(delay, timer.callback) + timer.ends = time + delay + else + activeTimers[timer.handle or timer] = nil + end + end + end + + C_TimerAfter(delay, timer.callback) + return timer +end + +--- Schedule a new one-shot timer. +-- The timer will fire once in `delay` seconds, unless canceled before. +-- @param callback Callback function for the timer pulse (funcref or method name). +-- @param delay Delay for the timer, in seconds. +-- @param ... An optional, unlimited amount of arguments to pass to the callback function. +-- @usage +-- MyAddOn = LibStub("AceAddon-3.0"):NewAddon("MyAddOn", "AceTimer-3.0") +-- +-- function MyAddOn:OnEnable() +-- self:ScheduleTimer("TimerFeedback", 5) +-- end +-- +-- function MyAddOn:TimerFeedback() +-- print("5 seconds passed") +-- end +function AceTimer:ScheduleTimer(func, delay, ...) + if not func or not delay then + error(MAJOR..": ScheduleTimer(callback, delay, args...): 'callback' and 'delay' must have set values.", 2) + end + if type(func) == "string" then + if type(self) ~= "table" then + error(MAJOR..": ScheduleTimer(callback, delay, args...): 'self' - must be a table.", 2) + elseif not self[func] then + error(MAJOR..": ScheduleTimer(callback, delay, args...): Tried to register '"..func.."' as the callback, but it doesn't exist in the module.", 2) + end + end + return new(self, nil, func, delay, ...) +end + +--- Schedule a repeating timer. +-- The timer will fire every `delay` seconds, until canceled. +-- @param callback Callback function for the timer pulse (funcref or method name). +-- @param delay Delay for the timer, in seconds. +-- @param ... An optional, unlimited amount of arguments to pass to the callback function. +-- @usage +-- MyAddOn = LibStub("AceAddon-3.0"):NewAddon("MyAddOn", "AceTimer-3.0") +-- +-- function MyAddOn:OnEnable() +-- self.timerCount = 0 +-- self.testTimer = self:ScheduleRepeatingTimer("TimerFeedback", 5) +-- end +-- +-- function MyAddOn:TimerFeedback() +-- self.timerCount = self.timerCount + 1 +-- print(("%d seconds passed"):format(5 * self.timerCount)) +-- -- run 30 seconds in total +-- if self.timerCount == 6 then +-- self:CancelTimer(self.testTimer) +-- end +-- end +function AceTimer:ScheduleRepeatingTimer(func, delay, ...) + if not func or not delay then + error(MAJOR..": ScheduleRepeatingTimer(callback, delay, args...): 'callback' and 'delay' must have set values.", 2) + end + if type(func) == "string" then + if type(self) ~= "table" then + error(MAJOR..": ScheduleRepeatingTimer(callback, delay, args...): 'self' - must be a table.", 2) + elseif not self[func] then + error(MAJOR..": ScheduleRepeatingTimer(callback, delay, args...): Tried to register '"..func.."' as the callback, but it doesn't exist in the module.", 2) + end + end + return new(self, true, func, delay, ...) +end + +--- Cancels a timer with the given id, registered by the same addon object as used for `:ScheduleTimer` +-- Both one-shot and repeating timers can be canceled with this function, as long as the `id` is valid +-- and the timer has not fired yet or was canceled before. +-- @param id The id of the timer, as returned by `:ScheduleTimer` or `:ScheduleRepeatingTimer` +function AceTimer:CancelTimer(id) + local timer = activeTimers[id] + + if not timer then + return false + else + timer.cancelled = true + activeTimers[id] = nil + return true + end +end + +--- Cancels all timers registered to the current addon object ('self') +function AceTimer:CancelAllTimers() + for k,v in next, activeTimers do + if v.object == self then + AceTimer.CancelTimer(self, k) + end + end +end + +--- Returns the time left for a timer with the given id, registered by the current addon object ('self'). +-- This function will return 0 when the id is invalid. +-- @param id The id of the timer, as returned by `:ScheduleTimer` or `:ScheduleRepeatingTimer` +-- @return The time left on the timer. +function AceTimer:TimeLeft(id) + local timer = activeTimers[id] + if not timer then + return 0 + else + return timer.ends - GetTime() + end +end + + +-- --------------------------------------------------------------------- +-- Upgrading + +-- Upgrade from old hash-bucket based timers to C_Timer.After timers. +if oldminor and oldminor < 10 then + -- disable old timer logic + AceTimer.frame:SetScript("OnUpdate", nil) + AceTimer.frame:SetScript("OnEvent", nil) + AceTimer.frame:UnregisterAllEvents() + -- convert timers + for object,timers in next, AceTimer.selfs do + for handle,timer in next, timers do + if type(timer) == "table" and timer.callback then + local newTimer + if timer.delay then + newTimer = AceTimer.ScheduleRepeatingTimer(timer.object, timer.callback, timer.delay, timer.arg) + else + newTimer = AceTimer.ScheduleTimer(timer.object, timer.callback, timer.when - GetTime(), timer.arg) + end + -- Use the old handle for old timers + activeTimers[newTimer] = nil + activeTimers[handle] = newTimer + newTimer.handle = handle + end + end + end + AceTimer.selfs = nil + AceTimer.hash = nil + AceTimer.debug = nil +elseif oldminor and oldminor < 17 then + -- Upgrade from old animation based timers to C_Timer.After timers. + AceTimer.inactiveTimers = nil + AceTimer.frame = nil + local oldTimers = AceTimer.activeTimers + -- Clear old timer table and update upvalue + AceTimer.activeTimers = {} + activeTimers = AceTimer.activeTimers + for handle, timer in next, oldTimers do + local newTimer + -- Stop the old timer animation + local duration, elapsed = timer:GetDuration(), timer:GetElapsed() + timer:GetParent():Stop() + if timer.looping then + newTimer = AceTimer.ScheduleRepeatingTimer(timer.object, timer.func, duration, unpack(timer.args, 1, timer.argsCount)) + else + newTimer = AceTimer.ScheduleTimer(timer.object, timer.func, duration - elapsed, unpack(timer.args, 1, timer.argsCount)) + end + -- Use the old handle for old timers + activeTimers[newTimer] = nil + activeTimers[handle] = newTimer + newTimer.handle = handle + end + + -- Migrate transitional handles + if oldminor < 13 and AceTimer.hashCompatTable then + for handle, id in next, AceTimer.hashCompatTable do + local t = activeTimers[id] + if t then + activeTimers[id] = nil + activeTimers[handle] = t + t.handle = handle + end + end + AceTimer.hashCompatTable = nil + end +end + +-- --------------------------------------------------------------------- +-- Embed handling + +AceTimer.embeds = AceTimer.embeds or {} + +local mixins = { + "ScheduleTimer", "ScheduleRepeatingTimer", + "CancelTimer", "CancelAllTimers", + "TimeLeft" +} + +function AceTimer:Embed(target) + AceTimer.embeds[target] = true + for _,v in next, mixins do + target[v] = AceTimer[v] + end + return target +end + +-- AceTimer:OnEmbedDisable(target) +-- target (object) - target object that AceTimer is embedded in. +-- +-- cancel all timers registered for the object +function AceTimer:OnEmbedDisable(target) + target:CancelAllTimers() +end + +for addon in next, AceTimer.embeds do + AceTimer:Embed(addon) +end diff --git a/Titan/libs/Ace/AceTimer-3.0/AceTimer-3.0.xml b/Titan/libs/Ace/AceTimer-3.0/AceTimer-3.0.xml new file mode 100644 index 0000000..d5aee81 --- /dev/null +++ b/Titan/libs/Ace/AceTimer-3.0/AceTimer-3.0.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="AceTimer-3.0.lua"/> +</Ui> diff --git a/Titan/libs/Ace/Bindings.xml b/Titan/libs/Ace/Bindings.xml new file mode 100644 index 0000000..77ab8c8 --- /dev/null +++ b/Titan/libs/Ace/Bindings.xml @@ -0,0 +1,5 @@ +<Bindings> + <Binding name="RELOADUI" description="Reloads the UI." header="ACE3" category="ADDONS"> + ReloadUI() + </Binding> +</Bindings> diff --git a/Titan/libs/Ace/CHANGES.txt b/Titan/libs/Ace/CHANGES.txt new file mode 100644 index 0000000..541e851 --- /dev/null +++ b/Titan/libs/Ace/CHANGES.txt @@ -0,0 +1,93 @@ +------------------------------------------------------------------------ +r1240 | nevcairiel | 2020-10-13 07:59:32 +0000 (Tue, 13 Oct 2020) | 1 line +Changed paths: + M /trunk/Ace3.toc + M /trunk/changelog.txt + +Update changelog and TOC +------------------------------------------------------------------------ +r1239 | nevcairiel | 2020-09-20 10:22:02 +0000 (Sun, 20 Sep 2020) | 1 line +Changed paths: + M /trunk/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua + +AceGUI-3.0: DropDown: Anchor all items to the dropdown frame instead of chaining anchors, fixes anchoring on WoW 9.0 with many items +------------------------------------------------------------------------ +r1238 | nevcairiel | 2020-08-28 16:18:42 +0000 (Fri, 28 Aug 2020) | 3 lines +Changed paths: + M /trunk/AceAddon-3.0/AceAddon-3.0.lua + +AceAddon-3.0: Blacklist more Blizzard addons from triggering Ace3 load events + +These addons can be loaded very early by UIParent, which causes issues with loading certain addons +------------------------------------------------------------------------ +r1237 | nevcairiel | 2020-07-17 22:50:38 +0000 (Fri, 17 Jul 2020) | 1 line +Changed paths: + M /trunk/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua + M /trunk/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua + M /trunk/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua + M /trunk/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua + M /trunk/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua + M /trunk/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua + M /trunk/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua + M /trunk/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua + M /trunk/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua + +Use BackdropTemplate in WoW 9.0 +------------------------------------------------------------------------ +r1236 | nevcairiel | 2020-04-16 07:36:45 +0000 (Thu, 16 Apr 2020) | 1 line +Changed paths: + M /trunk/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua + +AceGUI-3.0: DropDown: Initialize the widget with an empty item list (instead of nil), this allows AddItem to be used right away (Fixes #542) +------------------------------------------------------------------------ +r1235 | nevcairiel | 2020-04-15 10:27:55 +0000 (Wed, 15 Apr 2020) | 1 line +Changed paths: + M /trunk/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua + +Cleanup debug +------------------------------------------------------------------------ +r1234 | nevcairiel | 2020-04-15 10:14:35 +0000 (Wed, 15 Apr 2020) | 1 line +Changed paths: + M /trunk/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua + +AceGUI-3.0: TreeGroup: Remove pre-8.0 compat +------------------------------------------------------------------------ +r1233 | nevcairiel | 2020-04-15 10:09:47 +0000 (Wed, 15 Apr 2020) | 1 line +Changed paths: + M /trunk/AceGUI-3.0/widgets/AceGUIWidget-Label.lua + +AceGUI-3.0: Label: Refresh anchoring after changing the font (Fixes #540) +------------------------------------------------------------------------ +r1232 | nevcairiel | 2020-04-14 22:21:22 +0000 (Tue, 14 Apr 2020) | 1 line +Changed paths: + M /trunk/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua + +AceConfigDialog-3.0: Prevent a dialog refresh when a multiselect control is closed during release (Fixes #539) +------------------------------------------------------------------------ +r1231 | nevcairiel | 2020-04-14 22:20:36 +0000 (Tue, 14 Apr 2020) | 1 line +Changed paths: + M /trunk/AceGUI-3.0/AceGUI-3.0.lua + +AceGUI-3.0: Add a getter to allow callers to check if a widget is currently being released, which can be used as part of some callbacks to alter behavior +------------------------------------------------------------------------ +r1230 | funkydude | 2020-01-14 17:01:25 +0000 (Tue, 14 Jan 2020) | 1 line +Changed paths: + M /trunk/Ace3.toc + +bump toc +------------------------------------------------------------------------ +r1229 | funkydude | 2019-10-11 20:48:50 +0000 (Fri, 11 Oct 2019) | 1 line +Changed paths: + M /trunk/Ace3.toc + +bump toc +------------------------------------------------------------------------ +r1228 | nevcairiel | 2019-09-06 08:51:17 +0000 (Fri, 06 Sep 2019) | 3 lines +Changed paths: + M /trunk/AceGUI-3.0/AceGUI-3.0.lua + +AceGUI-3.0: Avoid re-entrance into the Release function + +This can happen if a frame is released in a callback fired in the release process, and may in some cases throw errors. +------------------------------------------------------------------------ + diff --git a/Titan/libs/Ace/CallbackHandler-1.0/CallbackHandler-1.0.lua b/Titan/libs/Ace/CallbackHandler-1.0/CallbackHandler-1.0.lua new file mode 100644 index 0000000..a8377fe --- /dev/null +++ b/Titan/libs/Ace/CallbackHandler-1.0/CallbackHandler-1.0.lua @@ -0,0 +1,212 @@ +--[[ $Id: CallbackHandler-1.0.lua 1186 2018-07-21 14:19:18Z nevcairiel $ ]] +local MAJOR, MINOR = "CallbackHandler-1.0", 7 +local CallbackHandler = LibStub:NewLibrary(MAJOR, MINOR) + +if not CallbackHandler then return end -- No upgrade needed + +local meta = {__index = function(tbl, key) tbl[key] = {} return tbl[key] end} + +-- Lua APIs +local tconcat = table.concat +local assert, error, loadstring = assert, error, loadstring +local setmetatable, rawset, rawget = setmetatable, rawset, rawget +local next, select, pairs, type, tostring = next, select, pairs, type, tostring + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: geterrorhandler + +local xpcall = xpcall + +local function errorhandler(err) + return geterrorhandler()(err) +end + +local function Dispatch(handlers, ...) + local index, method = next(handlers) + if not method then return end + repeat + xpcall(method, errorhandler, ...) + index, method = next(handlers, index) + until not method +end + +-------------------------------------------------------------------------- +-- CallbackHandler:New +-- +-- target - target object to embed public APIs in +-- RegisterName - name of the callback registration API, default "RegisterCallback" +-- UnregisterName - name of the callback unregistration API, default "UnregisterCallback" +-- UnregisterAllName - name of the API to unregister all callbacks, default "UnregisterAllCallbacks". false == don't publish this API. + +function CallbackHandler:New(target, RegisterName, UnregisterName, UnregisterAllName) + + RegisterName = RegisterName or "RegisterCallback" + UnregisterName = UnregisterName or "UnregisterCallback" + if UnregisterAllName==nil then -- false is used to indicate "don't want this method" + UnregisterAllName = "UnregisterAllCallbacks" + end + + -- we declare all objects and exported APIs inside this closure to quickly gain access + -- to e.g. function names, the "target" parameter, etc + + + -- Create the registry object + local events = setmetatable({}, meta) + local registry = { recurse=0, events=events } + + -- registry:Fire() - fires the given event/message into the registry + function registry:Fire(eventname, ...) + if not rawget(events, eventname) or not next(events[eventname]) then return end + local oldrecurse = registry.recurse + registry.recurse = oldrecurse + 1 + + Dispatch(events[eventname], eventname, ...) + + registry.recurse = oldrecurse + + if registry.insertQueue and oldrecurse==0 then + -- Something in one of our callbacks wanted to register more callbacks; they got queued + for eventname,callbacks in pairs(registry.insertQueue) do + local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. + for self,func in pairs(callbacks) do + events[eventname][self] = func + -- fire OnUsed callback? + if first and registry.OnUsed then + registry.OnUsed(registry, target, eventname) + first = nil + end + end + end + registry.insertQueue = nil + end + end + + -- Registration of a callback, handles: + -- self["method"], leads to self["method"](self, ...) + -- self with function ref, leads to functionref(...) + -- "addonId" (instead of self) with function ref, leads to functionref(...) + -- all with an optional arg, which, if present, gets passed as first argument (after self if present) + target[RegisterName] = function(self, eventname, method, ... --[[actually just a single arg]]) + if type(eventname) ~= "string" then + error("Usage: "..RegisterName.."(eventname, method[, arg]): 'eventname' - string expected.", 2) + end + + method = method or eventname + + local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. + + if type(method) ~= "string" and type(method) ~= "function" then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - string or function expected.", 2) + end + + local regfunc + + if type(method) == "string" then + -- self["method"] calling style + if type(self) ~= "table" then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): self was not a table?", 2) + elseif self==target then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): do not use Library:"..RegisterName.."(), use your own 'self'", 2) + elseif type(self[method]) ~= "function" then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - method '"..tostring(method).."' not found on self.", 2) + end + + if select("#",...)>=1 then -- this is not the same as testing for arg==nil! + local arg=select(1,...) + regfunc = function(...) self[method](self,arg,...) end + else + regfunc = function(...) self[method](self,...) end + end + else + -- function ref with self=object or self="addonId" or self=thread + if type(self)~="table" and type(self)~="string" and type(self)~="thread" then + error("Usage: "..RegisterName.."(self or \"addonId\", eventname, method): 'self or addonId': table or string or thread expected.", 2) + end + + if select("#",...)>=1 then -- this is not the same as testing for arg==nil! + local arg=select(1,...) + regfunc = function(...) method(arg,...) end + else + regfunc = method + end + end + + + if events[eventname][self] or registry.recurse<1 then + -- if registry.recurse<1 then + -- we're overwriting an existing entry, or not currently recursing. just set it. + events[eventname][self] = regfunc + -- fire OnUsed callback? + if registry.OnUsed and first then + registry.OnUsed(registry, target, eventname) + end + else + -- we're currently processing a callback in this registry, so delay the registration of this new entry! + -- yes, we're a bit wasteful on garbage, but this is a fringe case, so we're picking low implementation overhead over garbage efficiency + registry.insertQueue = registry.insertQueue or setmetatable({},meta) + registry.insertQueue[eventname][self] = regfunc + end + end + + -- Unregister a callback + target[UnregisterName] = function(self, eventname) + if not self or self==target then + error("Usage: "..UnregisterName.."(eventname): bad 'self'", 2) + end + if type(eventname) ~= "string" then + error("Usage: "..UnregisterName.."(eventname): 'eventname' - string expected.", 2) + end + if rawget(events, eventname) and events[eventname][self] then + events[eventname][self] = nil + -- Fire OnUnused callback? + if registry.OnUnused and not next(events[eventname]) then + registry.OnUnused(registry, target, eventname) + end + end + if registry.insertQueue and rawget(registry.insertQueue, eventname) and registry.insertQueue[eventname][self] then + registry.insertQueue[eventname][self] = nil + end + end + + -- OPTIONAL: Unregister all callbacks for given selfs/addonIds + if UnregisterAllName then + target[UnregisterAllName] = function(...) + if select("#",...)<1 then + error("Usage: "..UnregisterAllName.."([whatFor]): missing 'self' or \"addonId\" to unregister events for.", 2) + end + if select("#",...)==1 and ...==target then + error("Usage: "..UnregisterAllName.."([whatFor]): supply a meaningful 'self' or \"addonId\"", 2) + end + + + for i=1,select("#",...) do + local self = select(i,...) + if registry.insertQueue then + for eventname, callbacks in pairs(registry.insertQueue) do + if callbacks[self] then + callbacks[self] = nil + end + end + end + for eventname, callbacks in pairs(events) do + if callbacks[self] then + callbacks[self] = nil + -- Fire OnUnused callback? + if registry.OnUnused and not next(callbacks) then + registry.OnUnused(registry, target, eventname) + end + end + end + end + end + end + + return registry +end + + +-- CallbackHandler purposefully does NOT do explicit embedding. Nor does it +-- try to upgrade old implicit embeds since the system is selfcontained and +-- relies on closures to work. + diff --git a/Titan/libs/Ace/CallbackHandler-1.0/CallbackHandler-1.0.xml b/Titan/libs/Ace/CallbackHandler-1.0/CallbackHandler-1.0.xml new file mode 100644 index 0000000..c107f88 --- /dev/null +++ b/Titan/libs/Ace/CallbackHandler-1.0/CallbackHandler-1.0.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="CallbackHandler-1.0.lua"/> +</Ui> diff --git a/Titan/libs/Ace/LICENSE.txt b/Titan/libs/Ace/LICENSE.txt new file mode 100644 index 0000000..866fc34 --- /dev/null +++ b/Titan/libs/Ace/LICENSE.txt @@ -0,0 +1,29 @@ +Copyright (c) 2007, Ace3 Development Team + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright notice, + this list of conditions and the following disclaimer. + * Redistributions in binary form must reproduce the above copyright notice, + this list of conditions and the following disclaimer in the documentation + and/or other materials provided with the distribution. + * Redistribution of a stand alone version is strictly prohibited without + prior written authorization from the Lead of the Ace3 Development Team. + * Neither the name of the Ace3 Development Team nor the names of its contributors + may be used to endorse or promote products derived from this software without + specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR +CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, +EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, +PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. \ No newline at end of file diff --git a/Titan/libs/Ace/LibQTip-1.0/CHANGES.txt b/Titan/libs/Ace/LibQTip-1.0/CHANGES.txt new file mode 100644 index 0000000..904cffc --- /dev/null +++ b/Titan/libs/Ace/LibQTip-1.0/CHANGES.txt @@ -0,0 +1,10 @@ +lightweight tag 5f307596c9a7618e36d529b7af3c331e4808be9f 9.0.1.2 +Author: James D. Callahan III <darkenelf@gmail.com> +Date: Sun Oct 25 17:33:10 2020 -0500 + +commit 5f307596c9a7618e36d529b7af3c331e4808be9f +Author: James D. Callahan III <darkenelf@gmail.com> +Date: Sun Oct 25 17:33:10 2020 -0500 + + Update ToC Interface for the WoW 9.0.1 version. + diff --git a/Titan/libs/Ace/LibQTip-1.0/LICENSE.txt b/Titan/libs/Ace/LibQTip-1.0/LICENSE.txt new file mode 100644 index 0000000..54cdb47 --- /dev/null +++ b/Titan/libs/Ace/LibQTip-1.0/LICENSE.txt @@ -0,0 +1,29 @@ +Copyright (c) 2008, LibQTip Development Team + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright notice, + this list of conditions and the following disclaimer. + * Redistributions in binary form must reproduce the above copyright notice, + this list of conditions and the following disclaimer in the documentation + and/or other materials provided with the distribution. + * Redistribution of a stand alone version is strictly prohibited without + prior written authorization from the Lead of the LibQTip Development Team. + * Neither the name of the LibQTip Development Team nor the names of its contributors + may be used to endorse or promote products derived from this software without + specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR +CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, +EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, +PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Titan/libs/Ace/LibQTip-1.0/LibQTip-1.0.lua b/Titan/libs/Ace/LibQTip-1.0/LibQTip-1.0.lua new file mode 100644 index 0000000..b7c7ce3 --- /dev/null +++ b/Titan/libs/Ace/LibQTip-1.0/LibQTip-1.0.lua @@ -0,0 +1,1551 @@ +local MAJOR = "LibQTip-1.0" +local MINOR = 48 -- Should be manually increased +local LibStub = _G.LibStub + +assert(LibStub, MAJOR .. " requires LibStub") + +local lib, oldMinor = LibStub:NewLibrary(MAJOR, MINOR) + +if not lib then + return +end -- No upgrade needed + +------------------------------------------------------------------------------ +-- Upvalued globals +------------------------------------------------------------------------------ +local table = _G.table +local tinsert = table.insert +local tremove = table.remove +local wipe = table.wipe + +local error = error +local math = math +local min, max = math.min, math.max +local next = next +local pairs, ipairs = pairs, ipairs +local select = select +local setmetatable = setmetatable +local tonumber, tostring = tonumber, tostring +local type = type + +local CreateFrame = _G.CreateFrame +local GameTooltip = _G.GameTooltip +local UIParent = _G.UIParent + +local geterrorhandler = _G.geterrorhandler + +------------------------------------------------------------------------------ +-- Tables and locals +------------------------------------------------------------------------------ +if BackdropTemplateMixin and oldMinor and (oldMinor < 48) and lib.frameMetatable then + -- mix new BackdropTemplateMixin into frame metatable + Mixin(lib.frameMetatable["__index"], BackdropTemplateMixin) +else + lib.frameMetatable = lib.frameMetatable or {__index = CreateFrame("Frame", nil, nil, BackdropTemplateMixin and "BackdropTemplate")} +end + +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.timerHeap = lib.timerHeap or {} +lib.tableHeap = lib.tableHeap or {} + +lib.onReleaseHandlers = lib.onReleaseHandlers 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 + +local highlightFrame = CreateFrame("Frame", nil, UIParent) +highlightFrame:SetFrameStrata("TOOLTIP") +highlightFrame:Hide() + +local DEFAULT_HIGHLIGHT_TEXTURE_PATH = [[Interface\QuestFrame\UI-QuestTitleHighlight]] + +local highlightTexture = highlightFrame:CreateTexture(nil, "OVERLAY") +highlightTexture:SetTexture(DEFAULT_HIGHLIGHT_TEXTURE_PATH) +highlightTexture:SetBlendMode("ADD") +highlightTexture:SetAllPoints(highlightFrame) + +------------------------------------------------------------------------------ +-- 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 +-- <pre>local tip = LibStub('LibQTip-1.0'):Acquire('MyFooBarTooltip', 5, "LEFT", "CENTER")</pre> +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() + 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 (for lines and columns) +------------------------------------------------------------------------------ +local frameHeap = lib.frameHeap + +local function AcquireFrame(parent) + local frame = tremove(frameHeap) or CreateFrame("Frame", nil, nil, BackdropTemplateMixin and "BackdropTemplate") + 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 + +------------------------------------------------------------------------------ +-- Timer cache +------------------------------------------------------------------------------ +local timerHeap = lib.timerHeap + +local function AcquireTimer(parent) + local frame = tremove(timerHeap) or CreateFrame("Frame") + frame:SetParent(parent) + return frame +end + +local function ReleaseTimer(frame) + frame:Hide() + frame:SetParent(nil) + + ClearFrameScripts(frame) + + tinsert(timerHeap, frame) +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 newCellPrototype = setmetatable({}, cellBaseMetatable) + local newCellProvider = setmetatable({}, providerMetatable) + + newCellProvider.heap = {} + newCellProvider.cells = {} + newCellProvider.cellPrototype = newCellPrototype + newCellProvider.cellMetatable = {__index = newCellPrototype} + + return newCellProvider, newCellPrototype, 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(_G.GameTooltipText) +end + +function labelPrototype:SetupCell(tooltip, value, justification, font, leftPadding, rightPadding, maxWidth, minWidth, ...) + local fontString = self.fontString + local line = tooltip.lines[self._line] + + -- detatch fs from cell for size calculations + fontString:ClearAllPoints() + fontString:SetFontObject(font or (line.is_header and tooltip:GetHeaderFont() or tooltip:GetFont())) + fontString:SetJustifyH(justification) + fontString:SetText(tostring(value)) + + leftPadding = leftPadding or 0 + rightPadding = rightPadding or 0 + + local width = fontString:GetStringWidth() + leftPadding + rightPadding + + if maxWidth and minWidth and (maxWidth < minWidth) then + error("maximum width cannot be lower than minimum width: " .. tostring(maxWidth) .. " < " .. tostring(minWidth), 2) + end + + if maxWidth and (maxWidth < (leftPadding + rightPadding)) then + error("maximum width cannot be lower than the sum of paddings: " .. tostring(maxWidth) .. " < " .. tostring(leftPadding) .. " + " .. tostring(rightPadding), 2) + end + + if minWidth and width < minWidth then + width = minWidth + end + + if maxWidth and maxWidth < width then + width = maxWidth + end + + fontString:SetWidth(width - (leftPadding + rightPadding)) + -- Use GetHeight() instead of GetStringHeight() so lines which are longer than width will wrap. + local height = fontString:GetHeight() + + -- reanchor fs to cell + fontString:SetWidth(0) + fontString:SetPoint("TOPLEFT", self, "TOPLEFT", leftPadding, 0) + fontString:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -rightPadding, 0) + --~ fs:SetPoint("TOPRIGHT", self, "TOPRIGHT", -r_pad, 0) + + self._paddingL = leftPadding + self._paddingR = rightPadding + + return width, height +end + +function labelPrototype:getContentHeight() + local fontString = self.fontString + fontString:SetWidth(self:GetWidth() - (self._paddingL + self._paddingR)) + + local height = self.fontString:GetHeight() + fontString:SetWidth(0) + + return height +end + +function labelPrototype:GetPosition() + return self._line, self._column +end + +------------------------------------------------------------------------------ +-- Tooltip cache +------------------------------------------------------------------------------ +local tooltipHeap = lib.tooltipHeap + +-- Returns a tooltip +function AcquireTooltip() + local tooltip = tremove(tooltipHeap) + + if not tooltip then + tooltip = CreateFrame("Frame", nil, 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() + + local releaseHandler = lib.onReleaseHandlers[tooltip] + + if releaseHandler then + lib.onReleaseHandlers[tooltip] = nil + + local success, errorMessage = pcall(releaseHandler, tooltip) + + if not success then + geterrorhandler()(errorMessage) + end + elseif 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) + + highlightTexture:SetTexture(DEFAULT_HIGHLIGHT_TEXTURE_PATH) + highlightTexture:SetTexCoord(0, 1, 0, 1) + + --[===[@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) + if cell.fontString and cell.r then + cell.fontString:SetTextColor(cell.r, cell.g, cell.b, cell.a) + end + + cell._font = nil + cell._justification = nil + cell._colSpan = nil + cell._line = nil + cell._column = nil + + cell:Hide() + cell:ClearAllPoints() + cell:SetParent(nil) + cell:SetBackdrop(nil) + + ClearFrameScripts(cell) + + 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(tableInstance) + wipe(tableInstance) + tinsert(tableHeap, tableInstance) + --[===[@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 = _G.GameTooltipText + tooltip.headerFont = _G.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 BACKDROP_SLIDER_8_8 = BACKDROP_SLIDER_8_8 or { + bgFile = "Interface\\Buttons\\UI-SliderBar-Background", + edgeFile = "Interface\\Buttons\\UI-SliderBar-Border", + tile = true, + tileEdge = true, + tileSize = 8, + edgeSize = 8, + insets = { left = 3, right = 3, top = 6, bottom = 6 }, +}; + +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, BackdropTemplateMixin and "BackdropTemplate") + slider.scrollFrame = self.scrollFrame + + slider:SetOrientation("VERTICAL") + slider:SetPoint("TOPRIGHT", self, "TOPRIGHT", -TOOLTIP_PADDING, -TOOLTIP_PADDING) + slider:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -TOOLTIP_PADDING, TOOLTIP_PADDING) + slider:SetBackdrop(BACKDROP_SLIDER_8_8) + slider:SetThumbTexture([[Interface\Buttons\UI-SliderBar-Button-Vertical]]) + slider:SetMinMaxValues(0, 1) + slider:SetValueStep(1) + slider:SetWidth(12) + slider:SetScript("OnValueChanged", slider_OnValueChanged) + slider:SetValue(0) + + self.slider = slider + 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 _, 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 _, 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.height = height + tooltip.width = width + + tooltip:SetHeight(2 * TOOLTIP_PADDING + height) + tooltip:SetWidth(2 * TOOLTIP_PADDING + width) + + tooltip.scrollChild:SetHeight(height) + tooltip.scrollChild:SetWidth(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 + local h_margin = tooltip.cell_margin_h or CELL_MARGIN_H + + -- resize columns to make room for the colspans + while next(colspans) do + local maxNeedCols + 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 + + 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 columnCell = cells[i] + + if columnCell then + ReleaseCell(columnCell) + elseif columnCell == 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 = _G.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 + +function tipPrototype:SetCellTextColor(lineNum, colNum, r, g, b, a) + local line = self.lines[lineNum] + local column = self.columns[colNum] + + if not line or not column then + return + end + + local cell = self.lines[lineNum].cells[colNum] + + if cell then + if not cell.fontString then + error("cell's label provider did not assign a fontString field", 2) + end + + if not cell.r then + cell.r, cell.g, cell.b, cell.a = cell.fontString:GetTextColor() + end + + cell.fontString:SetTextColor(r or cell.r, g or cell.g, b or cell.b, a or cell.a) + end +end + +function tipPrototype:SetColumnTextColor(colNum, r, g, b, a) + if not self.columns[colNum] then + return + end + + for lineIndex = 1, #self.lines do + self:SetCellTextColor(lineIndex, colNum, r, g, b, a) + end +end + +function tipPrototype:SetLineTextColor(lineNum, r, g, b, a) + local line = self.lines[lineNum] + + if not line then + return + end + + for cellIndex = 1, #line.cells do + self:SetCellTextColor(lineNum, line.cells[cellIndex]._column, r, g, b, a) + end +end + +function tipPrototype:SetHighlightTexture(...) + return highlightTexture:SetTexture(...) +end + +function tipPrototype:SetHighlightTexCoord(...) + highlightTexture:SetTexCoord(...) +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 scripts = { + OnEnter = function(frame, ...) + highlightFrame:SetParent(frame) + highlightFrame:SetAllPoints(frame) + highlightFrame:Show() + + if frame._OnEnter_func then + frame:_OnEnter_func(frame._OnEnter_arg, ...) + end + end, + OnLeave = function(frame, ...) + highlightFrame:Hide() + highlightFrame:ClearAllPoints() + highlightFrame: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, releaseHandler) + local timerFrame = self.autoHideTimerFrame + delay = tonumber(delay) or 0 + + if releaseHandler then + if type(releaseHandler) ~= "function" then + error("releaseHandler must be a function", 2) + end + + lib.onReleaseHandlers[self] = releaseHandler + end + + if delay > 0 then + if not timerFrame then + timerFrame = AcquireTimer(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) + + ReleaseTimer(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 in pairs(activeTooltips) do + if not header then + print("Active tooltips:") + header = true + end + print("- " .. k) + end +end + +SLASH_LibQTip1 = "/qtip" +_G.SlashCmdList["LibQTip"] = PrintStats +--@end-debug@ diff --git a/Titan/libs/Ace/LibQTip-1.0/LibQTip-1.0.toc b/Titan/libs/Ace/LibQTip-1.0/LibQTip-1.0.toc new file mode 100644 index 0000000..e26ee7b --- /dev/null +++ b/Titan/libs/Ace/LibQTip-1.0/LibQTip-1.0.toc @@ -0,0 +1,14 @@ +## Interface: 90001 +## Title: Lib: QTip-1.0 +## Notes: Library providing multi-column tooltips. +## Author: Torhal, Adirelle, Elkano, Tristanian +## Version: 9.0.1.2 +## LoadOnDemand: 1 +## X-Date: 2020-10-25T22:33:10Z +## X-Credits: Kaelten (input on initial design) +## X-Category: Library, Tooltip +## X-License: Ace3 BSD-like license +## X-Website: http://www.wowace.com/addons/libqtip-1-0/ + +LibStub\LibStub.lua +lib.xml diff --git a/Titan/libs/Ace/LibQTip-1.0/LibStub/LibStub.lua b/Titan/libs/Ace/LibQTip-1.0/LibStub/LibStub.lua new file mode 100644 index 0000000..7e9b5cd --- /dev/null +++ b/Titan/libs/Ace/LibQTip-1.0/LibStub/LibStub.lua @@ -0,0 +1,51 @@ +-- $Id: LibStub.lua 103 2014-10-16 03:02:50Z mikk $ +-- LibStub is a simple versioning stub meant for use in Libraries. http://www.wowace.com/addons/libstub/ for more info +-- LibStub is hereby placed in the Public Domain +-- Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel, joshborke +local LIBSTUB_MAJOR, LIBSTUB_MINOR = "LibStub", 2 -- NEVER MAKE THIS AN SVN REVISION! IT NEEDS TO BE USABLE IN ALL REPOS! +local LibStub = _G[LIBSTUB_MAJOR] + +-- Check to see is this version of the stub is obsolete +if not LibStub or LibStub.minor < LIBSTUB_MINOR then + LibStub = LibStub or {libs = {}, minors = {} } + _G[LIBSTUB_MAJOR] = LibStub + LibStub.minor = LIBSTUB_MINOR + + -- LibStub:NewLibrary(major, minor) + -- major (string) - the major version of the library + -- minor (string or number ) - the minor version of the library + -- + -- returns nil if a newer or same version of the lib is already present + -- returns empty library object or old library object if upgrade is needed + function LibStub:NewLibrary(major, minor) + assert(type(major) == "string", "Bad argument #2 to `NewLibrary' (string expected)") + minor = assert(tonumber(strmatch(minor, "%d+")), "Minor version must either be a number or contain a number.") + + local oldminor = self.minors[major] + if oldminor and oldminor >= minor then return nil end + self.minors[major], self.libs[major] = minor, self.libs[major] or {} + return self.libs[major], oldminor + end + + -- LibStub:GetLibrary(major, [silent]) + -- major (string) - the major version of the library + -- silent (boolean) - if true, library is optional, silently return nil if its not found + -- + -- throws an error if the library can not be found (except silent is set) + -- returns the library object if found + function LibStub:GetLibrary(major, silent) + if not self.libs[major] and not silent then + error(("Cannot find a library instance of %q."):format(tostring(major)), 2) + end + return self.libs[major], self.minors[major] + end + + -- LibStub:IterateLibraries() + -- + -- Returns an iterator for the currently registered libraries + function LibStub:IterateLibraries() + return pairs(self.libs) + end + + setmetatable(LibStub, { __call = LibStub.GetLibrary }) +end diff --git a/Titan/libs/Ace/LibQTip-1.0/lib.xml b/Titan/libs/Ace/LibQTip-1.0/lib.xml new file mode 100644 index 0000000..55047ef --- /dev/null +++ b/Titan/libs/Ace/LibQTip-1.0/lib.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="LibQTip-1.0.lua"/> +</Ui> diff --git a/Titan/libs/Ace/LibSharedMedia-3.0/CHANGES.txt b/Titan/libs/Ace/LibSharedMedia-3.0/CHANGES.txt new file mode 100644 index 0000000..bdfc4a9 --- /dev/null +++ b/Titan/libs/Ace/LibSharedMedia-3.0/CHANGES.txt @@ -0,0 +1,29 @@ +------------------------------------------------------------------------ +r115 | funkehdude | 2020-11-23 17:12:53 +0000 (Mon, 23 Nov 2020) | 1 line +Changed paths: + M /trunk/LibSharedMedia-3.0.toc + +bump toc +------------------------------------------------------------------------ +r114 | elkano | 2019-09-13 16:12:43 +0000 (Fri, 13 Sep 2019) | 2 lines +Changed paths: + M /trunk/LibSharedMedia-3.0/LibSharedMedia-3.0.lua + +fixes registering mp3 paths +closes #23 +------------------------------------------------------------------------ +r113 | elkano | 2019-07-14 17:20:43 +0000 (Sun, 14 Jul 2019) | 1 line +Changed paths: + M /trunk/LibSharedMedia-3.0/LibSharedMedia-3.0.lua + +readded pre-8.2 compatibility for classic client +------------------------------------------------------------------------ +r112 | elkano | 2019-07-11 16:45:13 +0000 (Thu, 11 Jul 2019) | 3 lines +Changed paths: + M /trunk/LibSharedMedia-3.0/LibSharedMedia-3.0.lua + +- removed pre 8.2 compat code +- BACKGROUND, BORDER, STATUSBAR and SOUND string values are meant for file paths with 8.2 limiting file access for such media to the interface folder, paths must now start with "interface" to be registered; numeric IDs for files are fine, too +- added the solid background as option for statusbar, too +------------------------------------------------------------------------ + diff --git a/Titan/libs/Ace/LibSharedMedia-3.0/CallbackHandler-1.0/CallbackHandler-1.0.lua b/Titan/libs/Ace/LibSharedMedia-3.0/CallbackHandler-1.0/CallbackHandler-1.0.lua new file mode 100644 index 0000000..a8377fe --- /dev/null +++ b/Titan/libs/Ace/LibSharedMedia-3.0/CallbackHandler-1.0/CallbackHandler-1.0.lua @@ -0,0 +1,212 @@ +--[[ $Id: CallbackHandler-1.0.lua 1186 2018-07-21 14:19:18Z nevcairiel $ ]] +local MAJOR, MINOR = "CallbackHandler-1.0", 7 +local CallbackHandler = LibStub:NewLibrary(MAJOR, MINOR) + +if not CallbackHandler then return end -- No upgrade needed + +local meta = {__index = function(tbl, key) tbl[key] = {} return tbl[key] end} + +-- Lua APIs +local tconcat = table.concat +local assert, error, loadstring = assert, error, loadstring +local setmetatable, rawset, rawget = setmetatable, rawset, rawget +local next, select, pairs, type, tostring = next, select, pairs, type, tostring + +-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded +-- List them here for Mikk's FindGlobals script +-- GLOBALS: geterrorhandler + +local xpcall = xpcall + +local function errorhandler(err) + return geterrorhandler()(err) +end + +local function Dispatch(handlers, ...) + local index, method = next(handlers) + if not method then return end + repeat + xpcall(method, errorhandler, ...) + index, method = next(handlers, index) + until not method +end + +-------------------------------------------------------------------------- +-- CallbackHandler:New +-- +-- target - target object to embed public APIs in +-- RegisterName - name of the callback registration API, default "RegisterCallback" +-- UnregisterName - name of the callback unregistration API, default "UnregisterCallback" +-- UnregisterAllName - name of the API to unregister all callbacks, default "UnregisterAllCallbacks". false == don't publish this API. + +function CallbackHandler:New(target, RegisterName, UnregisterName, UnregisterAllName) + + RegisterName = RegisterName or "RegisterCallback" + UnregisterName = UnregisterName or "UnregisterCallback" + if UnregisterAllName==nil then -- false is used to indicate "don't want this method" + UnregisterAllName = "UnregisterAllCallbacks" + end + + -- we declare all objects and exported APIs inside this closure to quickly gain access + -- to e.g. function names, the "target" parameter, etc + + + -- Create the registry object + local events = setmetatable({}, meta) + local registry = { recurse=0, events=events } + + -- registry:Fire() - fires the given event/message into the registry + function registry:Fire(eventname, ...) + if not rawget(events, eventname) or not next(events[eventname]) then return end + local oldrecurse = registry.recurse + registry.recurse = oldrecurse + 1 + + Dispatch(events[eventname], eventname, ...) + + registry.recurse = oldrecurse + + if registry.insertQueue and oldrecurse==0 then + -- Something in one of our callbacks wanted to register more callbacks; they got queued + for eventname,callbacks in pairs(registry.insertQueue) do + local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. + for self,func in pairs(callbacks) do + events[eventname][self] = func + -- fire OnUsed callback? + if first and registry.OnUsed then + registry.OnUsed(registry, target, eventname) + first = nil + end + end + end + registry.insertQueue = nil + end + end + + -- Registration of a callback, handles: + -- self["method"], leads to self["method"](self, ...) + -- self with function ref, leads to functionref(...) + -- "addonId" (instead of self) with function ref, leads to functionref(...) + -- all with an optional arg, which, if present, gets passed as first argument (after self if present) + target[RegisterName] = function(self, eventname, method, ... --[[actually just a single arg]]) + if type(eventname) ~= "string" then + error("Usage: "..RegisterName.."(eventname, method[, arg]): 'eventname' - string expected.", 2) + end + + method = method or eventname + + local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. + + if type(method) ~= "string" and type(method) ~= "function" then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - string or function expected.", 2) + end + + local regfunc + + if type(method) == "string" then + -- self["method"] calling style + if type(self) ~= "table" then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): self was not a table?", 2) + elseif self==target then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): do not use Library:"..RegisterName.."(), use your own 'self'", 2) + elseif type(self[method]) ~= "function" then + error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - method '"..tostring(method).."' not found on self.", 2) + end + + if select("#",...)>=1 then -- this is not the same as testing for arg==nil! + local arg=select(1,...) + regfunc = function(...) self[method](self,arg,...) end + else + regfunc = function(...) self[method](self,...) end + end + else + -- function ref with self=object or self="addonId" or self=thread + if type(self)~="table" and type(self)~="string" and type(self)~="thread" then + error("Usage: "..RegisterName.."(self or \"addonId\", eventname, method): 'self or addonId': table or string or thread expected.", 2) + end + + if select("#",...)>=1 then -- this is not the same as testing for arg==nil! + local arg=select(1,...) + regfunc = function(...) method(arg,...) end + else + regfunc = method + end + end + + + if events[eventname][self] or registry.recurse<1 then + -- if registry.recurse<1 then + -- we're overwriting an existing entry, or not currently recursing. just set it. + events[eventname][self] = regfunc + -- fire OnUsed callback? + if registry.OnUsed and first then + registry.OnUsed(registry, target, eventname) + end + else + -- we're currently processing a callback in this registry, so delay the registration of this new entry! + -- yes, we're a bit wasteful on garbage, but this is a fringe case, so we're picking low implementation overhead over garbage efficiency + registry.insertQueue = registry.insertQueue or setmetatable({},meta) + registry.insertQueue[eventname][self] = regfunc + end + end + + -- Unregister a callback + target[UnregisterName] = function(self, eventname) + if not self or self==target then + error("Usage: "..UnregisterName.."(eventname): bad 'self'", 2) + end + if type(eventname) ~= "string" then + error("Usage: "..UnregisterName.."(eventname): 'eventname' - string expected.", 2) + end + if rawget(events, eventname) and events[eventname][self] then + events[eventname][self] = nil + -- Fire OnUnused callback? + if registry.OnUnused and not next(events[eventname]) then + registry.OnUnused(registry, target, eventname) + end + end + if registry.insertQueue and rawget(registry.insertQueue, eventname) and registry.insertQueue[eventname][self] then + registry.insertQueue[eventname][self] = nil + end + end + + -- OPTIONAL: Unregister all callbacks for given selfs/addonIds + if UnregisterAllName then + target[UnregisterAllName] = function(...) + if select("#",...)<1 then + error("Usage: "..UnregisterAllName.."([whatFor]): missing 'self' or \"addonId\" to unregister events for.", 2) + end + if select("#",...)==1 and ...==target then + error("Usage: "..UnregisterAllName.."([whatFor]): supply a meaningful 'self' or \"addonId\"", 2) + end + + + for i=1,select("#",...) do + local self = select(i,...) + if registry.insertQueue then + for eventname, callbacks in pairs(registry.insertQueue) do + if callbacks[self] then + callbacks[self] = nil + end + end + end + for eventname, callbacks in pairs(events) do + if callbacks[self] then + callbacks[self] = nil + -- Fire OnUnused callback? + if registry.OnUnused and not next(callbacks) then + registry.OnUnused(registry, target, eventname) + end + end + end + end + end + end + + return registry +end + + +-- CallbackHandler purposefully does NOT do explicit embedding. Nor does it +-- try to upgrade old implicit embeds since the system is selfcontained and +-- relies on closures to work. + diff --git a/Titan/libs/Ace/LibSharedMedia-3.0/LibSharedMedia-3.0.toc b/Titan/libs/Ace/LibSharedMedia-3.0/LibSharedMedia-3.0.toc new file mode 100644 index 0000000..2c00d78 --- /dev/null +++ b/Titan/libs/Ace/LibSharedMedia-3.0/LibSharedMedia-3.0.toc @@ -0,0 +1,18 @@ +## Interface: 90002 +## LoadOnDemand: 1 + +## Title: Lib: SharedMedia-3.0 +## Notes: Shared handling of media data (fonts, sounds, textures, ...) between addons. +## Author: Elkano +## Version: 3.0-115 +## X-Website: http://www.wowace.com/projects/libsharedmedia-3-0/ +## X-Category: Library + +## X-Revision: 115 +## X-Date: 2020-11-23T17:12:53Z + +LibStub\LibStub.lua +CallbackHandler-1.0\CallbackHandler-1.0.lua + +LibSharedMedia-3.0\lib.xml + diff --git a/Titan/libs/Ace/LibSharedMedia-3.0/LibSharedMedia-3.0/LibSharedMedia-3.0.lua b/Titan/libs/Ace/LibSharedMedia-3.0/LibSharedMedia-3.0/LibSharedMedia-3.0.lua new file mode 100644 index 0000000..c66e9cc --- /dev/null +++ b/Titan/libs/Ace/LibSharedMedia-3.0/LibSharedMedia-3.0/LibSharedMedia-3.0.lua @@ -0,0 +1,300 @@ +--[[ +Name: LibSharedMedia-3.0 +Revision: $Revision: 114 $ +Author: Elkano (elkano@gmx.de) +Inspired By: SurfaceLib by Haste/Otravi (troeks@gmail.com) +Website: http://www.wowace.com/projects/libsharedmedia-3-0/ +Description: Shared handling of media data (fonts, sounds, textures, ...) between addons. +Dependencies: LibStub, CallbackHandler-1.0 +License: LGPL v2.1 +]] + +local MAJOR, MINOR = "LibSharedMedia-3.0", 8020003 -- 8.2.0 v3 / increase manually on changes +local lib = LibStub:NewLibrary(MAJOR, MINOR) + +if not lib then return end + +local _G = getfenv(0) + +local pairs = _G.pairs +local type = _G.type + +local band = _G.bit.band +local table_sort = _G.table.sort + +local RESTRICTED_FILE_ACCESS = WOW_PROJECT_ID == WOW_PROJECT_MAINLINE -- starting with 8.2, some rules for file access have changed; classic still uses the old way + +local locale = GetLocale() +local locale_is_western +local LOCALE_MASK = 0 +lib.LOCALE_BIT_koKR = 1 +lib.LOCALE_BIT_ruRU = 2 +lib.LOCALE_BIT_zhCN = 4 +lib.LOCALE_BIT_zhTW = 8 +lib.LOCALE_BIT_western = 128 + +local CallbackHandler = LibStub:GetLibrary("CallbackHandler-1.0") + +lib.callbacks = lib.callbacks or CallbackHandler:New(lib) + +lib.DefaultMedia = lib.DefaultMedia or {} +lib.MediaList = lib.MediaList or {} +lib.MediaTable = lib.MediaTable or {} +lib.MediaType = lib.MediaType or {} +lib.OverrideMedia = lib.OverrideMedia or {} + +local defaultMedia = lib.DefaultMedia +local mediaList = lib.MediaList +local mediaTable = lib.MediaTable +local overrideMedia = lib.OverrideMedia + + +-- create mediatype constants +lib.MediaType.BACKGROUND = "background" -- background textures +lib.MediaType.BORDER = "border" -- border textures +lib.MediaType.FONT = "font" -- fonts +lib.MediaType.STATUSBAR = "statusbar" -- statusbar textures +lib.MediaType.SOUND = "sound" -- sound files + +-- populate lib with default Blizzard data +-- BACKGROUND +if not lib.MediaTable.background then lib.MediaTable.background = {} end +lib.MediaTable.background["None"] = [[]] +lib.MediaTable.background["Blizzard Collections Background"] = [[Interface\Collections\CollectionsBackgroundTile]] +lib.MediaTable.background["Blizzard Dialog Background"] = [[Interface\DialogFrame\UI-DialogBox-Background]] +lib.MediaTable.background["Blizzard Dialog Background Dark"] = [[Interface\DialogFrame\UI-DialogBox-Background-Dark]] +lib.MediaTable.background["Blizzard Dialog Background Gold"] = [[Interface\DialogFrame\UI-DialogBox-Gold-Background]] +lib.MediaTable.background["Blizzard Garrison Background"] = [[Interface\Garrison\GarrisonUIBackground]] +lib.MediaTable.background["Blizzard Garrison Background 2"] = [[Interface\Garrison\GarrisonUIBackground2]] +lib.MediaTable.background["Blizzard Garrison Background 3"] = [[Interface\Garrison\GarrisonMissionUIInfoBoxBackgroundTile]] +lib.MediaTable.background["Blizzard Low Health"] = [[Interface\FullScreenTextures\LowHealth]] +lib.MediaTable.background["Blizzard Marble"] = [[Interface\FrameGeneral\UI-Background-Marble]] +lib.MediaTable.background["Blizzard Out of Control"] = [[Interface\FullScreenTextures\OutOfControl]] +lib.MediaTable.background["Blizzard Parchment"] = [[Interface\AchievementFrame\UI-Achievement-Parchment-Horizontal]] +lib.MediaTable.background["Blizzard Parchment 2"] = [[Interface\AchievementFrame\UI-GuildAchievement-Parchment-Horizontal]] +lib.MediaTable.background["Blizzard Rock"] = [[Interface\FrameGeneral\UI-Background-Rock]] +lib.MediaTable.background["Blizzard Tabard Background"] = [[Interface\TabardFrame\TabardFrameBackground]] +lib.MediaTable.background["Blizzard Tooltip"] = [[Interface\Tooltips\UI-Tooltip-Background]] +lib.MediaTable.background["Solid"] = [[Interface\Buttons\WHITE8X8]] +lib.DefaultMedia.background = "None" + +-- BORDER +if not lib.MediaTable.border then lib.MediaTable.border = {} end +lib.MediaTable.border["None"] = [[]] +lib.MediaTable.border["Blizzard Achievement Wood"] = [[Interface\AchievementFrame\UI-Achievement-WoodBorder]] +lib.MediaTable.border["Blizzard Chat Bubble"] = [[Interface\Tooltips\ChatBubble-Backdrop]] +lib.MediaTable.border["Blizzard Dialog"] = [[Interface\DialogFrame\UI-DialogBox-Border]] +lib.MediaTable.border["Blizzard Dialog Gold"] = [[Interface\DialogFrame\UI-DialogBox-Gold-Border]] +lib.MediaTable.border["Blizzard Party"] = [[Interface\CHARACTERFRAME\UI-Party-Border]] +lib.MediaTable.border["Blizzard Tooltip"] = [[Interface\Tooltips\UI-Tooltip-Border]] +lib.DefaultMedia.border = "None" + +-- FONT +if not lib.MediaTable.font then lib.MediaTable.font = {} end +local SML_MT_font = lib.MediaTable.font +--[[ +All font files are currently in all clients, the following table depicts which font supports which charset as of 5.0.4 +Fonts were checked using langcover.pl from DejaVu fonts (http://sourceforge.net/projects/dejavu/) and FontForge (http://fontforge.org/) +latin means check for: de, en, es, fr, it, pt + +file name latin koKR ruRU zhCN zhTW +2002.ttf 2002 X X X - - +2002B.ttf 2002 Bold X X X - - +ARHei.ttf AR CrystalzcuheiGBK Demibold X - X X X +ARIALN.TTF Arial Narrow X - X - - +ARKai_C.ttf AR ZhongkaiGBK Medium (Combat) X - X X X +ARKai_T.ttf AR ZhongkaiGBK Medium X - X X X +bHEI00M.ttf AR Heiti2 Medium B5 - - - - X +bHEI01B.ttf AR Heiti2 Bold B5 - - - - X +bKAI00M.ttf AR Kaiti Medium B5 - - - - X +bLEI00D.ttf AR Leisu Demi B5 - - - - X +FRIZQT__.TTF Friz Quadrata TT X - - - - +FRIZQT___CYR.TTF FrizQuadrataCTT x - X - - +K_Damage.TTF YDIWingsM - X X - - +K_Pagetext.TTF MoK X X X - - +MORPHEUS.TTF Morpheus X - - - - +MORPHEUS_CYR.TTF Morpheus X - X - - +NIM_____.ttf Nimrod MT X - X - - +SKURRI.TTF Skurri X - - - - +SKURRI_CYR.TTF Skurri X - X - - + +WARNING: Although FRIZQT___CYR is available on western clients, it doesn't support special European characters e.g. é, ï, ö +Due to this, we cannot use it as a replacement for FRIZQT__.TTF +]] + +if locale == "koKR" then + LOCALE_MASK = lib.LOCALE_BIT_koKR +-- + SML_MT_font["굵은 글꼴"] = [[Fonts\2002B.TTF]] + SML_MT_font["기본 글꼴"] = [[Fonts\2002.TTF]] + SML_MT_font["데미지 글꼴"] = [[Fonts\K_Damage.TTF]] + SML_MT_font["퀘스트 글꼴"] = [[Fonts\K_Pagetext.TTF]] +-- + lib.DefaultMedia["font"] = "기본 글꼴" -- someone from koKR please adjust if needed +-- +elseif locale == "zhCN" then + LOCALE_MASK = lib.LOCALE_BIT_zhCN +-- + SML_MT_font["伤害数字"] = [[Fonts\ARKai_C.ttf]] + SML_MT_font["默认"] = [[Fonts\ARKai_T.ttf]] + SML_MT_font["聊天"] = [[Fonts\ARHei.ttf]] +-- + lib.DefaultMedia["font"] = "默认" -- someone from zhCN please adjust if needed +-- +elseif locale == "zhTW" then + LOCALE_MASK = lib.LOCALE_BIT_zhTW +-- + SML_MT_font["提示訊息"] = [[Fonts\bHEI00M.ttf]] + SML_MT_font["聊天"] = [[Fonts\bHEI01B.ttf]] + SML_MT_font["傷害數字"] = [[Fonts\bKAI00M.ttf]] + SML_MT_font["預設"] = [[Fonts\bLEI00D.ttf]] +-- + lib.DefaultMedia["font"] = "預設" -- someone from zhTW please adjust if needed + +elseif locale == "ruRU" then + LOCALE_MASK = lib.LOCALE_BIT_ruRU +-- + SML_MT_font["2002"] = [[Fonts\2002.TTF]] + SML_MT_font["2002 Bold"] = [[Fonts\2002B.TTF]] + SML_MT_font["AR CrystalzcuheiGBK Demibold"] = [[Fonts\ARHei.TTF]] + SML_MT_font["AR ZhongkaiGBK Medium (Combat)"] = [[Fonts\ARKai_C.TTF]] + SML_MT_font["AR ZhongkaiGBK Medium"] = [[Fonts\ARKai_T.TTF]] + SML_MT_font["Arial Narrow"] = [[Fonts\ARIALN.TTF]] + SML_MT_font["Friz Quadrata TT"] = [[Fonts\FRIZQT___CYR.TTF]] + SML_MT_font["MoK"] = [[Fonts\K_Pagetext.TTF]] + SML_MT_font["Morpheus"] = [[Fonts\MORPHEUS_CYR.TTF]] + SML_MT_font["Nimrod MT"] = [[Fonts\NIM_____.ttf]] + SML_MT_font["Skurri"] = [[Fonts\SKURRI_CYR.TTF]] +-- + lib.DefaultMedia.font = "Friz Quadrata TT" +-- +else + LOCALE_MASK = lib.LOCALE_BIT_western + locale_is_western = true +-- + SML_MT_font["2002"] = [[Fonts\2002.TTF]] + SML_MT_font["2002 Bold"] = [[Fonts\2002B.TTF]] + SML_MT_font["AR CrystalzcuheiGBK Demibold"] = [[Fonts\ARHei.TTF]] + SML_MT_font["AR ZhongkaiGBK Medium (Combat)"] = [[Fonts\ARKai_C.TTF]] + SML_MT_font["AR ZhongkaiGBK Medium"] = [[Fonts\ARKai_T.TTF]] + SML_MT_font["Arial Narrow"] = [[Fonts\ARIALN.TTF]] + SML_MT_font["Friz Quadrata TT"] = [[Fonts\FRIZQT__.TTF]] + SML_MT_font["MoK"] = [[Fonts\K_Pagetext.TTF]] + SML_MT_font["Morpheus"] = [[Fonts\MORPHEUS_CYR.TTF]] + SML_MT_font["Nimrod MT"] = [[Fonts\NIM_____.ttf]] + SML_MT_font["Skurri"] = [[Fonts\SKURRI_CYR.TTF]] +-- + lib.DefaultMedia.font = "Friz Quadrata TT" +-- +end + +-- STATUSBAR +if not lib.MediaTable.statusbar then lib.MediaTable.statusbar = {} end +lib.MediaTable.statusbar["Blizzard"] = [[Interface\TargetingFrame\UI-StatusBar]] +lib.MediaTable.statusbar["Blizzard Character Skills Bar"] = [[Interface\PaperDollInfoFrame\UI-Character-Skills-Bar]] +lib.MediaTable.statusbar["Blizzard Raid Bar"] = [[Interface\RaidFrame\Raid-Bar-Hp-Fill]] +lib.MediaTable.statusbar["Solid"] = [[Interface\Buttons\WHITE8X8]] +lib.DefaultMedia.statusbar = "Blizzard" + +-- SOUND +if not lib.MediaTable.sound then lib.MediaTable.sound = {} end +lib.MediaTable.sound["None"] = RESTRICTED_FILE_ACCESS and 1 or [[Interface\Quiet.ogg]] -- Relies on the fact that PlaySound[File] doesn't error on these values. +lib.DefaultMedia.sound = "None" + +local function rebuildMediaList(mediatype) + local mtable = mediaTable[mediatype] + if not mtable then return end + if not mediaList[mediatype] then mediaList[mediatype] = {} end + local mlist = mediaList[mediatype] + -- list can only get larger, so simply overwrite it + local i = 0 + for k in pairs(mtable) do + i = i + 1 + mlist[i] = k + end + table_sort(mlist) +end + +function lib:Register(mediatype, key, data, langmask) + if type(mediatype) ~= "string" then + error(MAJOR..":Register(mediatype, key, data, langmask) - mediatype must be string, got "..type(mediatype)) + end + if type(key) ~= "string" then + error(MAJOR..":Register(mediatype, key, data, langmask) - key must be string, got "..type(key)) + end + mediatype = mediatype:lower() + if mediatype == lib.MediaType.FONT and ((langmask and band(langmask, LOCALE_MASK) == 0) or not (langmask or locale_is_western)) then + -- ignore fonts that aren't flagged as supporting local glyphs on non-western clients + return false + end + if type(data) == "string" and (mediatype == lib.MediaType.BACKGROUND or mediatype == lib.MediaType.BORDER or mediatype == lib.MediaType.STATUSBAR or mediatype == lib.MediaType.SOUND) then + local path = data:lower() + if RESTRICTED_FILE_ACCESS and not path:find("^interface") then + -- files accessed via path only allowed from interface folder + return false + end + if mediatype == lib.MediaType.SOUND and not (path:find(".ogg", nil, true) or path:find(".mp3", nil, true)) then + -- Only ogg and mp3 are valid sounds. + return false + end + end + if not mediaTable[mediatype] then mediaTable[mediatype] = {} end + local mtable = mediaTable[mediatype] + if mtable[key] then return false end + + mtable[key] = data + rebuildMediaList(mediatype) + self.callbacks:Fire("LibSharedMedia_Registered", mediatype, key) + return true +end + +function lib:Fetch(mediatype, key, noDefault) + local mtt = mediaTable[mediatype] + local overridekey = overrideMedia[mediatype] + local result = mtt and ((overridekey and mtt[overridekey] or mtt[key]) or (not noDefault and defaultMedia[mediatype] and mtt[defaultMedia[mediatype]])) or nil + return result ~= "" and result or nil +end + +function lib:IsValid(mediatype, key) + return mediaTable[mediatype] and (not key or mediaTable[mediatype][key]) and true or false +end + +function lib:HashTable(mediatype) + return mediaTable[mediatype] +end + +function lib:List(mediatype) + if not mediaTable[mediatype] then + return nil + end + if not mediaList[mediatype] then + rebuildMediaList(mediatype) + end + return mediaList[mediatype] +end + +function lib:GetGlobal(mediatype) + return overrideMedia[mediatype] +end + +function lib:SetGlobal(mediatype, key) + if not mediaTable[mediatype] then + return false + end + overrideMedia[mediatype] = (key and mediaTable[mediatype][key]) and key or nil + self.callbacks:Fire("LibSharedMedia_SetGlobal", mediatype, overrideMedia[mediatype]) + return true +end + +function lib:GetDefault(mediatype) + return defaultMedia[mediatype] +end + +function lib:SetDefault(mediatype, key) + if mediaTable[mediatype] and mediaTable[mediatype][key] and not defaultMedia[mediatype] then + defaultMedia[mediatype] = key + return true + else + return false + end +end diff --git a/Titan/libs/Ace/LibSharedMedia-3.0/LibSharedMedia-3.0/lib.xml b/Titan/libs/Ace/LibSharedMedia-3.0/LibSharedMedia-3.0/lib.xml new file mode 100644 index 0000000..7f2fd53 --- /dev/null +++ b/Titan/libs/Ace/LibSharedMedia-3.0/LibSharedMedia-3.0/lib.xml @@ -0,0 +1,4 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Script file="LibSharedMedia-3.0.lua" /> +</Ui> diff --git a/Titan/libs/Ace/LibSharedMedia-3.0/LibStub/LibStub.lua b/Titan/libs/Ace/LibSharedMedia-3.0/LibStub/LibStub.lua new file mode 100644 index 0000000..ae1900e --- /dev/null +++ b/Titan/libs/Ace/LibSharedMedia-3.0/LibStub/LibStub.lua @@ -0,0 +1,51 @@ +-- $Id: LibStub.lua 76 2007-09-03 01:50:17Z mikk $ +-- LibStub is a simple versioning stub meant for use in Libraries. http://www.wowace.com/wiki/LibStub for more info +-- LibStub is hereby placed in the Public Domain +-- Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel, joshborke +local LIBSTUB_MAJOR, LIBSTUB_MINOR = "LibStub", 2 -- NEVER MAKE THIS AN SVN REVISION! IT NEEDS TO BE USABLE IN ALL REPOS! +local LibStub = _G[LIBSTUB_MAJOR] + +-- Check to see is this version of the stub is obsolete +if not LibStub or LibStub.minor < LIBSTUB_MINOR then + LibStub = LibStub or {libs = {}, minors = {} } + _G[LIBSTUB_MAJOR] = LibStub + LibStub.minor = LIBSTUB_MINOR + + -- LibStub:NewLibrary(major, minor) + -- major (string) - the major version of the library + -- minor (string or number ) - the minor version of the library + -- + -- returns nil if a newer or same version of the lib is already present + -- returns empty library object or old library object if upgrade is needed + function LibStub:NewLibrary(major, minor) + assert(type(major) == "string", "Bad argument #2 to `NewLibrary' (string expected)") + minor = assert(tonumber(strmatch(minor, "%d+")), "Minor version must either be a number or contain a number.") + + local oldminor = self.minors[major] + if oldminor and oldminor >= minor then return nil end + self.minors[major], self.libs[major] = minor, self.libs[major] or {} + return self.libs[major], oldminor + end + + -- LibStub:GetLibrary(major, [silent]) + -- major (string) - the major version of the library + -- silent (boolean) - if true, library is optional, silently return nil if its not found + -- + -- throws an error if the library can not be found (except silent is set) + -- returns the library object if found + function LibStub:GetLibrary(major, silent) + if not self.libs[major] and not silent then + error(("Cannot find a library instance of %q."):format(tostring(major)), 2) + end + return self.libs[major], self.minors[major] + end + + -- LibStub:IterateLibraries() + -- + -- Returns an iterator for the currently registered libraries + function LibStub:IterateLibraries() + return pairs(self.libs) + end + + setmetatable(LibStub, { __call = LibStub.GetLibrary }) +end diff --git a/Titan/libs/Ace/LibSharedMedia-3.0/lib.xml b/Titan/libs/Ace/LibSharedMedia-3.0/lib.xml new file mode 100644 index 0000000..c81f35f --- /dev/null +++ b/Titan/libs/Ace/LibSharedMedia-3.0/lib.xml @@ -0,0 +1,5 @@ +<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ +..\FrameXML\UI.xsd"> + <Include file="LibSharedMedia-3.0\lib.xml"/> +</Ui> + diff --git a/Titan/libs/Ace/LibStub/LibStub.lua b/Titan/libs/Ace/LibStub/LibStub.lua new file mode 100644 index 0000000..0a41ac0 --- /dev/null +++ b/Titan/libs/Ace/LibStub/LibStub.lua @@ -0,0 +1,30 @@ +-- LibStub is a simple versioning stub meant for use in Libraries. http://www.wowace.com/wiki/LibStub for more info +-- LibStub is hereby placed in the Public Domain Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel, joshborke +local LIBSTUB_MAJOR, LIBSTUB_MINOR = "LibStub", 2 -- NEVER MAKE THIS AN SVN REVISION! IT NEEDS TO BE USABLE IN ALL REPOS! +local LibStub = _G[LIBSTUB_MAJOR] + +if not LibStub or LibStub.minor < LIBSTUB_MINOR then + LibStub = LibStub or {libs = {}, minors = {} } + _G[LIBSTUB_MAJOR] = LibStub + LibStub.minor = LIBSTUB_MINOR + + function LibStub:NewLibrary(major, minor) + assert(type(major) == "string", "Bad argument #2 to `NewLibrary' (string expected)") + minor = assert(tonumber(strmatch(minor, "%d+")), "Minor version must either be a number or contain a number.") + + local oldminor = self.minors[major] + if oldminor and oldminor >= minor then return nil end + self.minors[major], self.libs[major] = minor, self.libs[major] or {} + return self.libs[major], oldminor + end + + function LibStub:GetLibrary(major, silent) + if not self.libs[major] and not silent then + error(("Cannot find a library instance of %q."):format(tostring(major)), 2) + end + return self.libs[major], self.minors[major] + end + + function LibStub:IterateLibraries() return pairs(self.libs) end + setmetatable(LibStub, { __call = LibStub.GetLibrary }) +end diff --git a/Titan/libs/Ace/changelog.txt b/Titan/libs/Ace/changelog.txt new file mode 100644 index 0000000..b00755e --- /dev/null +++ b/Titan/libs/Ace/changelog.txt @@ -0,0 +1,435 @@ +Ace3 Release - Revision r1241 (October 13th, 2020) +-------------------------------------------------- +- AceAddon-3.0: Suppress more Blizzard addon load events from activating Ace3 addons "too early", causing loading issues. +- AceGUI-3.0: Updated for Backdrop changes in WoW 9.0 +- AceGUI-3.0: Re-structured widget releasing to avoid recursive release in some circumstances +- AceGUI-3.0: Label: Anchors are being refreshed when the font is changed (Ticket #540) +- AceGUI-3.0: Dropdown: Initialize the widget with an empty list so that AddItem can be used on a fresh dropdown (Ticket #542) + +Ace3 Release - Revision r1227 (August 12th, 2019) +------------------------------------------------- +- AceConfigDialog-3.0: Fixed an issue with a missing template on WoW Classic (Ticket #517) + +Ace3 Release - Revision r1224 (August 1st, 2019) +------------------------------------------------ +- AceConfigDialog-3.0: Replace use of StaticPopup with a custom frame to minimize taint +- AceGUI-3.0: Ensure the OnLeave callback on various widgets still fires when its being released while visible (Ticket #505) +- AceGUI-3.0: Various fixes for anchoring problems in WoW 8.2 (Ticket #512, and other reports) + +Ace3 Release - Revision r1214 (June 26th, 2019) +----------------------------------------------- +- AceConfigDialog-3.0: Exposed "select" type sorting control through a new "sorting" config table member +- AceConfigDialog-3.0: Clear existing anchors on the GameTooltip before re-anchoring it for 8.2 compatibility +- AceConfigDialog-3.0: Improved options table sorting algorithm to produce a stable result in certain edge cases (Ticket #501) +- AceConfigRegistry-3.0: Added missing custom controls entries for all types added in the last release (Ticket #494) +- AceGUI-3.0: ColorPicker: Removed usage of Show/HideUIPanel for WoW 8.2 compatibiliy +- AceGUI-3.0: DropDown: Improved dropdown sorting algorithm to support tables with mixed string and numeric keys + +Ace3 Release - Revision r1200 (January 24th, 2019) +-------------------------------------------------- +- Cleanup for WoW 8.0 improvements +- AceGUI-3.0: Worked around various quirks in the WoW 8.0/8.1 API +- AceGUI-3.0: ColorPicker: Store references to the background/checkers textures (Ticket #473) +- AceConfigDialog-3.0: Allow custom controls for almost all option types (Ticket #475) + +Ace3 Release - Revision r1182 (July 17th, 2018) +----------------------------------------------- +- AceComm-3.0: Support numeric targets for custom channels (Ticket #419) +- AceComm-3.0/ChatThrottleLib: Updated for WoW 8.0 API changes +- AceConfig-3.0: Allow number values for the "width" parameter, which acts as a multiplier of the default width +- AceConfigDialog-3.0: Enable iconCoords for the main level of a tree group (Ticket #417) +- AceGUI-3.0: Implement a Table Layout (#442) +- AceGUI-3.0: EditBox: Only try to handle dragging if a valid object is being dragged into the text box +- AceGUI-3.0: Various fixes and work-arounds for WoW 8.0 changes + +Ace3 Release - Revision r1166 (August 29th, 2017) +------------------------------------------------- +- Updated any use of PlaySound to the new numeric constants (Fix for WoW 7.3) +- AceConfigDialog-3.0: implement fallback validation feedback in a StaticPopup (Ticket #2) + +Ace3 Release - Revision r1158 (March 28th, 2017) +------------------------------------------------ +- AceGUI-3.0: Fire OnShow events from Frame and Windows containers (Ticket #396) +- AceGUI-3.0: Add SetJustifyV/H API to the Label/InteractiveLabel widgets (Ticket #397) + +Ace3 Release - Revision r1151 (July 18th, 2016) +----------------------------------------------- +- AceConfig-3.0: Allow specifying images using the numeric fileID (Ticket #389) +- AceGUI-3.0: Use SetColorTexture in WoW 7.0 +- AceGUI-3.0: Expose the HighlightText API for EditBox and MultiLineEditBox Widgets (Ticket #378) +- AceGUI-3.0: Keybinding: Support MouseWheel Up/Down bindings (Ticket #372) +- AceGUI-3.0: TreeGroup: Refresh the tree in an OnUpdate once after Acquire, not only after creation (Fixes missing tree in WoW 7.0) +- AceSerializer-3.0: Create consistent tokens for infinity, independent of the clients platform + +Ace3 Release - Revision r1134 (June 23rd, 2015) +----------------------------------------------- +- AceGUI-3.0: TreeGroup: Prevent Word Wrap in tree elements + +Ace3 Release - Revision r1128 (February 24th, 2015) +--------------------------------------------------- +- AceGUI-3.0: Fixed an error in GameTooltip handling causing wrong formatting in some cases + +Ace3 Release - Revision r1122 (October 14th, 2014) +-------------------------------------------------- +- AceDB-3.0: Now using the GetCurrentRegion() API to determine region-based profile keys (fix for WoW 6.0) +- AceComm-3.0: Update ChatThrottleLib to v23 +- AceConfigDialog-3.0: Show a more meaningful title on Blizzard Options Groups (Ticket #353) +- AceGUI-3.0: ColorPicker: Frame Level is automatically increased to ensure the color picker frame is above the option panel +- AceGUI-3.0: DropDown: Properly disable all clickable areas when the dropdown is disabled (Ticket #360) +- AceHook-3.0: Always use HookScript when hooking scripts in a secure fashion (Ticket #338) +- AceTimer-3.0: New timer implementation based on C_Timer.After + +Ace3 Release - Revision r1109 (February 19th, 2014) +--------------------------------------------------- +- AceComm-3.0: Ambiguate addon comm messages to restore behavior to be identical to pre-5.4.7 +- AceConfigRegistry-3.0: Added an option to skip options table validation on registering + +Ace3 Release - Revision r1104 (October 31st, 2013) +-------------------------------------------------- +- AceGUI-3.0: Flow Layout: Added a safeguard to prevent an infinite loop in the layout engine +- AceGUI-3.0: DropDown: Adjust its style slightly to closer resemble the Blizzard DropDown Widget +- AceGUI-3.0: DropDown: API enhancements to specify the width of the pullout and be notified when its opened + +Ace3 Release - Revision r1098 (September 13th, 2013) +---------------------------------------------------- +- AceDB-3.0: Switch characters to the default profile if their active profile is deleted (Ticket #324) +- AceConfigDialog-3.0: Try to prevent static popup taint (Ticket #322) +- AceGUI-3.0: Button: Add a new "Auto Width" option (Ticket #310) +- AceGUI-3.0: DropDown: Make the entire DropDown widget clickable (Ticket #339) +- AceGUI-3.0: EditBox: Allow dragging macros to the editbox (which will then contain the macros name) (Ticket #337) +- AceGUI-3.0: Slider: Add a workaround for the broken slider steps in WoW 5.4 (Ticket #346) +- AceGUI-3.0: TreeGroup: Fix an issue introduced by 5.4 broken scrollbars (Ticket #345) +- AceHook-3.0: Allow hooking of AnimationGroup scripts (Ticket #314) + +Ace3 Release - Revision r1086 (May 21st, 2013) +---------------------------------------------- +- AceAddon-3.0: Improved behavior when loading modules during game startup, ensures proper loading order + +Ace3 Release - Revision r1083 (March 4th, 2013) +----------------------------------------------- +- AceTimer-3.0: Fixed an issue that caused the parameter list passed to the callback to be cut off at nil values +- AceGUI-3.0: InlineGroup: The title attribute is properly reset for recycled objects + +Ace3 Release - Revision r1078 (February 10th, 2013) +--------------------------------------------------- +- AceTimer-3.0: Re-write based on AnimationTimers +- AceHook-3.0: Improved checks/error messages when trying to hook a script on a "nil" frame +- AceDBOptions-3.0: Added Italian locale +- AceGUI-3.0: BlizOptionsGroup: Fixed the "default" button callback +- AceGUI-3.0: Colorpicker: The colorpicker is now clamped to the screen + +Ace3 Release - Revision r1061 (August 27th, 2012) +------------------------------------------------- +- AceConfigDialog-3.0: Try to avoid potential taints in static popup dialogs +- AceConfigDialog-3.0: Sort multiselects with "radio" style +- AceGUI-3.0: Support for WoW 5.0 +- AceGUI-3.0: MultiLineEditBox: Support shift-click'ing items/spells/etc. into the editbox +- AceGUI-3.0: Label: Fix text alignment (Ticket #301) +- AceGUI-3.0: Checkbox: Description text on a disable checkbox should look disabled (Ticket #304) +- AceGUI-3.0: Keybinding: Ensure the Keybinding popup is on the top level (Ticket #305) + +Ace3 Release - Revision r1041 (November 29th, 2011) +--------------------------------------------------- +- AceDB-3.0: Added locale and factionrealmregion profile keys +- AceSerializer-3.0: Removed support for NaN, as WoW 4.3 does no longer allow it. +- AceGUI-3.0: Frame: Add :EnableResize (Ticket #214) + +Ace3 Release - Revision r1032 (June 29th, 2011) +----------------------------------------------- +- AceTab-3.0: Improvements to Match handling (Ticket #255 and #256) +- AceGUI-3.0: DropDown layout fix with hidden labels (Ticket #234) + +Ace3 Release - Revision r1025 (April 27th, 2011) +------------------------------------------------ +- AceComm-3.0: Updated for 4.1 changes - now handles RegisterAddonMessagePrefix internally for you. +- AceGUI-3.0: TabGroup: Fixed width of tabs in 4.1(Ticket #243) + +Ace3 Release - Revision r1009 (February 9th, 2011) +-------------------------------------------------- +- AceLocale-3.0: Fix erronous assumption that the default locale is always the first to be registered for the :NewLocale() "silent" flag. The flag must now be set on the FIRST locale to be registered. +- AceLocale-3.0: The :NewLocale() "silent" flag may now be set to the string "raw", meaning nils are returned for unknown translations. +- AceGUI-3.0: Fix the disabled state of Icon widgets +- AceGUI-3.0: The header of the Frame widget now dynamically changes size to fit the text (Ticket #171) +- AceGUI-3.0: Its now possible to define a custom order the elements in a dropdown widget +- AceGUI-3.0: Improved widget focus behaviour across the board (Ticket #192, #193) +- AceGUI-3.0: Fixed a bug that made it impossible to block the tree widget from being user resizable (Ticket #163) +- AceGUI-3.0: Fixed a bug that caused TreeGroups to become unresponsive under certain conditions (Ticket #189, #202) +- AceGUI-3.0: Enhanced the DropDown widget to allow it to be reused more easily. +- AceConfigDialog-3.0: Select Groups now have the proper order in the dropdown (Ticket #184) +- AceConfigDialog-3.0: Implemented "radio" style select boxes (Ticket #149) + +Ace3 Release - Revision r981 (October 27th, 2010) +------------------------------------------------- +- AceAddon-3.0: Fixed a library upgrading issue +- AceAddon-3.0: Modules are now enabled in loading order +- AceGUI-3.0: Keybinding: The widget will no longer steal keybindings even when inactive (Ticket #169) +- AceGUI-3.0: EditBox: Fixed spell drag'n'drop + + +Ace3 Release - Revision r971 (October 12th, 2010) +------------------------------------------------- +- Small fixes and adjustments for the 4.0 Content Patch. +- AceGUI-3.0: ScrollFrame: Allow for a small margin of error when determining if the scroll bar should be shown. +- AceGUI-3.0: Added new widget APIs: GetText for EditBox and DisableButton for MultiLineEditBox + +Ace3 Release - Revision r960 (July 20th, 2010) +---------------------------------------------- +- AceGUI-3.0: Label: Reset Image Size and TexCoords on Acquire (Ticket #110) +- AceGUI-3.0: CheckBox: Re-apply the disabled state after setting a value, so the visuals are correct in either case. (Ticket #107) +- AceGUI-3.0: Icon: Fix the vertical size. It'll now properly scale with the image size, and not be fixed to about 110px. (Ticket #104) +- AceGUI-3.0: External Containers (Frame, Window) should always start in a visible state. (Ticket #121) +- AceGUI-3.0: Added Blizzard sounds to widgets (Ticket #120) +- AceGUI-3.0: CheckBox: check for self.desc:GetText() being nil as well as "" to prevent setting the wrong height on the checkbox causing bouncing checkboxes. +- AceGUI-3.0: Rewrite of the MultiLineEditBox (Ticket #68) +- AceGUI-3.0: CheckBox: Fix alignment of the text in OnMouseDown when an image is set. (Ticket #142) +- AceGUI-3.0: Add SetMaxLetters APIs to EB and MLEB (Ticket #135) +- AceGUI-3.0: Frame: Add events for OnEnter/OnLeave of the statusbar (Ticket #139) +- AceGUI-3.0: Major cleanups and refactoring in nearly all widgets and containers. +- AceConfigDialog-3.0: Always obey the min/max values on range-type widgets (Ticket #114) +- AceConfigDialog-3.0: Pass iconCoords set on groups in the options table to the tree widget (Ticket #111) +- AceConfigDialog-3.0: Implement "softMin" and "softMax", allowing for a UI-specific minimum/maximum for range controls, while allowing manual input of values in the old min/max range. (Ticket #123) +- AceConfigDialog-3.0: Don't close frames in CloseAll that are being opened after the CloseAll event was dispatched. (Ticket #132). +- AceSerializer-3.0: Fix encoding & decoding of \030. (Ticket #115) +- AceDB-3.0: Remove empty sections on logout, keeping the SV clean of more useless informations. +- AceDBOptions-3.0.lua: Fix a string typo (Ticket #141) + +Ace3 Release - Revision r907 (December 16th, 2009) +--------------------------------------------------- +- AceGUI-3.0: Frame: Properly save the width in the status table. +- AceConfigCmd-3.0: Properly handle help output of inline groups with a different handler. (Ticket #101) +- AceConfigDialog-3.0: Don't bail out and error when a dialogControl was invalid, instead show the error and fallback to the default control for that type. +- AceConfigDialog-3.0: Fix a hickup with the OnUpdate script not getting upgraded properly in some situations. + +Ace3 Release - Revision r900 (December 8th, 2009) +-------------------------------------------------- +- AceGUI-3.0: Alot of visual fixes regarding margins and general widget styles. +- AceGUI-3.0: Ability to accept links for EditBox Widget (Ticket #21) +- AceGUI-3.0: ScrollFrame: Hide the scrollbar when there is no overflowing content, and allow the Layout functions to use that space for widgets. +- AceGUI-3.0: DropDown: Added a GetValue() API to the Widget (Ticket #69) +- AceGUI-3.0: Button: Pass the arguments of the OnClick handler to the OnClick callback (Ticket #57) +- AceGUI-3.0: add a Window container, basically a plain window with close button +- AceGUI-3.0: Add support for inline descriptions to the checkbox widget. +- AceGUI-3.0: Added an API to the Window container to disable the user-resizing of the same. (Ticket #80) +- AceGUI-3.0: TreeGroup: Allow iconCoords to be passed for the tree elements. (Ticket #59) +- AceGUI-3.0: Slider: Add a more visible backdrop/border around the manual input area (Ticket #98, #46) +- AceGUI-3.0: Allow displaying a image in front of the checkbox label. (Ticket #82) +- AceConfig-3.0: Added an experimental "descStyle" member to all option table nodes that allows you to control the way the description is presented. + Supported values are "tooltip" for the old behaviour, and "inline" for a inline display of the description, pending support in AceGUI-3.0 widgets. +- AceConfigCmd-3.0: Properly parse functions and methods supplied for the "hidden" option table member. (Ticket #96) +- AceConfigDialog-3.0: Fix the unpacking of the basepath arguments when internally calling :Open (Ticket #90) +- AceConfigDialog-3.0: Properly refresh BlizOptions Windows which are registered with a path on NotifyChange. (Ticket #93) +- AceConfigDialog-3.0: Allow image/imageCoords on toogle elements (Note that the width/height of the image on the toggle cannot be changed) (Ticket #82) +- AceConfigDialog-3.0: Pass the groups "name" tag to DropDownGroups as the title. (Ticket #79) +- AceDB-3.0: Remove the metatable from the DB before removing defaults, so we don't accidentally invoke it in the process. (Ticket #66) +- AceDB-3.0: Don't save the profileKeys for namespaces, since we use the profile of the parent DB anyway. This will cut down on SV complexity when using alot of namespaces. +- AceDB-3.0: Don't fire the OnProfileReset callback when copying a profile. +- AceDBOptions-3.0: Show the current profile on the dialog. (Ticket #56) +- AceComm-3.0: Add callbacks for message chunks going out the wire (via CTL). Useful for displaying progress for very large messages. +- AceConsole-3.0: Add :Printf() so you don't have to do Print(format()) + +Ace3 Beta - Revision 820 (August 7th, 2009) +-------------------------------------------- +- AceComm-3.0: Updated ChatThrottleLib to v21 +- AceGUI-3.0: Fixed a glitch in the TabGroup code that caused tabs to be unresponsive under rare conditions. (Ticket #38) +- AceGUI-3.0: Consistent "disabled" behaviour of all widgets. (Ticket #47) +- AceGUI-3.0: Changed the way widgets are handled on release to avoid a crash in the game client. (Ticket #49) +- AceGUI-3.0: Fixed a glitch in the button graphics. (Ticket #58) +- AceGUI-3.0: Localized the "Close" Text on the Frame widget. + +Ace3 Beta - Revision 803 (April 14th, 2009) +-------------------------------------------- +- AceConfig-3.0: Allow spaces in the keys of config tables. Spaces will be changed on the fly to underscores in AceConfigCmd-3.0 - there is no collision check in place, yet. +- AceConfig-3.0: Support a "fontSize" attribute to the description type. Possible values are "small" (default), "medium" and "large". +- AceConfigDialog-3.0: Fixed an error that would occur when calling InterfaceOptionsFrame_OpenToCategory from within an event handler in a Blizzard Options integrated frame. (Ticket #33) +- AceConfigDialog-3.0: The "execute" type does now recognize the "image" attributes, and will display a clickable icon instead of the button when an image is supplied. (Ticket #35) +- AceConfigDialog-3.0: Pass icons defined in the option table to the TreeGroup widget (Ticket #20) +- AceConfigDialog-3.0: Fixed a bug that caused an empty group widget to be drawn if all groups were hidden. +- AceConfigCmd-3.0: Improved the behaviour of select and multiselect elements. (Ticket #26) +- AceDB-3.0: Add a GetNamespace function to the DB Objects which returns an existing namespace from the DB object. +- AceGUI-3.0 Slider Widget: Properly show percentage values as min/max if isPercent is true. (Ticket #32) +- AceGUI-3.0: Fixed an error in the TreeGroup Widget that caused execution to stop if no name was provided. +- AceGUI-3.0: Fixed the behaviour of the MultiLineEditbox Widget (Accept button not clickable). (Ticket #28) +- AceGUI-3.0: TabGroup: Set a maximum width for tabs based on the size of the widget. (Ticket #34) +- AceGUI-3.0: Added a new InteractiveLabel with OnEnter/OnLeave/OnClick callbacks and a highlight texture +- AceGUI-3.0: Add SetFont and SetFontObject functions to the Label widget (and the new InteractiveLabel) +- AceGUI-3.0: Support icons in the TreeGroup display. (Ticket #20) +- AceGUI-3.0: Added a new :SetRelativeWidth Widget-API that allows you to set the width of widgets relative to their container. +- AceGUI-3.0: Alot of fixes, tweaks and consistency changes. + +Ace3 Beta - Revision 741 (Feb 15th, 2009) +-------------------------------------------- +- AceDBOptions-3.0: Disable the "Copy From" and "Delete" dropdowns if there are no profiles to choose from. (Ticket #19) +- AceGUI-3.0: Improve TabGroup visual style - only stretch them to the full width if they would use more then 75% of the exisiting space. +- AceGUI-3.0: Added a third optional argument to <container>:AddChild() to specify the position for the new widget. (Ticket #22) +- AceConfigCmd-3.0: Improve help output when viewing groups. +- AceConfigDialog-3.0: Refresh the Options Panel after a confirmation is canceled to reset the value to its previous value. (Ticket #23) +- AceDB-3.0: Fix a data inconsistency when using false as a table key. (Ticket #25) + +Ace3 Beta - Revision 722 (Jan 4th, 2009) +-------------------------------------------- +- AceHook-3.0: Fix :SecureHookScript to not fail on previously empty scripts since frame:HookScript does nothing at all in that case. (Ticket #16) +- AceLocale-3.0: Implement 'silent' option for :NewLocale to disable the warnings on unknown entrys (Ticket #18) +- AceTimer-3.0: Implement :TimeLeft(handle) function (Ticket #10) +- AceGUI-3.0: Fix TabGroup tab resizing to be consistent +- AceGUI-3.0: Fixed EditBox alignment when the label is disabled (Ticket #13) +- AceDB-3.0: Implement OnProfileShutdown callback (Ticket #7) +- AceDBOptions-3.0: Updated esES and ruRU locale + +Ace3 Beta - Revision 706 (Oct 18th, 2008) +-------------------------------------------- +- First Beta release after WoWAce move +- Removed WoW 2.4.x compat layer +- AceGUI-3.0: Fix disabling of the Multiline Editbox +- AceGUI-3.0: Improvements to the Keybinding Widget + +Ace3 Beta - Revision 81437 (Sept 6th, 2008) +-------------------------------------------- +- AceConfigDialog-3.0: the confirm callback will now receive the new value that is being set (same signature as the validate callback) +- AceConfigDialog-3.0: :Close and :CloseAll are now safe to call from within callbacks. +- AceGUI-3.0: Added new methods to the widget base table, see ACE-205 for full reference +- AceGUI-3.0: Various fixes to Widgets and recycling process +- Now compatible with WoW 3.0 (compat layer is to be removed upon 3.0 release) + + +Ace3 Beta - Revision 76325 (June 9th, 2008) +-------------------------------------------- +- AceGUI-3.0: Finish Multiselect support for the Dropdown widget (nargiddley) +- AceGUI-3.0: Re-write TabGroup layouting (nargiddley) +- AceGUI-3.0: TreeGroup: Add :EnableButtonTooltips(enable) to make the default tooltips on the tree optional, enabled by default. (nargiddley) +- AceGUI-3.0: TabGroup: Add OnTabEnter and OnTabLeave Callbacks (nargiddley) +- AceConfigDialog-3.0: Add :SelectGroup(appName, ...) - Selects the group given by the path specified then refreshes open windows. (nargiddley) +- AceConfigDialog-3.0: :Open now accepts an optional path, when given will open the window with only the given group and its children visible (nargiddley) +- AceConfigDialog-3.0: :AddToBlizOptions now accepts an optional path, this will add the config page to display the specified group and its children only. (nargiddley) +- AceConfigDialog-3.0: ACE-189: allow multiselect to be shown as a dropdown by setting dialogControl = "Dropdown" (nargiddley) +- AceConfigDialog-3.0: Add Custom tooltips to the TreeGroup and TabGroup, shows both name and desc for the group. (nargiddley) +- AceConfigCmd-3.0: ACE-195: Remove unneeded references to .confirm, will no longer error when .confirm is a boolean (nargiddley) +- AceAddon-3.0: Allow for an optional first argument to NewAddon to be a table to be used as the base for the addon. (ammo) + +Ace3 Beta - Revision 74633 (May 19th, 2008) +-------------------------------------------- +- AceTimer-3.0: ACE-173: don't error on nil handle for CancelTimer(), just bail out early. (ammo) +- AceGUI-3.0: ACE-161, ACE-180, ACE-181: New and improved DropDown widget (originally coded by Borlox) (nargiddley,nevcairiel) +- AceGUI-3.0: AceGUI will call OnWidthSet and OnHeightSet as frames resize (nargiddley) +- AceGUI-3.0: TabGroup: Use OptionsFrameTabButtonTemplate for tabs (nargiddley) +- AceGUI-3.0: TabGroup: Tabs now span multiple lines when there are too many to fit in the width of the frame (nargiddley) +- AceGUI-3.0: TreeGroup: Tree is now sizable by dragging, orig patch by yssaril (nargiddley) +- AceGUI-3.0: Flow layout will now reduce widgets width to fit rather than leaving them sticking out the side of container widgets (nargiddley) +- AceGUI-3.0: Dropdowns will no longer be left open in the background when the frame is clicked or other widgets are activated (nargiddley) +- AceGUI-3.0: ACE-159: Rename Release to OnRelease and Acquire to OnAcquire for widgets. (nargiddley) +- AceGUI-3.0: ACE-171: add IsVisible and IsShown methods to the widget metatable (nargiddley) +- AceGUI-3.0: ACE-164: add tooltips to tree to show full text of childs that got clipped (ammo) +- AceGUI-3.0: ACE-174: make buttons in AceGUI-3.0 locale independant (ammo) +- AceGUI-3.0: ACE-166: fix treegroup visual bug (ammo) +- AceGUI-3.0: ACE-184: make numeric entry for slider more intuitive (ammo) +- AceConfigCmd-3.0: ACE-172 - ignore description in cmd (ammo) +- AceConsole-3.0: nolonger check for existance of slashcommands, overwrite where needed. Last one wins, this enables AddonLoader to X-LoadOn-Slash and override the slashcommand from AddonLoader slashcommand with an Ace3 one. (Ammo) + +Ace3 Beta - Revision 69509 (April 13th, 2008) +--------------------------------------------- +- AceComm-3.0: turn off error messages when receiving invalid multi-part messages (its happening on login etc) (nevcairiel) +- AceDBOptions-3.0: shorten info text at top to prevent scrollbars. (nevcairiel) +- AceHook-3.0: ACE-162: fix unhooking of objects that were not actually hooked (nevcairiel) +- AceDB-3.0: fire the DB callbacks after the namespaces changed their profile as well (nevcairiel) +- AceDB-3.0: namespaces can now be individually reset using :ResetProfile() on the namespace directly (nevcairiel) +- AceDB-3.0: added a optional argument to :ResetProfile to not populate the reset to all namespaces (so the main profile can reset individually without reseting all namespaces too) (nevcairiel) + +Ace3 Beta - Revision 66329 (March 27th, 2008) +--------------------------------------------- +- Overall 2.4 clean ups - removing 2.4 checks and work arounds (nevcairiel) +- AceBucket-3.0: clear the timer reference when unregistering a bucket to prevent a error when unregistering a bucket that was never fired (nevcairiel) +- AceAddon-3.0: Bugfix when enabling/disabling modules from the parents OnEnable after disabling / enabling the parent addon. (ammo) +- AceGUI-3.0: Don't parent the BlizOptionsGroup widget to UIParent and Hide it by default. Fixes stray controls on the screen. (nargiddley) +- AceConfigDialog-3.0: Config windows without a default size won't incorrectly get a default size from a previously open window. (nargiddley) +- AceDBOptions-3.0: added zhCN and zhTW locale (nevcairiel) + +Ace3 Beta - Revision 65665 (March 25th, 2008) +--------------------------------------------- +- AceGUI-3.0: ACE-139: Changed all Widgets to resemble the Blizzard 2.4 Options Style (nevcairiel) +- AceGUI-3.0: Fixed "List"-Layout not reporting new width to "fill"-mode widgets (mikk) +- AceGUI-3.0: added :SetColor to the Label widget (nevcairiel) +- AceGUI-3.0: ACE-132: ColorPicker: added checkers texture for better alpha channel display, and fixed "white"-texture bug (nevcairiel,nargiddley,ammo) +- AceConfig-3.0: ACE-113: Added uiName, uiType, handler, option, type to the info table (nevcairiel,nargiddley) +- AceConfigDialog-3.0: ACE-139: Adjusted for 2.4 options panels (nevcairiel) +- AceConfigDialog-3.0: Use "width" parameter for the description widget (if present) (nevcairiel) +- AceConfigDialog-3.0: ACE-135: Add support for specifying a rowcount for multiline editboxes (nargiddley) +- AceConfigDialog-3.0: :AddToBlizOptions will return the frame registered so you can use it in InterfaceOptionsFrame_OpenToFrame (nevcairiel) +- AceConfigCmd-3.0: handle "hidden" in help-output (nevcairiel) +- AceHook-3.0: fix unhooking of secure hooks (nevcairiel) +- AceDBOptions-3.0: add optional argument to GetOptionsTable(db[, noDefaultProfiles]) - if set to true will not show the default profiles in the profile selection (nevcairiel) +- AceDBOptions-3.0: added koKR locale (nevcairiel) +- Ace3 Standalone: Removed the "Ace3" Category from the 2.4 options panel (nevcairiel) + +Ace3 Beta - Revision 64176 (March 10th, 2008) +--------------------------------------------- +- AceGUI-3.0: Improve Alpha handling for the ColorPicker widget, ColorPicker widget closes the ColorPickerFrame before opening to prevent values getting carried over (nargiddley) +- AceGUI-3.0: The Slider widget will only react to the mousewheel after it has been clicked (anywhere including the label) to prevent accidental changes to the value when trying to scroll the container it is in (nargiddley) +- AceGUI-3.0: The TreeGroup widget is scrollable with the mousewheel (nargiddley) +- AceGUI-3.0: ACE-154: Fix frame levels in more cases to prevent widgets ending up behind their containers (nargiddley) +- AceConfigDialog: Color picker obeys hasAlpha on the color type (nargiddley) +- AceConfigDialog-3.0: ACE-155: Make sure that the selected group is type='group' when checking if it exists (nargiddley) +- AceDBOptions-3.0: added frFR locale (nevcairiel) + +Ace3 Beta - Revision 63886 (March 8th, 2008) +--------------------------------------------- +- AceDBOptions-3.0: new library to provide a Ace3Options table to control the AceDB-3.0 profiles (nevcairiel) +- AceDB-3.0: add "silent" option to DeleteProfile and CopyProfile when we deal with namespaces (nevcairiel) +- AceDB-3.0: implement library upgrade path (nevcairiel) +- AceDB-3.0: ACE-146: fix problem with non-table values overruling ['*']-type defaults (nevcairiel) +- AceConsole-3.0: treat |T|t texture links similar to |H|h|h links. (ammo) +- AceGUI-3.0: Use Blizzard Templates for the EditBox and DropDown widget (nevcairiel) +- AceBucket-3.0: ACE-150: callback is now optional, if not supplied will use the eventname as method name (only possible if one event is supplied, and not a event table) (nevcairiel) +- tests: adjust tests for AceGUI and AceConsole changes (nevcairiel) + +Ace3 Beta - Revision 63220 (Feb 29th, 2008) +--------------------------------------------- +- AceTimer-3.0: CancelAllTimers() now cancels silent (elkano) +- AceConfigDialog: Add :SetDefaultSize(appName, width, height), sets the size the dialog will open to. Does not effect already open windows. (nargiddley) +- AceConfigDialog: Fix typo in type check for range values (nargiddley) +- AceGUI: ColorPicker widget will correctly fire OnValueChanged for the cancel event of the colorpicker popup. Reset ColorPicker's color on Acquire. (nargiddley) +- AceGUI: Fix Spelling of Aquire -> Acquire for widgets, all custom widgets will need to be updated. A warning will be printed for widgets not upgraded yet. (nargiddley) +- AceConfigCmd-3.0: add simple coloring to slashcommand output. (ammo) +- AceConsole-3.0: add some color to :Print (ammo) +- AceAddon-3.0: set error level on library embedding to point to the :NewAddon call (nevcairiel) + +Ace3 Beta - Revision 62182 (Feb 20th, 2008) +--------------------------------------------- +- Ace3 StandAlone: Add a page to the Blizzard 2.4 Interface Options with icons to open dialogs for configs registered when installed standalone (nargiddley) +- AceConfigDialog: type = 'description' now uses the fields image and imageCoords instead of icon and iconCoords, add imageWidth and imageHeight (nargiddley) +- AceConfigDialog: Add :AddToBlizzardOptions(appName, name), this will add the specified config to the Blizzard Options pane new in 2.4. This will only be available if running on the 2.4 PTR (nargiddley) +- AceDB: fix GetProfiles() when setting the same profile twice (nevcairiel) +- AceDB: bail out of :SetProfile early when trying to set to the same profile (nevcairiel) +- AceDB: add nil checks to metatable handling (nevcairiel) +- AceDB: clear tables that are empty after defaults removal (nevcairiel) +- AceGUI: Fix a couple of layout bugs causing the width of groups to be wrong (nargiddley) +- AceGUI: Add Icon widget (nargiddley) +- AceGUI: Allow room for the border in the BlizOptionsGroup widget (nargiddley) +- AceGUI: Button and Keybinding use UIPanelButtonTemplate2 (nargiddley) +- AceConsole-3.0: Fix bug where no table for [self] was created when registering weak commands (ammo) +- AceTimer-3.0: add missing :OnEmbedDisable (ammo) +- AceAddon-3.0: added :GetName() that will always return the "real" name of a addon or module object without any prefixes (nevcairiel) + +Ace3 Beta - Revision 60697 (Feb 9th, 2008) +--------------------------------------------- +- CallbackHandler-1.0: remove unnecessary table creation if a event is fired thats not registered (nevcairiel) +- AceAddon-3.0: fixed a bug with recursive addon loading (nevcairiel) +- AceGUI: Update TabGroup's tablist format, tabs are selected by value not index (nargiddley) +- AceGUI: Add MultiLineEditBox widget (nargiddley, originally by bam) +- AceGUI: Small fix to the flow layout preventing controls overlapping in some cases (nargiddley) +- AceConfigDialog: Implement control and dialogControl for types 'input' and 'select' (nargiddley) +- AceConfigDialog: Add support for multiline = true on type = 'input' (nargiddley) +- AceConfigDialog: Fix an error when all groups are hidden in a group with childGroups = 'select' (nargiddley) +- AceConfigDialog: type = 'description' will now show .icon as an image with its text (nargiddley) +- AceConfigDialog: multiline inputs are no longer forced to width = "full" (nargiddley) +- AceConfigDialog: bug fix when loading without AceConsole present (nevcairiel) + +Ace3 Beta - Revision 60545 (Feb 7th, 2008) +--------------------------------------------- +- AceGUI: SetToplevel(true) for the Frame widget, multiple open windows should play nice together now (nargiddley) +- AceGUI: Move Frames to the FULLSCREEN_DIALOG strata (nargiddley) +- AceGUI: Dropdown, Editbox and Keybinding labels grey out when disabled (nargiddley) +- AceGUI: Add OnClick callback to the TreeGroup widget (nargiddley) +- AceConfigDialog: Confirm popups will be above the config window (nargiddley) + +Ace3 Beta - Revision 60163 (Feb 3rd, 2008) +--------------------------------------------- +- Initial Beta release diff --git a/Titan/libs/Ace3.lua b/Titan/libs/Ace3.lua deleted file mode 100755 index aef37e7..0000000 --- a/Titan/libs/Ace3.lua +++ /dev/null @@ -1,110 +0,0 @@ - --- This file is only there in standalone Ace3 and provides handy dev tool stuff I guess --- for now only /rl to reload your UI :) --- note the complete overkill use of AceAddon and console, ain't it cool? - --- GLOBALS: next, loadstring, ReloadUI, geterrorhandler --- GLOBALS: BINDING_HEADER_ACE3, BINDING_NAME_RELOADUI, Ace3, LibStub - --- BINDINGs labels -BINDING_HEADER_ACE3 = "Ace3" -BINDING_NAME_RELOADUI = "ReloadUI" --- - -local gui = LibStub("AceGUI-3.0") -local reg = LibStub("AceConfigRegistry-3.0") -local dialog = LibStub("AceConfigDialog-3.0") - -Ace3 = LibStub("AceAddon-3.0"):NewAddon("Ace3", "AceConsole-3.0") -local Ace3 = Ace3 - -local selectedgroup -local frame -local select -local status = {} -local configs = {} - -local function frameOnClose() - gui:Release(frame) - frame = nil -end - -local function RefreshConfigs() - for name in reg:IterateOptionsTables() do - configs[name] = name - end -end - -local function ConfigSelected(widget, event, value) - selectedgroup = value - dialog:Open(value, widget) -end - -local old_CloseSpecialWindows - --- GLOBALS: CloseSpecialWindows, next -function Ace3:Open() - if not old_CloseSpecialWindows then - old_CloseSpecialWindows = CloseSpecialWindows - CloseSpecialWindows = function() - local found = old_CloseSpecialWindows() - if frame then - frame:Hide() - return true - end - return found - end - end - RefreshConfigs() - if next(configs) == nil then - self:Print("No Configs are Registered") - return - end - - if not frame then - frame = gui:Create("Frame") - frame:ReleaseChildren() - frame:SetTitle("Ace3 Options") - frame:SetLayout("FILL") - frame:SetCallback("OnClose", frameOnClose) - - select = gui:Create("DropdownGroup") - select:SetGroupList(configs) - select:SetCallback("OnGroupSelected", ConfigSelected) - frame:AddChild(select) - end - if not selectedgroup then - selectedgroup = next(configs) - end - select:SetGroup(selectedgroup) - frame:Show() -end - -local function RefreshOnUpdate(this) - select:SetGroup(selectedgroup) - this:SetScript("OnUpdate", nil) -end - -function Ace3:ConfigTableChanged(event, appName) - if selectedgroup == appName and frame then - frame.frame:SetScript("OnUpdate", RefreshOnUpdate) - end -end - -reg.RegisterCallback(Ace3, "ConfigTableChange", "ConfigTableChanged") - -function Ace3:PrintCmd(input) - input = input:trim():match("^(.-);*$") - local func, err = loadstring("LibStub(\"AceConsole-3.0\"):Print(" .. input .. ")") - if not func then - LibStub("AceConsole-3.0"):Print("Error: " .. err) - else - func() - end -end - -function Ace3:OnInitialize() - self:RegisterChatCommand("ace3", function() self:Open() end) - self:RegisterChatCommand("rl", function() ReloadUI() end) - self:RegisterChatCommand("print", "PrintCmd") -end diff --git a/Titan/libs/Ace3.toc b/Titan/libs/Ace3.toc deleted file mode 100755 index ca7367a..0000000 --- a/Titan/libs/Ace3.toc +++ /dev/null @@ -1,27 +0,0 @@ -## Interface: 90001 - -## Title: Lib: Ace3 -## Notes: AddOn development framework -## Author: Ace3 Development Team -## X-Website: http://www.wowace.com -## X-Category: Library -## X-License: Limited BSD - -LibStub\LibStub.lua -CallbackHandler-1.0\CallbackHandler-1.0.xml -AceAddon-3.0\AceAddon-3.0.xml -AceEvent-3.0\AceEvent-3.0.xml -AceTimer-3.0\AceTimer-3.0.xml -AceBucket-3.0\AceBucket-3.0.xml -AceHook-3.0\AceHook-3.0.xml -AceDB-3.0\AceDB-3.0.xml -AceDBOptions-3.0\AceDBOptions-3.0.xml -AceLocale-3.0\AceLocale-3.0.xml -AceConsole-3.0\AceConsole-3.0.xml -AceGUI-3.0\AceGUI-3.0.xml -AceConfig-3.0\AceConfig-3.0.xml -AceComm-3.0\AceComm-3.0.xml -AceTab-3.0\AceTab-3.0.xml -AceSerializer-3.0\AceSerializer-3.0.xml - -Ace3.lua diff --git a/Titan/libs/AceAddon-3.0/AceAddon-3.0.lua b/Titan/libs/AceAddon-3.0/AceAddon-3.0.lua deleted file mode 100755 index 46fde43..0000000 --- a/Titan/libs/AceAddon-3.0/AceAddon-3.0.lua +++ /dev/null @@ -1,653 +0,0 @@ ---- **AceAddon-3.0** provides a template for creating addon objects. --- It'll provide you with a set of callback functions that allow you to simplify the loading --- process of your addon.\\ --- Callbacks provided are:\\ --- * **OnInitialize**, which is called directly after the addon is fully loaded. --- * **OnEnable** which gets called during the PLAYER_LOGIN event, when most of the data provided by the game is already present. --- * **OnDisable**, which is only called when your addon is manually being disabled. --- @usage --- -- A small (but complete) addon, that doesn't do anything, --- -- but shows usage of the callbacks. --- local MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon") --- --- function MyAddon:OnInitialize() --- -- do init tasks here, like loading the Saved Variables, --- -- or setting up slash commands. --- end --- --- function MyAddon:OnEnable() --- -- Do more initialization here, that really enables the use of your addon. --- -- Register Events, Hook functions, Create Frames, Get information from --- -- the game that wasn't available in OnInitialize --- end --- --- function MyAddon:OnDisable() --- -- Unhook, Unregister Events, Hide frames that you created. --- -- You would probably only use an OnDisable if you want to --- -- build a "standby" mode, or be able to toggle modules on/off. --- end --- @class file --- @name AceAddon-3.0.lua --- @release $Id: AceAddon-3.0.lua 1238 2020-08-28 16:18:42Z nevcairiel $ - -local MAJOR, MINOR = "AceAddon-3.0", 13 -local AceAddon, oldminor = LibStub:NewLibrary(MAJOR, MINOR) - -if not AceAddon then return end -- No Upgrade needed. - -AceAddon.frame = AceAddon.frame or CreateFrame("Frame", "AceAddon30Frame") -- Our very own frame -AceAddon.addons = AceAddon.addons or {} -- addons in general -AceAddon.statuses = AceAddon.statuses or {} -- statuses of addon. -AceAddon.initializequeue = AceAddon.initializequeue or {} -- addons that are new and not initialized -AceAddon.enablequeue = AceAddon.enablequeue or {} -- addons that are initialized and waiting to be enabled -AceAddon.embeds = AceAddon.embeds or setmetatable({}, {__index = function(tbl, key) tbl[key] = {} return tbl[key] end }) -- contains a list of libraries embedded in an addon - --- Lua APIs -local tinsert, tconcat, tremove = table.insert, table.concat, table.remove -local fmt, tostring = string.format, tostring -local select, pairs, next, type, unpack = select, pairs, next, type, unpack -local loadstring, assert, error = loadstring, assert, error -local setmetatable, getmetatable, rawset, rawget = setmetatable, getmetatable, rawset, rawget - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: LibStub, IsLoggedIn, geterrorhandler - ---[[ - xpcall safecall implementation -]] -local xpcall = xpcall - -local function errorhandler(err) - return geterrorhandler()(err) -end - -local function safecall(func, ...) - -- we check to see if the func is passed is actually a function here and don't error when it isn't - -- this safecall is used for optional functions like OnInitialize OnEnable etc. When they are not - -- present execution should continue without hinderance - if type(func) == "function" then - return xpcall(func, errorhandler, ...) - end -end - --- local functions that will be implemented further down -local Enable, Disable, EnableModule, DisableModule, Embed, NewModule, GetModule, GetName, SetDefaultModuleState, SetDefaultModuleLibraries, SetEnabledState, SetDefaultModulePrototype - --- used in the addon metatable -local function addontostring( self ) return self.name end - --- Check if the addon is queued for initialization -local function queuedForInitialization(addon) - for i = 1, #AceAddon.initializequeue do - if AceAddon.initializequeue[i] == addon then - return true - end - end - return false -end - ---- Create a new AceAddon-3.0 addon. --- Any libraries you specified will be embeded, and the addon will be scheduled for --- its OnInitialize and OnEnable callbacks. --- The final addon object, with all libraries embeded, will be returned. --- @paramsig [object ,]name[, lib, ...] --- @param object Table to use as a base for the addon (optional) --- @param name Name of the addon object to create --- @param lib List of libraries to embed into the addon --- @usage --- -- Create a simple addon object --- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon", "AceEvent-3.0") --- --- -- Create a Addon object based on the table of a frame --- local MyFrame = CreateFrame("Frame") --- MyAddon = LibStub("AceAddon-3.0"):NewAddon(MyFrame, "MyAddon", "AceEvent-3.0") -function AceAddon:NewAddon(objectorname, ...) - local object,name - local i=1 - if type(objectorname)=="table" then - object=objectorname - name=... - i=2 - else - name=objectorname - end - if type(name)~="string" then - error(("Usage: NewAddon([object,] name, [lib, lib, lib, ...]): 'name' - string expected got '%s'."):format(type(name)), 2) - end - if self.addons[name] then - error(("Usage: NewAddon([object,] name, [lib, lib, lib, ...]): 'name' - Addon '%s' already exists."):format(name), 2) - end - - object = object or {} - object.name = name - - local addonmeta = {} - local oldmeta = getmetatable(object) - if oldmeta then - for k, v in pairs(oldmeta) do addonmeta[k] = v end - end - addonmeta.__tostring = addontostring - - setmetatable( object, addonmeta ) - self.addons[name] = object - object.modules = {} - object.orderedModules = {} - object.defaultModuleLibraries = {} - Embed( object ) -- embed NewModule, GetModule methods - self:EmbedLibraries(object, select(i,...)) - - -- add to queue of addons to be initialized upon ADDON_LOADED - tinsert(self.initializequeue, object) - return object -end - - ---- Get the addon object by its name from the internal AceAddon registry. --- Throws an error if the addon object cannot be found (except if silent is set). --- @param name unique name of the addon object --- @param silent if true, the addon is optional, silently return nil if its not found --- @usage --- -- Get the Addon --- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") -function AceAddon:GetAddon(name, silent) - if not silent and not self.addons[name] then - error(("Usage: GetAddon(name): 'name' - Cannot find an AceAddon '%s'."):format(tostring(name)), 2) - end - return self.addons[name] -end - --- - Embed a list of libraries into the specified addon. --- This function will try to embed all of the listed libraries into the addon --- and error if a single one fails. --- --- **Note:** This function is for internal use by :NewAddon/:NewModule --- @paramsig addon, [lib, ...] --- @param addon addon object to embed the libs in --- @param lib List of libraries to embed into the addon -function AceAddon:EmbedLibraries(addon, ...) - for i=1,select("#", ... ) do - local libname = select(i, ...) - self:EmbedLibrary(addon, libname, false, 4) - end -end - --- - Embed a library into the addon object. --- This function will check if the specified library is registered with LibStub --- and if it has a :Embed function to call. It'll error if any of those conditions --- fails. --- --- **Note:** This function is for internal use by :EmbedLibraries --- @paramsig addon, libname[, silent[, offset]] --- @param addon addon object to embed the library in --- @param libname name of the library to embed --- @param silent marks an embed to fail silently if the library doesn't exist (optional) --- @param offset will push the error messages back to said offset, defaults to 2 (optional) -function AceAddon:EmbedLibrary(addon, libname, silent, offset) - local lib = LibStub:GetLibrary(libname, true) - if not lib and not silent then - error(("Usage: EmbedLibrary(addon, libname, silent, offset): 'libname' - Cannot find a library instance of %q."):format(tostring(libname)), offset or 2) - elseif lib and type(lib.Embed) == "function" then - lib:Embed(addon) - tinsert(self.embeds[addon], libname) - return true - elseif lib then - error(("Usage: EmbedLibrary(addon, libname, silent, offset): 'libname' - Library '%s' is not Embed capable"):format(libname), offset or 2) - end -end - ---- Return the specified module from an addon object. --- Throws an error if the addon object cannot be found (except if silent is set) --- @name //addon//:GetModule --- @paramsig name[, silent] --- @param name unique name of the module --- @param silent if true, the module is optional, silently return nil if its not found (optional) --- @usage --- -- Get the Addon --- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") --- -- Get the Module --- MyModule = MyAddon:GetModule("MyModule") -function GetModule(self, name, silent) - if not self.modules[name] and not silent then - error(("Usage: GetModule(name, silent): 'name' - Cannot find module '%s'."):format(tostring(name)), 2) - end - return self.modules[name] -end - -local function IsModuleTrue(self) return true end - ---- Create a new module for the addon. --- The new module can have its own embeded libraries and/or use a module prototype to be mixed into the module.\\ --- A module has the same functionality as a real addon, it can have modules of its own, and has the same API as --- an addon object. --- @name //addon//:NewModule --- @paramsig name[, prototype|lib[, lib, ...]] --- @param name unique name of the module --- @param prototype object to derive this module from, methods and values from this table will be mixed into the module (optional) --- @param lib List of libraries to embed into the addon --- @usage --- -- Create a module with some embeded libraries --- MyModule = MyAddon:NewModule("MyModule", "AceEvent-3.0", "AceHook-3.0") --- --- -- Create a module with a prototype --- local prototype = { OnEnable = function(self) print("OnEnable called!") end } --- MyModule = MyAddon:NewModule("MyModule", prototype, "AceEvent-3.0", "AceHook-3.0") -function NewModule(self, name, prototype, ...) - if type(name) ~= "string" then error(("Usage: NewModule(name, [prototype, [lib, lib, lib, ...]): 'name' - string expected got '%s'."):format(type(name)), 2) end - if type(prototype) ~= "string" and type(prototype) ~= "table" and type(prototype) ~= "nil" then error(("Usage: NewModule(name, [prototype, [lib, lib, lib, ...]): 'prototype' - table (prototype), string (lib) or nil expected got '%s'."):format(type(prototype)), 2) end - - if self.modules[name] then error(("Usage: NewModule(name, [prototype, [lib, lib, lib, ...]): 'name' - Module '%s' already exists."):format(name), 2) end - - -- modules are basically addons. We treat them as such. They will be added to the initializequeue properly as well. - -- NewModule can only be called after the parent addon is present thus the modules will be initialized after their parent is. - local module = AceAddon:NewAddon(fmt("%s_%s", self.name or tostring(self), name)) - - module.IsModule = IsModuleTrue - module:SetEnabledState(self.defaultModuleState) - module.moduleName = name - - if type(prototype) == "string" then - AceAddon:EmbedLibraries(module, prototype, ...) - else - AceAddon:EmbedLibraries(module, ...) - end - AceAddon:EmbedLibraries(module, unpack(self.defaultModuleLibraries)) - - if not prototype or type(prototype) == "string" then - prototype = self.defaultModulePrototype or nil - end - - if type(prototype) == "table" then - local mt = getmetatable(module) - mt.__index = prototype - setmetatable(module, mt) -- More of a Base class type feel. - end - - safecall(self.OnModuleCreated, self, module) -- Was in Ace2 and I think it could be a cool thing to have handy. - self.modules[name] = module - tinsert(self.orderedModules, module) - - return module -end - ---- Returns the real name of the addon or module, without any prefix. --- @name //addon//:GetName --- @paramsig --- @usage --- print(MyAddon:GetName()) --- -- prints "MyAddon" -function GetName(self) - return self.moduleName or self.name -end - ---- Enables the Addon, if possible, return true or false depending on success. --- This internally calls AceAddon:EnableAddon(), thus dispatching a OnEnable callback --- and enabling all modules of the addon (unless explicitly disabled).\\ --- :Enable() also sets the internal `enableState` variable to true --- @name //addon//:Enable --- @paramsig --- @usage --- -- Enable MyModule --- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") --- MyModule = MyAddon:GetModule("MyModule") --- MyModule:Enable() -function Enable(self) - self:SetEnabledState(true) - - -- nevcairiel 2013-04-27: don't enable an addon/module if its queued for init still - -- it'll be enabled after the init process - if not queuedForInitialization(self) then - return AceAddon:EnableAddon(self) - end -end - ---- Disables the Addon, if possible, return true or false depending on success. --- This internally calls AceAddon:DisableAddon(), thus dispatching a OnDisable callback --- and disabling all modules of the addon.\\ --- :Disable() also sets the internal `enableState` variable to false --- @name //addon//:Disable --- @paramsig --- @usage --- -- Disable MyAddon --- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") --- MyAddon:Disable() -function Disable(self) - self:SetEnabledState(false) - return AceAddon:DisableAddon(self) -end - ---- Enables the Module, if possible, return true or false depending on success. --- Short-hand function that retrieves the module via `:GetModule` and calls `:Enable` on the module object. --- @name //addon//:EnableModule --- @paramsig name --- @usage --- -- Enable MyModule using :GetModule --- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") --- MyModule = MyAddon:GetModule("MyModule") --- MyModule:Enable() --- --- -- Enable MyModule using the short-hand --- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") --- MyAddon:EnableModule("MyModule") -function EnableModule(self, name) - local module = self:GetModule( name ) - return module:Enable() -end - ---- Disables the Module, if possible, return true or false depending on success. --- Short-hand function that retrieves the module via `:GetModule` and calls `:Disable` on the module object. --- @name //addon//:DisableModule --- @paramsig name --- @usage --- -- Disable MyModule using :GetModule --- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") --- MyModule = MyAddon:GetModule("MyModule") --- MyModule:Disable() --- --- -- Disable MyModule using the short-hand --- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon") --- MyAddon:DisableModule("MyModule") -function DisableModule(self, name) - local module = self:GetModule( name ) - return module:Disable() -end - ---- Set the default libraries to be mixed into all modules created by this object. --- Note that you can only change the default module libraries before any module is created. --- @name //addon//:SetDefaultModuleLibraries --- @paramsig lib[, lib, ...] --- @param lib List of libraries to embed into the addon --- @usage --- -- Create the addon object --- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon") --- -- Configure default libraries for modules (all modules need AceEvent-3.0) --- MyAddon:SetDefaultModuleLibraries("AceEvent-3.0") --- -- Create a module --- MyModule = MyAddon:NewModule("MyModule") -function SetDefaultModuleLibraries(self, ...) - if next(self.modules) then - error("Usage: SetDefaultModuleLibraries(...): cannot change the module defaults after a module has been registered.", 2) - end - self.defaultModuleLibraries = {...} -end - ---- Set the default state in which new modules are being created. --- Note that you can only change the default state before any module is created. --- @name //addon//:SetDefaultModuleState --- @paramsig state --- @param state Default state for new modules, true for enabled, false for disabled --- @usage --- -- Create the addon object --- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon") --- -- Set the default state to "disabled" --- MyAddon:SetDefaultModuleState(false) --- -- Create a module and explicilty enable it --- MyModule = MyAddon:NewModule("MyModule") --- MyModule:Enable() -function SetDefaultModuleState(self, state) - if next(self.modules) then - error("Usage: SetDefaultModuleState(state): cannot change the module defaults after a module has been registered.", 2) - end - self.defaultModuleState = state -end - ---- Set the default prototype to use for new modules on creation. --- Note that you can only change the default prototype before any module is created. --- @name //addon//:SetDefaultModulePrototype --- @paramsig prototype --- @param prototype Default prototype for the new modules (table) --- @usage --- -- Define a prototype --- local prototype = { OnEnable = function(self) print("OnEnable called!") end } --- -- Set the default prototype --- MyAddon:SetDefaultModulePrototype(prototype) --- -- Create a module and explicitly Enable it --- MyModule = MyAddon:NewModule("MyModule") --- MyModule:Enable() --- -- should print "OnEnable called!" now --- @see NewModule -function SetDefaultModulePrototype(self, prototype) - if next(self.modules) then - error("Usage: SetDefaultModulePrototype(prototype): cannot change the module defaults after a module has been registered.", 2) - end - if type(prototype) ~= "table" then - error(("Usage: SetDefaultModulePrototype(prototype): 'prototype' - table expected got '%s'."):format(type(prototype)), 2) - end - self.defaultModulePrototype = prototype -end - ---- Set the state of an addon or module --- This should only be called before any enabling actually happend, e.g. in/before OnInitialize. --- @name //addon//:SetEnabledState --- @paramsig state --- @param state the state of an addon or module (enabled=true, disabled=false) -function SetEnabledState(self, state) - self.enabledState = state -end - - ---- Return an iterator of all modules associated to the addon. --- @name //addon//:IterateModules --- @paramsig --- @usage --- -- Enable all modules --- for name, module in MyAddon:IterateModules() do --- module:Enable() --- end -local function IterateModules(self) return pairs(self.modules) end - --- Returns an iterator of all embeds in the addon --- @name //addon//:IterateEmbeds --- @paramsig -local function IterateEmbeds(self) return pairs(AceAddon.embeds[self]) end - ---- Query the enabledState of an addon. --- @name //addon//:IsEnabled --- @paramsig --- @usage --- if MyAddon:IsEnabled() then --- MyAddon:Disable() --- end -local function IsEnabled(self) return self.enabledState end -local mixins = { - NewModule = NewModule, - GetModule = GetModule, - Enable = Enable, - Disable = Disable, - EnableModule = EnableModule, - DisableModule = DisableModule, - IsEnabled = IsEnabled, - SetDefaultModuleLibraries = SetDefaultModuleLibraries, - SetDefaultModuleState = SetDefaultModuleState, - SetDefaultModulePrototype = SetDefaultModulePrototype, - SetEnabledState = SetEnabledState, - IterateModules = IterateModules, - IterateEmbeds = IterateEmbeds, - GetName = GetName, -} -local function IsModule(self) return false end -local pmixins = { - defaultModuleState = true, - enabledState = true, - IsModule = IsModule, -} --- Embed( target ) --- target (object) - target object to embed aceaddon in --- --- this is a local function specifically since it's meant to be only called internally -function Embed(target, skipPMixins) - for k, v in pairs(mixins) do - target[k] = v - end - if not skipPMixins then - for k, v in pairs(pmixins) do - target[k] = target[k] or v - end - end -end - - --- - Initialize the addon after creation. --- This function is only used internally during the ADDON_LOADED event --- It will call the **OnInitialize** function on the addon object (if present), --- and the **OnEmbedInitialize** function on all embeded libraries. --- --- **Note:** Do not call this function manually, unless you're absolutely sure that you know what you are doing. --- @param addon addon object to intialize -function AceAddon:InitializeAddon(addon) - safecall(addon.OnInitialize, addon) - - local embeds = self.embeds[addon] - for i = 1, #embeds do - local lib = LibStub:GetLibrary(embeds[i], true) - if lib then safecall(lib.OnEmbedInitialize, lib, addon) end - end - - -- we don't call InitializeAddon on modules specifically, this is handled - -- from the event handler and only done _once_ -end - --- - Enable the addon after creation. --- Note: This function is only used internally during the PLAYER_LOGIN event, or during ADDON_LOADED, --- if IsLoggedIn() already returns true at that point, e.g. for LoD Addons. --- It will call the **OnEnable** function on the addon object (if present), --- and the **OnEmbedEnable** function on all embeded libraries.\\ --- This function does not toggle the enable state of the addon itself, and will return early if the addon is disabled. --- --- **Note:** Do not call this function manually, unless you're absolutely sure that you know what you are doing. --- Use :Enable on the addon itself instead. --- @param addon addon object to enable -function AceAddon:EnableAddon(addon) - if type(addon) == "string" then addon = AceAddon:GetAddon(addon) end - if self.statuses[addon.name] or not addon.enabledState then return false end - - -- set the statuses first, before calling the OnEnable. this allows for Disabling of the addon in OnEnable. - self.statuses[addon.name] = true - - safecall(addon.OnEnable, addon) - - -- make sure we're still enabled before continueing - if self.statuses[addon.name] then - local embeds = self.embeds[addon] - for i = 1, #embeds do - local lib = LibStub:GetLibrary(embeds[i], true) - if lib then safecall(lib.OnEmbedEnable, lib, addon) end - end - - -- enable possible modules. - local modules = addon.orderedModules - for i = 1, #modules do - self:EnableAddon(modules[i]) - end - end - return self.statuses[addon.name] -- return true if we're disabled -end - --- - Disable the addon --- Note: This function is only used internally. --- It will call the **OnDisable** function on the addon object (if present), --- and the **OnEmbedDisable** function on all embeded libraries.\\ --- This function does not toggle the enable state of the addon itself, and will return early if the addon is still enabled. --- --- **Note:** Do not call this function manually, unless you're absolutely sure that you know what you are doing. --- Use :Disable on the addon itself instead. --- @param addon addon object to enable -function AceAddon:DisableAddon(addon) - if type(addon) == "string" then addon = AceAddon:GetAddon(addon) end - if not self.statuses[addon.name] then return false end - - -- set statuses first before calling OnDisable, this allows for aborting the disable in OnDisable. - self.statuses[addon.name] = false - - safecall( addon.OnDisable, addon ) - - -- make sure we're still disabling... - if not self.statuses[addon.name] then - local embeds = self.embeds[addon] - for i = 1, #embeds do - local lib = LibStub:GetLibrary(embeds[i], true) - if lib then safecall(lib.OnEmbedDisable, lib, addon) end - end - -- disable possible modules. - local modules = addon.orderedModules - for i = 1, #modules do - self:DisableAddon(modules[i]) - end - end - - return not self.statuses[addon.name] -- return true if we're disabled -end - ---- Get an iterator over all registered addons. --- @usage --- -- Print a list of all installed AceAddon's --- for name, addon in AceAddon:IterateAddons() do --- print("Addon: " .. name) --- end -function AceAddon:IterateAddons() return pairs(self.addons) end - ---- Get an iterator over the internal status registry. --- @usage --- -- Print a list of all enabled addons --- for name, status in AceAddon:IterateAddonStatus() do --- if status then --- print("EnabledAddon: " .. name) --- end --- end -function AceAddon:IterateAddonStatus() return pairs(self.statuses) end - --- Following Iterators are deprecated, and their addon specific versions should be used --- e.g. addon:IterateEmbeds() instead of :IterateEmbedsOnAddon(addon) -function AceAddon:IterateEmbedsOnAddon(addon) return pairs(self.embeds[addon]) end -function AceAddon:IterateModulesOfAddon(addon) return pairs(addon.modules) end - --- Blizzard AddOns which can load very early in the loading process and mess with Ace3 addon loading -local BlizzardEarlyLoadAddons = { - Blizzard_DebugTools = true, - Blizzard_TimeManager = true, - Blizzard_BattlefieldMap = true, - Blizzard_MapCanvas = true, - Blizzard_SharedMapDataProviders = true, - Blizzard_CombatLog = true, -} - --- Event Handling -local function onEvent(this, event, arg1) - -- 2020-08-28 nevcairiel - ignore the load event of Blizzard addons which occur early in the loading process - if (event == "ADDON_LOADED" and (arg1 == nil or not BlizzardEarlyLoadAddons[arg1])) or event == "PLAYER_LOGIN" then - -- if a addon loads another addon, recursion could happen here, so we need to validate the table on every iteration - while(#AceAddon.initializequeue > 0) do - local addon = tremove(AceAddon.initializequeue, 1) - -- this might be an issue with recursion - TODO: validate - if event == "ADDON_LOADED" then addon.baseName = arg1 end - AceAddon:InitializeAddon(addon) - tinsert(AceAddon.enablequeue, addon) - end - - if IsLoggedIn() then - while(#AceAddon.enablequeue > 0) do - local addon = tremove(AceAddon.enablequeue, 1) - AceAddon:EnableAddon(addon) - end - end - end -end - -AceAddon.frame:RegisterEvent("ADDON_LOADED") -AceAddon.frame:RegisterEvent("PLAYER_LOGIN") -AceAddon.frame:SetScript("OnEvent", onEvent) - --- upgrade embeded -for name, addon in pairs(AceAddon.addons) do - Embed(addon, true) -end - --- 2010-10-27 nevcairiel - add new "orderedModules" table -if oldminor and oldminor < 10 then - for name, addon in pairs(AceAddon.addons) do - addon.orderedModules = {} - for module_name, module in pairs(addon.modules) do - tinsert(addon.orderedModules, module) - end - end -end diff --git a/Titan/libs/AceAddon-3.0/AceAddon-3.0.xml b/Titan/libs/AceAddon-3.0/AceAddon-3.0.xml deleted file mode 100755 index c607008..0000000 --- a/Titan/libs/AceAddon-3.0/AceAddon-3.0.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="AceAddon-3.0.lua"/> -</Ui> diff --git a/Titan/libs/AceConfig-3.0/AceConfig-3.0.lua b/Titan/libs/AceConfig-3.0/AceConfig-3.0.lua deleted file mode 100755 index aae348b..0000000 --- a/Titan/libs/AceConfig-3.0/AceConfig-3.0.lua +++ /dev/null @@ -1,58 +0,0 @@ ---- AceConfig-3.0 wrapper library. --- Provides an API to register an options table with the config registry, --- as well as associate it with a slash command. --- @class file --- @name AceConfig-3.0 --- @release $Id: AceConfig-3.0.lua 1202 2019-05-15 23:11:22Z nevcairiel $ - ---[[ -AceConfig-3.0 - -Very light wrapper library that combines all the AceConfig subcomponents into one more easily used whole. - -]] - -local cfgreg = LibStub("AceConfigRegistry-3.0") -local cfgcmd = LibStub("AceConfigCmd-3.0") - -local MAJOR, MINOR = "AceConfig-3.0", 3 -local AceConfig = LibStub:NewLibrary(MAJOR, MINOR) - -if not AceConfig then return end - ---TODO: local cfgdlg = LibStub("AceConfigDialog-3.0", true) ---TODO: local cfgdrp = LibStub("AceConfigDropdown-3.0", true) - --- Lua APIs -local pcall, error, type, pairs = pcall, error, type, pairs - --- ------------------------------------------------------------------- --- :RegisterOptionsTable(appName, options, slashcmd, persist) --- --- - appName - (string) application name --- - options - table or function ref, see AceConfigRegistry --- - slashcmd - slash command (string) or table with commands, or nil to NOT create a slash command - ---- Register a option table with the AceConfig registry. --- You can supply a slash command (or a table of slash commands) to register with AceConfigCmd directly. --- @paramsig appName, options [, slashcmd] --- @param appName The application name for the config table. --- @param options The option table (or a function to generate one on demand). http://www.wowace.com/addons/ace3/pages/ace-config-3-0-options-tables/ --- @param slashcmd A slash command to register for the option table, or a table of slash commands. --- @usage --- local AceConfig = LibStub("AceConfig-3.0") --- AceConfig:RegisterOptionsTable("MyAddon", myOptions, {"/myslash", "/my"}) -function AceConfig:RegisterOptionsTable(appName, options, slashcmd) - local ok,msg = pcall(cfgreg.RegisterOptionsTable, self, appName, options) - if not ok then error(msg, 2) end - - if slashcmd then - if type(slashcmd) == "table" then - for _,cmd in pairs(slashcmd) do - cfgcmd:CreateChatCommand(cmd, appName) - end - else - cfgcmd:CreateChatCommand(slashcmd, appName) - end - end -end diff --git a/Titan/libs/AceConfig-3.0/AceConfig-3.0.xml b/Titan/libs/AceConfig-3.0/AceConfig-3.0.xml deleted file mode 100755 index 84c8d03..0000000 --- a/Titan/libs/AceConfig-3.0/AceConfig-3.0.xml +++ /dev/null @@ -1,8 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Include file="AceConfigRegistry-3.0\AceConfigRegistry-3.0.xml"/> - <Include file="AceConfigCmd-3.0\AceConfigCmd-3.0.xml"/> - <Include file="AceConfigDialog-3.0\AceConfigDialog-3.0.xml"/> - <!--<Include file="AceConfigDropdown-3.0\AceConfigDropdown-3.0.xml"/>--> - <Script file="AceConfig-3.0.lua"/> -</Ui> diff --git a/Titan/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.lua b/Titan/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.lua deleted file mode 100755 index 8bac7e3..0000000 --- a/Titan/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.lua +++ /dev/null @@ -1,794 +0,0 @@ ---- AceConfigCmd-3.0 handles access to an options table through the "command line" interface via the ChatFrames. --- @class file --- @name AceConfigCmd-3.0 --- @release $Id: AceConfigCmd-3.0.lua 1202 2019-05-15 23:11:22Z nevcairiel $ - ---[[ -AceConfigCmd-3.0 - -Handles commandline optionstable access - -REQUIRES: AceConsole-3.0 for command registration (loaded on demand) - -]] - --- TODO: plugin args - -local cfgreg = LibStub("AceConfigRegistry-3.0") - -local MAJOR, MINOR = "AceConfigCmd-3.0", 14 -local AceConfigCmd = LibStub:NewLibrary(MAJOR, MINOR) - -if not AceConfigCmd then return end - -AceConfigCmd.commands = AceConfigCmd.commands or {} -local commands = AceConfigCmd.commands - -local AceConsole -- LoD -local AceConsoleName = "AceConsole-3.0" - --- Lua APIs -local strsub, strsplit, strlower, strmatch, strtrim = string.sub, string.split, string.lower, string.match, string.trim -local format, tonumber, tostring = string.format, tonumber, tostring -local tsort, tinsert = table.sort, table.insert -local select, pairs, next, type = select, pairs, next, type -local error, assert = error, assert - --- WoW APIs -local _G = _G - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: LibStub, SELECTED_CHAT_FRAME, DEFAULT_CHAT_FRAME - - -local L = setmetatable({}, { -- TODO: replace with proper locale - __index = function(self,k) return k end -}) - - - -local function print(msg) - (SELECTED_CHAT_FRAME or DEFAULT_CHAT_FRAME):AddMessage(msg) -end - --- constants used by getparam() calls below - -local handlertypes = {["table"]=true} -local handlermsg = "expected a table" - -local functypes = {["function"]=true, ["string"]=true} -local funcmsg = "expected function or member name" - - --- pickfirstset() - picks the first non-nil value and returns it - -local function pickfirstset(...) - for i=1,select("#",...) do - if select(i,...)~=nil then - return select(i,...) - end - end -end - - --- err() - produce real error() regarding malformed options tables etc - -local function err(info,inputpos,msg ) - local cmdstr=" "..strsub(info.input, 1, inputpos-1) - error(MAJOR..": /" ..info[0] ..cmdstr ..": "..(msg or "malformed options table"), 2) -end - - --- usererr() - produce chatframe message regarding bad slash syntax etc - -local function usererr(info,inputpos,msg ) - local cmdstr=strsub(info.input, 1, inputpos-1); - print("/" ..info[0] .. " "..cmdstr ..": "..(msg or "malformed options table")) -end - - --- callmethod() - call a given named method (e.g. "get", "set") with given arguments - -local function callmethod(info, inputpos, tab, methodtype, ...) - local method = info[methodtype] - if not method then - err(info, inputpos, "'"..methodtype.."': not set") - end - - info.arg = tab.arg - info.option = tab - info.type = tab.type - - if type(method)=="function" then - return method(info, ...) - elseif type(method)=="string" then - if type(info.handler[method])~="function" then - err(info, inputpos, "'"..methodtype.."': '"..method.."' is not a member function of "..tostring(info.handler)) - end - return info.handler[method](info.handler, info, ...) - else - assert(false) -- type should have already been checked on read - end -end - --- callfunction() - call a given named function (e.g. "name", "desc") with given arguments - -local function callfunction(info, tab, methodtype, ...) - local method = tab[methodtype] - - info.arg = tab.arg - info.option = tab - info.type = tab.type - - if type(method)=="function" then - return method(info, ...) - else - assert(false) -- type should have already been checked on read - end -end - --- do_final() - do the final step (set/execute) along with validation and confirmation - -local function do_final(info, inputpos, tab, methodtype, ...) - if info.validate then - local res = callmethod(info,inputpos,tab,"validate",...) - if type(res)=="string" then - usererr(info, inputpos, "'"..strsub(info.input, inputpos).."' - "..res) - return - end - end - -- console ignores .confirm - - callmethod(info,inputpos,tab,methodtype, ...) -end - - --- getparam() - used by handle() to retreive and store "handler", "get", "set", etc - -local function getparam(info, inputpos, tab, depth, paramname, types, errormsg) - local old,oldat = info[paramname], info[paramname.."_at"] - local val=tab[paramname] - if val~=nil then - if val==false then - val=nil - elseif not types[type(val)] then - err(info, inputpos, "'" .. paramname.. "' - "..errormsg) - end - info[paramname] = val - info[paramname.."_at"] = depth - end - return old,oldat -end - - --- iterateargs(tab) - custom iterator that iterates both t.args and t.plugins.* -local dummytable={} - -local function iterateargs(tab) - if not tab.plugins then - return pairs(tab.args) - end - - local argtabkey,argtab=next(tab.plugins) - local v - - return function(_, k) - while argtab do - k,v = next(argtab, k) - if k then return k,v end - if argtab==tab.args then - argtab=nil - else - argtabkey,argtab = next(tab.plugins, argtabkey) - if not argtabkey then - argtab=tab.args - end - end - end - end -end - -local function checkhidden(info, inputpos, tab) - if tab.cmdHidden~=nil then - return tab.cmdHidden - end - local hidden = tab.hidden - if type(hidden) == "function" or type(hidden) == "string" then - info.hidden = hidden - hidden = callmethod(info, inputpos, tab, 'hidden') - info.hidden = nil - end - return hidden -end - -local function showhelp(info, inputpos, tab, depth, noHead) - if not noHead then - print("|cff33ff99"..info.appName.."|r: Arguments to |cffffff78/"..info[0].."|r "..strsub(info.input,1,inputpos-1)..":") - end - - local sortTbl = {} -- [1..n]=name - local refTbl = {} -- [name]=tableref - - for k,v in iterateargs(tab) do - if not refTbl[k] then -- a plugin overriding something in .args - tinsert(sortTbl, k) - refTbl[k] = v - end - end - - tsort(sortTbl, function(one, two) - local o1 = refTbl[one].order or 100 - local o2 = refTbl[two].order or 100 - if type(o1) == "function" or type(o1) == "string" then - info.order = o1 - info[#info+1] = one - o1 = callmethod(info, inputpos, refTbl[one], "order") - info[#info] = nil - info.order = nil - end - if type(o2) == "function" or type(o1) == "string" then - info.order = o2 - info[#info+1] = two - o2 = callmethod(info, inputpos, refTbl[two], "order") - info[#info] = nil - info.order = nil - end - if o1<0 and o2<0 then return o1<o2 end - if o2<0 then return true end - if o1<0 then return false end - if o1==o2 then return tostring(one)<tostring(two) end -- compare names - return o1<o2 - end) - - for i = 1, #sortTbl do - local k = sortTbl[i] - local v = refTbl[k] - if not checkhidden(info, inputpos, v) then - if v.type ~= "description" and v.type ~= "header" then - -- recursively show all inline groups - local name, desc = v.name, v.desc - if type(name) == "function" then - name = callfunction(info, v, 'name') - end - if type(desc) == "function" then - desc = callfunction(info, v, 'desc') - end - if v.type == "group" and pickfirstset(v.cmdInline, v.inline, false) then - print(" "..(desc or name)..":") - local oldhandler,oldhandler_at = getparam(info, inputpos, v, depth, "handler", handlertypes, handlermsg) - showhelp(info, inputpos, v, depth, true) - info.handler,info.handler_at = oldhandler,oldhandler_at - else - local key = k:gsub(" ", "_") - print(" |cffffff78"..key.."|r - "..(desc or name or "")) - end - end - end - end -end - - -local function keybindingValidateFunc(text) - if text == nil or text == "NONE" then - return nil - end - text = text:upper() - local shift, ctrl, alt - local modifier - while true do - if text == "-" then - break - end - modifier, text = strsplit('-', text, 2) - if text then - if modifier ~= "SHIFT" and modifier ~= "CTRL" and modifier ~= "ALT" then - return false - end - if modifier == "SHIFT" then - if shift then - return false - end - shift = true - end - if modifier == "CTRL" then - if ctrl then - return false - end - ctrl = true - end - if modifier == "ALT" then - if alt then - return false - end - alt = true - end - else - text = modifier - break - end - end - if text == "" then - return false - end - if not text:find("^F%d+$") and text ~= "CAPSLOCK" and text:len() ~= 1 and (text:byte() < 128 or text:len() > 4) and not _G["KEY_" .. text] then - return false - end - local s = text - if shift then - s = "SHIFT-" .. s - end - if ctrl then - s = "CTRL-" .. s - end - if alt then - s = "ALT-" .. s - end - return s -end - --- handle() - selfrecursing function that processes input->optiontable --- - depth - starts at 0 --- - retfalse - return false rather than produce error if a match is not found (used by inlined groups) - -local function handle(info, inputpos, tab, depth, retfalse) - - if not(type(tab)=="table" and type(tab.type)=="string") then err(info,inputpos) end - - ------------------------------------------------------------------- - -- Grab hold of handler,set,get,func,etc if set (and remember old ones) - -- Note that we do NOT validate if method names are correct at this stage, - -- the handler may change before they're actually used! - - local oldhandler,oldhandler_at = getparam(info,inputpos,tab,depth,"handler",handlertypes,handlermsg) - local oldset,oldset_at = getparam(info,inputpos,tab,depth,"set",functypes,funcmsg) - local oldget,oldget_at = getparam(info,inputpos,tab,depth,"get",functypes,funcmsg) - local oldfunc,oldfunc_at = getparam(info,inputpos,tab,depth,"func",functypes,funcmsg) - local oldvalidate,oldvalidate_at = getparam(info,inputpos,tab,depth,"validate",functypes,funcmsg) - --local oldconfirm,oldconfirm_at = getparam(info,inputpos,tab,depth,"confirm",functypes,funcmsg) - - ------------------------------------------------------------------- - -- Act according to .type of this table - - if tab.type=="group" then - ------------ group -------------------------------------------- - - if type(tab.args)~="table" then err(info, inputpos) end - if tab.plugins and type(tab.plugins)~="table" then err(info,inputpos) end - - -- grab next arg from input - local _,nextpos,arg = (info.input):find(" *([^ ]+) *", inputpos) - if not arg then - showhelp(info, inputpos, tab, depth) - return - end - nextpos=nextpos+1 - - -- loop .args and try to find a key with a matching name - for k,v in iterateargs(tab) do - if not(type(k)=="string" and type(v)=="table" and type(v.type)=="string") then err(info,inputpos, "options table child '"..tostring(k).."' is malformed") end - - -- is this child an inline group? if so, traverse into it - if v.type=="group" and pickfirstset(v.cmdInline, v.inline, false) then - info[depth+1] = k - if handle(info, inputpos, v, depth+1, true)==false then - info[depth+1] = nil - -- wasn't found in there, but that's ok, we just keep looking down here - else - return -- done, name was found in inline group - end - -- matching name and not a inline group - elseif strlower(arg)==strlower(k:gsub(" ", "_")) then - info[depth+1] = k - return handle(info,nextpos,v,depth+1) - end - end - - -- no match - if retfalse then - -- restore old infotable members and return false to indicate failure - info.handler,info.handler_at = oldhandler,oldhandler_at - info.set,info.set_at = oldset,oldset_at - info.get,info.get_at = oldget,oldget_at - info.func,info.func_at = oldfunc,oldfunc_at - info.validate,info.validate_at = oldvalidate,oldvalidate_at - --info.confirm,info.confirm_at = oldconfirm,oldconfirm_at - return false - end - - -- couldn't find the command, display error - usererr(info, inputpos, "'"..arg.."' - " .. L["unknown argument"]) - return - end - - local str = strsub(info.input,inputpos); - - if tab.type=="execute" then - ------------ execute -------------------------------------------- - do_final(info, inputpos, tab, "func") - - - - elseif tab.type=="input" then - ------------ input -------------------------------------------- - - local res = true - if tab.pattern then - if not(type(tab.pattern)=="string") then err(info, inputpos, "'pattern' - expected a string") end - if not strmatch(str, tab.pattern) then - usererr(info, inputpos, "'"..str.."' - " .. L["invalid input"]) - return - end - end - - do_final(info, inputpos, tab, "set", str) - - - - elseif tab.type=="toggle" then - ------------ toggle -------------------------------------------- - local b - local str = strtrim(strlower(str)) - if str=="" then - b = callmethod(info, inputpos, tab, "get") - - if tab.tristate then - --cycle in true, nil, false order - if b then - b = nil - elseif b == nil then - b = false - else - b = true - end - else - b = not b - end - - elseif str==L["on"] then - b = true - elseif str==L["off"] then - b = false - elseif tab.tristate and str==L["default"] then - b = nil - else - if tab.tristate then - usererr(info, inputpos, format(L["'%s' - expected 'on', 'off' or 'default', or no argument to toggle."], str)) - else - usererr(info, inputpos, format(L["'%s' - expected 'on' or 'off', or no argument to toggle."], str)) - end - return - end - - do_final(info, inputpos, tab, "set", b) - - - elseif tab.type=="range" then - ------------ range -------------------------------------------- - local val = tonumber(str) - if not val then - usererr(info, inputpos, "'"..str.."' - "..L["expected number"]) - return - end - if type(info.step)=="number" then - val = val- (val % info.step) - end - if type(info.min)=="number" and val<info.min then - usererr(info, inputpos, val.." - "..format(L["must be equal to or higher than %s"], tostring(info.min)) ) - return - end - if type(info.max)=="number" and val>info.max then - usererr(info, inputpos, val.." - "..format(L["must be equal to or lower than %s"], tostring(info.max)) ) - return - end - - do_final(info, inputpos, tab, "set", val) - - - elseif tab.type=="select" then - ------------ select ------------------------------------ - local str = strtrim(strlower(str)) - - local values = tab.values - if type(values) == "function" or type(values) == "string" then - info.values = values - values = callmethod(info, inputpos, tab, "values") - info.values = nil - end - - if str == "" then - local b = callmethod(info, inputpos, tab, "get") - local fmt = "|cffffff78- [%s]|r %s" - local fmt_sel = "|cffffff78- [%s]|r %s |cffff0000*|r" - print(L["Options for |cffffff78"..info[#info].."|r:"]) - for k, v in pairs(values) do - if b == k then - print(fmt_sel:format(k, v)) - else - print(fmt:format(k, v)) - end - end - return - end - - local ok - for k,v in pairs(values) do - if strlower(k)==str then - str = k -- overwrite with key (in case of case mismatches) - ok = true - break - end - end - if not ok then - usererr(info, inputpos, "'"..str.."' - "..L["unknown selection"]) - return - end - - do_final(info, inputpos, tab, "set", str) - - elseif tab.type=="multiselect" then - ------------ multiselect ------------------------------------------- - local str = strtrim(strlower(str)) - - local values = tab.values - if type(values) == "function" or type(values) == "string" then - info.values = values - values = callmethod(info, inputpos, tab, "values") - info.values = nil - end - - if str == "" then - local fmt = "|cffffff78- [%s]|r %s" - local fmt_sel = "|cffffff78- [%s]|r %s |cffff0000*|r" - print(L["Options for |cffffff78"..info[#info].."|r (multiple possible):"]) - for k, v in pairs(values) do - if callmethod(info, inputpos, tab, "get", k) then - print(fmt_sel:format(k, v)) - else - print(fmt:format(k, v)) - end - end - return - end - - --build a table of the selections, checking that they exist - --parse for =on =off =default in the process - --table will be key = true for options that should toggle, key = [on|off|default] for options to be set - local sels = {} - for v in str:gmatch("[^ ]+") do - --parse option=on etc - local opt, val = v:match('(.+)=(.+)') - --get option if toggling - if not opt then - opt = v - end - - --check that the opt is valid - local ok - for k,v in pairs(values) do - if strlower(k)==opt then - opt = k -- overwrite with key (in case of case mismatches) - ok = true - break - end - end - - if not ok then - usererr(info, inputpos, "'"..opt.."' - "..L["unknown selection"]) - return - end - - --check that if val was supplied it is valid - if val then - if val == L["on"] or val == L["off"] or (tab.tristate and val == L["default"]) then - --val is valid insert it - sels[opt] = val - else - if tab.tristate then - usererr(info, inputpos, format(L["'%s' '%s' - expected 'on', 'off' or 'default', or no argument to toggle."], v, val)) - else - usererr(info, inputpos, format(L["'%s' '%s' - expected 'on' or 'off', or no argument to toggle."], v, val)) - end - return - end - else - -- no val supplied, toggle - sels[opt] = true - end - end - - for opt, val in pairs(sels) do - local newval - - if (val == true) then - --toggle the option - local b = callmethod(info, inputpos, tab, "get", opt) - - if tab.tristate then - --cycle in true, nil, false order - if b then - b = nil - elseif b == nil then - b = false - else - b = true - end - else - b = not b - end - newval = b - else - --set the option as specified - if val==L["on"] then - newval = true - elseif val==L["off"] then - newval = false - elseif val==L["default"] then - newval = nil - end - end - - do_final(info, inputpos, tab, "set", opt, newval) - end - - - elseif tab.type=="color" then - ------------ color -------------------------------------------- - local str = strtrim(strlower(str)) - if str == "" then - --TODO: Show current value - return - end - - local r, g, b, a - - local hasAlpha = tab.hasAlpha - if type(hasAlpha) == "function" or type(hasAlpha) == "string" then - info.hasAlpha = hasAlpha - hasAlpha = callmethod(info, inputpos, tab, 'hasAlpha') - info.hasAlpha = nil - end - - if hasAlpha then - if str:len() == 8 and str:find("^%x*$") then - --parse a hex string - r,g,b,a = tonumber(str:sub(1, 2), 16) / 255, tonumber(str:sub(3, 4), 16) / 255, tonumber(str:sub(5, 6), 16) / 255, tonumber(str:sub(7, 8), 16) / 255 - else - --parse seperate values - r,g,b,a = str:match("^([%d%.]+) ([%d%.]+) ([%d%.]+) ([%d%.]+)$") - r,g,b,a = tonumber(r), tonumber(g), tonumber(b), tonumber(a) - end - if not (r and g and b and a) then - usererr(info, inputpos, format(L["'%s' - expected 'RRGGBBAA' or 'r g b a'."], str)) - return - end - - if r >= 0.0 and r <= 1.0 and g >= 0.0 and g <= 1.0 and b >= 0.0 and b <= 1.0 and a >= 0.0 and a <= 1.0 then - --values are valid - elseif r >= 0 and r <= 255 and g >= 0 and g <= 255 and b >= 0 and b <= 255 and a >= 0 and a <= 255 then - --values are valid 0..255, convert to 0..1 - r = r / 255 - g = g / 255 - b = b / 255 - a = a / 255 - else - --values are invalid - usererr(info, inputpos, format(L["'%s' - values must all be either in the range 0..1 or 0..255."], str)) - end - else - a = 1.0 - if str:len() == 6 and str:find("^%x*$") then - --parse a hex string - r,g,b = tonumber(str:sub(1, 2), 16) / 255, tonumber(str:sub(3, 4), 16) / 255, tonumber(str:sub(5, 6), 16) / 255 - else - --parse seperate values - r,g,b = str:match("^([%d%.]+) ([%d%.]+) ([%d%.]+)$") - r,g,b = tonumber(r), tonumber(g), tonumber(b) - end - if not (r and g and b) then - usererr(info, inputpos, format(L["'%s' - expected 'RRGGBB' or 'r g b'."], str)) - return - end - if r >= 0.0 and r <= 1.0 and g >= 0.0 and g <= 1.0 and b >= 0.0 and b <= 1.0 then - --values are valid - elseif r >= 0 and r <= 255 and g >= 0 and g <= 255 and b >= 0 and b <= 255 then - --values are valid 0..255, convert to 0..1 - r = r / 255 - g = g / 255 - b = b / 255 - else - --values are invalid - usererr(info, inputpos, format(L["'%s' - values must all be either in the range 0-1 or 0-255."], str)) - end - end - - do_final(info, inputpos, tab, "set", r,g,b,a) - - elseif tab.type=="keybinding" then - ------------ keybinding -------------------------------------------- - local str = strtrim(strlower(str)) - if str == "" then - --TODO: Show current value - return - end - local value = keybindingValidateFunc(str:upper()) - if value == false then - usererr(info, inputpos, format(L["'%s' - Invalid Keybinding."], str)) - return - end - - do_final(info, inputpos, tab, "set", value) - - elseif tab.type=="description" then - ------------ description -------------------- - -- ignore description, GUI config only - else - err(info, inputpos, "unknown options table item type '"..tostring(tab.type).."'") - end -end - ---- Handle the chat command. --- This is usually called from a chat command handler to parse the command input as operations on an aceoptions table.\\ --- AceConfigCmd uses this function internally when a slash command is registered with `:CreateChatCommand` --- @param slashcmd The slash command WITHOUT leading slash (only used for error output) --- @param appName The application name as given to `:RegisterOptionsTable()` --- @param input The commandline input (as given by the WoW handler, i.e. without the command itself) --- @usage --- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon", "AceConsole-3.0") --- -- Use AceConsole-3.0 to register a Chat Command --- MyAddon:RegisterChatCommand("mychat", "ChatCommand") --- --- -- Show the GUI if no input is supplied, otherwise handle the chat input. --- function MyAddon:ChatCommand(input) --- -- Assuming "MyOptions" is the appName of a valid options table --- if not input or input:trim() == "" then --- LibStub("AceConfigDialog-3.0"):Open("MyOptions") --- else --- LibStub("AceConfigCmd-3.0").HandleCommand(MyAddon, "mychat", "MyOptions", input) --- end --- end -function AceConfigCmd:HandleCommand(slashcmd, appName, input) - - local optgetter = cfgreg:GetOptionsTable(appName) - if not optgetter then - error([[Usage: HandleCommand("slashcmd", "appName", "input"): 'appName' - no options table "]]..tostring(appName)..[[" has been registered]], 2) - end - local options = assert( optgetter("cmd", MAJOR) ) - - local info = { -- Don't try to recycle this, it gets handed off to callbacks and whatnot - [0] = slashcmd, - appName = appName, - options = options, - input = input, - self = self, - handler = self, - uiType = "cmd", - uiName = MAJOR, - } - - handle(info, 1, options, 0) -- (info, inputpos, table, depth) -end - ---- Utility function to create a slash command handler. --- Also registers tab completion with AceTab --- @param slashcmd The slash command WITHOUT leading slash (only used for error output) --- @param appName The application name as given to `:RegisterOptionsTable()` -function AceConfigCmd:CreateChatCommand(slashcmd, appName) - if not AceConsole then - AceConsole = LibStub(AceConsoleName) - end - if AceConsole.RegisterChatCommand(self, slashcmd, function(input) - AceConfigCmd.HandleCommand(self, slashcmd, appName, input) -- upgradable - end, - true) then -- succesfully registered so lets get the command -> app table in - commands[slashcmd] = appName - end -end - ---- Utility function that returns the options table that belongs to a slashcommand. --- Designed to be used for the AceTab interface. --- @param slashcmd The slash command WITHOUT leading slash (only used for error output) --- @return The options table associated with the slash command (or nil if the slash command was not registered) -function AceConfigCmd:GetChatCommandOptions(slashcmd) - return commands[slashcmd] -end diff --git a/Titan/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.xml b/Titan/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.xml deleted file mode 100755 index c8caf34..0000000 --- a/Titan/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="AceConfigCmd-3.0.lua"/> -</Ui> diff --git a/Titan/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua b/Titan/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua deleted file mode 100755 index b6ac529..0000000 --- a/Titan/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua +++ /dev/null @@ -1,2015 +0,0 @@ ---- AceConfigDialog-3.0 generates AceGUI-3.0 based windows based on option tables. --- @class file --- @name AceConfigDialog-3.0 --- @release $Id: AceConfigDialog-3.0.lua 1232 2020-04-14 22:21:22Z nevcairiel $ - -local LibStub = LibStub -local gui = LibStub("AceGUI-3.0") -local reg = LibStub("AceConfigRegistry-3.0") - -local MAJOR, MINOR = "AceConfigDialog-3.0", 79 -local AceConfigDialog, oldminor = LibStub:NewLibrary(MAJOR, MINOR) - -if not AceConfigDialog then return end - -AceConfigDialog.OpenFrames = AceConfigDialog.OpenFrames or {} -AceConfigDialog.Status = AceConfigDialog.Status or {} -AceConfigDialog.frame = AceConfigDialog.frame or CreateFrame("Frame") -AceConfigDialog.tooltip = AceConfigDialog.tooltip or CreateFrame("GameTooltip", "AceConfigDialogTooltip", UIParent, "GameTooltipTemplate") - -AceConfigDialog.frame.apps = AceConfigDialog.frame.apps or {} -AceConfigDialog.frame.closing = AceConfigDialog.frame.closing or {} -AceConfigDialog.frame.closeAllOverride = AceConfigDialog.frame.closeAllOverride or {} - --- Lua APIs -local tinsert, tsort, tremove = table.insert, table.sort, table.remove -local strmatch, format = string.match, string.format -local error = error -local pairs, next, select, type, unpack, wipe, ipairs = pairs, next, select, type, unpack, wipe, ipairs -local tostring, tonumber = tostring, tonumber -local math_min, math_max, math_floor = math.min, math.max, math.floor - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: NORMAL_FONT_COLOR, ACCEPT, CANCEL --- GLOBALS: PlaySound, GameFontHighlight, GameFontHighlightSmall, GameFontHighlightLarge --- GLOBALS: CloseSpecialWindows, InterfaceOptions_AddCategory, geterrorhandler - -local emptyTbl = {} - ---[[ - xpcall safecall implementation -]] -local xpcall = xpcall - -local function errorhandler(err) - return geterrorhandler()(err) -end - -local function safecall(func, ...) - if func then - return xpcall(func, errorhandler, ...) - end -end - -local width_multiplier = 170 - ---[[ -Group Types - Tree - All Descendant Groups will all become nodes on the tree, direct child options will appear above the tree - - Descendant Groups with inline=true and thier children will not become nodes - - Tab - Direct Child Groups will become tabs, direct child options will appear above the tab control - - Grandchild groups will default to inline unless specified otherwise - - Select- Same as Tab but with entries in a dropdown rather than tabs - - - Inline Groups - - Will not become nodes of a select group, they will be effectivly part of thier parent group seperated by a border - - If declared on a direct child of a root node of a select group, they will appear above the group container control - - When a group is displayed inline, all descendants will also be inline members of the group - -]] - --- Recycling functions -local new, del, copy ---newcount, delcount,createdcount,cached = 0,0,0 -do - local pool = setmetatable({},{__mode="k"}) - function new() - --newcount = newcount + 1 - local t = next(pool) - if t then - pool[t] = nil - return t - else - --createdcount = createdcount + 1 - return {} - end - end - function copy(t) - local c = new() - for k, v in pairs(t) do - c[k] = v - end - return c - end - function del(t) - --delcount = delcount + 1 - wipe(t) - pool[t] = true - end --- function cached() --- local n = 0 --- for k in pairs(pool) do --- n = n + 1 --- end --- return n --- end -end - --- picks the first non-nil value and returns it -local function pickfirstset(...) - for i=1,select("#",...) do - if select(i,...)~=nil then - return select(i,...) - end - end -end - ---gets an option from a given group, checking plugins -local function GetSubOption(group, key) - if group.plugins then - for plugin, t in pairs(group.plugins) do - if t[key] then - return t[key] - end - end - end - - return group.args[key] -end - ---Option member type definitions, used to decide how to access it - ---Is the member Inherited from parent options -local isInherited = { - set = true, - get = true, - func = true, - confirm = true, - validate = true, - disabled = true, - hidden = true -} - ---Does a string type mean a literal value, instead of the default of a method of the handler -local stringIsLiteral = { - name = true, - desc = true, - icon = true, - usage = true, - width = true, - image = true, - fontSize = true, -} - ---Is Never a function or method -local allIsLiteral = { - type = true, - descStyle = true, - imageWidth = true, - imageHeight = true, -} - ---gets the value for a member that could be a function ---function refs are called with an info arg ---every other type is returned -local function GetOptionsMemberValue(membername, option, options, path, appName, ...) - --get definition for the member - local inherits = isInherited[membername] - - - --get the member of the option, traversing the tree if it can be inherited - local member - - if inherits then - local group = options - if group[membername] ~= nil then - member = group[membername] - end - for i = 1, #path do - group = GetSubOption(group, path[i]) - if group[membername] ~= nil then - member = group[membername] - end - end - else - member = option[membername] - end - - --check if we need to call a functon, or if we have a literal value - if ( not allIsLiteral[membername] ) and ( type(member) == "function" or ((not stringIsLiteral[membername]) and type(member) == "string") ) then - --We have a function to call - local info = new() - --traverse the options table, picking up the handler and filling the info with the path - local handler - local group = options - handler = group.handler or handler - - for i = 1, #path do - group = GetSubOption(group, path[i]) - info[i] = path[i] - handler = group.handler or handler - end - - info.options = options - info.appName = appName - info[0] = appName - info.arg = option.arg - info.handler = handler - info.option = option - info.type = option.type - info.uiType = "dialog" - info.uiName = MAJOR - - local a, b, c ,d - --using 4 returns for the get of a color type, increase if a type needs more - if type(member) == "function" then - --Call the function - a,b,c,d = member(info, ...) - else - --Call the method - if handler and handler[member] then - a,b,c,d = handler[member](handler, info, ...) - else - error(format("Method %s doesn't exist in handler for type %s", member, membername)) - end - end - del(info) - return a,b,c,d - else - --The value isnt a function to call, return it - return member - end -end - ---[[calls an options function that could be inherited, method name or function ref -local function CallOptionsFunction(funcname ,option, options, path, appName, ...) - local info = new() - - local func - local group = options - local handler - - --build the info table containing the path - -- pick up functions while traversing the tree - if group[funcname] ~= nil then - func = group[funcname] - end - handler = group.handler or handler - - for i, v in ipairs(path) do - group = GetSubOption(group, v) - info[i] = v - if group[funcname] ~= nil then - func = group[funcname] - end - handler = group.handler or handler - end - - info.options = options - info[0] = appName - info.arg = option.arg - - local a, b, c ,d - if type(func) == "string" then - if handler and handler[func] then - a,b,c,d = handler[func](handler, info, ...) - else - error(string.format("Method %s doesn't exist in handler for type func", func)) - end - elseif type(func) == "function" then - a,b,c,d = func(info, ...) - end - del(info) - return a,b,c,d -end ---]] - ---tables to hold orders and names for options being sorted, will be created with new() ---prevents needing to call functions repeatedly while sorting -local tempOrders -local tempNames - -local function compareOptions(a,b) - if not a then - return true - end - if not b then - return false - end - local OrderA, OrderB = tempOrders[a] or 100, tempOrders[b] or 100 - if OrderA == OrderB then - local NameA = (type(tempNames[a]) == "string") and tempNames[a] or "" - local NameB = (type(tempNames[b]) == "string") and tempNames[b] or "" - return NameA:upper() < NameB:upper() - end - if OrderA < 0 then - if OrderB >= 0 then - return false - end - else - if OrderB < 0 then - return true - end - end - return OrderA < OrderB -end - - - ---builds 2 tables out of an options group --- keySort, sorted keys --- opts, combined options from .plugins and args -local function BuildSortedOptionsTable(group, keySort, opts, options, path, appName) - tempOrders = new() - tempNames = new() - - if group.plugins then - for plugin, t in pairs(group.plugins) do - for k, v in pairs(t) do - if not opts[k] then - tinsert(keySort, k) - opts[k] = v - - path[#path+1] = k - tempOrders[k] = GetOptionsMemberValue("order", v, options, path, appName) - tempNames[k] = GetOptionsMemberValue("name", v, options, path, appName) - path[#path] = nil - end - end - end - end - - for k, v in pairs(group.args) do - if not opts[k] then - tinsert(keySort, k) - opts[k] = v - - path[#path+1] = k - tempOrders[k] = GetOptionsMemberValue("order", v, options, path, appName) - tempNames[k] = GetOptionsMemberValue("name", v, options, path, appName) - path[#path] = nil - end - end - - tsort(keySort, compareOptions) - - del(tempOrders) - del(tempNames) -end - -local function DelTree(tree) - if tree.children then - local childs = tree.children - for i = 1, #childs do - DelTree(childs[i]) - del(childs[i]) - end - del(childs) - end -end - -local function CleanUserData(widget, event) - - local user = widget:GetUserDataTable() - - if user.path then - del(user.path) - end - - if widget.type == "TreeGroup" then - local tree = user.tree - widget:SetTree(nil) - if tree then - for i = 1, #tree do - DelTree(tree[i]) - del(tree[i]) - end - del(tree) - end - end - - if widget.type == "TabGroup" then - widget:SetTabs(nil) - if user.tablist then - del(user.tablist) - end - end - - if widget.type == "DropdownGroup" then - widget:SetGroupList(nil) - if user.grouplist then - del(user.grouplist) - end - if user.orderlist then - del(user.orderlist) - end - end -end - --- - Gets a status table for the given appname and options path. --- @param appName The application name as given to `:RegisterOptionsTable()` --- @param path The path to the options (a table with all group keys) --- @return -function AceConfigDialog:GetStatusTable(appName, path) - local status = self.Status - - if not status[appName] then - status[appName] = {} - status[appName].status = {} - status[appName].children = {} - end - - status = status[appName] - - if path then - for i = 1, #path do - local v = path[i] - if not status.children[v] then - status.children[v] = {} - status.children[v].status = {} - status.children[v].children = {} - end - status = status.children[v] - end - end - - return status.status -end - ---- Selects the specified path in the options window. --- The path specified has to match the keys of the groups in the table. --- @param appName The application name as given to `:RegisterOptionsTable()` --- @param ... The path to the key that should be selected -function AceConfigDialog:SelectGroup(appName, ...) - local path = new() - - - local app = reg:GetOptionsTable(appName) - if not app then - error(("%s isn't registed with AceConfigRegistry, unable to open config"):format(appName), 2) - end - local options = app("dialog", MAJOR) - local group = options - local status = self:GetStatusTable(appName, path) - if not status.groups then - status.groups = {} - end - status = status.groups - local treevalue - local treestatus - - for n = 1, select("#",...) do - local key = select(n, ...) - - if group.childGroups == "tab" or group.childGroups == "select" then - --if this is a tab or select group, select the group - status.selected = key - --children of this group are no longer extra levels of a tree - treevalue = nil - else - --tree group by default - if treevalue then - --this is an extra level of a tree group, build a uniquevalue for it - treevalue = treevalue.."\001"..key - else - --this is the top level of a tree group, the uniquevalue is the same as the key - treevalue = key - if not status.groups then - status.groups = {} - end - --save this trees status table for any extra levels or groups - treestatus = status - end - --make sure that the tree entry is open, and select it. - --the selected group will be overwritten if a child is the final target but still needs to be open - treestatus.selected = treevalue - treestatus.groups[treevalue] = true - - end - - --move to the next group in the path - group = GetSubOption(group, key) - if not group then - break - end - tinsert(path, key) - status = self:GetStatusTable(appName, path) - if not status.groups then - status.groups = {} - end - status = status.groups - end - - del(path) - reg:NotifyChange(appName) -end - -local function OptionOnMouseOver(widget, event) - --show a tooltip/set the status bar to the desc text - local user = widget:GetUserDataTable() - local opt = user.option - local options = user.options - local path = user.path - local appName = user.appName - local tooltip = AceConfigDialog.tooltip - - tooltip:SetOwner(widget.frame, "ANCHOR_TOPRIGHT") - local name = GetOptionsMemberValue("name", opt, options, path, appName) - local desc = GetOptionsMemberValue("desc", opt, options, path, appName) - local usage = GetOptionsMemberValue("usage", opt, options, path, appName) - local descStyle = opt.descStyle - - if descStyle and descStyle ~= "tooltip" then return end - - tooltip:SetText(name, 1, .82, 0, true) - - if opt.type == "multiselect" then - tooltip:AddLine(user.text, 0.5, 0.5, 0.8, true) - end - if type(desc) == "string" then - tooltip:AddLine(desc, 1, 1, 1, true) - end - if type(usage) == "string" then - tooltip:AddLine("Usage: "..usage, NORMAL_FONT_COLOR.r, NORMAL_FONT_COLOR.g, NORMAL_FONT_COLOR.b, true) - end - - tooltip:Show() -end - -local function OptionOnMouseLeave(widget, event) - AceConfigDialog.tooltip:Hide() -end - -local function GetFuncName(option) - local type = option.type - if type == "execute" then - return "func" - else - return "set" - end -end -do - local frame = AceConfigDialog.popup - if not frame then - frame = CreateFrame("Frame", nil, UIParent) - AceConfigDialog.popup = frame - frame:Hide() - frame:SetPoint("CENTER", UIParent, "CENTER") - frame:SetSize(320, 72) - frame:SetFrameStrata("TOOLTIP") - frame:SetScript("OnKeyDown", function(self, key) - if key == "ESCAPE" then - self:SetPropagateKeyboardInput(false) - if self.cancel:IsShown() then - self.cancel:Click() - else -- Showing a validation error - self:Hide() - end - else - self:SetPropagateKeyboardInput(true) - end - end) - - if WOW_PROJECT_ID == WOW_PROJECT_CLASSIC then - frame:SetBackdrop({ - bgFile = [[Interface\DialogFrame\UI-DialogBox-Background-Dark]], - edgeFile = [[Interface\DialogFrame\UI-DialogBox-Border]], - tile = true, - tileSize = 32, - edgeSize = 32, - insets = { left = 11, right = 11, top = 11, bottom = 11 }, - }) - else - local border = CreateFrame("Frame", nil, frame, "DialogBorderDarkTemplate") - border:SetAllPoints(frame) - end - - local text = frame:CreateFontString(nil, "ARTWORK", "GameFontHighlight") - text:SetSize(290, 0) - text:SetPoint("TOP", 0, -16) - frame.text = text - - local function newButton(text) - local button = CreateFrame("Button", nil, frame) - button:SetSize(128, 21) - button:SetNormalFontObject(GameFontNormal) - button:SetHighlightFontObject(GameFontHighlight) - button:SetNormalTexture(130763) -- "Interface\\Buttons\\UI-DialogBox-Button-Up" - button:GetNormalTexture():SetTexCoord(0.0, 1.0, 0.0, 0.71875) - button:SetPushedTexture(130761) -- "Interface\\Buttons\\UI-DialogBox-Button-Down" - button:GetPushedTexture():SetTexCoord(0.0, 1.0, 0.0, 0.71875) - button:SetHighlightTexture(130762) -- "Interface\\Buttons\\UI-DialogBox-Button-Highlight" - button:GetHighlightTexture():SetTexCoord(0.0, 1.0, 0.0, 0.71875) - button:SetText(text) - return button - end - - local accept = newButton(ACCEPT) - accept:SetPoint("BOTTOMRIGHT", frame, "BOTTOM", -6, 16) - frame.accept = accept - - local cancel = newButton(CANCEL) - cancel:SetPoint("LEFT", accept, "RIGHT", 13, 0) - frame.cancel = cancel - end -end -local function confirmPopup(appName, rootframe, basepath, info, message, func, ...) - local frame = AceConfigDialog.popup - frame:Show() - frame.text:SetText(message) - -- From StaticPopup.lua - -- local height = 32 + text:GetHeight() + 2; - -- height = height + 6 + accept:GetHeight() - -- We add 32 + 2 + 6 + 21 (button height) == 61 - local height = 61 + frame.text:GetHeight() - frame:SetHeight(height) - - frame.accept:ClearAllPoints() - frame.accept:SetPoint("BOTTOMRIGHT", frame, "BOTTOM", -6, 16) - frame.cancel:Show() - - local t = {...} - local tCount = select("#", ...) - frame.accept:SetScript("OnClick", function(self) - safecall(func, unpack(t, 1, tCount)) -- Manually set count as unpack() stops on nil (bug with #table) - AceConfigDialog:Open(appName, rootframe, unpack(basepath or emptyTbl)) - frame:Hide() - self:SetScript("OnClick", nil) - frame.cancel:SetScript("OnClick", nil) - del(info) - end) - frame.cancel:SetScript("OnClick", function(self) - AceConfigDialog:Open(appName, rootframe, unpack(basepath or emptyTbl)) - frame:Hide() - self:SetScript("OnClick", nil) - frame.accept:SetScript("OnClick", nil) - del(info) - end) -end - -local function validationErrorPopup(message) - local frame = AceConfigDialog.popup - frame:Show() - frame.text:SetText(message) - -- From StaticPopup.lua - -- local height = 32 + text:GetHeight() + 2; - -- height = height + 6 + accept:GetHeight() - -- We add 32 + 2 + 6 + 21 (button height) == 61 - local height = 61 + frame.text:GetHeight() - frame:SetHeight(height) - - frame.accept:ClearAllPoints() - frame.accept:SetPoint("BOTTOM", frame, "BOTTOM", 0, 16) - frame.cancel:Hide() - - frame.accept:SetScript("OnClick", function() - frame:Hide() - end) -end - -local function ActivateControl(widget, event, ...) - --This function will call the set / execute handler for the widget - --widget:GetUserDataTable() contains the needed info - local user = widget:GetUserDataTable() - local option = user.option - local options = user.options - local path = user.path - local info = new() - - local func - local group = options - local funcname = GetFuncName(option) - local handler - local confirm - local validate - --build the info table containing the path - -- pick up functions while traversing the tree - if group[funcname] ~= nil then - func = group[funcname] - end - handler = group.handler or handler - confirm = group.confirm - validate = group.validate - for i = 1, #path do - local v = path[i] - group = GetSubOption(group, v) - info[i] = v - if group[funcname] ~= nil then - func = group[funcname] - end - handler = group.handler or handler - if group.confirm ~= nil then - confirm = group.confirm - end - if group.validate ~= nil then - validate = group.validate - end - end - - info.options = options - info.appName = user.appName - info.arg = option.arg - info.handler = handler - info.option = option - info.type = option.type - info.uiType = "dialog" - info.uiName = MAJOR - - local name - if type(option.name) == "function" then - name = option.name(info) - elseif type(option.name) == "string" then - name = option.name - else - name = "" - end - local usage = option.usage - local pattern = option.pattern - - local validated = true - - if option.type == "input" then - if type(pattern)=="string" then - if not strmatch(..., pattern) then - validated = false - end - end - end - - local success - if validated and option.type ~= "execute" then - if type(validate) == "string" then - if handler and handler[validate] then - success, validated = safecall(handler[validate], handler, info, ...) - if not success then validated = false end - else - error(format("Method %s doesn't exist in handler for type execute", validate)) - end - elseif type(validate) == "function" then - success, validated = safecall(validate, info, ...) - if not success then validated = false end - end - end - - local rootframe = user.rootframe - if not validated or type(validated) == "string" then - if not validated then - if usage then - validated = name..": "..usage - else - if pattern then - validated = name..": Expected "..pattern - else - validated = name..": Invalid Value" - end - end - end - - -- show validate message - if rootframe.SetStatusText then - rootframe:SetStatusText(validated) - else - validationErrorPopup(validated) - end - PlaySound(882) -- SOUNDKIT.IG_PLAYER_INVITE_DECLINE || _DECLINE is actually missing from the table - del(info) - return true - else - - local confirmText = option.confirmText - --call confirm func/method - if type(confirm) == "string" then - if handler and handler[confirm] then - success, confirm = safecall(handler[confirm], handler, info, ...) - if success and type(confirm) == "string" then - confirmText = confirm - confirm = true - elseif not success then - confirm = false - end - else - error(format("Method %s doesn't exist in handler for type confirm", confirm)) - end - elseif type(confirm) == "function" then - success, confirm = safecall(confirm, info, ...) - if success and type(confirm) == "string" then - confirmText = confirm - confirm = true - elseif not success then - confirm = false - end - end - - --confirm if needed - if type(confirm) == "boolean" then - if confirm then - if not confirmText then - local name, desc = option.name, option.desc - if type(name) == "function" then - name = name(info) - end - if type(desc) == "function" then - desc = desc(info) - end - confirmText = name - if desc then - confirmText = confirmText.." - "..desc - end - end - - local iscustom = user.rootframe:GetUserData("iscustom") - local rootframe - - if iscustom then - rootframe = user.rootframe - end - local basepath = user.rootframe:GetUserData("basepath") - if type(func) == "string" then - if handler and handler[func] then - confirmPopup(user.appName, rootframe, basepath, info, confirmText, handler[func], handler, info, ...) - else - error(format("Method %s doesn't exist in handler for type func", func)) - end - elseif type(func) == "function" then - confirmPopup(user.appName, rootframe, basepath, info, confirmText, func, info, ...) - end - --func will be called and info deleted when the confirm dialog is responded to - return - end - end - - --call the function - if type(func) == "string" then - if handler and handler[func] then - safecall(handler[func],handler, info, ...) - else - error(format("Method %s doesn't exist in handler for type func", func)) - end - elseif type(func) == "function" then - safecall(func,info, ...) - end - - - - local iscustom = user.rootframe:GetUserData("iscustom") - local basepath = user.rootframe:GetUserData("basepath") or emptyTbl - --full refresh of the frame, some controls dont cause this on all events - if option.type == "color" then - if event == "OnValueConfirmed" then - - if iscustom then - AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath)) - else - AceConfigDialog:Open(user.appName, unpack(basepath)) - end - end - elseif option.type == "range" then - if event == "OnMouseUp" then - if iscustom then - AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath)) - else - AceConfigDialog:Open(user.appName, unpack(basepath)) - end - end - --multiselects don't cause a refresh on 'OnValueChanged' only 'OnClosed' - elseif option.type == "multiselect" then - user.valuechanged = true - else - if iscustom then - AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath)) - else - AceConfigDialog:Open(user.appName, unpack(basepath)) - end - end - - end - del(info) -end - -local function ActivateSlider(widget, event, value) - local option = widget:GetUserData("option") - local min, max, step = option.min or (not option.softMin and 0 or nil), option.max or (not option.softMax and 100 or nil), option.step - if min then - if step then - value = math_floor((value - min) / step + 0.5) * step + min - end - value = math_max(value, min) - end - if max then - value = math_min(value, max) - end - ActivateControl(widget,event,value) -end - ---called from a checkbox that is part of an internally created multiselect group ---this type is safe to refresh on activation of one control -local function ActivateMultiControl(widget, event, ...) - ActivateControl(widget, event, widget:GetUserData("value"), ...) - local user = widget:GetUserDataTable() - local iscustom = user.rootframe:GetUserData("iscustom") - local basepath = user.rootframe:GetUserData("basepath") or emptyTbl - if iscustom then - AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath)) - else - AceConfigDialog:Open(user.appName, unpack(basepath)) - end -end - -local function MultiControlOnClosed(widget, event, ...) - local user = widget:GetUserDataTable() - if user.valuechanged and not widget:IsReleasing() then - local iscustom = user.rootframe:GetUserData("iscustom") - local basepath = user.rootframe:GetUserData("basepath") or emptyTbl - if iscustom then - AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath)) - else - AceConfigDialog:Open(user.appName, unpack(basepath)) - end - end -end - -local function FrameOnClose(widget, event) - local appName = widget:GetUserData("appName") - AceConfigDialog.OpenFrames[appName] = nil - gui:Release(widget) -end - -local function CheckOptionHidden(option, options, path, appName) - --check for a specific boolean option - local hidden = pickfirstset(option.dialogHidden,option.guiHidden) - if hidden ~= nil then - return hidden - end - - return GetOptionsMemberValue("hidden", option, options, path, appName) -end - -local function CheckOptionDisabled(option, options, path, appName) - --check for a specific boolean option - local disabled = pickfirstset(option.dialogDisabled,option.guiDisabled) - if disabled ~= nil then - return disabled - end - - return GetOptionsMemberValue("disabled", option, options, path, appName) -end ---[[ -local function BuildTabs(group, options, path, appName) - local tabs = new() - local text = new() - local keySort = new() - local opts = new() - - BuildSortedOptionsTable(group, keySort, opts, options, path, appName) - - for i = 1, #keySort do - local k = keySort[i] - local v = opts[k] - if v.type == "group" then - path[#path+1] = k - local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false) - local hidden = CheckOptionHidden(v, options, path, appName) - if not inline and not hidden then - tinsert(tabs, k) - text[k] = GetOptionsMemberValue("name", v, options, path, appName) - end - path[#path] = nil - end - end - - del(keySort) - del(opts) - - return tabs, text -end -]] -local function BuildSelect(group, options, path, appName) - local groups = new() - local order = new() - local keySort = new() - local opts = new() - - BuildSortedOptionsTable(group, keySort, opts, options, path, appName) - - for i = 1, #keySort do - local k = keySort[i] - local v = opts[k] - if v.type == "group" then - path[#path+1] = k - local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false) - local hidden = CheckOptionHidden(v, options, path, appName) - if not inline and not hidden then - groups[k] = GetOptionsMemberValue("name", v, options, path, appName) - tinsert(order, k) - end - path[#path] = nil - end - end - - del(opts) - del(keySort) - - return groups, order -end - -local function BuildSubGroups(group, tree, options, path, appName) - local keySort = new() - local opts = new() - - BuildSortedOptionsTable(group, keySort, opts, options, path, appName) - - for i = 1, #keySort do - local k = keySort[i] - local v = opts[k] - if v.type == "group" then - path[#path+1] = k - local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false) - local hidden = CheckOptionHidden(v, options, path, appName) - if not inline and not hidden then - local entry = new() - entry.value = k - entry.text = GetOptionsMemberValue("name", v, options, path, appName) - entry.icon = GetOptionsMemberValue("icon", v, options, path, appName) - entry.iconCoords = GetOptionsMemberValue("iconCoords", v, options, path, appName) - entry.disabled = CheckOptionDisabled(v, options, path, appName) - if not tree.children then tree.children = new() end - tinsert(tree.children,entry) - if (v.childGroups or "tree") == "tree" then - BuildSubGroups(v,entry, options, path, appName) - end - end - path[#path] = nil - end - end - - del(keySort) - del(opts) -end - -local function BuildGroups(group, options, path, appName, recurse) - local tree = new() - local keySort = new() - local opts = new() - - BuildSortedOptionsTable(group, keySort, opts, options, path, appName) - - for i = 1, #keySort do - local k = keySort[i] - local v = opts[k] - if v.type == "group" then - path[#path+1] = k - local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false) - local hidden = CheckOptionHidden(v, options, path, appName) - if not inline and not hidden then - local entry = new() - entry.value = k - entry.text = GetOptionsMemberValue("name", v, options, path, appName) - entry.icon = GetOptionsMemberValue("icon", v, options, path, appName) - entry.iconCoords = GetOptionsMemberValue("iconCoords", v, options, path, appName) - entry.disabled = CheckOptionDisabled(v, options, path, appName) - tinsert(tree,entry) - if recurse and (v.childGroups or "tree") == "tree" then - BuildSubGroups(v,entry, options, path, appName) - end - end - path[#path] = nil - end - end - del(keySort) - del(opts) - return tree -end - -local function InjectInfo(control, options, option, path, rootframe, appName) - local user = control:GetUserDataTable() - for i = 1, #path do - user[i] = path[i] - end - user.rootframe = rootframe - user.option = option - user.options = options - user.path = copy(path) - user.appName = appName - control:SetCallback("OnRelease", CleanUserData) - control:SetCallback("OnLeave", OptionOnMouseLeave) - control:SetCallback("OnEnter", OptionOnMouseOver) -end - -local function CreateControl(userControlType, fallbackControlType) - local control - if userControlType then - control = gui:Create(userControlType) - if not control then - geterrorhandler()(("Invalid Custom Control Type - %s"):format(tostring(userControlType))) - end - end - if not control then - control = gui:Create(fallbackControlType) - end - return control -end - -local function sortTblAsStrings(x,y) - return tostring(x) < tostring(y) -- Support numbers as keys -end - ---[[ - options - root of the options table being fed - container - widget that controls will be placed in - rootframe - Frame object the options are in - path - table with the keys to get to the group being fed ---]] - -local function FeedOptions(appName, options,container,rootframe,path,group,inline) - local keySort = new() - local opts = new() - - BuildSortedOptionsTable(group, keySort, opts, options, path, appName) - - for i = 1, #keySort do - local k = keySort[i] - local v = opts[k] - tinsert(path, k) - local hidden = CheckOptionHidden(v, options, path, appName) - local name = GetOptionsMemberValue("name", v, options, path, appName) - if not hidden then - if v.type == "group" then - if inline or pickfirstset(v.dialogInline,v.guiInline,v.inline, false) then - --Inline group - local GroupContainer - if name and name ~= "" then - GroupContainer = gui:Create("InlineGroup") - GroupContainer:SetTitle(name or "") - else - GroupContainer = gui:Create("SimpleGroup") - end - - GroupContainer.width = "fill" - GroupContainer:SetLayout("flow") - container:AddChild(GroupContainer) - FeedOptions(appName,options,GroupContainer,rootframe,path,v,true) - end - else - --Control to feed - local control - - local name = GetOptionsMemberValue("name", v, options, path, appName) - - if v.type == "execute" then - - local imageCoords = GetOptionsMemberValue("imageCoords",v, options, path, appName) - local image, width, height = GetOptionsMemberValue("image",v, options, path, appName) - - local iconControl = type(image) == "string" or type(image) == "number" - control = CreateControl(v.dialogControl or v.control, iconControl and "Icon" or "Button") - if iconControl then - if not width then - width = GetOptionsMemberValue("imageWidth",v, options, path, appName) - end - if not height then - height = GetOptionsMemberValue("imageHeight",v, options, path, appName) - end - if type(imageCoords) == "table" then - control:SetImage(image, unpack(imageCoords)) - else - control:SetImage(image) - end - if type(width) ~= "number" then - width = 32 - end - if type(height) ~= "number" then - height = 32 - end - control:SetImageSize(width, height) - control:SetLabel(name) - else - control:SetText(name) - end - control:SetCallback("OnClick",ActivateControl) - - elseif v.type == "input" then - control = CreateControl(v.dialogControl or v.control, v.multiline and "MultiLineEditBox" or "EditBox") - - if v.multiline and control.SetNumLines then - control:SetNumLines(tonumber(v.multiline) or 4) - end - control:SetLabel(name) - control:SetCallback("OnEnterPressed",ActivateControl) - local text = GetOptionsMemberValue("get",v, options, path, appName) - if type(text) ~= "string" then - text = "" - end - control:SetText(text) - - elseif v.type == "toggle" then - control = CreateControl(v.dialogControl or v.control, "CheckBox") - control:SetLabel(name) - control:SetTriState(v.tristate) - local value = GetOptionsMemberValue("get",v, options, path, appName) - control:SetValue(value) - control:SetCallback("OnValueChanged",ActivateControl) - - if v.descStyle == "inline" then - local desc = GetOptionsMemberValue("desc", v, options, path, appName) - control:SetDescription(desc) - end - - local image = GetOptionsMemberValue("image", v, options, path, appName) - local imageCoords = GetOptionsMemberValue("imageCoords", v, options, path, appName) - - if type(image) == "string" or type(image) == "number" then - if type(imageCoords) == "table" then - control:SetImage(image, unpack(imageCoords)) - else - control:SetImage(image) - end - end - elseif v.type == "range" then - control = CreateControl(v.dialogControl or v.control, "Slider") - control:SetLabel(name) - control:SetSliderValues(v.softMin or v.min or 0, v.softMax or v.max or 100, v.bigStep or v.step or 0) - control:SetIsPercent(v.isPercent) - local value = GetOptionsMemberValue("get",v, options, path, appName) - if type(value) ~= "number" then - value = 0 - end - control:SetValue(value) - control:SetCallback("OnValueChanged",ActivateSlider) - control:SetCallback("OnMouseUp",ActivateSlider) - - elseif v.type == "select" then - local values = GetOptionsMemberValue("values", v, options, path, appName) - local sorting = GetOptionsMemberValue("sorting", v, options, path, appName) - if v.style == "radio" then - local disabled = CheckOptionDisabled(v, options, path, appName) - local width = GetOptionsMemberValue("width",v,options,path,appName) - control = gui:Create("InlineGroup") - control:SetLayout("Flow") - control:SetTitle(name) - control.width = "fill" - - control:PauseLayout() - local optionValue = GetOptionsMemberValue("get",v, options, path, appName) - if not sorting then - sorting = {} - for value, text in pairs(values) do - sorting[#sorting+1]=value - end - tsort(sorting, sortTblAsStrings) - end - for k, value in ipairs(sorting) do - local text = values[value] - local radio = gui:Create("CheckBox") - radio:SetLabel(text) - radio:SetUserData("value", value) - radio:SetUserData("text", text) - radio:SetDisabled(disabled) - radio:SetType("radio") - radio:SetValue(optionValue == value) - radio:SetCallback("OnValueChanged", ActivateMultiControl) - InjectInfo(radio, options, v, path, rootframe, appName) - control:AddChild(radio) - if width == "double" then - radio:SetWidth(width_multiplier * 2) - elseif width == "half" then - radio:SetWidth(width_multiplier / 2) - elseif (type(width) == "number") then - radio:SetWidth(width_multiplier * width) - elseif width == "full" then - radio.width = "fill" - else - radio:SetWidth(width_multiplier) - end - end - control:ResumeLayout() - control:DoLayout() - else - control = CreateControl(v.dialogControl or v.control, "Dropdown") - local itemType = v.itemControl - if itemType and not gui:GetWidgetVersion(itemType) then - geterrorhandler()(("Invalid Custom Item Type - %s"):format(tostring(itemType))) - itemType = nil - end - control:SetLabel(name) - control:SetList(values, sorting, itemType) - local value = GetOptionsMemberValue("get",v, options, path, appName) - if not values[value] then - value = nil - end - control:SetValue(value) - control:SetCallback("OnValueChanged", ActivateControl) - end - - elseif v.type == "multiselect" then - local values = GetOptionsMemberValue("values", v, options, path, appName) - local disabled = CheckOptionDisabled(v, options, path, appName) - - local valuesort = new() - if values then - for value, text in pairs(values) do - tinsert(valuesort, value) - end - end - tsort(valuesort) - - local controlType = v.dialogControl or v.control - if controlType then - control = gui:Create(controlType) - if not control then - geterrorhandler()(("Invalid Custom Control Type - %s"):format(tostring(controlType))) - end - end - if control then - control:SetMultiselect(true) - control:SetLabel(name) - control:SetList(values) - control:SetDisabled(disabled) - control:SetCallback("OnValueChanged",ActivateControl) - control:SetCallback("OnClosed", MultiControlOnClosed) - local width = GetOptionsMemberValue("width",v,options,path,appName) - if width == "double" then - control:SetWidth(width_multiplier * 2) - elseif width == "half" then - control:SetWidth(width_multiplier / 2) - elseif (type(width) == "number") then - control:SetWidth(width_multiplier * width) - elseif width == "full" then - control.width = "fill" - else - control:SetWidth(width_multiplier) - end - --check:SetTriState(v.tristate) - for i = 1, #valuesort do - local key = valuesort[i] - local value = GetOptionsMemberValue("get",v, options, path, appName, key) - control:SetItemValue(key,value) - end - else - control = gui:Create("InlineGroup") - control:SetLayout("Flow") - control:SetTitle(name) - control.width = "fill" - - control:PauseLayout() - local width = GetOptionsMemberValue("width",v,options,path,appName) - for i = 1, #valuesort do - local value = valuesort[i] - local text = values[value] - local check = gui:Create("CheckBox") - check:SetLabel(text) - check:SetUserData("value", value) - check:SetUserData("text", text) - check:SetDisabled(disabled) - check:SetTriState(v.tristate) - check:SetValue(GetOptionsMemberValue("get",v, options, path, appName, value)) - check:SetCallback("OnValueChanged",ActivateMultiControl) - InjectInfo(check, options, v, path, rootframe, appName) - control:AddChild(check) - if width == "double" then - check:SetWidth(width_multiplier * 2) - elseif width == "half" then - check:SetWidth(width_multiplier / 2) - elseif (type(width) == "number") then - control:SetWidth(width_multiplier * width) - elseif width == "full" then - check.width = "fill" - else - check:SetWidth(width_multiplier) - end - end - control:ResumeLayout() - control:DoLayout() - - - end - - del(valuesort) - - elseif v.type == "color" then - control = CreateControl(v.dialogControl or v.control, "ColorPicker") - control:SetLabel(name) - control:SetHasAlpha(GetOptionsMemberValue("hasAlpha",v, options, path, appName)) - control:SetColor(GetOptionsMemberValue("get",v, options, path, appName)) - control:SetCallback("OnValueChanged",ActivateControl) - control:SetCallback("OnValueConfirmed",ActivateControl) - - elseif v.type == "keybinding" then - control = CreateControl(v.dialogControl or v.control, "Keybinding") - control:SetLabel(name) - control:SetKey(GetOptionsMemberValue("get",v, options, path, appName)) - control:SetCallback("OnKeyChanged",ActivateControl) - - elseif v.type == "header" then - control = CreateControl(v.dialogControl or v.control, "Heading") - control:SetText(name) - control.width = "fill" - - elseif v.type == "description" then - control = CreateControl(v.dialogControl or v.control, "Label") - control:SetText(name) - - local fontSize = GetOptionsMemberValue("fontSize",v, options, path, appName) - if fontSize == "medium" then - control:SetFontObject(GameFontHighlight) - elseif fontSize == "large" then - control:SetFontObject(GameFontHighlightLarge) - else -- small or invalid - control:SetFontObject(GameFontHighlightSmall) - end - - local imageCoords = GetOptionsMemberValue("imageCoords",v, options, path, appName) - local image, width, height = GetOptionsMemberValue("image",v, options, path, appName) - - if type(image) == "string" or type(image) == "number" then - if not width then - width = GetOptionsMemberValue("imageWidth",v, options, path, appName) - end - if not height then - height = GetOptionsMemberValue("imageHeight",v, options, path, appName) - end - if type(imageCoords) == "table" then - control:SetImage(image, unpack(imageCoords)) - else - control:SetImage(image) - end - if type(width) ~= "number" then - width = 32 - end - if type(height) ~= "number" then - height = 32 - end - control:SetImageSize(width, height) - end - local width = GetOptionsMemberValue("width",v,options,path,appName) - control.width = not width and "fill" - end - - --Common Init - if control then - if control.width ~= "fill" then - local width = GetOptionsMemberValue("width",v,options,path,appName) - if width == "double" then - control:SetWidth(width_multiplier * 2) - elseif width == "half" then - control:SetWidth(width_multiplier / 2) - elseif (type(width) == "number") then - control:SetWidth(width_multiplier * width) - elseif width == "full" then - control.width = "fill" - else - control:SetWidth(width_multiplier) - end - end - if control.SetDisabled then - local disabled = CheckOptionDisabled(v, options, path, appName) - control:SetDisabled(disabled) - end - - InjectInfo(control, options, v, path, rootframe, appName) - container:AddChild(control) - end - - end - end - tremove(path) - end - container:ResumeLayout() - container:DoLayout() - del(keySort) - del(opts) -end - -local function BuildPath(path, ...) - for i = 1, select("#",...) do - tinsert(path, (select(i,...))) - end -end - - -local function TreeOnButtonEnter(widget, event, uniquevalue, button) - local user = widget:GetUserDataTable() - if not user then return end - local options = user.options - local option = user.option - local path = user.path - local appName = user.appName - local tooltip = AceConfigDialog.tooltip - - local feedpath = new() - for i = 1, #path do - feedpath[i] = path[i] - end - - BuildPath(feedpath, ("\001"):split(uniquevalue)) - local group = options - for i = 1, #feedpath do - if not group then return end - group = GetSubOption(group, feedpath[i]) - end - - local name = GetOptionsMemberValue("name", group, options, feedpath, appName) - local desc = GetOptionsMemberValue("desc", group, options, feedpath, appName) - - tooltip:SetOwner(button, "ANCHOR_NONE") - tooltip:ClearAllPoints() - if widget.type == "TabGroup" then - tooltip:SetPoint("BOTTOM",button,"TOP") - else - tooltip:SetPoint("LEFT",button,"RIGHT") - end - - tooltip:SetText(name, 1, .82, 0, true) - - if type(desc) == "string" then - tooltip:AddLine(desc, 1, 1, 1, true) - end - - tooltip:Show() -end - -local function TreeOnButtonLeave(widget, event, value, button) - AceConfigDialog.tooltip:Hide() -end - - -local function GroupExists(appName, options, path, uniquevalue) - if not uniquevalue then return false end - - local feedpath = new() - local temppath = new() - for i = 1, #path do - feedpath[i] = path[i] - end - - BuildPath(feedpath, ("\001"):split(uniquevalue)) - - local group = options - for i = 1, #feedpath do - local v = feedpath[i] - temppath[i] = v - group = GetSubOption(group, v) - - if not group or group.type ~= "group" or CheckOptionHidden(group, options, temppath, appName) then - del(feedpath) - del(temppath) - return false - end - end - del(feedpath) - del(temppath) - return true -end - -local function GroupSelected(widget, event, uniquevalue) - - local user = widget:GetUserDataTable() - - local options = user.options - local option = user.option - local path = user.path - local rootframe = user.rootframe - - local feedpath = new() - for i = 1, #path do - feedpath[i] = path[i] - end - - BuildPath(feedpath, ("\001"):split(uniquevalue)) - widget:ReleaseChildren() - AceConfigDialog:FeedGroup(user.appName,options,widget,rootframe,feedpath) - - del(feedpath) -end - - - ---[[ --- INTERNAL -- -This function will feed one group, and any inline child groups into the given container -Select Groups will only have the selection control (tree, tabs, dropdown) fed in -and have a group selected, this event will trigger the feeding of child groups - -Rules: - If the group is Inline, FeedOptions - If the group has no child groups, FeedOptions - - If the group is a tab or select group, FeedOptions then add the Group Control - If the group is a tree group FeedOptions then - its parent isnt a tree group: then add the tree control containing this and all child tree groups - if its parent is a tree group, its already a node on a tree ---]] - -function AceConfigDialog:FeedGroup(appName,options,container,rootframe,path, isRoot) - local group = options - --follow the path to get to the curent group - local inline - local grouptype, parenttype = options.childGroups, "none" - - - for i = 1, #path do - local v = path[i] - group = GetSubOption(group, v) - inline = inline or pickfirstset(v.dialogInline,v.guiInline,v.inline, false) - parenttype = grouptype - grouptype = group.childGroups - end - - if not parenttype then - parenttype = "tree" - end - - --check if the group has child groups - local hasChildGroups - for k, v in pairs(group.args) do - if v.type == "group" and not pickfirstset(v.dialogInline,v.guiInline,v.inline, false) and not CheckOptionHidden(v, options, path, appName) then - hasChildGroups = true - end - end - if group.plugins then - for plugin, t in pairs(group.plugins) do - for k, v in pairs(t) do - if v.type == "group" and not pickfirstset(v.dialogInline,v.guiInline,v.inline, false) and not CheckOptionHidden(v, options, path, appName) then - hasChildGroups = true - end - end - end - end - - container:SetLayout("flow") - local scroll - - --Add a scrollframe if we are not going to add a group control, this is the inverse of the conditions for that later on - if (not (hasChildGroups and not inline)) or (grouptype ~= "tab" and grouptype ~= "select" and (parenttype == "tree" and not isRoot)) then - if container.type ~= "InlineGroup" and container.type ~= "SimpleGroup" then - scroll = gui:Create("ScrollFrame") - scroll:SetLayout("flow") - scroll.width = "fill" - scroll.height = "fill" - container:SetLayout("fill") - container:AddChild(scroll) - container = scroll - end - end - - FeedOptions(appName,options,container,rootframe,path,group,nil) - - if scroll then - container:PerformLayout() - local status = self:GetStatusTable(appName, path) - if not status.scroll then - status.scroll = {} - end - scroll:SetStatusTable(status.scroll) - end - - if hasChildGroups and not inline then - local name = GetOptionsMemberValue("name", group, options, path, appName) - if grouptype == "tab" then - - local tab = gui:Create("TabGroup") - InjectInfo(tab, options, group, path, rootframe, appName) - tab:SetCallback("OnGroupSelected", GroupSelected) - tab:SetCallback("OnTabEnter", TreeOnButtonEnter) - tab:SetCallback("OnTabLeave", TreeOnButtonLeave) - - local status = AceConfigDialog:GetStatusTable(appName, path) - if not status.groups then - status.groups = {} - end - tab:SetStatusTable(status.groups) - tab.width = "fill" - tab.height = "fill" - - local tabs = BuildGroups(group, options, path, appName) - tab:SetTabs(tabs) - tab:SetUserData("tablist", tabs) - - for i = 1, #tabs do - local entry = tabs[i] - if not entry.disabled then - tab:SelectTab((GroupExists(appName, options, path,status.groups.selected) and status.groups.selected) or entry.value) - break - end - end - - container:AddChild(tab) - - elseif grouptype == "select" then - - local select = gui:Create("DropdownGroup") - select:SetTitle(name) - InjectInfo(select, options, group, path, rootframe, appName) - select:SetCallback("OnGroupSelected", GroupSelected) - local status = AceConfigDialog:GetStatusTable(appName, path) - if not status.groups then - status.groups = {} - end - select:SetStatusTable(status.groups) - local grouplist, orderlist = BuildSelect(group, options, path, appName) - select:SetGroupList(grouplist, orderlist) - select:SetUserData("grouplist", grouplist) - select:SetUserData("orderlist", orderlist) - - local firstgroup = orderlist[1] - if firstgroup then - select:SetGroup((GroupExists(appName, options, path,status.groups.selected) and status.groups.selected) or firstgroup) - end - - select.width = "fill" - select.height = "fill" - - container:AddChild(select) - - --assume tree group by default - --if parenttype is tree then this group is already a node on that tree - elseif (parenttype ~= "tree") or isRoot then - local tree = gui:Create("TreeGroup") - InjectInfo(tree, options, group, path, rootframe, appName) - tree:EnableButtonTooltips(false) - - tree.width = "fill" - tree.height = "fill" - - tree:SetCallback("OnGroupSelected", GroupSelected) - tree:SetCallback("OnButtonEnter", TreeOnButtonEnter) - tree:SetCallback("OnButtonLeave", TreeOnButtonLeave) - - local status = AceConfigDialog:GetStatusTable(appName, path) - if not status.groups then - status.groups = {} - end - local treedefinition = BuildGroups(group, options, path, appName, true) - tree:SetStatusTable(status.groups) - - tree:SetTree(treedefinition) - tree:SetUserData("tree",treedefinition) - - for i = 1, #treedefinition do - local entry = treedefinition[i] - if not entry.disabled then - tree:SelectByValue((GroupExists(appName, options, path,status.groups.selected) and status.groups.selected) or entry.value) - break - end - end - - container:AddChild(tree) - end - end -end - -local old_CloseSpecialWindows - - -local function RefreshOnUpdate(this) - for appName in pairs(this.closing) do - if AceConfigDialog.OpenFrames[appName] then - AceConfigDialog.OpenFrames[appName]:Hide() - end - if AceConfigDialog.BlizOptions and AceConfigDialog.BlizOptions[appName] then - for key, widget in pairs(AceConfigDialog.BlizOptions[appName]) do - if not widget:IsVisible() then - widget:ReleaseChildren() - end - end - end - this.closing[appName] = nil - end - - if this.closeAll then - for k, v in pairs(AceConfigDialog.OpenFrames) do - if not this.closeAllOverride[k] then - v:Hide() - end - end - this.closeAll = nil - wipe(this.closeAllOverride) - end - - for appName in pairs(this.apps) do - if AceConfigDialog.OpenFrames[appName] then - local user = AceConfigDialog.OpenFrames[appName]:GetUserDataTable() - AceConfigDialog:Open(appName, unpack(user.basepath or emptyTbl)) - end - if AceConfigDialog.BlizOptions and AceConfigDialog.BlizOptions[appName] then - for key, widget in pairs(AceConfigDialog.BlizOptions[appName]) do - local user = widget:GetUserDataTable() - if widget:IsVisible() then - AceConfigDialog:Open(widget:GetUserData("appName"), widget, unpack(user.basepath or emptyTbl)) - end - end - end - this.apps[appName] = nil - end - this:SetScript("OnUpdate", nil) -end - --- Upgrade the OnUpdate script as well, if needed. -if AceConfigDialog.frame:GetScript("OnUpdate") then - AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate) -end - ---- Close all open options windows -function AceConfigDialog:CloseAll() - AceConfigDialog.frame.closeAll = true - AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate) - if next(self.OpenFrames) then - return true - end -end - ---- Close a specific options window. --- @param appName The application name as given to `:RegisterOptionsTable()` -function AceConfigDialog:Close(appName) - if self.OpenFrames[appName] then - AceConfigDialog.frame.closing[appName] = true - AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate) - return true - end -end - --- Internal -- Called by AceConfigRegistry -function AceConfigDialog:ConfigTableChanged(event, appName) - AceConfigDialog.frame.apps[appName] = true - AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate) -end - -reg.RegisterCallback(AceConfigDialog, "ConfigTableChange", "ConfigTableChanged") - ---- Sets the default size of the options window for a specific application. --- @param appName The application name as given to `:RegisterOptionsTable()` --- @param width The default width --- @param height The default height -function AceConfigDialog:SetDefaultSize(appName, width, height) - local status = AceConfigDialog:GetStatusTable(appName) - if type(width) == "number" and type(height) == "number" then - status.width = width - status.height = height - end -end - ---- Open an option window at the specified path (if any). --- This function can optionally feed the group into a pre-created container --- instead of creating a new container frame. --- @paramsig appName [, container][, ...] --- @param appName The application name as given to `:RegisterOptionsTable()` --- @param container An optional container frame to feed the options into --- @param ... The path to open after creating the options window (see `:SelectGroup` for details) -function AceConfigDialog:Open(appName, container, ...) - if not old_CloseSpecialWindows then - old_CloseSpecialWindows = CloseSpecialWindows - CloseSpecialWindows = function() - local found = old_CloseSpecialWindows() - return self:CloseAll() or found - end - end - local app = reg:GetOptionsTable(appName) - if not app then - error(("%s isn't registed with AceConfigRegistry, unable to open config"):format(appName), 2) - end - local options = app("dialog", MAJOR) - - local f - - local path = new() - local name = GetOptionsMemberValue("name", options, options, path, appName) - - --If an optional path is specified add it to the path table before feeding the options - --as container is optional as well it may contain the first element of the path - if type(container) == "string" then - tinsert(path, container) - container = nil - end - for n = 1, select("#",...) do - tinsert(path, (select(n, ...))) - end - - local option = options - if type(container) == "table" and container.type == "BlizOptionsGroup" and #path > 0 then - for i = 1, #path do - option = options.args[path[i]] - end - name = format("%s - %s", name, GetOptionsMemberValue("name", option, options, path, appName)) - end - - --if a container is given feed into that - if container then - f = container - f:ReleaseChildren() - f:SetUserData("appName", appName) - f:SetUserData("iscustom", true) - if #path > 0 then - f:SetUserData("basepath", copy(path)) - end - local status = AceConfigDialog:GetStatusTable(appName) - if not status.width then - status.width = 700 - end - if not status.height then - status.height = 500 - end - if f.SetStatusTable then - f:SetStatusTable(status) - end - if f.SetTitle then - f:SetTitle(name or "") - end - else - if not self.OpenFrames[appName] then - f = gui:Create("Frame") - self.OpenFrames[appName] = f - else - f = self.OpenFrames[appName] - end - f:ReleaseChildren() - f:SetCallback("OnClose", FrameOnClose) - f:SetUserData("appName", appName) - if #path > 0 then - f:SetUserData("basepath", copy(path)) - end - f:SetTitle(name or "") - local status = AceConfigDialog:GetStatusTable(appName) - f:SetStatusTable(status) - end - - self:FeedGroup(appName,options,f,f,path,true) - if f.Show then - f:Show() - end - del(path) - - if AceConfigDialog.frame.closeAll then - -- close all is set, but thats not good, since we're just opening here, so force it - AceConfigDialog.frame.closeAllOverride[appName] = true - end -end - --- convert pre-39 BlizOptions structure to the new format -if oldminor and oldminor < 39 and AceConfigDialog.BlizOptions then - local old = AceConfigDialog.BlizOptions - local new = {} - for key, widget in pairs(old) do - local appName = widget:GetUserData("appName") - if not new[appName] then new[appName] = {} end - new[appName][key] = widget - end - AceConfigDialog.BlizOptions = new -else - AceConfigDialog.BlizOptions = AceConfigDialog.BlizOptions or {} -end - -local function FeedToBlizPanel(widget, event) - local path = widget:GetUserData("path") - AceConfigDialog:Open(widget:GetUserData("appName"), widget, unpack(path or emptyTbl)) -end - -local function ClearBlizPanel(widget, event) - local appName = widget:GetUserData("appName") - AceConfigDialog.frame.closing[appName] = true - AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate) -end - ---- Add an option table into the Blizzard Interface Options panel. --- You can optionally supply a descriptive name to use and a parent frame to use, --- as well as a path in the options table.\\ --- If no name is specified, the appName will be used instead. --- --- If you specify a proper `parent` (by name), the interface options will generate a --- tree layout. Note that only one level of children is supported, so the parent always --- has to be a head-level note. --- --- This function returns a reference to the container frame registered with the Interface --- Options. You can use this reference to open the options with the API function --- `InterfaceOptionsFrame_OpenToCategory`. --- @param appName The application name as given to `:RegisterOptionsTable()` --- @param name A descriptive name to display in the options tree (defaults to appName) --- @param parent The parent to use in the interface options tree. --- @param ... The path in the options table to feed into the interface options panel. --- @return The reference to the frame registered into the Interface Options. -function AceConfigDialog:AddToBlizOptions(appName, name, parent, ...) - local BlizOptions = AceConfigDialog.BlizOptions - - local key = appName - for n = 1, select("#", ...) do - key = key.."\001"..select(n, ...) - end - - if not BlizOptions[appName] then - BlizOptions[appName] = {} - end - - if not BlizOptions[appName][key] then - local group = gui:Create("BlizOptionsGroup") - BlizOptions[appName][key] = group - group:SetName(name or appName, parent) - - group:SetTitle(name or appName) - group:SetUserData("appName", appName) - if select("#", ...) > 0 then - local path = {} - for n = 1, select("#",...) do - tinsert(path, (select(n, ...))) - end - group:SetUserData("path", path) - end - group:SetCallback("OnShow", FeedToBlizPanel) - group:SetCallback("OnHide", ClearBlizPanel) - InterfaceOptions_AddCategory(group.frame) - return group.frame - else - error(("%s has already been added to the Blizzard Options Window with the given path"):format(appName), 2) - end -end diff --git a/Titan/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.xml b/Titan/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.xml deleted file mode 100755 index 068be6f..0000000 --- a/Titan/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="AceConfigDialog-3.0.lua"/> -</Ui> diff --git a/Titan/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.lua b/Titan/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.lua deleted file mode 100755 index e563392..0000000 --- a/Titan/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.lua +++ /dev/null @@ -1,371 +0,0 @@ ---- AceConfigRegistry-3.0 handles central registration of options tables in use by addons and modules.\\ --- Options tables can be registered as raw tables, OR as function refs that return a table.\\ --- Such functions receive three arguments: "uiType", "uiName", "appName". \\ --- * Valid **uiTypes**: "cmd", "dropdown", "dialog". This is verified by the library at call time. \\ --- * The **uiName** field is expected to contain the full name of the calling addon, including version, e.g. "FooBar-1.0". This is verified by the library at call time.\\ --- * The **appName** field is the options table name as given at registration time \\ --- --- :IterateOptionsTables() (and :GetOptionsTable() if only given one argument) return a function reference that the requesting config handling addon must call with valid "uiType", "uiName". --- @class file --- @name AceConfigRegistry-3.0 --- @release $Id: AceConfigRegistry-3.0.lua 1207 2019-06-23 12:08:33Z nevcairiel $ -local CallbackHandler = LibStub("CallbackHandler-1.0") - -local MAJOR, MINOR = "AceConfigRegistry-3.0", 20 -local AceConfigRegistry = LibStub:NewLibrary(MAJOR, MINOR) - -if not AceConfigRegistry then return end - -AceConfigRegistry.tables = AceConfigRegistry.tables or {} - -if not AceConfigRegistry.callbacks then - AceConfigRegistry.callbacks = CallbackHandler:New(AceConfigRegistry) -end - --- Lua APIs -local tinsert, tconcat = table.insert, table.concat -local strfind, strmatch = string.find, string.match -local type, tostring, select, pairs = type, tostring, select, pairs -local error, assert = error, assert - ------------------------------------------------------------------------ --- Validating options table consistency: - - -AceConfigRegistry.validated = { - -- list of options table names ran through :ValidateOptionsTable automatically. - -- CLEARED ON PURPOSE, since newer versions may have newer validators - cmd = {}, - dropdown = {}, - dialog = {}, -} - - - -local function err(msg, errlvl, ...) - local t = {} - for i=select("#",...),1,-1 do - tinsert(t, (select(i, ...))) - end - error(MAJOR..":ValidateOptionsTable(): "..tconcat(t,".")..msg, errlvl+2) -end - - -local isstring={["string"]=true, _="string"} -local isstringfunc={["string"]=true,["function"]=true, _="string or funcref"} -local istable={["table"]=true, _="table"} -local ismethodtable={["table"]=true,["string"]=true,["function"]=true, _="methodname, funcref or table"} -local optstring={["nil"]=true,["string"]=true, _="string"} -local optstringfunc={["nil"]=true,["string"]=true,["function"]=true, _="string or funcref"} -local optstringnumberfunc={["nil"]=true,["string"]=true,["number"]=true,["function"]=true, _="string, number or funcref"} -local optnumber={["nil"]=true,["number"]=true, _="number"} -local optmethodfalse={["nil"]=true,["string"]=true,["function"]=true,["boolean"]={[false]=true}, _="methodname, funcref or false"} -local optmethodnumber={["nil"]=true,["string"]=true,["function"]=true,["number"]=true, _="methodname, funcref or number"} -local optmethodtable={["nil"]=true,["string"]=true,["function"]=true,["table"]=true, _="methodname, funcref or table"} -local optmethodbool={["nil"]=true,["string"]=true,["function"]=true,["boolean"]=true, _="methodname, funcref or boolean"} -local opttable={["nil"]=true,["table"]=true, _="table"} -local optbool={["nil"]=true,["boolean"]=true, _="boolean"} -local optboolnumber={["nil"]=true,["boolean"]=true,["number"]=true, _="boolean or number"} -local optstringnumber={["nil"]=true,["string"]=true,["number"]=true, _="string or number"} - -local basekeys={ - type=isstring, - name=isstringfunc, - desc=optstringfunc, - descStyle=optstring, - order=optmethodnumber, - validate=optmethodfalse, - confirm=optmethodbool, - confirmText=optstring, - disabled=optmethodbool, - hidden=optmethodbool, - guiHidden=optmethodbool, - dialogHidden=optmethodbool, - dropdownHidden=optmethodbool, - cmdHidden=optmethodbool, - icon=optstringnumberfunc, - iconCoords=optmethodtable, - handler=opttable, - get=optmethodfalse, - set=optmethodfalse, - func=optmethodfalse, - arg={["*"]=true}, - width=optstringnumber, -} - -local typedkeys={ - header={ - control=optstring, - dialogControl=optstring, - dropdownControl=optstring, - }, - description={ - image=optstringnumberfunc, - imageCoords=optmethodtable, - imageHeight=optnumber, - imageWidth=optnumber, - fontSize=optstringfunc, - control=optstring, - dialogControl=optstring, - dropdownControl=optstring, - }, - group={ - args=istable, - plugins=opttable, - inline=optbool, - cmdInline=optbool, - guiInline=optbool, - dropdownInline=optbool, - dialogInline=optbool, - childGroups=optstring, - }, - execute={ - image=optstringnumberfunc, - imageCoords=optmethodtable, - imageHeight=optnumber, - imageWidth=optnumber, - control=optstring, - dialogControl=optstring, - dropdownControl=optstring, - }, - input={ - pattern=optstring, - usage=optstring, - control=optstring, - dialogControl=optstring, - dropdownControl=optstring, - multiline=optboolnumber, - }, - toggle={ - tristate=optbool, - image=optstringnumberfunc, - imageCoords=optmethodtable, - control=optstring, - dialogControl=optstring, - dropdownControl=optstring, - }, - tristate={ - }, - range={ - min=optnumber, - softMin=optnumber, - max=optnumber, - softMax=optnumber, - step=optnumber, - bigStep=optnumber, - isPercent=optbool, - control=optstring, - dialogControl=optstring, - dropdownControl=optstring, - }, - select={ - values=ismethodtable, - sorting=optmethodtable, - style={ - ["nil"]=true, - ["string"]={dropdown=true,radio=true}, - _="string: 'dropdown' or 'radio'" - }, - control=optstring, - dialogControl=optstring, - dropdownControl=optstring, - itemControl=optstring, - }, - multiselect={ - values=ismethodtable, - style=optstring, - tristate=optbool, - control=optstring, - dialogControl=optstring, - dropdownControl=optstring, - }, - color={ - hasAlpha=optmethodbool, - control=optstring, - dialogControl=optstring, - dropdownControl=optstring, - }, - keybinding={ - control=optstring, - dialogControl=optstring, - dropdownControl=optstring, - }, -} - -local function validateKey(k,errlvl,...) - errlvl=(errlvl or 0)+1 - if type(k)~="string" then - err("["..tostring(k).."] - key is not a string", errlvl,...) - end - if strfind(k, "[%c\127]") then - err("["..tostring(k).."] - key name contained control characters", errlvl,...) - end -end - -local function validateVal(v, oktypes, errlvl,...) - errlvl=(errlvl or 0)+1 - local isok=oktypes[type(v)] or oktypes["*"] - - if not isok then - err(": expected a "..oktypes._..", got '"..tostring(v).."'", errlvl,...) - end - if type(isok)=="table" then -- isok was a table containing specific values to be tested for! - if not isok[v] then - err(": did not expect "..type(v).." value '"..tostring(v).."'", errlvl,...) - end - end -end - -local function validate(options,errlvl,...) - errlvl=(errlvl or 0)+1 - -- basic consistency - if type(options)~="table" then - err(": expected a table, got a "..type(options), errlvl,...) - end - if type(options.type)~="string" then - err(".type: expected a string, got a "..type(options.type), errlvl,...) - end - - -- get type and 'typedkeys' member - local tk = typedkeys[options.type] - if not tk then - err(".type: unknown type '"..options.type.."'", errlvl,...) - end - - -- make sure that all options[] are known parameters - for k,v in pairs(options) do - if not (tk[k] or basekeys[k]) then - err(": unknown parameter", errlvl,tostring(k),...) - end - end - - -- verify that required params are there, and that everything is the right type - for k,oktypes in pairs(basekeys) do - validateVal(options[k], oktypes, errlvl,k,...) - end - for k,oktypes in pairs(tk) do - validateVal(options[k], oktypes, errlvl,k,...) - end - - -- extra logic for groups - if options.type=="group" then - for k,v in pairs(options.args) do - validateKey(k,errlvl,"args",...) - validate(v, errlvl,k,"args",...) - end - if options.plugins then - for plugname,plugin in pairs(options.plugins) do - if type(plugin)~="table" then - err(": expected a table, got '"..tostring(plugin).."'", errlvl,tostring(plugname),"plugins",...) - end - for k,v in pairs(plugin) do - validateKey(k,errlvl,tostring(plugname),"plugins",...) - validate(v, errlvl,k,tostring(plugname),"plugins",...) - end - end - end - end -end - - ---- Validates basic structure and integrity of an options table \\ --- Does NOT verify that get/set etc actually exist, since they can be defined at any depth --- @param options The table to be validated --- @param name The name of the table to be validated (shown in any error message) --- @param errlvl (optional number) error level offset, default 0 (=errors point to the function calling :ValidateOptionsTable) -function AceConfigRegistry:ValidateOptionsTable(options,name,errlvl) - errlvl=(errlvl or 0)+1 - name = name or "Optionstable" - if not options.name then - options.name=name -- bit of a hack, the root level doesn't really need a .name :-/ - end - validate(options,errlvl,name) -end - ---- Fires a "ConfigTableChange" callback for those listening in on it, allowing config GUIs to refresh. --- You should call this function if your options table changed from any outside event, like a game event --- or a timer. --- @param appName The application name as given to `:RegisterOptionsTable()` -function AceConfigRegistry:NotifyChange(appName) - if not AceConfigRegistry.tables[appName] then return end - AceConfigRegistry.callbacks:Fire("ConfigTableChange", appName) -end - --- ------------------------------------------------------------------- --- Registering and retreiving options tables: - - --- validateGetterArgs: helper function for :GetOptionsTable (or, rather, the getter functions returned by it) - -local function validateGetterArgs(uiType, uiName, errlvl) - errlvl=(errlvl or 0)+2 - if uiType~="cmd" and uiType~="dropdown" and uiType~="dialog" then - error(MAJOR..": Requesting options table: 'uiType' - invalid configuration UI type, expected 'cmd', 'dropdown' or 'dialog'", errlvl) - end - if not strmatch(uiName, "[A-Za-z]%-[0-9]") then -- Expecting e.g. "MyLib-1.2" - error(MAJOR..": Requesting options table: 'uiName' - badly formatted or missing version number. Expected e.g. 'MyLib-1.2'", errlvl) - end -end - ---- Register an options table with the config registry. --- @param appName The application name as given to `:RegisterOptionsTable()` --- @param options The options table, OR a function reference that generates it on demand. \\ --- See the top of the page for info on arguments passed to such functions. --- @param skipValidation Skip options table validation (primarily useful for extremely huge options, with a noticeable slowdown) -function AceConfigRegistry:RegisterOptionsTable(appName, options, skipValidation) - if type(options)=="table" then - if options.type~="group" then -- quick sanity checker - error(MAJOR..": RegisterOptionsTable(appName, options): 'options' - missing type='group' member in root group", 2) - end - AceConfigRegistry.tables[appName] = function(uiType, uiName, errlvl) - errlvl=(errlvl or 0)+1 - validateGetterArgs(uiType, uiName, errlvl) - if not AceConfigRegistry.validated[uiType][appName] and not skipValidation then - AceConfigRegistry:ValidateOptionsTable(options, appName, errlvl) -- upgradable - AceConfigRegistry.validated[uiType][appName] = true - end - return options - end - elseif type(options)=="function" then - AceConfigRegistry.tables[appName] = function(uiType, uiName, errlvl) - errlvl=(errlvl or 0)+1 - validateGetterArgs(uiType, uiName, errlvl) - local tab = assert(options(uiType, uiName, appName)) - if not AceConfigRegistry.validated[uiType][appName] and not skipValidation then - AceConfigRegistry:ValidateOptionsTable(tab, appName, errlvl) -- upgradable - AceConfigRegistry.validated[uiType][appName] = true - end - return tab - end - else - error(MAJOR..": RegisterOptionsTable(appName, options): 'options' - expected table or function reference", 2) - end -end - ---- Returns an iterator of ["appName"]=funcref pairs -function AceConfigRegistry:IterateOptionsTables() - return pairs(AceConfigRegistry.tables) -end - - - - ---- Query the registry for a specific options table. --- If only appName is given, a function is returned which you --- can call with (uiType,uiName) to get the table.\\ --- If uiType&uiName are given, the table is returned. --- @param appName The application name as given to `:RegisterOptionsTable()` --- @param uiType The type of UI to get the table for, one of "cmd", "dropdown", "dialog" --- @param uiName The name of the library/addon querying for the table, e.g. "MyLib-1.0" -function AceConfigRegistry:GetOptionsTable(appName, uiType, uiName) - local f = AceConfigRegistry.tables[appName] - if not f then - return nil - end - - if uiType then - return f(uiType,uiName,1) -- get the table for us - else - return f -- return the function - end -end diff --git a/Titan/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.xml b/Titan/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.xml deleted file mode 100755 index 5989072..0000000 --- a/Titan/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="AceConfigRegistry-3.0.lua"/> -</Ui> diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets.toc b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets.toc deleted file mode 100644 index 23abaca..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets.toc +++ /dev/null @@ -1,16 +0,0 @@ -## Interface: 90001 - -## Title: Lib: AceGUI-3.0-SharedMediaWidgets -## Notes: Enables AceGUI-3.0 widgets for the 5 basic SharedMedia-3.0 types -## Author: Yssaril -## OptionalDeps: Ace3, LibSharedMedia-3.0 -## X-Category: Library - -#@no-lib-strip@ -Libs\Libstub\Libstub.lua -Libs\CallbackHandler-1.0\CallbackHandler-1.0.xml -Libs\AceGUI-3.0\AceGUI-3.0.xml -Libs\LibSharedMedia-3.0\lib.xml -#@end-no-lib-strip@ - -widget.xml diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BackgroundWidget.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BackgroundWidget.lua deleted file mode 100644 index 19ad608..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BackgroundWidget.lua +++ /dev/null @@ -1,235 +0,0 @@ --- Widget is based on the AceGUIWidget-DropDown.lua supplied with AceGUI-3.0 --- Widget created by Yssaril - -local AceGUI = LibStub("AceGUI-3.0") -local Media = LibStub("LibSharedMedia-3.0") - -local AGSMW = LibStub("AceGUISharedMediaWidgets-1.0") - -do - local widgetType = "LSM30_Background" - local widgetVersion = 13 - - local contentFrameCache = {} - local function ReturnSelf(self) - self:ClearAllPoints() - self:Hide() - self.check:Hide() - table.insert(contentFrameCache, self) - end - - local function ContentOnClick(this, button) - local self = this.obj - self:Fire("OnValueChanged", this.text:GetText()) - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function ContentOnEnter(this, button) - local self = this.obj - local text = this.text:GetText() - local background = self.list[text] ~= text and self.list[text] or Media:Fetch('background',text) - self.dropdown.bgTex:SetTexture(background) - end - - local function GetContentLine() - local frame - if next(contentFrameCache) then - frame = table.remove(contentFrameCache) - else - frame = CreateFrame("Button", nil, UIParent, BackdropTemplateMixin and "BackdropTemplate") - --frame:SetWidth(200) - frame:SetHeight(18) - frame:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]], "ADD") - frame:SetScript("OnClick", ContentOnClick) - frame:SetScript("OnEnter", ContentOnEnter) - - local check = frame:CreateTexture("OVERLAY") - check:SetWidth(16) - check:SetHeight(16) - check:SetPoint("LEFT",frame,"LEFT",1,-1) - check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check") - check:Hide() - frame.check = check - - local text = frame:CreateFontString(nil,"OVERLAY","GameFontWhite") - local font, size = text:GetFont() - text:SetFont(font,size,"OUTLINE") - - text:SetPoint("TOPLEFT", check, "TOPRIGHT", 1, 0) - text:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -2, 0) - text:SetJustifyH("LEFT") - text:SetText("Test Test Test Test Test Test Test") - frame.text = text - - frame.ReturnSelf = ReturnSelf - end - frame:Show() - return frame - end - - local function OnAcquire(self) - self:SetHeight(44) - self:SetWidth(200) - end - - local function OnRelease(self) - self:SetText("") - self:SetLabel("") - self:SetDisabled(false) - - self.value = nil - self.list = nil - self.open = nil - self.hasClose = nil - - self.frame:ClearAllPoints() - self.frame:Hide() - end - - local function SetValue(self, value) -- Set the value to an item in the List. - if self.list then - self:SetText(value or "") - end - self.value = value - end - - local function GetValue(self) - return self.value - end - - local function SetList(self, list) -- Set the list of values for the dropdown (key => value pairs) - self.list = list or Media:HashTable("background") - end - - - local function SetText(self, text) -- Set the text displayed in the box. - self.frame.text:SetText(text or "") - local background = self.list[text] ~= text and self.list[text] or Media:Fetch('background',text) - - self.frame.displayButton:SetBackdrop({bgFile = background, - edgeFile = "Interface/Tooltips/UI-Tooltip-Border", - edgeSize = 16, - insets = { left = 4, right = 4, top = 4, bottom = 4 }}) - end - - local function SetLabel(self, text) -- Set the text for the label. - self.frame.label:SetText(text or "") - end - - local function AddItem(self, key, value) -- Add an item to the list. - self.list = self.list or {} - self.list[key] = value - end - local SetItemValue = AddItem -- Set the value of a item in the list. <<same as adding a new item>> - - local function SetMultiselect(self, flag) end -- Toggle multi-selecting. <<Dummy function to stay inline with the dropdown API>> - local function GetMultiselect() return false end-- Query the multi-select flag. <<Dummy function to stay inline with the dropdown API>> - local function SetItemDisabled(self, key) end-- Disable one item in the list. <<Dummy function to stay inline with the dropdown API>> - - local function SetDisabled(self, disabled) -- Disable the widget. - self.disabled = disabled - if disabled then - self.frame:Disable() - self.frame.displayButton:SetBackdropColor(.2,.2,.2,1) - else - self.frame:Enable() - self.frame.displayButton:SetBackdropColor(1,1,1,1) - end - end - - local function textSort(a,b) - return string.upper(a) < string.upper(b) - end - - local sortedlist = {} - local function ToggleDrop(this) - local self = this.obj - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - AceGUI:ClearFocus() - else - AceGUI:SetFocus(self) - self.dropdown = AGSMW:GetDropDownFrame() - local width = self.frame:GetWidth() - self.dropdown:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT") - self.dropdown:SetPoint("TOPRIGHT", self.frame, "BOTTOMRIGHT", width < 160 and (160 - width) or 0, 0) - for k, v in pairs(self.list) do - sortedlist[#sortedlist+1] = k - end - table.sort(sortedlist, textSort) - for i, k in ipairs(sortedlist) do - local f = GetContentLine() - f.text:SetText(k) - --print(k) - if k == self.value then - f.check:Show() - end - f.obj = self - f.dropdown = self.dropdown - self.dropdown:AddFrame(f) - end - wipe(sortedlist) - end - end - - local function ClearFocus(self) - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function OnHide(this) - local self = this.obj - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function Drop_OnEnter(this) - this.obj:Fire("OnEnter") - end - - local function Drop_OnLeave(this) - this.obj:Fire("OnLeave") - end - - local function Constructor() - local frame = AGSMW:GetBaseFrameWithWindow() - local self = {} - - self.type = widgetType - self.frame = frame - frame.obj = self - frame.dropButton.obj = self - frame.dropButton:SetScript("OnEnter", Drop_OnEnter) - frame.dropButton:SetScript("OnLeave", Drop_OnLeave) - frame.dropButton:SetScript("OnClick",ToggleDrop) - frame:SetScript("OnHide", OnHide) - - self.alignoffset = 31 - - self.OnRelease = OnRelease - self.OnAcquire = OnAcquire - self.ClearFocus = ClearFocus - self.SetText = SetText - self.SetValue = SetValue - self.GetValue = GetValue - self.SetList = SetList - self.SetLabel = SetLabel - self.SetDisabled = SetDisabled - self.AddItem = AddItem - self.SetMultiselect = SetMultiselect - self.GetMultiselect = GetMultiselect - self.SetItemValue = SetItemValue - self.SetItemDisabled = SetItemDisabled - self.ToggleDrop = ToggleDrop - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) - -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BorderWidget.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BorderWidget.lua deleted file mode 100644 index 0f2cbea..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/BorderWidget.lua +++ /dev/null @@ -1,230 +0,0 @@ --- Widget is based on the AceGUIWidget-DropDown.lua supplied with AceGUI-3.0 --- Widget created by Yssaril - -local AceGUI = LibStub("AceGUI-3.0") -local Media = LibStub("LibSharedMedia-3.0") - -local AGSMW = LibStub("AceGUISharedMediaWidgets-1.0") - -do - local widgetType = "LSM30_Border" - local widgetVersion = 13 - - local contentFrameCache = {} - local function ReturnSelf(self) - self:ClearAllPoints() - self:Hide() - self.check:Hide() - table.insert(contentFrameCache, self) - end - - local function ContentOnClick(this, button) - local self = this.obj - self:Fire("OnValueChanged", this.text:GetText()) - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function ContentOnEnter(this, button) - local self = this.obj - local text = this.text:GetText() - local border = self.list[text] ~= text and self.list[text] or Media:Fetch('border',text) - this.dropdown:SetBackdrop({edgeFile = border, - bgFile=[[Interface\DialogFrame\UI-DialogBox-Background-Dark]], - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 4, right = 4, top = 4, bottom = 4 }}) - end - - local function GetContentLine() - local frame - if next(contentFrameCache) then - frame = table.remove(contentFrameCache) - else - frame = CreateFrame("Button", nil, UIParent) - --frame:SetWidth(200) - frame:SetHeight(18) - frame:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]], "ADD") - frame:SetScript("OnClick", ContentOnClick) - frame:SetScript("OnEnter", ContentOnEnter) - local check = frame:CreateTexture("OVERLAY") - check:SetWidth(16) - check:SetHeight(16) - check:SetPoint("LEFT",frame,"LEFT",1,-1) - check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check") - check:Hide() - frame.check = check - local text = frame:CreateFontString(nil,"OVERLAY","GameFontWhite") - text:SetPoint("TOPLEFT", check, "TOPRIGHT", 1, 0) - text:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -2, 0) - text:SetJustifyH("LEFT") - text:SetText("Test Test Test Test Test Test Test") - frame.text = text - frame.ReturnSelf = ReturnSelf - end - frame:Show() - return frame - end - - local function OnAcquire(self) - self:SetHeight(44) - self:SetWidth(200) - end - - local function OnRelease(self) - self:SetText("") - self:SetLabel("") - self:SetDisabled(false) - - self.value = nil - self.list = nil - self.open = nil - self.hasClose = nil - - self.frame:ClearAllPoints() - self.frame:Hide() - end - - local function SetValue(self, value) -- Set the value to an item in the List. - if self.list then - self:SetText(value or "") - end - self.value = value - end - - local function GetValue(self) - return self.value - end - - local function SetList(self, list) -- Set the list of values for the dropdown (key => value pairs) - self.list = list or Media:HashTable("border") - end - - - local function SetText(self, text) -- Set the text displayed in the box. - self.frame.text:SetText(text or "") - local border = self.list[text] ~= text and self.list[text] or Media:Fetch('border',text) - - self.frame.displayButton:SetBackdrop({edgeFile = border, - bgFile=[[Interface\DialogFrame\UI-DialogBox-Background-Dark]], - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 4, right = 4, top = 4, bottom = 4 }}) - end - - local function SetLabel(self, text) -- Set the text for the label. - self.frame.label:SetText(text or "") - end - - local function AddItem(self, key, value) -- Add an item to the list. - self.list = self.list or {} - self.list[key] = value - end - local SetItemValue = AddItem -- Set the value of a item in the list. <<same as adding a new item>> - - local function SetMultiselect(self, flag) end -- Toggle multi-selecting. <<Dummy function to stay inline with the dropdown API>> - local function GetMultiselect() return false end-- Query the multi-select flag. <<Dummy function to stay inline with the dropdown API>> - local function SetItemDisabled(self, key) end-- Disable one item in the list. <<Dummy function to stay inline with the dropdown API>> - - local function SetDisabled(self, disabled) -- Disable the widget. - self.disabled = disabled - if disabled then - self.frame:Disable() - else - self.frame:Enable() - end - end - - local function textSort(a,b) - return string.upper(a) < string.upper(b) - end - - local sortedlist = {} - local function ToggleDrop(this) - local self = this.obj - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - AceGUI:ClearFocus() - else - AceGUI:SetFocus(self) - self.dropdown = AGSMW:GetDropDownFrame() - local width = self.frame:GetWidth() - self.dropdown:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT") - self.dropdown:SetPoint("TOPRIGHT", self.frame, "BOTTOMRIGHT", width < 160 and (160 - width) or 0, 0) - for k, v in pairs(self.list) do - sortedlist[#sortedlist+1] = k - end - table.sort(sortedlist, textSort) - for i, k in ipairs(sortedlist) do - local f = GetContentLine() - f.text:SetText(k) - --print(k) - if k == self.value then - f.check:Show() - end - f.obj = self - f.dropdown = self.dropdown - self.dropdown:AddFrame(f) - end - wipe(sortedlist) - end - end - - local function ClearFocus(self) - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function OnHide(this) - local self = this.obj - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function Drop_OnEnter(this) - this.obj:Fire("OnEnter") - end - - local function Drop_OnLeave(this) - this.obj:Fire("OnLeave") - end - - local function Constructor() - local frame = AGSMW:GetBaseFrameWithWindow() - local self = {} - - self.type = widgetType - self.frame = frame - frame.obj = self - frame.dropButton.obj = self - frame.dropButton:SetScript("OnEnter", Drop_OnEnter) - frame.dropButton:SetScript("OnLeave", Drop_OnLeave) - frame.dropButton:SetScript("OnClick",ToggleDrop) - frame:SetScript("OnHide", OnHide) - - self.alignoffset = 31 - - self.OnRelease = OnRelease - self.OnAcquire = OnAcquire - self.ClearFocus = ClearFocus - self.SetText = SetText - self.SetValue = SetValue - self.GetValue = GetValue - self.SetList = SetList - self.SetLabel = SetLabel - self.SetDisabled = SetDisabled - self.AddItem = AddItem - self.SetMultiselect = SetMultiselect - self.GetMultiselect = GetMultiselect - self.SetItemValue = SetItemValue - self.SetItemDisabled = SetItemDisabled - self.ToggleDrop = ToggleDrop - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) - -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/FontWidget.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/FontWidget.lua deleted file mode 100644 index e9f98b9..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/FontWidget.lua +++ /dev/null @@ -1,216 +0,0 @@ --- Widget is based on the AceGUIWidget-DropDown.lua supplied with AceGUI-3.0 --- Widget created by Yssaril - -local AceGUI = LibStub("AceGUI-3.0") -local Media = LibStub("LibSharedMedia-3.0") - -local AGSMW = LibStub("AceGUISharedMediaWidgets-1.0") - -do - local widgetType = "LSM30_Font" - local widgetVersion = 13 - - local contentFrameCache = {} - local function ReturnSelf(self) - self:ClearAllPoints() - self:Hide() - self.check:Hide() - table.insert(contentFrameCache, self) - end - - local function ContentOnClick(this, button) - local self = this.obj - self:Fire("OnValueChanged", this.text:GetText()) - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function GetContentLine() - local frame - if next(contentFrameCache) then - frame = table.remove(contentFrameCache) - else - frame = CreateFrame("Button", nil, UIParent) - --frame:SetWidth(200) - frame:SetHeight(18) - frame:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]], "ADD") - frame:SetScript("OnClick", ContentOnClick) - local check = frame:CreateTexture("OVERLAY") - check:SetWidth(16) - check:SetHeight(16) - check:SetPoint("LEFT",frame,"LEFT",1,-1) - check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check") - check:Hide() - frame.check = check - local text = frame:CreateFontString(nil,"OVERLAY","GameFontWhite") - text:SetPoint("TOPLEFT", check, "TOPRIGHT", 1, 0) - text:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -2, 0) - text:SetJustifyH("LEFT") - text:SetText("Test Test Test Test Test Test Test") - frame.text = text - frame.ReturnSelf = ReturnSelf - end - frame:Show() - return frame - end - - local function OnAcquire(self) - self:SetHeight(44) - self:SetWidth(200) - end - - local function OnRelease(self) - self:SetText("") - self:SetLabel("") - self:SetDisabled(false) - - self.value = nil - self.list = nil - self.open = nil - self.hasClose = nil - - self.frame:ClearAllPoints() - self.frame:Hide() - end - - local function SetValue(self, value) -- Set the value to an item in the List. - if self.list then - self:SetText(value or "") - end - self.value = value - end - - local function GetValue(self) - return self.value - end - - local function SetList(self, list) -- Set the list of values for the dropdown (key => value pairs) - self.list = list or Media:HashTable("font") - end - - local function SetText(self, text) -- Set the text displayed in the box. - self.frame.text:SetText(text or "") - local font = self.list[text] ~= text and self.list[text] or Media:Fetch('font',text) - local _, size, outline= self.frame.text:GetFont() - self.frame.text:SetFont(font,size,outline) - end - - local function SetLabel(self, text) -- Set the text for the label. - self.frame.label:SetText(text or "") - end - - local function AddItem(self, key, value) -- Add an item to the list. - self.list = self.list or {} - self.list[key] = value - end - local SetItemValue = AddItem -- Set the value of a item in the list. <<same as adding a new item>> - - local function SetMultiselect(self, flag) end -- Toggle multi-selecting. <<Dummy function to stay inline with the dropdown API>> - local function GetMultiselect() return false end-- Query the multi-select flag. <<Dummy function to stay inline with the dropdown API>> - local function SetItemDisabled(self, key) end-- Disable one item in the list. <<Dummy function to stay inline with the dropdown API>> - - local function SetDisabled(self, disabled) -- Disable the widget. - self.disabled = disabled - if disabled then - self.frame:Disable() - else - self.frame:Enable() - end - end - - local function textSort(a,b) - return string.upper(a) < string.upper(b) - end - - local sortedlist = {} - local function ToggleDrop(this) - local self = this.obj - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - AceGUI:ClearFocus() - else - AceGUI:SetFocus(self) - self.dropdown = AGSMW:GetDropDownFrame() - local width = self.frame:GetWidth() - self.dropdown:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT") - self.dropdown:SetPoint("TOPRIGHT", self.frame, "BOTTOMRIGHT", width < 160 and (160 - width) or 0, 0) - for k, v in pairs(self.list) do - sortedlist[#sortedlist+1] = k - end - table.sort(sortedlist, textSort) - for i, k in ipairs(sortedlist) do - local f = GetContentLine() - local _, size, outline= f.text:GetFont() - local font = self.list[k] ~= k and self.list[k] or Media:Fetch('font',k) - f.text:SetFont(font,size,outline) - f.text:SetText(k) - if k == self.value then - f.check:Show() - end - f.obj = self - self.dropdown:AddFrame(f) - end - wipe(sortedlist) - end - end - - local function ClearFocus(self) - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function OnHide(this) - local self = this.obj - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function Drop_OnEnter(this) - this.obj:Fire("OnEnter") - end - - local function Drop_OnLeave(this) - this.obj:Fire("OnLeave") - end - - local function Constructor() - local frame = AGSMW:GetBaseFrame() - local self = {} - - self.type = widgetType - self.frame = frame - frame.obj = self - frame.dropButton.obj = self - frame.dropButton:SetScript("OnEnter", Drop_OnEnter) - frame.dropButton:SetScript("OnLeave", Drop_OnLeave) - frame.dropButton:SetScript("OnClick",ToggleDrop) - frame:SetScript("OnHide", OnHide) - - self.alignoffset = 31 - - self.OnRelease = OnRelease - self.OnAcquire = OnAcquire - self.ClearFocus = ClearFocus - self.SetText = SetText - self.SetValue = SetValue - self.GetValue = GetValue - self.SetList = SetList - self.SetLabel = SetLabel - self.SetDisabled = SetDisabled - self.AddItem = AddItem - self.SetMultiselect = SetMultiselect - self.GetMultiselect = GetMultiselect - self.SetItemValue = SetItemValue - self.SetItemDisabled = SetItemDisabled - self.ToggleDrop = ToggleDrop - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) - -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/SoundWidget.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/SoundWidget.lua deleted file mode 100644 index 77557a5..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/SoundWidget.lua +++ /dev/null @@ -1,264 +0,0 @@ --- Widget is based on the AceGUIWidget-DropDown.lua supplied with AceGUI-3.0 --- Widget created by Yssaril - -local AceGUI = LibStub("AceGUI-3.0") -local Media = LibStub("LibSharedMedia-3.0") - -local AGSMW = LibStub("AceGUISharedMediaWidgets-1.0") - -do - local widgetType = "LSM30_Sound" - local widgetVersion = 13 - - local contentFrameCache = {} - local function ReturnSelf(self) - self:ClearAllPoints() - self:Hide() - self.check:Hide() - table.insert(contentFrameCache, self) - end - - local function ContentOnClick(this, button) - local self = this.obj - self:Fire("OnValueChanged", this.text:GetText()) - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function ContentSpeakerOnClick(this, button) - local self = this.frame.obj - local sound = this.frame.text:GetText() - PlaySoundFile(self.list[sound] ~= sound and self.list[sound] or Media:Fetch('sound',sound), "Master") - end - - local function GetContentLine() - local frame - if next(contentFrameCache) then - frame = table.remove(contentFrameCache) - else - frame = CreateFrame("Button", nil, UIParent) - --frame:SetWidth(200) - frame:SetHeight(18) - frame:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]], "ADD") - frame:SetScript("OnClick", ContentOnClick) - local check = frame:CreateTexture("OVERLAY") - check:SetWidth(16) - check:SetHeight(16) - check:SetPoint("LEFT",frame,"LEFT",1,-1) - check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check") - check:Hide() - frame.check = check - - local soundbutton = CreateFrame("Button", nil, frame) - soundbutton:SetWidth(16) - soundbutton:SetHeight(16) - soundbutton:SetPoint("RIGHT",frame,"RIGHT",-1,0) - soundbutton.frame = frame - soundbutton:SetScript("OnClick", ContentSpeakerOnClick) - frame.soundbutton = soundbutton - - local speaker = soundbutton:CreateTexture(nil, "BACKGROUND") - speaker:SetTexture("Interface\\Common\\VoiceChat-Speaker") - speaker:SetAllPoints(soundbutton) - frame.speaker = speaker - local speakeron = soundbutton:CreateTexture(nil, "HIGHLIGHT") - speakeron:SetTexture("Interface\\Common\\VoiceChat-On") - speakeron:SetAllPoints(soundbutton) - frame.speakeron = speakeron - - local text = frame:CreateFontString(nil,"OVERLAY","GameFontWhite") - text:SetPoint("TOPLEFT", check, "TOPRIGHT", 1, 0) - text:SetPoint("BOTTOMRIGHT", soundbutton, "BOTTOMLEFT", -2, 0) - text:SetJustifyH("LEFT") - text:SetText("Test Test Test Test Test Test Test") - frame.text = text - frame.ReturnSelf = ReturnSelf - end - frame:Show() - return frame - end - - local function OnAcquire(self) - self:SetHeight(44) - self:SetWidth(200) - end - - local function OnRelease(self) - self:SetText("") - self:SetLabel("") - self:SetDisabled(false) - - self.value = nil - self.list = nil - self.open = nil - self.hasClose = nil - - self.frame:ClearAllPoints() - self.frame:Hide() - end - - local function SetValue(self, value) -- Set the value to an item in the List. - if self.list then - self:SetText(value or "") - end - self.value = value - end - - local function GetValue(self) - return self.value - end - - local function SetList(self, list) -- Set the list of values for the dropdown (key => value pairs) - self.list = list or Media:HashTable("sound") - end - - local function SetText(self, text) -- Set the text displayed in the box. - self.frame.text:SetText(text or "") - end - - local function SetLabel(self, text) -- Set the text for the label. - self.frame.label:SetText(text or "") - end - - local function AddItem(self, key, value) -- Add an item to the list. - self.list = self.list or {} - self.list[key] = value - end - local SetItemValue = AddItem -- Set the value of a item in the list. <<same as adding a new item>> - - local function SetMultiselect(self, flag) end -- Toggle multi-selecting. <<Dummy function to stay inline with the dropdown API>> - local function GetMultiselect() return false end-- Query the multi-select flag. <<Dummy function to stay inline with the dropdown API>> - local function SetItemDisabled(self, key) end-- Disable one item in the list. <<Dummy function to stay inline with the dropdown API>> - - local function SetDisabled(self, disabled) -- Disable the widget. - self.disabled = disabled - if disabled then - self.frame:Disable() - self.speaker:SetDesaturated(true) - self.speakeron:SetDesaturated(true) - else - self.frame:Enable() - self.speaker:SetDesaturated(false) - self.speakeron:SetDesaturated(false) - end - end - - local function textSort(a,b) - return string.upper(a) < string.upper(b) - end - - local sortedlist = {} - local function ToggleDrop(this) - local self = this.obj - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - AceGUI:ClearFocus() - else - AceGUI:SetFocus(self) - self.dropdown = AGSMW:GetDropDownFrame() - local width = self.frame:GetWidth() - self.dropdown:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT") - self.dropdown:SetPoint("TOPRIGHT", self.frame, "BOTTOMRIGHT", width < 160 and (160 - width) or 0, 0) - for k, v in pairs(self.list) do - sortedlist[#sortedlist+1] = k - end - table.sort(sortedlist, textSort) - for i, k in ipairs(sortedlist) do - local f = GetContentLine() - f.text:SetText(k) - if k == self.value then - f.check:Show() - end - f.obj = self - self.dropdown:AddFrame(f) - end - wipe(sortedlist) - end - end - - local function ClearFocus(self) - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function OnHide(this) - local self = this.obj - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function Drop_OnEnter(this) - this.obj:Fire("OnEnter") - end - - local function Drop_OnLeave(this) - this.obj:Fire("OnLeave") - end - - local function WidgetPlaySound(this) - local self = this.obj - local sound = self.frame.text:GetText() - PlaySoundFile(self.list[sound] ~= sound and self.list[sound] or Media:Fetch('sound',sound), "Master") - end - - local function Constructor() - local frame = AGSMW:GetBaseFrame() - local self = {} - - self.type = widgetType - self.frame = frame - frame.obj = self - frame.dropButton.obj = self - frame.dropButton:SetScript("OnEnter", Drop_OnEnter) - frame.dropButton:SetScript("OnLeave", Drop_OnLeave) - frame.dropButton:SetScript("OnClick",ToggleDrop) - frame:SetScript("OnHide", OnHide) - - - local soundbutton = CreateFrame("Button", nil, frame) - soundbutton:SetWidth(16) - soundbutton:SetHeight(16) - soundbutton:SetPoint("LEFT",frame.DLeft,"LEFT",26,1) - soundbutton:SetScript("OnClick", WidgetPlaySound) - soundbutton.obj = self - self.soundbutton = soundbutton - frame.text:SetPoint("LEFT",soundbutton,"RIGHT",2,0) - - - local speaker = soundbutton:CreateTexture(nil, "BACKGROUND") - speaker:SetTexture("Interface\\Common\\VoiceChat-Speaker") - speaker:SetAllPoints(soundbutton) - self.speaker = speaker - local speakeron = soundbutton:CreateTexture(nil, "HIGHLIGHT") - speakeron:SetTexture("Interface\\Common\\VoiceChat-On") - speakeron:SetAllPoints(soundbutton) - self.speakeron = speakeron - - self.alignoffset = 31 - - self.OnRelease = OnRelease - self.OnAcquire = OnAcquire - self.ClearFocus = ClearFocus - self.SetText = SetText - self.SetValue = SetValue - self.GetValue = GetValue - self.SetList = SetList - self.SetLabel = SetLabel - self.SetDisabled = SetDisabled - self.AddItem = AddItem - self.SetMultiselect = SetMultiselect - self.GetMultiselect = GetMultiselect - self.SetItemValue = SetItemValue - self.SetItemDisabled = SetItemDisabled - self.ToggleDrop = ToggleDrop - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) - -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/StatusbarWidget.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/StatusbarWidget.lua deleted file mode 100644 index 05467aa..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/StatusbarWidget.lua +++ /dev/null @@ -1,233 +0,0 @@ --- Widget is based on the AceGUIWidget-DropDown.lua supplied with AceGUI-3.0 --- Widget created by Yssaril - -local AceGUI = LibStub("AceGUI-3.0") -local Media = LibStub("LibSharedMedia-3.0") - -local AGSMW = LibStub("AceGUISharedMediaWidgets-1.0") - -do - local widgetType = "LSM30_Statusbar" - local widgetVersion = 13 - - local contentFrameCache = {} - local function ReturnSelf(self) - self:ClearAllPoints() - self:Hide() - self.check:Hide() - table.insert(contentFrameCache, self) - end - - local function ContentOnClick(this, button) - local self = this.obj - self:Fire("OnValueChanged", this.text:GetText()) - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function GetContentLine() - local frame - if next(contentFrameCache) then - frame = table.remove(contentFrameCache) - else - frame = CreateFrame("Button", nil, UIParent) - --frame:SetWidth(200) - frame:SetHeight(18) - frame:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]], "ADD") - frame:SetScript("OnClick", ContentOnClick) - local check = frame:CreateTexture("OVERLAY") - check:SetWidth(16) - check:SetHeight(16) - check:SetPoint("LEFT",frame,"LEFT",1,-1) - check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check") - check:Hide() - frame.check = check - local bar = frame:CreateTexture("ARTWORK") - bar:SetHeight(16) - bar:SetPoint("LEFT",check,"RIGHT",1,0) - bar:SetPoint("RIGHT",frame,"RIGHT",-1,0) - frame.bar = bar - local text = frame:CreateFontString(nil,"OVERLAY","GameFontWhite") - - local font, size = text:GetFont() - text:SetFont(font,size,"OUTLINE") - - text:SetPoint("TOPLEFT", check, "TOPRIGHT", 3, 0) - text:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -2, 0) - text:SetJustifyH("LEFT") - text:SetText("Test Test Test Test Test Test Test") - frame.text = text - frame.ReturnSelf = ReturnSelf - end - frame:Show() - return frame - end - - local function OnAcquire(self) - self:SetHeight(44) - self:SetWidth(200) - end - - local function OnRelease(self) - self:SetText("") - self:SetLabel("") - self:SetDisabled(false) - - self.value = nil - self.list = nil - self.open = nil - self.hasClose = nil - - self.frame:ClearAllPoints() - self.frame:Hide() - end - - local function SetValue(self, value) -- Set the value to an item in the List. - if self.list then - self:SetText(value or "") - end - self.value = value - end - - local function GetValue(self) - return self.value - end - - local function SetList(self, list) -- Set the list of values for the dropdown (key => value pairs) - self.list = list or Media:HashTable("statusbar") - end - - - local function SetText(self, text) -- Set the text displayed in the box. - self.frame.text:SetText(text or "") - local statusbar = self.list[text] ~= text and self.list[text] or Media:Fetch('statusbar',text) - self.bar:SetTexture(statusbar) - end - - local function SetLabel(self, text) -- Set the text for the label. - self.frame.label:SetText(text or "") - end - - local function AddItem(self, key, value) -- Add an item to the list. - self.list = self.list or {} - self.list[key] = value - end - local SetItemValue = AddItem -- Set the value of a item in the list. <<same as adding a new item>> - - local function SetMultiselect(self, flag) end -- Toggle multi-selecting. <<Dummy function to stay inline with the dropdown API>> - local function GetMultiselect() return false end-- Query the multi-select flag. <<Dummy function to stay inline with the dropdown API>> - local function SetItemDisabled(self, key) end-- Disable one item in the list. <<Dummy function to stay inline with the dropdown API>> - - local function SetDisabled(self, disabled) -- Disable the widget. - self.disabled = disabled - if disabled then - self.frame:Disable() - else - self.frame:Enable() - end - end - - local function textSort(a,b) - return string.upper(a) < string.upper(b) - end - - local sortedlist = {} - local function ToggleDrop(this) - local self = this.obj - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - AceGUI:ClearFocus() - else - AceGUI:SetFocus(self) - self.dropdown = AGSMW:GetDropDownFrame() - local width = self.frame:GetWidth() - self.dropdown:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT") - self.dropdown:SetPoint("TOPRIGHT", self.frame, "BOTTOMRIGHT", width < 160 and (160 - width) or 0, 0) - for k, v in pairs(self.list) do - sortedlist[#sortedlist+1] = k - end - table.sort(sortedlist, textSort) - for i, k in ipairs(sortedlist) do - local f = GetContentLine() - f.text:SetText(k) - --print(k) - if k == self.value then - f.check:Show() - end - - local statusbar = self.list[k] ~= k and self.list[k] or Media:Fetch('statusbar',k) - f.bar:SetTexture(statusbar) - f.obj = self - f.dropdown = self.dropdown - self.dropdown:AddFrame(f) - end - wipe(sortedlist) - end - end - - local function ClearFocus(self) - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function OnHide(this) - local self = this.obj - if self.dropdown then - self.dropdown = AGSMW:ReturnDropDownFrame(self.dropdown) - end - end - - local function Drop_OnEnter(this) - this.obj:Fire("OnEnter") - end - - local function Drop_OnLeave(this) - this.obj:Fire("OnLeave") - end - - local function Constructor() - local frame = AGSMW:GetBaseFrame() - local self = {} - - self.type = widgetType - self.frame = frame - frame.obj = self - frame.dropButton.obj = self - frame.dropButton:SetScript("OnEnter", Drop_OnEnter) - frame.dropButton:SetScript("OnLeave", Drop_OnLeave) - frame.dropButton:SetScript("OnClick",ToggleDrop) - frame:SetScript("OnHide", OnHide) - - local bar = frame:CreateTexture(nil, "OVERLAY") - bar:SetPoint("TOPLEFT", frame,"TOPLEFT",6,-25) - bar:SetPoint("BOTTOMRIGHT", frame,"BOTTOMRIGHT", -21, 5) - bar:SetAlpha(0.5) - self.bar = bar - - self.alignoffset = 31 - - self.OnRelease = OnRelease - self.OnAcquire = OnAcquire - self.ClearFocus = ClearFocus - self.SetText = SetText - self.SetValue = SetValue - self.GetValue = GetValue - self.SetList = SetList - self.SetLabel = SetLabel - self.SetDisabled = SetDisabled - self.AddItem = AddItem - self.SetMultiselect = SetMultiselect - self.GetMultiselect = GetMultiselect - self.SetItemValue = SetItemValue - self.SetItemDisabled = SetItemDisabled - self.ToggleDrop = ToggleDrop - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) - -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/prototypes.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/prototypes.lua deleted file mode 100644 index 95b511d..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/prototypes.lua +++ /dev/null @@ -1,266 +0,0 @@ --- Widget created by Yssaril -local DataVersion = 9004 -local AGSMW = LibStub:NewLibrary("AceGUISharedMediaWidgets-1.0", DataVersion) - -if not AGSMW then - return -- already loaded and no upgrade necessary -end - -local AceGUI = LibStub("AceGUI-3.0") -local Media = LibStub("LibSharedMedia-3.0") - -AGSMW = AGSMW or {} - -AceGUIWidgetLSMlists = { - ['font'] = Media:HashTable("font"), - ['sound'] = Media:HashTable("sound"), - ['statusbar'] = Media:HashTable("statusbar"), - ['border'] = Media:HashTable("border"), - ['background'] = Media:HashTable("background"), -} - -do - local function disable(frame) - frame.label:SetTextColor(.5,.5,.5) - frame.text:SetTextColor(.5,.5,.5) - frame.dropButton:Disable() - if frame.displayButtonFont then - frame.displayButtonFont:SetTextColor(.5,.5,.5) - frame.displayButton:Disable() - end - end - - local function enable(frame) - frame.label:SetTextColor(1,.82,0) - frame.text:SetTextColor(1,1,1) - frame.dropButton:Enable() - if frame.displayButtonFont then - frame.displayButtonFont:SetTextColor(1,1,1) - frame.displayButton:Enable() - end - end - - local displayButtonBackdrop = { - edgeFile = "Interface/Tooltips/UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 4, right = 4, top = 4, bottom = 4 }, - } - - -- create or retrieve BaseFrame - function AGSMW:GetBaseFrame() - local frame = CreateFrame("Frame", nil, UIParent) - frame:SetHeight(44) - frame:SetWidth(200) - - local label = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall") - label:SetPoint("TOPLEFT",frame,"TOPLEFT",0,0) - label:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0) - label:SetJustifyH("LEFT") - label:SetHeight(18) - label:SetText("") - frame.label = label - - local DLeft = frame:CreateTexture(nil, "ARTWORK") - DLeft:SetWidth(25) - DLeft:SetHeight(64) - DLeft:SetPoint("BOTTOMLEFT", frame, "BOTTOMLEFT", -17, -21) - DLeft:SetTexture([[Interface\Glues\CharacterCreate\CharacterCreate-LabelFrame]]) - DLeft:SetTexCoord(0, 0.1953125, 0, 1) - frame.DLeft = DLeft - - local DRight = frame:CreateTexture(nil, "ARTWORK") - DRight:SetWidth(25) - DRight:SetHeight(64) - DRight:SetPoint("TOP", DLeft, "TOP") - DRight:SetPoint("RIGHT", frame, "RIGHT", 17, 0) - DRight:SetTexture([[Interface\Glues\CharacterCreate\CharacterCreate-LabelFrame]]) - DRight:SetTexCoord(0.8046875, 1, 0, 1) - frame.DRight = DRight - - local DMiddle = frame:CreateTexture(nil, "ARTWORK") - DMiddle:SetHeight(64) - DMiddle:SetPoint("TOP", DLeft, "TOP") - DMiddle:SetPoint("LEFT", DLeft, "RIGHT") - DMiddle:SetPoint("RIGHT", DRight, "LEFT") - DMiddle:SetTexture([[Interface\Glues\CharacterCreate\CharacterCreate-LabelFrame]]) - DMiddle:SetTexCoord(0.1953125, 0.8046875, 0, 1) - frame.DMiddle = DMiddle - - local text = frame:CreateFontString(nil,"OVERLAY","GameFontHighlightSmall") - text:SetPoint("RIGHT",DRight,"RIGHT",-43,1) - text:SetPoint("LEFT",DLeft,"LEFT",26,1) - text:SetJustifyH("RIGHT") - text:SetHeight(18) - text:SetText("") - frame.text = text - - local dropButton = CreateFrame("Button", nil, frame) - dropButton:SetWidth(24) - dropButton:SetHeight(24) - dropButton:SetPoint("TOPRIGHT", DRight, "TOPRIGHT", -16, -18) - dropButton:SetNormalTexture([[Interface\ChatFrame\UI-ChatIcon-ScrollDown-Up]]) - dropButton:SetPushedTexture([[Interface\ChatFrame\UI-ChatIcon-ScrollDown-Down]]) - dropButton:SetDisabledTexture([[Interface\ChatFrame\UI-ChatIcon-ScrollDown-Disabled]]) - dropButton:SetHighlightTexture([[Interface\Buttons\UI-Common-MouseHilight]], "ADD") - frame.dropButton = dropButton - - frame.Disable = disable - frame.Enable = enable - return frame - end - - function AGSMW:GetBaseFrameWithWindow() - local frame = self:GetBaseFrame() - - local displayButton = CreateFrame("Button", nil, frame, BackdropTemplateMixin and "BackdropTemplate") - displayButton:SetHeight(42) - displayButton:SetWidth(42) - displayButton:SetPoint("TOPLEFT", frame, "TOPLEFT", 1, -2) - displayButton:SetBackdrop(displayButtonBackdrop) - displayButton:SetBackdropBorderColor(.5, .5, .5) - frame.displayButton = displayButton - - frame.label:SetPoint("TOPLEFT",displayButton,"TOPRIGHT",1,2) - - frame.DLeft:SetPoint("BOTTOMLEFT", displayButton, "BOTTOMRIGHT", -17, -20) - - return frame - end - -end - -do - - 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 frameBackdrop = { - bgFile=[[Interface\DialogFrame\UI-DialogBox-Background-Dark]], - edgeFile = [[Interface\DialogFrame\UI-DialogBox-Border]], - tile = true, tileSize = 32, edgeSize = 32, - insets = { left = 11, right = 12, top = 12, bottom = 9 }, - } - - local function OnMouseWheel(self, dir) - self.slider:SetValue(self.slider:GetValue()+(15*dir*-1)) - end - - local function AddFrame(self, frame) - frame:SetParent(self.contentframe) - frame:SetFrameStrata(self:GetFrameStrata()) - frame:SetFrameLevel(self:GetFrameLevel() + 100) - - if next(self.contentRepo) then - frame:SetPoint("TOPLEFT", self.contentRepo[#self.contentRepo], "BOTTOMLEFT", 0, 0) - frame:SetPoint("RIGHT", self.contentframe, "RIGHT", 0, 0) - self.contentframe:SetHeight(self.contentframe:GetHeight() + frame:GetHeight()) - self.contentRepo[#self.contentRepo+1] = frame - else - self.contentframe:SetHeight(frame:GetHeight()) - frame:SetPoint("TOPLEFT", self.contentframe, "TOPLEFT", 0, 0) - frame:SetPoint("RIGHT", self.contentframe, "RIGHT", 0, 0) - self.contentRepo[1] = frame - end - - if self.contentframe:GetHeight() > UIParent:GetHeight()*2/5 - 20 then - self.scrollframe:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -28, 12) - self:SetHeight(UIParent:GetHeight()*2/5) - self.slider:Show() - self:SetScript("OnMouseWheel", OnMouseWheel) - self.slider:SetMinMaxValues(0, self.contentframe:GetHeight()-self.scrollframe:GetHeight()) - else - self.scrollframe:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -14, 12) - self:SetHeight(self.contentframe:GetHeight()+25) - self.slider:Hide() - self:SetScript("OnMouseWheel", nil) - self.slider:SetMinMaxValues(0, 0) - end - self.contentframe:SetWidth(self.scrollframe:GetWidth()) - end - - local function ClearFrames(self) - for i, frame in ipairs(self.contentRepo) do - frame:ReturnSelf() - self.contentRepo[i] = nil - end - end - - local function slider_OnValueChanged(self, value) - self.frame.scrollframe:SetVerticalScroll(value) - end - - local DropDownCache = {} - function AGSMW:GetDropDownFrame() - local frame - if next(DropDownCache) then - frame = table.remove(DropDownCache) - else - frame = CreateFrame("Frame", nil, UIParent, BackdropTemplateMixin and "BackdropTemplate") - frame:SetClampedToScreen(true) - frame:SetWidth(188) - frame:SetBackdrop(frameBackdrop) - frame:SetFrameStrata("TOOLTIP") - frame:EnableMouseWheel(true) - - local contentframe = CreateFrame("Frame", nil, frame) - contentframe:SetWidth(160) - contentframe:SetHeight(0) - frame.contentframe = contentframe - - local scrollframe = CreateFrame("ScrollFrame", nil, frame) - scrollframe:SetWidth(160) - scrollframe:SetPoint("TOPLEFT", frame, "TOPLEFT", 14, -13) - scrollframe:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -14, 12) - scrollframe:SetScrollChild(contentframe) - frame.scrollframe = scrollframe - - contentframe:SetPoint("TOPLEFT", scrollframe) - contentframe:SetPoint("TOPRIGHT", scrollframe) - - local bgTex = frame:CreateTexture(nil, "ARTWORK") - bgTex:SetAllPoints(scrollframe) - frame.bgTex = bgTex - - frame.AddFrame = AddFrame - frame.ClearFrames = ClearFrames - frame.contentRepo = {} -- store all our frames in here so we can get rid of them later - - local slider = CreateFrame("Slider", nil, scrollframe, BackdropTemplateMixin and "BackdropTemplate") - slider:SetOrientation("VERTICAL") - slider:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -14, -10) - slider:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -14, 10) - slider:SetBackdrop(sliderBackdrop) - slider:SetThumbTexture([[Interface\Buttons\UI-SliderBar-Button-Vertical]]) - slider:SetMinMaxValues(0, 1) - --slider:SetValueStep(1) - slider:SetWidth(12) - slider.frame = frame - slider:SetScript("OnValueChanged", slider_OnValueChanged) - frame.slider = slider - end - frame:SetHeight(UIParent:GetHeight()*2/5) - frame.slider:SetValue(0) - frame:Show() - return frame - end - - function AGSMW:ReturnDropDownFrame(frame) - ClearFrames(frame) - frame:ClearAllPoints() - frame:Hide() - frame:SetBackdrop(frameBackdrop) - frame.bgTex:SetTexture(nil) - table.insert(DropDownCache, frame) - return nil - end -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/widget.xml b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/widget.xml deleted file mode 100644 index 43c46a1..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/widget.xml +++ /dev/null @@ -1,9 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="prototypes.lua" /> - <Script file="FontWidget.lua" /> - <Script file="SoundWidget.lua" /> - <Script file="StatusbarWidget.lua" /> - <Script file="BorderWidget.lua" /> - <Script file="BackgroundWidget.lua" /> -</Ui> diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/CHANGES.txt b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/CHANGES.txt deleted file mode 100644 index 410408e..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/CHANGES.txt +++ /dev/null @@ -1,12 +0,0 @@ ------------------------------------------------------------------------- -r64 | nevcairiel | 2020-10-19 22:06:38 +0000 (Mon, 19 Oct 2020) | 1 line -Changed paths: - M /trunk/AceGUI-3.0-SharedMediaWidgets/BorderWidget.lua - M /trunk/AceGUI-3.0-SharedMediaWidgets/FontWidget.lua - M /trunk/AceGUI-3.0-SharedMediaWidgets/SoundWidget.lua - M /trunk/AceGUI-3.0-SharedMediaWidgets/StatusbarWidget.lua - M /trunk/AceGUI-3.0-SharedMediaWidgets.toc - -Bump all widget versions to ensure the new prototype is used everywhere ------------------------------------------------------------------------- - diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.lua deleted file mode 100644 index cde61f6..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.lua +++ /dev/null @@ -1,1026 +0,0 @@ ---- **AceGUI-3.0** provides access to numerous widgets which can be used to create GUIs. --- AceGUI is used by AceConfigDialog to create the option GUIs, but you can use it by itself --- to create any custom GUI. There are more extensive examples in the test suite in the Ace3 --- stand-alone distribution. --- --- **Note**: When using AceGUI-3.0 directly, please do not modify the frames of the widgets directly, --- as any "unknown" change to the widgets will cause addons that get your widget out of the widget pool --- to misbehave. If you think some part of a widget should be modifiable, please open a ticket, and we"ll --- implement a proper API to modify it. --- @usage --- local AceGUI = LibStub("AceGUI-3.0") --- -- Create a container frame --- local f = AceGUI:Create("Frame") --- f:SetCallback("OnClose",function(widget) AceGUI:Release(widget) end) --- f:SetTitle("AceGUI-3.0 Example") --- f:SetStatusText("Status Bar") --- f:SetLayout("Flow") --- -- Create a button --- local btn = AceGUI:Create("Button") --- btn:SetWidth(170) --- btn:SetText("Button !") --- btn:SetCallback("OnClick", function() print("Click!") end) --- -- Add the button to the container --- f:AddChild(btn) --- @class file --- @name AceGUI-3.0 --- @release $Id: AceGUI-3.0.lua 1231 2020-04-14 22:20:36Z nevcairiel $ -local ACEGUI_MAJOR, ACEGUI_MINOR = "AceGUI-3.0", 41 -local AceGUI, oldminor = LibStub:NewLibrary(ACEGUI_MAJOR, ACEGUI_MINOR) - -if not AceGUI then return end -- No upgrade needed - --- Lua APIs -local tinsert = table.insert -local select, pairs, next, type = select, pairs, next, type -local error, assert = error, assert -local setmetatable, rawget = setmetatable, rawget -local math_max = math.max - --- WoW APIs -local UIParent = UIParent - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: geterrorhandler, LibStub - ---local con = LibStub("AceConsole-3.0",true) - -AceGUI.WidgetRegistry = AceGUI.WidgetRegistry or {} -AceGUI.LayoutRegistry = AceGUI.LayoutRegistry or {} -AceGUI.WidgetBase = AceGUI.WidgetBase or {} -AceGUI.WidgetContainerBase = AceGUI.WidgetContainerBase or {} -AceGUI.WidgetVersions = AceGUI.WidgetVersions or {} -AceGUI.tooltip = AceGUI.tooltip or CreateFrame("GameTooltip", "AceGUITooltip", UIParent, "GameTooltipTemplate") - --- local upvalues -local WidgetRegistry = AceGUI.WidgetRegistry -local LayoutRegistry = AceGUI.LayoutRegistry -local WidgetVersions = AceGUI.WidgetVersions - ---[[ - xpcall safecall implementation -]] -local xpcall = xpcall - -local function errorhandler(err) - return geterrorhandler()(err) -end - -local function safecall(func, ...) - if func then - return xpcall(func, errorhandler, ...) - end -end - --- Recycling functions -local newWidget, delWidget -do - -- Version Upgrade in Minor 29 - -- Internal Storage of the objects changed, from an array table - -- to a hash table, and additionally we introduced versioning on - -- the widgets which would discard all widgets from a pre-29 version - -- anyway, so we just clear the storage now, and don't try to - -- convert the storage tables to the new format. - -- This should generally not cause *many* widgets to end up in trash, - -- since once dialogs are opened, all addons should be loaded already - -- and AceGUI should be on the latest version available on the users - -- setup. - -- -- nevcairiel - Nov 2nd, 2009 - if oldminor and oldminor < 29 and AceGUI.objPools then - AceGUI.objPools = nil - end - - AceGUI.objPools = AceGUI.objPools or {} - local objPools = AceGUI.objPools - --Returns a new instance, if none are available either returns a new table or calls the given contructor - function newWidget(type) - if not WidgetRegistry[type] then - error("Attempt to instantiate unknown widget type", 2) - end - - if not objPools[type] then - objPools[type] = {} - end - - local newObj = next(objPools[type]) - if not newObj then - newObj = WidgetRegistry[type]() - newObj.AceGUIWidgetVersion = WidgetVersions[type] - else - objPools[type][newObj] = nil - -- if the widget is older then the latest, don't even try to reuse it - -- just forget about it, and grab a new one. - if not newObj.AceGUIWidgetVersion or newObj.AceGUIWidgetVersion < WidgetVersions[type] then - return newWidget(type) - end - end - return newObj - end - -- Releases an instance to the Pool - function delWidget(obj,type) - if not objPools[type] then - objPools[type] = {} - end - if objPools[type][obj] then - error("Attempt to Release Widget that is already released", 2) - end - objPools[type][obj] = true - end -end - - -------------------- --- API Functions -- -------------------- - --- Gets a widget Object - ---- Create a new Widget of the given type. --- This function will instantiate a new widget (or use one from the widget pool), and call the --- OnAcquire function on it, before returning. --- @param type The type of the widget. --- @return The newly created widget. -function AceGUI:Create(type) - if WidgetRegistry[type] then - local widget = newWidget(type) - - if rawget(widget, "Acquire") then - widget.OnAcquire = widget.Acquire - widget.Acquire = nil - elseif rawget(widget, "Aquire") then - widget.OnAcquire = widget.Aquire - widget.Aquire = nil - end - - if rawget(widget, "Release") then - widget.OnRelease = rawget(widget, "Release") - widget.Release = nil - end - - if widget.OnAcquire then - widget:OnAcquire() - else - error(("Widget type %s doesn't supply an OnAcquire Function"):format(type)) - end - -- Set the default Layout ("List") - safecall(widget.SetLayout, widget, "List") - safecall(widget.ResumeLayout, widget) - return widget - end -end - ---- Releases a widget Object. --- This function calls OnRelease on the widget and places it back in the widget pool. --- Any data on the widget is being erased, and the widget will be hidden.\\ --- If this widget is a Container-Widget, all of its Child-Widgets will be releases as well. --- @param widget The widget to release -function AceGUI:Release(widget) - if widget.isQueuedForRelease then return end - widget.isQueuedForRelease = true - safecall(widget.PauseLayout, widget) - widget.frame:Hide() - widget:Fire("OnRelease") - safecall(widget.ReleaseChildren, widget) - - if widget.OnRelease then - widget:OnRelease() --- else --- error(("Widget type %s doesn't supply an OnRelease Function"):format(widget.type)) - end - for k in pairs(widget.userdata) do - widget.userdata[k] = nil - end - for k in pairs(widget.events) do - widget.events[k] = nil - end - widget.width = nil - widget.relWidth = nil - widget.height = nil - widget.relHeight = nil - widget.noAutoHeight = nil - widget.frame:ClearAllPoints() - widget.frame:Hide() - widget.frame:SetParent(UIParent) - widget.frame.width = nil - widget.frame.height = nil - if widget.content then - widget.content.width = nil - widget.content.height = nil - end - widget.isQueuedForRelease = nil - delWidget(widget, widget.type) -end - ---- Check if a widget is currently in the process of being released --- This function check if this widget, or any of its parents (in which case it'll be released shortly as well) --- are currently being released. This allows addon to handle any callbacks accordingly. --- @param widget The widget to check -function AceGUI:IsReleasing(widget) - if widget.isQueuedForRelease then - return true - end - - if widget.parent and widget.parent.AceGUIWidgetVersion then - return AceGUI:IsReleasing(widget.parent) - end - - return false -end - ------------ --- Focus -- ------------ - - ---- Called when a widget has taken focus. --- e.g. Dropdowns opening, Editboxes gaining kb focus --- @param widget The widget that should be focused -function AceGUI:SetFocus(widget) - if self.FocusedWidget and self.FocusedWidget ~= widget then - safecall(self.FocusedWidget.ClearFocus, self.FocusedWidget) - end - self.FocusedWidget = widget -end - - ---- Called when something has happened that could cause widgets with focus to drop it --- e.g. titlebar of a frame being clicked -function AceGUI:ClearFocus() - if self.FocusedWidget then - safecall(self.FocusedWidget.ClearFocus, self.FocusedWidget) - self.FocusedWidget = nil - end -end - -------------- --- Widgets -- -------------- ---[[ - Widgets must provide the following functions - OnAcquire() - Called when the object is acquired, should set everything to a default hidden state - - And the following members - frame - the frame or derivitive object that will be treated as the widget for size and anchoring purposes - type - the type of the object, same as the name given to :RegisterWidget() - - Widgets contain a table called userdata, this is a safe place to store data associated with the wigdet - It will be cleared automatically when a widget is released - Placing values directly into a widget object should be avoided - - If the Widget can act as a container for other Widgets the following - content - frame or derivitive that children will be anchored to - - The Widget can supply the following Optional Members - :OnRelease() - Called when the object is Released, should remove any additional anchors and clear any data - :OnWidthSet(width) - Called when the width of the widget is changed - :OnHeightSet(height) - Called when the height of the widget is changed - Widgets should not use the OnSizeChanged events of thier frame or content members, use these methods instead - AceGUI already sets a handler to the event - :LayoutFinished(width, height) - called after a layout has finished, the width and height will be the width and height of the - area used for controls. These can be nil if the layout used the existing size to layout the controls. - -]] - --------------------------- --- Widget Base Template -- --------------------------- -do - local WidgetBase = AceGUI.WidgetBase - - WidgetBase.SetParent = function(self, parent) - local frame = self.frame - frame:SetParent(nil) - frame:SetParent(parent.content) - self.parent = parent - end - - WidgetBase.SetCallback = function(self, name, func) - if type(func) == "function" then - self.events[name] = func - end - end - - WidgetBase.Fire = function(self, name, ...) - if self.events[name] then - local success, ret = safecall(self.events[name], self, name, ...) - if success then - return ret - end - end - end - - WidgetBase.SetWidth = function(self, width) - self.frame:SetWidth(width) - self.frame.width = width - if self.OnWidthSet then - self:OnWidthSet(width) - end - end - - WidgetBase.SetRelativeWidth = function(self, width) - if width <= 0 or width > 1 then - error(":SetRelativeWidth(width): Invalid relative width.", 2) - end - self.relWidth = width - self.width = "relative" - end - - WidgetBase.SetHeight = function(self, height) - self.frame:SetHeight(height) - self.frame.height = height - if self.OnHeightSet then - self:OnHeightSet(height) - end - end - - --[[ WidgetBase.SetRelativeHeight = function(self, height) - if height <= 0 or height > 1 then - error(":SetRelativeHeight(height): Invalid relative height.", 2) - end - self.relHeight = height - self.height = "relative" - end ]] - - WidgetBase.IsVisible = function(self) - return self.frame:IsVisible() - end - - WidgetBase.IsShown= function(self) - return self.frame:IsShown() - end - - WidgetBase.Release = function(self) - AceGUI:Release(self) - end - - WidgetBase.IsReleasing = function(self) - return AceGUI:IsReleasing(self) - end - - WidgetBase.SetPoint = function(self, ...) - return self.frame:SetPoint(...) - end - - WidgetBase.ClearAllPoints = function(self) - return self.frame:ClearAllPoints() - end - - WidgetBase.GetNumPoints = function(self) - return self.frame:GetNumPoints() - end - - WidgetBase.GetPoint = function(self, ...) - return self.frame:GetPoint(...) - end - - WidgetBase.GetUserDataTable = function(self) - return self.userdata - end - - WidgetBase.SetUserData = function(self, key, value) - self.userdata[key] = value - end - - WidgetBase.GetUserData = function(self, key) - return self.userdata[key] - end - - WidgetBase.IsFullHeight = function(self) - return self.height == "fill" - end - - WidgetBase.SetFullHeight = function(self, isFull) - if isFull then - self.height = "fill" - else - self.height = nil - end - end - - WidgetBase.IsFullWidth = function(self) - return self.width == "fill" - end - - WidgetBase.SetFullWidth = function(self, isFull) - if isFull then - self.width = "fill" - else - self.width = nil - end - end - --- local function LayoutOnUpdate(this) --- this:SetScript("OnUpdate",nil) --- this.obj:PerformLayout() --- end - - local WidgetContainerBase = AceGUI.WidgetContainerBase - - WidgetContainerBase.PauseLayout = function(self) - self.LayoutPaused = true - end - - WidgetContainerBase.ResumeLayout = function(self) - self.LayoutPaused = nil - end - - WidgetContainerBase.PerformLayout = function(self) - if self.LayoutPaused then - return - end - safecall(self.LayoutFunc, self.content, self.children) - end - - --call this function to layout, makes sure layed out objects get a frame to get sizes etc - WidgetContainerBase.DoLayout = function(self) - self:PerformLayout() --- if not self.parent then --- self.frame:SetScript("OnUpdate", LayoutOnUpdate) --- end - end - - WidgetContainerBase.AddChild = function(self, child, beforeWidget) - if beforeWidget then - local siblingIndex = 1 - for _, widget in pairs(self.children) do - if widget == beforeWidget then - break - end - siblingIndex = siblingIndex + 1 - end - tinsert(self.children, siblingIndex, child) - else - tinsert(self.children, child) - end - child:SetParent(self) - child.frame:Show() - self:DoLayout() - end - - WidgetContainerBase.AddChildren = function(self, ...) - for i = 1, select("#", ...) do - local child = select(i, ...) - tinsert(self.children, child) - child:SetParent(self) - child.frame:Show() - end - self:DoLayout() - end - - WidgetContainerBase.ReleaseChildren = function(self) - local children = self.children - for i = 1,#children do - AceGUI:Release(children[i]) - children[i] = nil - end - end - - WidgetContainerBase.SetLayout = function(self, Layout) - self.LayoutFunc = AceGUI:GetLayout(Layout) - end - - WidgetContainerBase.SetAutoAdjustHeight = function(self, adjust) - if adjust then - self.noAutoHeight = nil - else - self.noAutoHeight = true - end - end - - local function FrameResize(this) - local self = this.obj - if this:GetWidth() and this:GetHeight() then - if self.OnWidthSet then - self:OnWidthSet(this:GetWidth()) - end - if self.OnHeightSet then - self:OnHeightSet(this:GetHeight()) - end - end - end - - local function ContentResize(this) - if this:GetWidth() and this:GetHeight() then - this.width = this:GetWidth() - this.height = this:GetHeight() - this.obj:DoLayout() - end - end - - setmetatable(WidgetContainerBase, {__index=WidgetBase}) - - --One of these function should be called on each Widget Instance as part of its creation process - - --- Register a widget-class as a container for newly created widgets. - -- @param widget The widget class - function AceGUI:RegisterAsContainer(widget) - widget.children = {} - widget.userdata = {} - widget.events = {} - widget.base = WidgetContainerBase - widget.content.obj = widget - widget.frame.obj = widget - widget.content:SetScript("OnSizeChanged", ContentResize) - widget.frame:SetScript("OnSizeChanged", FrameResize) - setmetatable(widget, {__index = WidgetContainerBase}) - widget:SetLayout("List") - return widget - end - - --- Register a widget-class as a widget. - -- @param widget The widget class - function AceGUI:RegisterAsWidget(widget) - widget.userdata = {} - widget.events = {} - widget.base = WidgetBase - widget.frame.obj = widget - widget.frame:SetScript("OnSizeChanged", FrameResize) - setmetatable(widget, {__index = WidgetBase}) - return widget - end -end - - - - ------------------- --- Widget API -- ------------------- - ---- Registers a widget Constructor, this function returns a new instance of the Widget --- @param Name The name of the widget --- @param Constructor The widget constructor function --- @param Version The version of the widget -function AceGUI:RegisterWidgetType(Name, Constructor, Version) - assert(type(Constructor) == "function") - assert(type(Version) == "number") - - local oldVersion = WidgetVersions[Name] - if oldVersion and oldVersion >= Version then return end - - WidgetVersions[Name] = Version - WidgetRegistry[Name] = Constructor -end - ---- Registers a Layout Function --- @param Name The name of the layout --- @param LayoutFunc Reference to the layout function -function AceGUI:RegisterLayout(Name, LayoutFunc) - assert(type(LayoutFunc) == "function") - if type(Name) == "string" then - Name = Name:upper() - end - LayoutRegistry[Name] = LayoutFunc -end - ---- Get a Layout Function from the registry --- @param Name The name of the layout -function AceGUI:GetLayout(Name) - if type(Name) == "string" then - Name = Name:upper() - end - return LayoutRegistry[Name] -end - -AceGUI.counts = AceGUI.counts or {} - ---- A type-based counter to count the number of widgets created. --- This is used by widgets that require a named frame, e.g. when a Blizzard --- Template requires it. --- @param type The widget type -function AceGUI:GetNextWidgetNum(type) - if not self.counts[type] then - self.counts[type] = 0 - end - self.counts[type] = self.counts[type] + 1 - return self.counts[type] -end - ---- Return the number of created widgets for this type. --- In contrast to GetNextWidgetNum, the number is not incremented. --- @param type The widget type -function AceGUI:GetWidgetCount(type) - return self.counts[type] or 0 -end - ---- Return the version of the currently registered widget type. --- @param type The widget type -function AceGUI:GetWidgetVersion(type) - return WidgetVersions[type] -end - -------------- --- Layouts -- -------------- - ---[[ - A Layout is a func that takes 2 parameters - content - the frame that widgets will be placed inside - children - a table containing the widgets to layout -]] - --- Very simple Layout, Children are stacked on top of each other down the left side -AceGUI:RegisterLayout("List", - function(content, children) - local height = 0 - local width = content.width or content:GetWidth() or 0 - for i = 1, #children do - local child = children[i] - - local frame = child.frame - frame:ClearAllPoints() - frame:Show() - if i == 1 then - frame:SetPoint("TOPLEFT", content) - else - frame:SetPoint("TOPLEFT", children[i-1].frame, "BOTTOMLEFT") - end - - if child.width == "fill" then - child:SetWidth(width) - frame:SetPoint("RIGHT", content) - - if child.DoLayout then - child:DoLayout() - end - elseif child.width == "relative" then - child:SetWidth(width * child.relWidth) - - if child.DoLayout then - child:DoLayout() - end - end - - height = height + (frame.height or frame:GetHeight() or 0) - end - safecall(content.obj.LayoutFinished, content.obj, nil, height) - end) - --- A single control fills the whole content area -AceGUI:RegisterLayout("Fill", - function(content, children) - if children[1] then - children[1]:SetWidth(content:GetWidth() or 0) - children[1]:SetHeight(content:GetHeight() or 0) - children[1].frame:ClearAllPoints() - children[1].frame:SetAllPoints(content) - children[1].frame:Show() - safecall(content.obj.LayoutFinished, content.obj, nil, children[1].frame:GetHeight()) - end - end) - -local layoutrecursionblock = nil -local function safelayoutcall(object, func, ...) - layoutrecursionblock = true - object[func](object, ...) - layoutrecursionblock = nil -end - -AceGUI:RegisterLayout("Flow", - function(content, children) - if layoutrecursionblock then return end - --used height so far - local height = 0 - --width used in the current row - local usedwidth = 0 - --height of the current row - local rowheight = 0 - local rowoffset = 0 - - local width = content.width or content:GetWidth() or 0 - - --control at the start of the row - local rowstart - local rowstartoffset - local isfullheight - - local frameoffset - local lastframeoffset - local oversize - for i = 1, #children do - local child = children[i] - oversize = nil - local frame = child.frame - local frameheight = frame.height or frame:GetHeight() or 0 - local framewidth = frame.width or frame:GetWidth() or 0 - lastframeoffset = frameoffset - -- HACK: Why did we set a frameoffset of (frameheight / 2) ? - -- That was moving all widgets half the widgets size down, is that intended? - -- Actually, it seems to be neccessary for many cases, we'll leave it in for now. - -- If widgets seem to anchor weirdly with this, provide a valid alignoffset for them. - -- TODO: Investigate moar! - frameoffset = child.alignoffset or (frameheight / 2) - - if child.width == "relative" then - framewidth = width * child.relWidth - end - - frame:Show() - frame:ClearAllPoints() - if i == 1 then - -- anchor the first control to the top left - frame:SetPoint("TOPLEFT", content) - rowheight = frameheight - rowoffset = frameoffset - rowstart = frame - rowstartoffset = frameoffset - usedwidth = framewidth - if usedwidth > width then - oversize = true - end - else - -- if there isn't available width for the control start a new row - -- if a control is "fill" it will be on a row of its own full width - if usedwidth == 0 or ((framewidth) + usedwidth > width) or child.width == "fill" then - if isfullheight then - -- a previous row has already filled the entire height, there's nothing we can usefully do anymore - -- (maybe error/warn about this?) - break - end - --anchor the previous row, we will now know its height and offset - rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -(height + (rowoffset - rowstartoffset) + 3)) - height = height + rowheight + 3 - --save this as the rowstart so we can anchor it after the row is complete and we have the max height and offset of controls in it - rowstart = frame - rowstartoffset = frameoffset - rowheight = frameheight - rowoffset = frameoffset - usedwidth = framewidth - if usedwidth > width then - oversize = true - end - -- put the control on the current row, adding it to the width and checking if the height needs to be increased - else - --handles cases where the new height is higher than either control because of the offsets - --math.max(rowheight-rowoffset+frameoffset, frameheight-frameoffset+rowoffset) - - --offset is always the larger of the two offsets - rowoffset = math_max(rowoffset, frameoffset) - rowheight = math_max(rowheight, rowoffset + (frameheight / 2)) - - frame:SetPoint("TOPLEFT", children[i-1].frame, "TOPRIGHT", 0, frameoffset - lastframeoffset) - usedwidth = framewidth + usedwidth - end - end - - if child.width == "fill" then - safelayoutcall(child, "SetWidth", width) - frame:SetPoint("RIGHT", content) - - usedwidth = 0 - rowstart = frame - rowstartoffset = frameoffset - - if child.DoLayout then - child:DoLayout() - end - rowheight = frame.height or frame:GetHeight() or 0 - rowoffset = child.alignoffset or (rowheight / 2) - rowstartoffset = rowoffset - elseif child.width == "relative" then - safelayoutcall(child, "SetWidth", width * child.relWidth) - - if child.DoLayout then - child:DoLayout() - end - elseif oversize then - if width > 1 then - frame:SetPoint("RIGHT", content) - end - end - - if child.height == "fill" then - frame:SetPoint("BOTTOM", content) - isfullheight = true - end - end - - --anchor the last row, if its full height needs a special case since its height has just been changed by the anchor - if isfullheight then - rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -height) - elseif rowstart then - rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -(height + (rowoffset - rowstartoffset) + 3)) - end - - height = height + rowheight + 3 - safecall(content.obj.LayoutFinished, content.obj, nil, height) - end) - --- Get alignment method and value. Possible alignment methods are a callback, a number, "start", "middle", "end", "fill" or "TOPLEFT", "BOTTOMRIGHT" etc. -local GetCellAlign = function (dir, tableObj, colObj, cellObj, cell, child) - local fn = cellObj and (cellObj["align" .. dir] or cellObj.align) - or colObj and (colObj["align" .. dir] or colObj.align) - or tableObj["align" .. dir] or tableObj.align - or "CENTERLEFT" - local child, cell, val = child or 0, cell or 0, nil - - if type(fn) == "string" then - fn = fn:lower() - fn = dir == "V" and (fn:sub(1, 3) == "top" and "start" or fn:sub(1, 6) == "bottom" and "end" or fn:sub(1, 6) == "center" and "middle") - or dir == "H" and (fn:sub(-4) == "left" and "start" or fn:sub(-5) == "right" and "end" or fn:sub(-6) == "center" and "middle") - or fn - val = (fn == "start" or fn == "fill") and 0 or fn == "end" and cell - child or (cell - child) / 2 - elseif type(fn) == "function" then - val = fn(child or 0, cell, dir) - else - val = fn - end - - return fn, max(0, min(val, cell)) -end - --- Get width or height for multiple cells combined -local GetCellDimension = function (dir, laneDim, from, to, space) - local dim = 0 - for cell=from,to do - dim = dim + (laneDim[cell] or 0) - end - return dim + max(0, to - from) * (space or 0) -end - ---[[ Options -============ -Container: - - columns ({col, col, ...}): Column settings. "col" can be a number (<= 0: content width, <1: rel. width, <10: weight, >=10: abs. width) or a table with column setting. - - space, spaceH, spaceV: Overall, horizontal and vertical spacing between cells. - - align, alignH, alignV: Overall, horizontal and vertical cell alignment. See GetCellAlign() for possible values. -Columns: - - width: Fixed column width (nil or <=0: content width, <1: rel. width, >=1: abs. width). - - min or 1: Min width for content based width - - max or 2: Max width for content based width - - weight: Flexible column width. The leftover width after accounting for fixed-width columns is distributed to weighted columns according to their weights. - - align, alignH, alignV: Overwrites the container setting for alignment. -Cell: - - colspan: Makes a cell span multiple columns. - - rowspan: Makes a cell span multiple rows. - - align, alignH, alignV: Overwrites the container and column setting for alignment. -]] -AceGUI:RegisterLayout("Table", - function (content, children) - local obj = content.obj - obj:PauseLayout() - - local tableObj = obj:GetUserData("table") - local cols = tableObj.columns - local spaceH = tableObj.spaceH or tableObj.space or 0 - local spaceV = tableObj.spaceV or tableObj.space or 0 - local totalH = (content:GetWidth() or content.width or 0) - spaceH * (#cols - 1) - - -- We need to reuse these because layout events can come in very frequently - local layoutCache = obj:GetUserData("layoutCache") - if not layoutCache then - layoutCache = {{}, {}, {}, {}, {}, {}} - obj:SetUserData("layoutCache", layoutCache) - end - local t, laneH, laneV, rowspans, rowStart, colStart = unpack(layoutCache) - - -- Create the grid - local n, slotFound = 0 - for i,child in ipairs(children) do - if child:IsShown() then - repeat - n = n + 1 - local col = (n - 1) % #cols + 1 - local row = ceil(n / #cols) - local rowspan = rowspans[col] - local cell = rowspan and rowspan.child or child - local cellObj = cell:GetUserData("cell") - slotFound = not rowspan - - -- Rowspan - if not rowspan and cellObj and cellObj.rowspan then - rowspan = {child = child, from = row, to = row + cellObj.rowspan - 1} - rowspans[col] = rowspan - end - if rowspan and i == #children then - rowspan.to = row - end - - -- Colspan - local colspan = max(0, min((cellObj and cellObj.colspan or 1) - 1, #cols - col)) - n = n + colspan - - -- Place the cell - if not rowspan or rowspan.to == row then - t[n] = cell - rowStart[cell] = rowspan and rowspan.from or row - colStart[cell] = col - - if rowspan then - rowspans[col] = nil - end - end - until slotFound - end - end - - local rows = ceil(n / #cols) - - -- Determine fixed size cols and collect weights - local extantH, totalWeight = totalH, 0 - for col,colObj in ipairs(cols) do - laneH[col] = 0 - - if type(colObj) == "number" then - colObj = {[colObj >= 1 and colObj < 10 and "weight" or "width"] = colObj} - cols[col] = colObj - end - - if colObj.weight then - -- Weight - totalWeight = totalWeight + (colObj.weight or 1) - else - if not colObj.width or colObj.width <= 0 then - -- Content width - for row=1,rows do - local child = t[(row - 1) * #cols + col] - if child then - local f = child.frame - f:ClearAllPoints() - local childH = f:GetWidth() or 0 - - laneH[col] = max(laneH[col], childH - GetCellDimension("H", laneH, colStart[child], col - 1, spaceH)) - end - end - - laneH[col] = max(colObj.min or colObj[1] or 0, min(laneH[col], colObj.max or colObj[2] or laneH[col])) - else - -- Rel./Abs. width - laneH[col] = colObj.width < 1 and colObj.width * totalH or colObj.width - end - extantH = max(0, extantH - laneH[col]) - end - end - - -- Determine sizes based on weight - local scale = totalWeight > 0 and extantH / totalWeight or 0 - for col,colObj in pairs(cols) do - if colObj.weight then - laneH[col] = scale * colObj.weight - end - end - - -- Arrange children - for row=1,rows do - local rowV = 0 - - -- Horizontal placement and sizing - for col=1,#cols do - local child = t[(row - 1) * #cols + col] - if child then - local colObj = cols[colStart[child]] - local cellObj = child:GetUserData("cell") - local offsetH = GetCellDimension("H", laneH, 1, colStart[child] - 1, spaceH) + (colStart[child] == 1 and 0 or spaceH) - local cellH = GetCellDimension("H", laneH, colStart[child], col, spaceH) - - local f = child.frame - f:ClearAllPoints() - local childH = f:GetWidth() or 0 - - local alignFn, align = GetCellAlign("H", tableObj, colObj, cellObj, cellH, childH) - f:SetPoint("LEFT", content, offsetH + align, 0) - if child:IsFullWidth() or alignFn == "fill" or childH > cellH then - f:SetPoint("RIGHT", content, "LEFT", offsetH + align + cellH, 0) - end - - if child.DoLayout then - child:DoLayout() - end - - rowV = max(rowV, (f:GetHeight() or 0) - GetCellDimension("V", laneV, rowStart[child], row - 1, spaceV)) - end - end - - laneV[row] = rowV - - -- Vertical placement and sizing - for col=1,#cols do - local child = t[(row - 1) * #cols + col] - if child then - local colObj = cols[colStart[child]] - local cellObj = child:GetUserData("cell") - local offsetV = GetCellDimension("V", laneV, 1, rowStart[child] - 1, spaceV) + (rowStart[child] == 1 and 0 or spaceV) - local cellV = GetCellDimension("V", laneV, rowStart[child], row, spaceV) - - local f = child.frame - local childV = f:GetHeight() or 0 - - local alignFn, align = GetCellAlign("V", tableObj, colObj, cellObj, cellV, childV) - if child:IsFullHeight() or alignFn == "fill" then - f:SetHeight(cellV) - end - f:SetPoint("TOP", content, 0, -(offsetV + align)) - end - end - end - - -- Calculate total height - local totalV = GetCellDimension("V", laneV, 1, #laneV, spaceV) - - -- Cleanup - for _,v in pairs(layoutCache) do wipe(v) end - - safecall(obj.LayoutFinished, obj, nil, totalV) - obj:ResumeLayout() - end) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.xml b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.xml deleted file mode 100644 index b515077..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/AceGUI-3.0.xml +++ /dev/null @@ -1,28 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="AceGUI-3.0.lua"/> - <!-- Container --> - <Script file="widgets\AceGUIContainer-BlizOptionsGroup.lua"/> - <Script file="widgets\AceGUIContainer-DropDownGroup.lua"/> - <Script file="widgets\AceGUIContainer-Frame.lua"/> - <Script file="widgets\AceGUIContainer-InlineGroup.lua"/> - <Script file="widgets\AceGUIContainer-ScrollFrame.lua"/> - <Script file="widgets\AceGUIContainer-SimpleGroup.lua"/> - <Script file="widgets\AceGUIContainer-TabGroup.lua"/> - <Script file="widgets\AceGUIContainer-TreeGroup.lua"/> - <Script file="widgets\AceGUIContainer-Window.lua"/> - <!-- Widgets --> - <Script file="widgets\AceGUIWidget-Button.lua"/> - <Script file="widgets\AceGUIWidget-CheckBox.lua"/> - <Script file="widgets\AceGUIWidget-ColorPicker.lua"/> - <Script file="widgets\AceGUIWidget-DropDown.lua"/> - <Script file="widgets\AceGUIWidget-DropDown-Items.lua"/> - <Script file="widgets\AceGUIWidget-EditBox.lua"/> - <Script file="widgets\AceGUIWidget-Heading.lua"/> - <Script file="widgets\AceGUIWidget-Icon.lua"/> - <Script file="widgets\AceGUIWidget-InteractiveLabel.lua"/> - <Script file="widgets\AceGUIWidget-Keybinding.lua"/> - <Script file="widgets\AceGUIWidget-Label.lua"/> - <Script file="widgets\AceGUIWidget-MultiLineEditBox.lua"/> - <Script file="widgets\AceGUIWidget-Slider.lua"/> -</Ui> diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua deleted file mode 100644 index 9a48f8b..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua +++ /dev/null @@ -1,138 +0,0 @@ ---[[----------------------------------------------------------------------------- -BlizOptionsGroup Container -Simple container widget for the integration of AceGUI into the Blizzard Interface Options --------------------------------------------------------------------------------]] -local Type, Version = "BlizOptionsGroup", 21 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local CreateFrame = CreateFrame - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] - -local function OnShow(frame) - frame.obj:Fire("OnShow") -end - -local function OnHide(frame) - frame.obj:Fire("OnHide") -end - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] - -local function okay(frame) - frame.obj:Fire("okay") -end - -local function cancel(frame) - frame.obj:Fire("cancel") -end - -local function default(frame) - frame.obj:Fire("default") -end - -local function refresh(frame) - frame.obj:Fire("refresh") -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] - -local methods = { - ["OnAcquire"] = function(self) - self:SetName() - self:SetTitle() - end, - - -- ["OnRelease"] = nil, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local contentwidth = width - 63 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - 26 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end, - - ["SetName"] = function(self, name, parent) - self.frame.name = name - self.frame.parent = parent - end, - - ["SetTitle"] = function(self, title) - local content = self.content - content:ClearAllPoints() - if not title or title == "" then - content:SetPoint("TOPLEFT", 10, -10) - self.label:SetText("") - else - content:SetPoint("TOPLEFT", 10, -40) - self.label:SetText(title) - end - content:SetPoint("BOTTOMRIGHT", -10, 10) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Frame") - frame:Hide() - - -- support functions for the Blizzard Interface Options - frame.okay = okay - frame.cancel = cancel - frame.default = default - frame.refresh = refresh - - frame:SetScript("OnHide", OnHide) - frame:SetScript("OnShow", OnShow) - - local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge") - label:SetPoint("TOPLEFT", 10, -15) - label:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", 10, -45) - label:SetJustifyH("LEFT") - label:SetJustifyV("TOP") - - --Container Support - local content = CreateFrame("Frame", nil, frame) - content:SetPoint("TOPLEFT", 10, -10) - content:SetPoint("BOTTOMRIGHT", -10, 10) - - local widget = { - label = label, - frame = frame, - content = content, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua deleted file mode 100644 index 379ea25..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua +++ /dev/null @@ -1,157 +0,0 @@ ---[[----------------------------------------------------------------------------- -DropdownGroup Container -Container controlled by a dropdown on the top. --------------------------------------------------------------------------------]] -local Type, Version = "DropdownGroup", 22 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local assert, pairs, type = assert, pairs, type - --- WoW APIs -local CreateFrame = CreateFrame - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function SelectedGroup(self, event, value) - local group = self.parentgroup - local status = group.status or group.localstatus - status.selected = value - self.parentgroup:Fire("OnGroupSelected", value) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self.dropdown:SetText("") - self:SetDropdownWidth(200) - self:SetTitle("") - end, - - ["OnRelease"] = function(self) - self.dropdown.list = nil - self.status = nil - for k in pairs(self.localstatus) do - self.localstatus[k] = nil - end - end, - - ["SetTitle"] = function(self, title) - self.titletext:SetText(title) - self.dropdown.frame:ClearAllPoints() - if title and title ~= "" then - self.dropdown.frame:SetPoint("TOPRIGHT", -2, 0) - else - self.dropdown.frame:SetPoint("TOPLEFT", -1, 0) - end - end, - - ["SetGroupList"] = function(self,list,order) - self.dropdown:SetList(list,order) - end, - - ["SetStatusTable"] = function(self, status) - assert(type(status) == "table") - self.status = status - end, - - ["SetGroup"] = function(self,group) - self.dropdown:SetValue(group) - local status = self.status or self.localstatus - status.selected = group - self:Fire("OnGroupSelected", group) - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local contentwidth = width - 26 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - 63 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end, - - ["LayoutFinished"] = function(self, width, height) - self:SetHeight((height or 0) + 63) - end, - - ["SetDropdownWidth"] = function(self, width) - self.dropdown:SetWidth(width) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local PaneBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 5, bottom = 3 } -} - -local function Constructor() - local frame = CreateFrame("Frame") - frame:SetHeight(100) - frame:SetWidth(100) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - - local titletext = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") - titletext:SetPoint("TOPLEFT", 4, -5) - titletext:SetPoint("TOPRIGHT", -4, -5) - titletext:SetJustifyH("LEFT") - titletext:SetHeight(18) - - local dropdown = AceGUI:Create("Dropdown") - dropdown.frame:SetParent(frame) - dropdown.frame:SetFrameLevel(dropdown.frame:GetFrameLevel() + 2) - dropdown:SetCallback("OnValueChanged", SelectedGroup) - dropdown.frame:SetPoint("TOPLEFT", -1, 0) - dropdown.frame:Show() - dropdown:SetLabel("") - - local border = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) - border:SetPoint("TOPLEFT", 0, -26) - border:SetPoint("BOTTOMRIGHT", 0, 3) - border:SetBackdrop(PaneBackdrop) - border:SetBackdropColor(0.1,0.1,0.1,0.5) - border:SetBackdropBorderColor(0.4,0.4,0.4) - - --Container Support - local content = CreateFrame("Frame", nil, border) - content:SetPoint("TOPLEFT", 10, -10) - content:SetPoint("BOTTOMRIGHT", -10, 10) - - local widget = { - frame = frame, - localstatus = {}, - titletext = titletext, - dropdown = dropdown, - border = border, - content = content, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - dropdown.parentgroup = widget - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua deleted file mode 100644 index fbd6005..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua +++ /dev/null @@ -1,316 +0,0 @@ ---[[----------------------------------------------------------------------------- -Frame Container --------------------------------------------------------------------------------]] -local Type, Version = "Frame", 27 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs, assert, type = pairs, assert, type -local wipe = table.wipe - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame, UIParent = CreateFrame, UIParent - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: CLOSE - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Button_OnClick(frame) - PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT - frame.obj:Hide() -end - -local function Frame_OnShow(frame) - frame.obj:Fire("OnShow") -end - -local function Frame_OnClose(frame) - frame.obj:Fire("OnClose") -end - -local function Frame_OnMouseDown(frame) - AceGUI:ClearFocus() -end - -local function Title_OnMouseDown(frame) - frame:GetParent():StartMoving() - AceGUI:ClearFocus() -end - -local function MoverSizer_OnMouseUp(mover) - local frame = mover:GetParent() - frame:StopMovingOrSizing() - local self = frame.obj - local status = self.status or self.localstatus - status.width = frame:GetWidth() - status.height = frame:GetHeight() - status.top = frame:GetTop() - status.left = frame:GetLeft() -end - -local function SizerSE_OnMouseDown(frame) - frame:GetParent():StartSizing("BOTTOMRIGHT") - AceGUI:ClearFocus() -end - -local function SizerS_OnMouseDown(frame) - frame:GetParent():StartSizing("BOTTOM") - AceGUI:ClearFocus() -end - -local function SizerE_OnMouseDown(frame) - frame:GetParent():StartSizing("RIGHT") - AceGUI:ClearFocus() -end - -local function StatusBar_OnEnter(frame) - frame.obj:Fire("OnEnterStatusBar") -end - -local function StatusBar_OnLeave(frame) - frame.obj:Fire("OnLeaveStatusBar") -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self.frame:SetParent(UIParent) - self.frame:SetFrameStrata("FULLSCREEN_DIALOG") - self:SetTitle() - self:SetStatusText() - self:ApplyStatus() - self:Show() - self:EnableResize(true) - end, - - ["OnRelease"] = function(self) - self.status = nil - wipe(self.localstatus) - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local contentwidth = width - 34 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - 57 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end, - - ["SetTitle"] = function(self, title) - self.titletext:SetText(title) - self.titlebg:SetWidth((self.titletext:GetWidth() or 0) + 10) - end, - - ["SetStatusText"] = function(self, text) - self.statustext:SetText(text) - end, - - ["Hide"] = function(self) - self.frame:Hide() - end, - - ["Show"] = function(self) - self.frame:Show() - end, - - ["EnableResize"] = function(self, state) - local func = state and "Show" or "Hide" - self.sizer_se[func](self.sizer_se) - self.sizer_s[func](self.sizer_s) - self.sizer_e[func](self.sizer_e) - end, - - -- called to set an external table to store status in - ["SetStatusTable"] = function(self, status) - assert(type(status) == "table") - self.status = status - self:ApplyStatus() - end, - - ["ApplyStatus"] = function(self) - local status = self.status or self.localstatus - local frame = self.frame - self:SetWidth(status.width or 700) - self:SetHeight(status.height or 500) - frame:ClearAllPoints() - if status.top and status.left then - frame:SetPoint("TOP", UIParent, "BOTTOM", 0, status.top) - frame:SetPoint("LEFT", UIParent, "LEFT", status.left, 0) - else - frame:SetPoint("CENTER") - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local FrameBackdrop = { - bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background", - edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border", - tile = true, tileSize = 32, edgeSize = 32, - insets = { left = 8, right = 8, top = 8, bottom = 8 } -} - -local PaneBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 5, bottom = 3 } -} - -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent, BackdropTemplateMixin and "BackdropTemplate" or nil) - frame:Hide() - - frame:EnableMouse(true) - frame:SetMovable(true) - frame:SetResizable(true) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - frame:SetBackdrop(FrameBackdrop) - frame:SetBackdropColor(0, 0, 0, 1) - frame:SetMinResize(400, 200) - frame:SetToplevel(true) - frame:SetScript("OnShow", Frame_OnShow) - frame:SetScript("OnHide", Frame_OnClose) - frame:SetScript("OnMouseDown", Frame_OnMouseDown) - - local closebutton = CreateFrame("Button", nil, frame, "UIPanelButtonTemplate") - closebutton:SetScript("OnClick", Button_OnClick) - closebutton:SetPoint("BOTTOMRIGHT", -27, 17) - closebutton:SetHeight(20) - closebutton:SetWidth(100) - closebutton:SetText(CLOSE) - - local statusbg = CreateFrame("Button", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) - statusbg:SetPoint("BOTTOMLEFT", 15, 15) - statusbg:SetPoint("BOTTOMRIGHT", -132, 15) - statusbg:SetHeight(24) - statusbg:SetBackdrop(PaneBackdrop) - statusbg:SetBackdropColor(0.1,0.1,0.1) - statusbg:SetBackdropBorderColor(0.4,0.4,0.4) - statusbg:SetScript("OnEnter", StatusBar_OnEnter) - statusbg:SetScript("OnLeave", StatusBar_OnLeave) - - local statustext = statusbg:CreateFontString(nil, "OVERLAY", "GameFontNormal") - statustext:SetPoint("TOPLEFT", 7, -2) - statustext:SetPoint("BOTTOMRIGHT", -7, 2) - statustext:SetHeight(20) - statustext:SetJustifyH("LEFT") - statustext:SetText("") - - local titlebg = frame:CreateTexture(nil, "OVERLAY") - titlebg:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header - titlebg:SetTexCoord(0.31, 0.67, 0, 0.63) - titlebg:SetPoint("TOP", 0, 12) - titlebg:SetWidth(100) - titlebg:SetHeight(40) - - local title = CreateFrame("Frame", nil, frame) - title:EnableMouse(true) - title:SetScript("OnMouseDown", Title_OnMouseDown) - title:SetScript("OnMouseUp", MoverSizer_OnMouseUp) - title:SetAllPoints(titlebg) - - local titletext = title:CreateFontString(nil, "OVERLAY", "GameFontNormal") - titletext:SetPoint("TOP", titlebg, "TOP", 0, -14) - - local titlebg_l = frame:CreateTexture(nil, "OVERLAY") - titlebg_l:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header - titlebg_l:SetTexCoord(0.21, 0.31, 0, 0.63) - titlebg_l:SetPoint("RIGHT", titlebg, "LEFT") - titlebg_l:SetWidth(30) - titlebg_l:SetHeight(40) - - local titlebg_r = frame:CreateTexture(nil, "OVERLAY") - titlebg_r:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header - titlebg_r:SetTexCoord(0.67, 0.77, 0, 0.63) - titlebg_r:SetPoint("LEFT", titlebg, "RIGHT") - titlebg_r:SetWidth(30) - titlebg_r:SetHeight(40) - - local sizer_se = CreateFrame("Frame", nil, frame) - sizer_se:SetPoint("BOTTOMRIGHT") - sizer_se:SetWidth(25) - sizer_se:SetHeight(25) - sizer_se:EnableMouse() - sizer_se:SetScript("OnMouseDown",SizerSE_OnMouseDown) - sizer_se:SetScript("OnMouseUp", MoverSizer_OnMouseUp) - - local line1 = sizer_se:CreateTexture(nil, "BACKGROUND") - line1:SetWidth(14) - line1:SetHeight(14) - line1:SetPoint("BOTTOMRIGHT", -8, 8) - line1:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - local x = 0.1 * 14/17 - line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) - - local line2 = sizer_se:CreateTexture(nil, "BACKGROUND") - line2:SetWidth(8) - line2:SetHeight(8) - line2:SetPoint("BOTTOMRIGHT", -8, 8) - line2:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - local x = 0.1 * 8/17 - line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) - - local sizer_s = CreateFrame("Frame", nil, frame) - sizer_s:SetPoint("BOTTOMRIGHT", -25, 0) - sizer_s:SetPoint("BOTTOMLEFT") - sizer_s:SetHeight(25) - sizer_s:EnableMouse(true) - sizer_s:SetScript("OnMouseDown", SizerS_OnMouseDown) - sizer_s:SetScript("OnMouseUp", MoverSizer_OnMouseUp) - - local sizer_e = CreateFrame("Frame", nil, frame) - sizer_e:SetPoint("BOTTOMRIGHT", 0, 25) - sizer_e:SetPoint("TOPRIGHT") - sizer_e:SetWidth(25) - sizer_e:EnableMouse(true) - sizer_e:SetScript("OnMouseDown", SizerE_OnMouseDown) - sizer_e:SetScript("OnMouseUp", MoverSizer_OnMouseUp) - - --Container Support - local content = CreateFrame("Frame", nil, frame) - content:SetPoint("TOPLEFT", 17, -27) - content:SetPoint("BOTTOMRIGHT", -17, 40) - - local widget = { - localstatus = {}, - titletext = titletext, - statustext = statustext, - titlebg = titlebg, - sizer_se = sizer_se, - sizer_s = sizer_s, - sizer_e = sizer_e, - content = content, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - closebutton.obj, statusbg.obj = widget, widget - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua deleted file mode 100644 index 357e843..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua +++ /dev/null @@ -1,103 +0,0 @@ ---[[----------------------------------------------------------------------------- -InlineGroup Container -Simple container widget that creates a visible "box" with an optional title. --------------------------------------------------------------------------------]] -local Type, Version = "InlineGroup", 22 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetWidth(300) - self:SetHeight(100) - self:SetTitle("") - end, - - -- ["OnRelease"] = nil, - - ["SetTitle"] = function(self,title) - self.titletext:SetText(title) - end, - - - ["LayoutFinished"] = function(self, width, height) - if self.noAutoHeight then return end - self:SetHeight((height or 0) + 40) - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local contentwidth = width - 20 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - 20 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local PaneBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 5, bottom = 3 } -} - -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - - local titletext = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") - titletext:SetPoint("TOPLEFT", 14, 0) - titletext:SetPoint("TOPRIGHT", -14, 0) - titletext:SetJustifyH("LEFT") - titletext:SetHeight(18) - - local border = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) - border:SetPoint("TOPLEFT", 0, -17) - border:SetPoint("BOTTOMRIGHT", -1, 3) - border:SetBackdrop(PaneBackdrop) - border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) - border:SetBackdropBorderColor(0.4, 0.4, 0.4) - - --Container Support - local content = CreateFrame("Frame", nil, border) - content:SetPoint("TOPLEFT", 10, -10) - content:SetPoint("BOTTOMRIGHT", -10, 10) - - local widget = { - frame = frame, - content = content, - titletext = titletext, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua deleted file mode 100644 index d110d03..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua +++ /dev/null @@ -1,215 +0,0 @@ ---[[----------------------------------------------------------------------------- -ScrollFrame Container -Plain container that scrolls its content and doesn't grow in height. --------------------------------------------------------------------------------]] -local Type, Version = "ScrollFrame", 26 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs, assert, type = pairs, assert, type -local min, max, floor = math.min, math.max, math.floor - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function FixScrollOnUpdate(frame) - frame:SetScript("OnUpdate", nil) - frame.obj:FixScroll() -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function ScrollFrame_OnMouseWheel(frame, value) - frame.obj:MoveScroll(value) -end - -local function ScrollFrame_OnSizeChanged(frame) - frame:SetScript("OnUpdate", FixScrollOnUpdate) -end - -local function ScrollBar_OnScrollValueChanged(frame, value) - frame.obj:SetScroll(value) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetScroll(0) - self.scrollframe:SetScript("OnUpdate", FixScrollOnUpdate) - end, - - ["OnRelease"] = function(self) - self.status = nil - for k in pairs(self.localstatus) do - self.localstatus[k] = nil - end - self.scrollframe:SetPoint("BOTTOMRIGHT") - self.scrollbar:Hide() - self.scrollBarShown = nil - self.content.height, self.content.width, self.content.original_width = nil, nil, nil - end, - - ["SetScroll"] = function(self, value) - local status = self.status or self.localstatus - local viewheight = self.scrollframe:GetHeight() - local height = self.content:GetHeight() - local offset - - if viewheight > height then - offset = 0 - else - offset = floor((height - viewheight) / 1000.0 * value) - end - self.content:ClearAllPoints() - self.content:SetPoint("TOPLEFT", 0, offset) - self.content:SetPoint("TOPRIGHT", 0, offset) - status.offset = offset - status.scrollvalue = value - end, - - ["MoveScroll"] = function(self, value) - local status = self.status or self.localstatus - local height, viewheight = self.scrollframe:GetHeight(), self.content:GetHeight() - - if self.scrollBarShown then - local diff = height - viewheight - local delta = 1 - if value < 0 then - delta = -1 - end - self.scrollbar:SetValue(min(max(status.scrollvalue + delta*(1000/(diff/45)),0), 1000)) - end - end, - - ["FixScroll"] = function(self) - if self.updateLock then return end - self.updateLock = true - local status = self.status or self.localstatus - local height, viewheight = self.scrollframe:GetHeight(), self.content:GetHeight() - local offset = status.offset or 0 - -- Give us a margin of error of 2 pixels to stop some conditions that i would blame on floating point inaccuracys - -- No-one is going to miss 2 pixels at the bottom of the frame, anyhow! - if viewheight < height + 2 then - if self.scrollBarShown then - self.scrollBarShown = nil - self.scrollbar:Hide() - self.scrollbar:SetValue(0) - self.scrollframe:SetPoint("BOTTOMRIGHT") - if self.content.original_width then - self.content.width = self.content.original_width - end - self:DoLayout() - end - else - if not self.scrollBarShown then - self.scrollBarShown = true - self.scrollbar:Show() - self.scrollframe:SetPoint("BOTTOMRIGHT", -20, 0) - if self.content.original_width then - self.content.width = self.content.original_width - 20 - end - self:DoLayout() - end - local value = (offset / (viewheight - height) * 1000) - if value > 1000 then value = 1000 end - self.scrollbar:SetValue(value) - self:SetScroll(value) - if value < 1000 then - self.content:ClearAllPoints() - self.content:SetPoint("TOPLEFT", 0, offset) - self.content:SetPoint("TOPRIGHT", 0, offset) - status.offset = offset - end - end - self.updateLock = nil - end, - - ["LayoutFinished"] = function(self, width, height) - self.content:SetHeight(height or 0 + 20) - - -- update the scrollframe - self:FixScroll() - - -- schedule another update when everything has "settled" - self.scrollframe:SetScript("OnUpdate", FixScrollOnUpdate) - end, - - ["SetStatusTable"] = function(self, status) - assert(type(status) == "table") - self.status = status - if not status.scrollvalue then - status.scrollvalue = 0 - end - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - content.width = width - (self.scrollBarShown and 20 or 0) - content.original_width = width - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - content.height = height - end -} ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - local num = AceGUI:GetNextWidgetNum(Type) - - local scrollframe = CreateFrame("ScrollFrame", nil, frame) - scrollframe:SetPoint("TOPLEFT") - scrollframe:SetPoint("BOTTOMRIGHT") - scrollframe:EnableMouseWheel(true) - scrollframe:SetScript("OnMouseWheel", ScrollFrame_OnMouseWheel) - scrollframe:SetScript("OnSizeChanged", ScrollFrame_OnSizeChanged) - - local scrollbar = CreateFrame("Slider", ("AceConfigDialogScrollFrame%dScrollBar"):format(num), scrollframe, "UIPanelScrollBarTemplate") - scrollbar:SetPoint("TOPLEFT", scrollframe, "TOPRIGHT", 4, -16) - scrollbar:SetPoint("BOTTOMLEFT", scrollframe, "BOTTOMRIGHT", 4, 16) - scrollbar:SetMinMaxValues(0, 1000) - scrollbar:SetValueStep(1) - scrollbar:SetValue(0) - scrollbar:SetWidth(16) - scrollbar:Hide() - -- set the script as the last step, so it doesn't fire yet - scrollbar:SetScript("OnValueChanged", ScrollBar_OnScrollValueChanged) - - local scrollbg = scrollbar:CreateTexture(nil, "BACKGROUND") - scrollbg:SetAllPoints(scrollbar) - scrollbg:SetColorTexture(0, 0, 0, 0.4) - - --Container Support - local content = CreateFrame("Frame", nil, scrollframe) - content:SetPoint("TOPLEFT") - content:SetPoint("TOPRIGHT") - content:SetHeight(400) - scrollframe:SetScrollChild(content) - - local widget = { - localstatus = { scrollvalue = 0 }, - scrollframe = scrollframe, - scrollbar = scrollbar, - content = content, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - scrollframe.obj, scrollbar.obj = widget, widget - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua deleted file mode 100644 index 57512c3..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua +++ /dev/null @@ -1,69 +0,0 @@ ---[[----------------------------------------------------------------------------- -SimpleGroup Container -Simple container widget that just groups widgets. --------------------------------------------------------------------------------]] -local Type, Version = "SimpleGroup", 20 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetWidth(300) - self:SetHeight(100) - end, - - -- ["OnRelease"] = nil, - - ["LayoutFinished"] = function(self, width, height) - if self.noAutoHeight then return end - self:SetHeight(height or 0) - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - content:SetWidth(width) - content.width = width - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - content:SetHeight(height) - content.height = height - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - - --Container Support - local content = CreateFrame("Frame", nil, frame) - content:SetPoint("TOPLEFT") - content:SetPoint("BOTTOMRIGHT") - - local widget = { - frame = frame, - content = content, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua deleted file mode 100644 index 195ab0b..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua +++ /dev/null @@ -1,349 +0,0 @@ ---[[----------------------------------------------------------------------------- -TabGroup Container -Container that uses tabs on top to switch between groups. --------------------------------------------------------------------------------]] -local Type, Version = "TabGroup", 37 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs, ipairs, assert, type, wipe = pairs, ipairs, assert, type, wipe - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame, UIParent = CreateFrame, UIParent -local _G = _G - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: PanelTemplates_TabResize, PanelTemplates_SetDisabledTabState, PanelTemplates_SelectTab, PanelTemplates_DeselectTab - --- local upvalue storage used by BuildTabs -local widths = {} -local rowwidths = {} -local rowends = {} - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function UpdateTabLook(frame) - if frame.disabled then - PanelTemplates_SetDisabledTabState(frame) - elseif frame.selected then - PanelTemplates_SelectTab(frame) - else - PanelTemplates_DeselectTab(frame) - end -end - -local function Tab_SetText(frame, text) - frame:_SetText(text) - local width = frame.obj.frame.width or frame.obj.frame:GetWidth() or 0 - PanelTemplates_TabResize(frame, 0, nil, nil, width, frame:GetFontString():GetStringWidth()) -end - -local function Tab_SetSelected(frame, selected) - frame.selected = selected - UpdateTabLook(frame) -end - -local function Tab_SetDisabled(frame, disabled) - frame.disabled = disabled - UpdateTabLook(frame) -end - -local function BuildTabsOnUpdate(frame) - local self = frame.obj - self:BuildTabs() - frame:SetScript("OnUpdate", nil) -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Tab_OnClick(frame) - if not (frame.selected or frame.disabled) then - PlaySound(841) -- SOUNDKIT.IG_CHARACTER_INFO_TAB - frame.obj:SelectTab(frame.value) - end -end - -local function Tab_OnEnter(frame) - local self = frame.obj - self:Fire("OnTabEnter", self.tabs[frame.id].value, frame) -end - -local function Tab_OnLeave(frame) - local self = frame.obj - self:Fire("OnTabLeave", self.tabs[frame.id].value, frame) -end - -local function Tab_OnShow(frame) - _G[frame:GetName().."HighlightTexture"]:SetWidth(frame:GetTextWidth() + 30) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetTitle() - end, - - ["OnRelease"] = function(self) - self.status = nil - for k in pairs(self.localstatus) do - self.localstatus[k] = nil - end - self.tablist = nil - for _, tab in pairs(self.tabs) do - tab:Hide() - end - end, - - ["CreateTab"] = function(self, id) - local tabname = ("AceGUITabGroup%dTab%d"):format(self.num, id) - local tab = CreateFrame("Button", tabname, self.border, "OptionsFrameTabButtonTemplate") - tab.obj = self - tab.id = id - - tab.text = _G[tabname .. "Text"] - tab.text:ClearAllPoints() - tab.text:SetPoint("LEFT", 14, -3) - tab.text:SetPoint("RIGHT", -12, -3) - - tab:SetScript("OnClick", Tab_OnClick) - tab:SetScript("OnEnter", Tab_OnEnter) - tab:SetScript("OnLeave", Tab_OnLeave) - tab:SetScript("OnShow", Tab_OnShow) - - tab._SetText = tab.SetText - tab.SetText = Tab_SetText - tab.SetSelected = Tab_SetSelected - tab.SetDisabled = Tab_SetDisabled - - return tab - end, - - ["SetTitle"] = function(self, text) - self.titletext:SetText(text or "") - if text and text ~= "" then - self.alignoffset = 25 - else - self.alignoffset = 18 - end - self:BuildTabs() - end, - - ["SetStatusTable"] = function(self, status) - assert(type(status) == "table") - self.status = status - end, - - ["SelectTab"] = function(self, value) - local status = self.status or self.localstatus - local found - for i, v in ipairs(self.tabs) do - if v.value == value then - v:SetSelected(true) - found = true - else - v:SetSelected(false) - end - end - status.selected = value - if found then - self:Fire("OnGroupSelected",value) - end - end, - - ["SetTabs"] = function(self, tabs) - self.tablist = tabs - self:BuildTabs() - end, - - - ["BuildTabs"] = function(self) - local hastitle = (self.titletext:GetText() and self.titletext:GetText() ~= "") - local tablist = self.tablist - local tabs = self.tabs - - if not tablist then return end - - local width = self.frame.width or self.frame:GetWidth() or 0 - - wipe(widths) - wipe(rowwidths) - wipe(rowends) - - --Place Text into tabs and get thier initial width - for i, v in ipairs(tablist) do - local tab = tabs[i] - if not tab then - tab = self:CreateTab(i) - tabs[i] = tab - end - - tab:Show() - tab:SetText(v.text) - tab:SetDisabled(v.disabled) - tab.value = v.value - - widths[i] = tab:GetWidth() - 6 --tabs are anchored 10 pixels from the right side of the previous one to reduce spacing, but add a fixed 4px padding for the text - end - - for i = (#tablist)+1, #tabs, 1 do - tabs[i]:Hide() - end - - --First pass, find the minimum number of rows needed to hold all tabs and the initial tab layout - local numtabs = #tablist - local numrows = 1 - local usedwidth = 0 - - for i = 1, #tablist do - --If this is not the first tab of a row and there isn't room for it - if usedwidth ~= 0 and (width - usedwidth - widths[i]) < 0 then - rowwidths[numrows] = usedwidth + 10 --first tab in each row takes up an extra 10px - rowends[numrows] = i - 1 - numrows = numrows + 1 - usedwidth = 0 - end - usedwidth = usedwidth + widths[i] - end - rowwidths[numrows] = usedwidth + 10 --first tab in each row takes up an extra 10px - rowends[numrows] = #tablist - - --Fix for single tabs being left on the last row, move a tab from the row above if applicable - if numrows > 1 then - --if the last row has only one tab - if rowends[numrows-1] == numtabs-1 then - --if there are more than 2 tabs in the 2nd last row - if (numrows == 2 and rowends[numrows-1] > 2) or (rowends[numrows] - rowends[numrows-1] > 2) then - --move 1 tab from the second last row to the last, if there is enough space - if (rowwidths[numrows] + widths[numtabs-1]) <= width then - rowends[numrows-1] = rowends[numrows-1] - 1 - rowwidths[numrows] = rowwidths[numrows] + widths[numtabs-1] - rowwidths[numrows-1] = rowwidths[numrows-1] - widths[numtabs-1] - end - end - end - end - - --anchor the rows as defined and resize tabs to fill thier row - local starttab = 1 - for row, endtab in ipairs(rowends) do - local first = true - for tabno = starttab, endtab do - local tab = tabs[tabno] - tab:ClearAllPoints() - if first then - tab:SetPoint("TOPLEFT", self.frame, "TOPLEFT", 0, -(hastitle and 14 or 7)-(row-1)*20 ) - first = false - else - tab:SetPoint("LEFT", tabs[tabno-1], "RIGHT", -10, 0) - end - end - - -- equal padding for each tab to fill the available width, - -- if the used space is above 75% already - -- the 18 pixel is the typical width of a scrollbar, so we can have a tab group inside a scrolling frame, - -- and not have the tabs jump around funny when switching between tabs that need scrolling and those that don't - local padding = 0 - if not (numrows == 1 and rowwidths[1] < width*0.75 - 18) then - padding = (width - rowwidths[row]) / (endtab - starttab+1) - end - - for i = starttab, endtab do - PanelTemplates_TabResize(tabs[i], padding + 4, nil, nil, width, tabs[i]:GetFontString():GetStringWidth()) - end - starttab = endtab + 1 - end - - self.borderoffset = (hastitle and 17 or 10)+((numrows)*20) - self.border:SetPoint("TOPLEFT", 1, -self.borderoffset) - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local contentwidth = width - 60 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - self:BuildTabs(self) - self.frame:SetScript("OnUpdate", BuildTabsOnUpdate) - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - (self.borderoffset + 23) - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end, - - ["LayoutFinished"] = function(self, width, height) - if self.noAutoHeight then return end - self:SetHeight((height or 0) + (self.borderoffset + 23)) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local PaneBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 5, bottom = 3 } -} - -local function Constructor() - local num = AceGUI:GetNextWidgetNum(Type) - local frame = CreateFrame("Frame",nil,UIParent) - frame:SetHeight(100) - frame:SetWidth(100) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - - local titletext = frame:CreateFontString(nil,"OVERLAY","GameFontNormal") - titletext:SetPoint("TOPLEFT", 14, 0) - titletext:SetPoint("TOPRIGHT", -14, 0) - titletext:SetJustifyH("LEFT") - titletext:SetHeight(18) - titletext:SetText("") - - local border = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) - border:SetPoint("TOPLEFT", 1, -27) - border:SetPoint("BOTTOMRIGHT", -1, 3) - border:SetBackdrop(PaneBackdrop) - border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) - border:SetBackdropBorderColor(0.4, 0.4, 0.4) - - local content = CreateFrame("Frame", nil, border) - content:SetPoint("TOPLEFT", 10, -7) - content:SetPoint("BOTTOMRIGHT", -10, 7) - - local widget = { - num = num, - frame = frame, - localstatus = {}, - alignoffset = 18, - titletext = titletext, - border = border, - borderoffset = 27, - tabs = {}, - content = content, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua deleted file mode 100644 index cdc8051..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua +++ /dev/null @@ -1,715 +0,0 @@ ---[[----------------------------------------------------------------------------- -TreeGroup Container -Container that uses a tree control to switch between groups. --------------------------------------------------------------------------------]] -local Type, Version = "TreeGroup", 45 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local next, pairs, ipairs, assert, type = next, pairs, ipairs, assert, type -local math_min, math_max, floor = math.min, math.max, floor -local select, tremove, unpack, tconcat = select, table.remove, unpack, table.concat - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: FONT_COLOR_CODE_CLOSE - --- Recycling functions -local new, del -do - local pool = setmetatable({},{__mode='k'}) - function new() - local t = next(pool) - if t then - pool[t] = nil - return t - else - return {} - end - end - function del(t) - for k in pairs(t) do - t[k] = nil - end - pool[t] = true - end -end - -local DEFAULT_TREE_WIDTH = 175 -local DEFAULT_TREE_SIZABLE = true - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function GetButtonUniqueValue(line) - local parent = line.parent - if parent and parent.value then - return GetButtonUniqueValue(parent).."\001"..line.value - else - return line.value - end -end - -local function UpdateButton(button, treeline, selected, canExpand, isExpanded) - local self = button.obj - local toggle = button.toggle - local text = treeline.text or "" - local icon = treeline.icon - local iconCoords = treeline.iconCoords - local level = treeline.level - local value = treeline.value - local uniquevalue = treeline.uniquevalue - local disabled = treeline.disabled - - button.treeline = treeline - button.value = value - button.uniquevalue = uniquevalue - if selected then - button:LockHighlight() - button.selected = true - else - button:UnlockHighlight() - button.selected = false - end - button.level = level - if ( level == 1 ) then - button:SetNormalFontObject("GameFontNormal") - button:SetHighlightFontObject("GameFontHighlight") - button.text:SetPoint("LEFT", (icon and 16 or 0) + 8, 2) - else - button:SetNormalFontObject("GameFontHighlightSmall") - button:SetHighlightFontObject("GameFontHighlightSmall") - button.text:SetPoint("LEFT", (icon and 16 or 0) + 8 * level, 2) - end - - if disabled then - button:EnableMouse(false) - button.text:SetText("|cff808080"..text..FONT_COLOR_CODE_CLOSE) - else - button.text:SetText(text) - button:EnableMouse(true) - end - - if icon then - button.icon:SetTexture(icon) - button.icon:SetPoint("LEFT", 8 * level, (level == 1) and 0 or 1) - else - button.icon:SetTexture(nil) - end - - if iconCoords then - button.icon:SetTexCoord(unpack(iconCoords)) - else - button.icon:SetTexCoord(0, 1, 0, 1) - end - - if canExpand then - if not isExpanded then - toggle:SetNormalTexture(130838) -- Interface\\Buttons\\UI-PlusButton-UP - toggle:SetPushedTexture(130836) -- Interface\\Buttons\\UI-PlusButton-DOWN - else - toggle:SetNormalTexture(130821) -- Interface\\Buttons\\UI-MinusButton-UP - toggle:SetPushedTexture(130820) -- Interface\\Buttons\\UI-MinusButton-DOWN - end - toggle:Show() - else - toggle:Hide() - end -end - -local function ShouldDisplayLevel(tree) - local result = false - for k, v in ipairs(tree) do - if v.children == nil and v.visible ~= false then - result = true - elseif v.children then - result = result or ShouldDisplayLevel(v.children) - end - if result then return result end - end - return false -end - -local function addLine(self, v, tree, level, parent) - local line = new() - line.value = v.value - line.text = v.text - line.icon = v.icon - line.iconCoords = v.iconCoords - line.disabled = v.disabled - line.tree = tree - line.level = level - line.parent = parent - line.visible = v.visible - line.uniquevalue = GetButtonUniqueValue(line) - if v.children then - line.hasChildren = true - else - line.hasChildren = nil - end - self.lines[#self.lines+1] = line - return line -end - ---fire an update after one frame to catch the treeframes height -local function FirstFrameUpdate(frame) - local self = frame.obj - frame:SetScript("OnUpdate", nil) - self:RefreshTree(nil, true) -end - -local function BuildUniqueValue(...) - local n = select('#', ...) - if n == 1 then - return ... - else - return (...).."\001"..BuildUniqueValue(select(2,...)) - end -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Expand_OnClick(frame) - local button = frame.button - local self = button.obj - local status = (self.status or self.localstatus).groups - status[button.uniquevalue] = not status[button.uniquevalue] - self:RefreshTree() -end - -local function Button_OnClick(frame) - local self = frame.obj - self:Fire("OnClick", frame.uniquevalue, frame.selected) - if not frame.selected then - self:SetSelected(frame.uniquevalue) - frame.selected = true - frame:LockHighlight() - self:RefreshTree() - end - AceGUI:ClearFocus() -end - -local function Button_OnDoubleClick(button) - local self = button.obj - local status = (self.status or self.localstatus).groups - status[button.uniquevalue] = not status[button.uniquevalue] - self:RefreshTree() -end - -local function Button_OnEnter(frame) - local self = frame.obj - self:Fire("OnButtonEnter", frame.uniquevalue, frame) - - if self.enabletooltips then - local tooltip = AceGUI.tooltip - tooltip:SetOwner(frame, "ANCHOR_NONE") - tooltip:ClearAllPoints() - tooltip:SetPoint("LEFT",frame,"RIGHT") - tooltip:SetText(frame.text:GetText() or "", 1, .82, 0, true) - - tooltip:Show() - end -end - -local function Button_OnLeave(frame) - local self = frame.obj - self:Fire("OnButtonLeave", frame.uniquevalue, frame) - - if self.enabletooltips then - AceGUI.tooltip:Hide() - end -end - -local function OnScrollValueChanged(frame, value) - if frame.obj.noupdate then return end - local self = frame.obj - local status = self.status or self.localstatus - status.scrollvalue = floor(value + 0.5) - self:RefreshTree() - AceGUI:ClearFocus() -end - -local function Tree_OnSizeChanged(frame) - frame.obj:RefreshTree() -end - -local function Tree_OnMouseWheel(frame, delta) - local self = frame.obj - if self.showscroll then - local scrollbar = self.scrollbar - local min, max = scrollbar:GetMinMaxValues() - local value = scrollbar:GetValue() - local newvalue = math_min(max,math_max(min,value - delta)) - if value ~= newvalue then - scrollbar:SetValue(newvalue) - end - end -end - -local function Dragger_OnLeave(frame) - frame:SetBackdropColor(1, 1, 1, 0) -end - -local function Dragger_OnEnter(frame) - frame:SetBackdropColor(1, 1, 1, 0.8) -end - -local function Dragger_OnMouseDown(frame) - local treeframe = frame:GetParent() - treeframe:StartSizing("RIGHT") -end - -local function Dragger_OnMouseUp(frame) - local treeframe = frame:GetParent() - local self = treeframe.obj - local treeframeParent = treeframe:GetParent() - treeframe:StopMovingOrSizing() - --treeframe:SetScript("OnUpdate", nil) - treeframe:SetUserPlaced(false) - --Without this :GetHeight will get stuck on the current height, causing the tree contents to not resize - treeframe:SetHeight(0) - treeframe:ClearAllPoints() - treeframe:SetPoint("TOPLEFT", treeframeParent, "TOPLEFT",0,0) - treeframe:SetPoint("BOTTOMLEFT", treeframeParent, "BOTTOMLEFT",0,0) - - local status = self.status or self.localstatus - status.treewidth = treeframe:GetWidth() - - treeframe.obj:Fire("OnTreeResize",treeframe:GetWidth()) - -- recalculate the content width - treeframe.obj:OnWidthSet(status.fullwidth) - -- update the layout of the content - treeframe.obj:DoLayout() -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetTreeWidth(DEFAULT_TREE_WIDTH, DEFAULT_TREE_SIZABLE) - self:EnableButtonTooltips(true) - self.frame:SetScript("OnUpdate", FirstFrameUpdate) - end, - - ["OnRelease"] = function(self) - self.status = nil - self.tree = nil - self.frame:SetScript("OnUpdate", nil) - for k, v in pairs(self.localstatus) do - if k == "groups" then - for k2 in pairs(v) do - v[k2] = nil - end - else - self.localstatus[k] = nil - end - end - self.localstatus.scrollvalue = 0 - self.localstatus.treewidth = DEFAULT_TREE_WIDTH - self.localstatus.treesizable = DEFAULT_TREE_SIZABLE - end, - - ["EnableButtonTooltips"] = function(self, enable) - self.enabletooltips = enable - end, - - ["CreateButton"] = function(self) - local num = AceGUI:GetNextWidgetNum("TreeGroupButton") - local button = CreateFrame("Button", ("AceGUI30TreeButton%d"):format(num), self.treeframe, "OptionsListButtonTemplate") - button.obj = self - - local icon = button:CreateTexture(nil, "OVERLAY") - icon:SetWidth(14) - icon:SetHeight(14) - button.icon = icon - - button:SetScript("OnClick",Button_OnClick) - button:SetScript("OnDoubleClick", Button_OnDoubleClick) - button:SetScript("OnEnter",Button_OnEnter) - button:SetScript("OnLeave",Button_OnLeave) - - button.toggle.button = button - button.toggle:SetScript("OnClick",Expand_OnClick) - - button.text:SetHeight(14) -- Prevents text wrapping - - return button - end, - - ["SetStatusTable"] = function(self, status) - assert(type(status) == "table") - self.status = status - if not status.groups then - status.groups = {} - end - if not status.scrollvalue then - status.scrollvalue = 0 - end - if not status.treewidth then - status.treewidth = DEFAULT_TREE_WIDTH - end - if status.treesizable == nil then - status.treesizable = DEFAULT_TREE_SIZABLE - end - self:SetTreeWidth(status.treewidth,status.treesizable) - self:RefreshTree() - end, - - --sets the tree to be displayed - ["SetTree"] = function(self, tree, filter) - self.filter = filter - if tree then - assert(type(tree) == "table") - end - self.tree = tree - self:RefreshTree() - end, - - ["BuildLevel"] = function(self, tree, level, parent) - local groups = (self.status or self.localstatus).groups - - for i, v in ipairs(tree) do - if v.children then - if not self.filter or ShouldDisplayLevel(v.children) then - local line = addLine(self, v, tree, level, parent) - if groups[line.uniquevalue] then - self:BuildLevel(v.children, level+1, line) - end - end - elseif v.visible ~= false or not self.filter then - addLine(self, v, tree, level, parent) - end - end - end, - - ["RefreshTree"] = function(self,scrollToSelection,fromOnUpdate) - local buttons = self.buttons - local lines = self.lines - - for i, v in ipairs(buttons) do - v:Hide() - end - while lines[1] do - local t = tremove(lines) - for k in pairs(t) do - t[k] = nil - end - del(t) - end - - if not self.tree then return end - --Build the list of visible entries from the tree and status tables - local status = self.status or self.localstatus - local groupstatus = status.groups - local tree = self.tree - - local treeframe = self.treeframe - - status.scrollToSelection = status.scrollToSelection or scrollToSelection -- needs to be cached in case the control hasn't been drawn yet (code bails out below) - - self:BuildLevel(tree, 1) - - local numlines = #lines - - local maxlines = (floor(((self.treeframe:GetHeight()or 0) - 20 ) / 18)) - if maxlines <= 0 then return end - - if self.frame:GetParent() == UIParent and not fromOnUpdate then - self.frame:SetScript("OnUpdate", FirstFrameUpdate) - return - end - - local first, last - - scrollToSelection = status.scrollToSelection - status.scrollToSelection = nil - - if numlines <= maxlines then - --the whole tree fits in the frame - status.scrollvalue = 0 - self:ShowScroll(false) - first, last = 1, numlines - else - self:ShowScroll(true) - --scrolling will be needed - self.noupdate = true - self.scrollbar:SetMinMaxValues(0, numlines - maxlines) - --check if we are scrolled down too far - if numlines - status.scrollvalue < maxlines then - status.scrollvalue = numlines - maxlines - end - self.noupdate = nil - first, last = status.scrollvalue+1, status.scrollvalue + maxlines - --show selection? - if scrollToSelection and status.selected then - local show - for i,line in ipairs(lines) do -- find the line number - if line.uniquevalue==status.selected then - show=i - end - end - if not show then - -- selection was deleted or something? - elseif show>=first and show<=last then - -- all good - else - -- scrolling needed! - if show<first then - status.scrollvalue = show-1 - else - status.scrollvalue = show-maxlines - end - first, last = status.scrollvalue+1, status.scrollvalue + maxlines - end - end - if self.scrollbar:GetValue() ~= status.scrollvalue then - self.scrollbar:SetValue(status.scrollvalue) - end - end - - local buttonnum = 1 - for i = first, last do - local line = lines[i] - local button = buttons[buttonnum] - if not button then - button = self:CreateButton() - - buttons[buttonnum] = button - button:SetParent(treeframe) - button:SetFrameLevel(treeframe:GetFrameLevel()+1) - button:ClearAllPoints() - if buttonnum == 1 then - if self.showscroll then - button:SetPoint("TOPRIGHT", -22, -10) - button:SetPoint("TOPLEFT", 0, -10) - else - button:SetPoint("TOPRIGHT", 0, -10) - button:SetPoint("TOPLEFT", 0, -10) - end - else - button:SetPoint("TOPRIGHT", buttons[buttonnum-1], "BOTTOMRIGHT",0,0) - button:SetPoint("TOPLEFT", buttons[buttonnum-1], "BOTTOMLEFT",0,0) - end - end - - UpdateButton(button, line, status.selected == line.uniquevalue, line.hasChildren, groupstatus[line.uniquevalue] ) - button:Show() - buttonnum = buttonnum + 1 - end - - end, - - ["SetSelected"] = function(self, value) - local status = self.status or self.localstatus - if status.selected ~= value then - status.selected = value - self:Fire("OnGroupSelected", value) - end - end, - - ["Select"] = function(self, uniquevalue, ...) - self.filter = false - local status = self.status or self.localstatus - local groups = status.groups - local path = {...} - for i = 1, #path do - groups[tconcat(path, "\001", 1, i)] = true - end - status.selected = uniquevalue - self:RefreshTree(true) - self:Fire("OnGroupSelected", uniquevalue) - end, - - ["SelectByPath"] = function(self, ...) - self:Select(BuildUniqueValue(...), ...) - end, - - ["SelectByValue"] = function(self, uniquevalue) - self:Select(uniquevalue, ("\001"):split(uniquevalue)) - end, - - ["ShowScroll"] = function(self, show) - self.showscroll = show - if show then - self.scrollbar:Show() - if self.buttons[1] then - self.buttons[1]:SetPoint("TOPRIGHT", self.treeframe,"TOPRIGHT",-22,-10) - end - else - self.scrollbar:Hide() - if self.buttons[1] then - self.buttons[1]:SetPoint("TOPRIGHT", self.treeframe,"TOPRIGHT",0,-10) - end - end - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local treeframe = self.treeframe - local status = self.status or self.localstatus - status.fullwidth = width - - local contentwidth = width - status.treewidth - 20 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - - local maxtreewidth = math_min(400, width - 50) - - if maxtreewidth > 100 and status.treewidth > maxtreewidth then - self:SetTreeWidth(maxtreewidth, status.treesizable) - end - treeframe:SetMaxResize(maxtreewidth, 1600) - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - 20 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end, - - ["SetTreeWidth"] = function(self, treewidth, resizable) - if not resizable then - if type(treewidth) == 'number' then - resizable = false - elseif type(treewidth) == 'boolean' then - resizable = treewidth - treewidth = DEFAULT_TREE_WIDTH - else - resizable = false - treewidth = DEFAULT_TREE_WIDTH - end - end - self.treeframe:SetWidth(treewidth) - self.dragger:EnableMouse(resizable) - - local status = self.status or self.localstatus - status.treewidth = treewidth - status.treesizable = resizable - - -- recalculate the content width - if status.fullwidth then - self:OnWidthSet(status.fullwidth) - end - end, - - ["GetTreeWidth"] = function(self) - local status = self.status or self.localstatus - return status.treewidth or DEFAULT_TREE_WIDTH - end, - - ["LayoutFinished"] = function(self, width, height) - if self.noAutoHeight then return end - self:SetHeight((height or 0) + 20) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local PaneBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 5, bottom = 3 } -} - -local DraggerBackdrop = { - bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", - edgeFile = nil, - tile = true, tileSize = 16, edgeSize = 1, - insets = { left = 3, right = 3, top = 7, bottom = 7 } -} - -local function Constructor() - local num = AceGUI:GetNextWidgetNum(Type) - local frame = CreateFrame("Frame", nil, UIParent) - - local treeframe = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) - treeframe:SetPoint("TOPLEFT") - treeframe:SetPoint("BOTTOMLEFT") - treeframe:SetWidth(DEFAULT_TREE_WIDTH) - treeframe:EnableMouseWheel(true) - treeframe:SetBackdrop(PaneBackdrop) - treeframe:SetBackdropColor(0.1, 0.1, 0.1, 0.5) - treeframe:SetBackdropBorderColor(0.4, 0.4, 0.4) - treeframe:SetResizable(true) - treeframe:SetMinResize(100, 1) - treeframe:SetMaxResize(400, 1600) - treeframe:SetScript("OnUpdate", FirstFrameUpdate) - treeframe:SetScript("OnSizeChanged", Tree_OnSizeChanged) - treeframe:SetScript("OnMouseWheel", Tree_OnMouseWheel) - - local dragger = CreateFrame("Frame", nil, treeframe, BackdropTemplateMixin and "BackdropTemplate" or nil) - dragger:SetWidth(8) - dragger:SetPoint("TOP", treeframe, "TOPRIGHT") - dragger:SetPoint("BOTTOM", treeframe, "BOTTOMRIGHT") - dragger:SetBackdrop(DraggerBackdrop) - dragger:SetBackdropColor(1, 1, 1, 0) - dragger:SetScript("OnEnter", Dragger_OnEnter) - dragger:SetScript("OnLeave", Dragger_OnLeave) - dragger:SetScript("OnMouseDown", Dragger_OnMouseDown) - dragger:SetScript("OnMouseUp", Dragger_OnMouseUp) - - local scrollbar = CreateFrame("Slider", ("AceConfigDialogTreeGroup%dScrollBar"):format(num), treeframe, "UIPanelScrollBarTemplate") - scrollbar:SetScript("OnValueChanged", nil) - scrollbar:SetPoint("TOPRIGHT", -10, -26) - scrollbar:SetPoint("BOTTOMRIGHT", -10, 26) - scrollbar:SetMinMaxValues(0,0) - scrollbar:SetValueStep(1) - scrollbar:SetValue(0) - scrollbar:SetWidth(16) - scrollbar:SetScript("OnValueChanged", OnScrollValueChanged) - - local scrollbg = scrollbar:CreateTexture(nil, "BACKGROUND") - scrollbg:SetAllPoints(scrollbar) - scrollbg:SetColorTexture(0,0,0,0.4) - - local border = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) - border:SetPoint("TOPLEFT", treeframe, "TOPRIGHT") - border:SetPoint("BOTTOMRIGHT") - border:SetBackdrop(PaneBackdrop) - border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) - border:SetBackdropBorderColor(0.4, 0.4, 0.4) - - --Container Support - local content = CreateFrame("Frame", nil, border) - content:SetPoint("TOPLEFT", 10, -10) - content:SetPoint("BOTTOMRIGHT", -10, 10) - - local widget = { - frame = frame, - lines = {}, - levels = {}, - buttons = {}, - hasChildren = {}, - localstatus = { groups = {}, scrollvalue = 0 }, - filter = false, - treeframe = treeframe, - dragger = dragger, - scrollbar = scrollbar, - border = border, - content = content, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - treeframe.obj, dragger.obj, scrollbar.obj = widget, widget, widget - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua deleted file mode 100644 index 2e28a3d..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua +++ /dev/null @@ -1,336 +0,0 @@ -local AceGUI = LibStub("AceGUI-3.0") - --- Lua APIs -local pairs, assert, type = pairs, assert, type - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame, UIParent = CreateFrame, UIParent - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: GameFontNormal - ----------------- --- Main Frame -- ----------------- ---[[ - Events : - OnClose - -]] -do - local Type = "Window" - local Version = 6 - - local function frameOnShow(this) - this.obj:Fire("OnShow") - end - - local function frameOnClose(this) - this.obj:Fire("OnClose") - end - - local function closeOnClick(this) - PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT - this.obj:Hide() - end - - local function frameOnMouseDown(this) - AceGUI:ClearFocus() - end - - local function titleOnMouseDown(this) - this:GetParent():StartMoving() - AceGUI:ClearFocus() - end - - local function frameOnMouseUp(this) - local frame = this:GetParent() - frame:StopMovingOrSizing() - local self = frame.obj - local status = self.status or self.localstatus - status.width = frame:GetWidth() - status.height = frame:GetHeight() - status.top = frame:GetTop() - status.left = frame:GetLeft() - end - - local function sizerseOnMouseDown(this) - this:GetParent():StartSizing("BOTTOMRIGHT") - AceGUI:ClearFocus() - end - - local function sizersOnMouseDown(this) - this:GetParent():StartSizing("BOTTOM") - AceGUI:ClearFocus() - end - - local function sizereOnMouseDown(this) - this:GetParent():StartSizing("RIGHT") - AceGUI:ClearFocus() - end - - local function sizerOnMouseUp(this) - this:GetParent():StopMovingOrSizing() - end - - local function SetTitle(self,title) - self.titletext:SetText(title) - end - - local function SetStatusText(self,text) - -- self.statustext:SetText(text) - end - - local function Hide(self) - self.frame:Hide() - end - - local function Show(self) - self.frame:Show() - end - - local function OnAcquire(self) - self.frame:SetParent(UIParent) - self.frame:SetFrameStrata("FULLSCREEN_DIALOG") - self:ApplyStatus() - self:EnableResize(true) - self:Show() - end - - local function OnRelease(self) - self.status = nil - for k in pairs(self.localstatus) do - self.localstatus[k] = nil - end - end - - -- called to set an external table to store status in - local function SetStatusTable(self, status) - assert(type(status) == "table") - self.status = status - self:ApplyStatus() - end - - local function ApplyStatus(self) - local status = self.status or self.localstatus - local frame = self.frame - self:SetWidth(status.width or 700) - self:SetHeight(status.height or 500) - if status.top and status.left then - frame:SetPoint("TOP",UIParent,"BOTTOM",0,status.top) - frame:SetPoint("LEFT",UIParent,"LEFT",status.left,0) - else - frame:SetPoint("CENTER",UIParent,"CENTER") - end - end - - local function OnWidthSet(self, width) - local content = self.content - local contentwidth = width - 34 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - end - - - local function OnHeightSet(self, height) - local content = self.content - local contentheight = height - 57 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end - - local function EnableResize(self, state) - local func = state and "Show" or "Hide" - self.sizer_se[func](self.sizer_se) - self.sizer_s[func](self.sizer_s) - self.sizer_e[func](self.sizer_e) - end - - local function Constructor() - local frame = CreateFrame("Frame",nil,UIParent) - local self = {} - self.type = "Window" - - self.Hide = Hide - self.Show = Show - self.SetTitle = SetTitle - self.OnRelease = OnRelease - self.OnAcquire = OnAcquire - self.SetStatusText = SetStatusText - self.SetStatusTable = SetStatusTable - self.ApplyStatus = ApplyStatus - self.OnWidthSet = OnWidthSet - self.OnHeightSet = OnHeightSet - self.EnableResize = EnableResize - - self.localstatus = {} - - self.frame = frame - frame.obj = self - frame:SetWidth(700) - frame:SetHeight(500) - frame:SetPoint("CENTER",UIParent,"CENTER",0,0) - frame:EnableMouse() - frame:SetMovable(true) - frame:SetResizable(true) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - frame:SetScript("OnMouseDown", frameOnMouseDown) - - frame:SetScript("OnShow",frameOnShow) - frame:SetScript("OnHide",frameOnClose) - frame:SetMinResize(240,240) - frame:SetToplevel(true) - - local titlebg = frame:CreateTexture(nil, "BACKGROUND") - titlebg:SetTexture(251966) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Title-Background - titlebg:SetPoint("TOPLEFT", 9, -6) - titlebg:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", -28, -24) - - local dialogbg = frame:CreateTexture(nil, "BACKGROUND") - dialogbg:SetTexture(137056) -- Interface\\Tooltips\\UI-Tooltip-Background - dialogbg:SetPoint("TOPLEFT", 8, -24) - dialogbg:SetPoint("BOTTOMRIGHT", -6, 8) - dialogbg:SetVertexColor(0, 0, 0, .75) - - local topleft = frame:CreateTexture(nil, "BORDER") - topleft:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - topleft:SetWidth(64) - topleft:SetHeight(64) - topleft:SetPoint("TOPLEFT") - topleft:SetTexCoord(0.501953125, 0.625, 0, 1) - - local topright = frame:CreateTexture(nil, "BORDER") - topright:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - topright:SetWidth(64) - topright:SetHeight(64) - topright:SetPoint("TOPRIGHT") - topright:SetTexCoord(0.625, 0.75, 0, 1) - - local top = frame:CreateTexture(nil, "BORDER") - top:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - top:SetHeight(64) - top:SetPoint("TOPLEFT", topleft, "TOPRIGHT") - top:SetPoint("TOPRIGHT", topright, "TOPLEFT") - top:SetTexCoord(0.25, 0.369140625, 0, 1) - - local bottomleft = frame:CreateTexture(nil, "BORDER") - bottomleft:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - bottomleft:SetWidth(64) - bottomleft:SetHeight(64) - bottomleft:SetPoint("BOTTOMLEFT") - bottomleft:SetTexCoord(0.751953125, 0.875, 0, 1) - - local bottomright = frame:CreateTexture(nil, "BORDER") - bottomright:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - bottomright:SetWidth(64) - bottomright:SetHeight(64) - bottomright:SetPoint("BOTTOMRIGHT") - bottomright:SetTexCoord(0.875, 1, 0, 1) - - local bottom = frame:CreateTexture(nil, "BORDER") - bottom:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - bottom:SetHeight(64) - bottom:SetPoint("BOTTOMLEFT", bottomleft, "BOTTOMRIGHT") - bottom:SetPoint("BOTTOMRIGHT", bottomright, "BOTTOMLEFT") - bottom:SetTexCoord(0.376953125, 0.498046875, 0, 1) - - local left = frame:CreateTexture(nil, "BORDER") - left:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - left:SetWidth(64) - left:SetPoint("TOPLEFT", topleft, "BOTTOMLEFT") - left:SetPoint("BOTTOMLEFT", bottomleft, "TOPLEFT") - left:SetTexCoord(0.001953125, 0.125, 0, 1) - - local right = frame:CreateTexture(nil, "BORDER") - right:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - right:SetWidth(64) - right:SetPoint("TOPRIGHT", topright, "BOTTOMRIGHT") - right:SetPoint("BOTTOMRIGHT", bottomright, "TOPRIGHT") - right:SetTexCoord(0.1171875, 0.2421875, 0, 1) - - local close = CreateFrame("Button", nil, frame, "UIPanelCloseButton") - close:SetPoint("TOPRIGHT", 2, 1) - close:SetScript("OnClick", closeOnClick) - self.closebutton = close - close.obj = self - - local titletext = frame:CreateFontString(nil, "ARTWORK") - titletext:SetFontObject(GameFontNormal) - titletext:SetPoint("TOPLEFT", 12, -8) - titletext:SetPoint("TOPRIGHT", -32, -8) - self.titletext = titletext - - local title = CreateFrame("Button", nil, frame) - title:SetPoint("TOPLEFT", titlebg) - title:SetPoint("BOTTOMRIGHT", titlebg) - title:EnableMouse() - title:SetScript("OnMouseDown",titleOnMouseDown) - title:SetScript("OnMouseUp", frameOnMouseUp) - self.title = title - - local sizer_se = CreateFrame("Frame",nil,frame) - sizer_se:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,0) - sizer_se:SetWidth(25) - sizer_se:SetHeight(25) - sizer_se:EnableMouse() - sizer_se:SetScript("OnMouseDown",sizerseOnMouseDown) - sizer_se:SetScript("OnMouseUp", sizerOnMouseUp) - self.sizer_se = sizer_se - - local line1 = sizer_se:CreateTexture(nil, "BACKGROUND") - self.line1 = line1 - line1:SetWidth(14) - line1:SetHeight(14) - line1:SetPoint("BOTTOMRIGHT", -8, 8) - line1:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - local x = 0.1 * 14/17 - line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) - - local line2 = sizer_se:CreateTexture(nil, "BACKGROUND") - self.line2 = line2 - line2:SetWidth(8) - line2:SetHeight(8) - line2:SetPoint("BOTTOMRIGHT", -8, 8) - line2:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - local x = 0.1 * 8/17 - line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) - - local sizer_s = CreateFrame("Frame",nil,frame) - sizer_s:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-25,0) - sizer_s:SetPoint("BOTTOMLEFT",frame,"BOTTOMLEFT",0,0) - sizer_s:SetHeight(25) - sizer_s:EnableMouse() - sizer_s:SetScript("OnMouseDown",sizersOnMouseDown) - sizer_s:SetScript("OnMouseUp", sizerOnMouseUp) - self.sizer_s = sizer_s - - local sizer_e = CreateFrame("Frame",nil,frame) - sizer_e:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,25) - sizer_e:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0) - sizer_e:SetWidth(25) - sizer_e:EnableMouse() - sizer_e:SetScript("OnMouseDown",sizereOnMouseDown) - sizer_e:SetScript("OnMouseUp", sizerOnMouseUp) - self.sizer_e = sizer_e - - --Container Support - local content = CreateFrame("Frame",nil,frame) - self.content = content - content.obj = self - content:SetPoint("TOPLEFT",frame,"TOPLEFT",12,-32) - content:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-12,13) - - AceGUI:RegisterAsContainer(self) - return self - end - - AceGUI:RegisterWidgetType(Type,Constructor,Version) -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua deleted file mode 100644 index 0e286ca..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua +++ /dev/null @@ -1,103 +0,0 @@ ---[[----------------------------------------------------------------------------- -Button Widget -Graphical Button. --------------------------------------------------------------------------------]] -local Type, Version = "Button", 24 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local _G = _G -local PlaySound, CreateFrame, UIParent = PlaySound, CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Button_OnClick(frame, ...) - AceGUI:ClearFocus() - PlaySound(852) -- SOUNDKIT.IG_MAINMENU_OPTION - frame.obj:Fire("OnClick", ...) -end - -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - -- restore default values - self:SetHeight(24) - self:SetWidth(200) - self:SetDisabled(false) - self:SetAutoWidth(false) - self:SetText() - end, - - -- ["OnRelease"] = nil, - - ["SetText"] = function(self, text) - self.text:SetText(text) - if self.autoWidth then - self:SetWidth(self.text:GetStringWidth() + 30) - end - end, - - ["SetAutoWidth"] = function(self, autoWidth) - self.autoWidth = autoWidth - if self.autoWidth then - self:SetWidth(self.text:GetStringWidth() + 30) - end - end, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.frame:Disable() - else - self.frame:Enable() - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local name = "AceGUI30Button" .. AceGUI:GetNextWidgetNum(Type) - local frame = CreateFrame("Button", name, UIParent, "UIPanelButtonTemplate") - frame:Hide() - - frame:EnableMouse(true) - frame:SetScript("OnClick", Button_OnClick) - frame:SetScript("OnEnter", Control_OnEnter) - frame:SetScript("OnLeave", Control_OnLeave) - - local text = frame:GetFontString() - text:ClearAllPoints() - text:SetPoint("TOPLEFT", 15, -1) - text:SetPoint("BOTTOMRIGHT", -15, 1) - text:SetJustifyV("MIDDLE") - - local widget = { - text = text, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua deleted file mode 100644 index 53ef618..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua +++ /dev/null @@ -1,296 +0,0 @@ ---[[----------------------------------------------------------------------------- -Checkbox Widget --------------------------------------------------------------------------------]] -local Type, Version = "CheckBox", 26 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local select, pairs = select, pairs - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame, UIParent = CreateFrame, UIParent - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: SetDesaturation, GameFontHighlight - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function AlignImage(self) - local img = self.image:GetTexture() - self.text:ClearAllPoints() - if not img then - self.text:SetPoint("LEFT", self.checkbg, "RIGHT") - self.text:SetPoint("RIGHT") - else - self.text:SetPoint("LEFT", self.image, "RIGHT", 1, 0) - self.text:SetPoint("RIGHT") - end -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function CheckBox_OnMouseDown(frame) - local self = frame.obj - if not self.disabled then - if self.image:GetTexture() then - self.text:SetPoint("LEFT", self.image,"RIGHT", 2, -1) - else - self.text:SetPoint("LEFT", self.checkbg, "RIGHT", 1, -1) - end - end - AceGUI:ClearFocus() -end - -local function CheckBox_OnMouseUp(frame) - local self = frame.obj - if not self.disabled then - self:ToggleChecked() - - if self.checked then - PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON - else -- for both nil and false (tristate) - PlaySound(857) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_OFF - end - - self:Fire("OnValueChanged", self.checked) - AlignImage(self) - end -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetType() - self:SetValue(false) - self:SetTriState(nil) - -- height is calculated from the width and required space for the description - self:SetWidth(200) - self:SetImage() - self:SetDisabled(nil) - self:SetDescription(nil) - end, - - -- ["OnRelease"] = nil, - - ["OnWidthSet"] = function(self, width) - if self.desc then - self.desc:SetWidth(width - 30) - if self.desc:GetText() and self.desc:GetText() ~= "" then - self:SetHeight(28 + self.desc:GetStringHeight()) - end - end - end, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.frame:Disable() - self.text:SetTextColor(0.5, 0.5, 0.5) - SetDesaturation(self.check, true) - if self.desc then - self.desc:SetTextColor(0.5, 0.5, 0.5) - end - else - self.frame:Enable() - self.text:SetTextColor(1, 1, 1) - if self.tristate and self.checked == nil then - SetDesaturation(self.check, true) - else - SetDesaturation(self.check, false) - end - if self.desc then - self.desc:SetTextColor(1, 1, 1) - end - end - end, - - ["SetValue"] = function(self, value) - local check = self.check - self.checked = value - if value then - SetDesaturation(check, false) - check:Show() - else - --Nil is the unknown tristate value - if self.tristate and value == nil then - SetDesaturation(check, true) - check:Show() - else - SetDesaturation(check, false) - check:Hide() - end - end - self:SetDisabled(self.disabled) - end, - - ["GetValue"] = function(self) - return self.checked - end, - - ["SetTriState"] = function(self, enabled) - self.tristate = enabled - self:SetValue(self:GetValue()) - end, - - ["SetType"] = function(self, type) - local checkbg = self.checkbg - local check = self.check - local highlight = self.highlight - - local size - if type == "radio" then - size = 16 - checkbg:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton - checkbg:SetTexCoord(0, 0.25, 0, 1) - check:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton - check:SetTexCoord(0.25, 0.5, 0, 1) - check:SetBlendMode("ADD") - highlight:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton - highlight:SetTexCoord(0.5, 0.75, 0, 1) - else - size = 24 - checkbg:SetTexture(130755) -- Interface\\Buttons\\UI-CheckBox-Up - checkbg:SetTexCoord(0, 1, 0, 1) - check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check - check:SetTexCoord(0, 1, 0, 1) - check:SetBlendMode("BLEND") - highlight:SetTexture(130753) -- Interface\\Buttons\\UI-CheckBox-Highlight - highlight:SetTexCoord(0, 1, 0, 1) - end - checkbg:SetHeight(size) - checkbg:SetWidth(size) - end, - - ["ToggleChecked"] = function(self) - local value = self:GetValue() - if self.tristate then - --cycle in true, nil, false order - if value then - self:SetValue(nil) - elseif value == nil then - self:SetValue(false) - else - self:SetValue(true) - end - else - self:SetValue(not self:GetValue()) - end - end, - - ["SetLabel"] = function(self, label) - self.text:SetText(label) - end, - - ["SetDescription"] = function(self, desc) - if desc then - if not self.desc then - local desc = self.frame:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall") - desc:ClearAllPoints() - desc:SetPoint("TOPLEFT", self.checkbg, "TOPRIGHT", 5, -21) - desc:SetWidth(self.frame.width - 30) - desc:SetPoint("RIGHT", self.frame, "RIGHT", -30, 0) - desc:SetJustifyH("LEFT") - desc:SetJustifyV("TOP") - self.desc = desc - end - self.desc:Show() - --self.text:SetFontObject(GameFontNormal) - self.desc:SetText(desc) - self:SetHeight(28 + self.desc:GetStringHeight()) - else - if self.desc then - self.desc:SetText("") - self.desc:Hide() - end - --self.text:SetFontObject(GameFontHighlight) - self:SetHeight(24) - end - end, - - ["SetImage"] = function(self, path, ...) - local image = self.image - image:SetTexture(path) - - if image:GetTexture() then - local n = select("#", ...) - if n == 4 or n == 8 then - image:SetTexCoord(...) - else - image:SetTexCoord(0, 1, 0, 1) - end - end - AlignImage(self) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Button", nil, UIParent) - frame:Hide() - - frame:EnableMouse(true) - frame:SetScript("OnEnter", Control_OnEnter) - frame:SetScript("OnLeave", Control_OnLeave) - frame:SetScript("OnMouseDown", CheckBox_OnMouseDown) - frame:SetScript("OnMouseUp", CheckBox_OnMouseUp) - - local checkbg = frame:CreateTexture(nil, "ARTWORK") - checkbg:SetWidth(24) - checkbg:SetHeight(24) - checkbg:SetPoint("TOPLEFT") - checkbg:SetTexture(130755) -- Interface\\Buttons\\UI-CheckBox-Up - - local check = frame:CreateTexture(nil, "OVERLAY") - check:SetAllPoints(checkbg) - check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check - - local text = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight") - text:SetJustifyH("LEFT") - text:SetHeight(18) - text:SetPoint("LEFT", checkbg, "RIGHT") - text:SetPoint("RIGHT") - - local highlight = frame:CreateTexture(nil, "HIGHLIGHT") - highlight:SetTexture(130753) -- Interface\\Buttons\\UI-CheckBox-Highlight - highlight:SetBlendMode("ADD") - highlight:SetAllPoints(checkbg) - - local image = frame:CreateTexture(nil, "OVERLAY") - image:SetHeight(16) - image:SetWidth(16) - image:SetPoint("LEFT", checkbg, "RIGHT", 1, 0) - - local widget = { - checkbg = checkbg, - check = check, - text = text, - highlight = highlight, - image = image, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua deleted file mode 100644 index 1101162..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua +++ /dev/null @@ -1,190 +0,0 @@ ---[[----------------------------------------------------------------------------- -ColorPicker Widget --------------------------------------------------------------------------------]] -local Type, Version = "ColorPicker", 25 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: ColorPickerFrame, OpacitySliderFrame - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function ColorCallback(self, r, g, b, a, isAlpha) - if not self.HasAlpha then - a = 1 - end - self:SetColor(r, g, b, a) - if ColorPickerFrame:IsVisible() then - --colorpicker is still open - self:Fire("OnValueChanged", r, g, b, a) - else - --colorpicker is closed, color callback is first, ignore it, - --alpha callback is the final call after it closes so confirm now - if isAlpha then - self:Fire("OnValueConfirmed", r, g, b, a) - end - end -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function ColorSwatch_OnClick(frame) - ColorPickerFrame:Hide() - local self = frame.obj - if not self.disabled then - ColorPickerFrame:SetFrameStrata("FULLSCREEN_DIALOG") - ColorPickerFrame:SetFrameLevel(frame:GetFrameLevel() + 10) - ColorPickerFrame:SetClampedToScreen(true) - - ColorPickerFrame.func = function() - local r, g, b = ColorPickerFrame:GetColorRGB() - local a = 1 - OpacitySliderFrame:GetValue() - ColorCallback(self, r, g, b, a) - end - - ColorPickerFrame.hasOpacity = self.HasAlpha - ColorPickerFrame.opacityFunc = function() - local r, g, b = ColorPickerFrame:GetColorRGB() - local a = 1 - OpacitySliderFrame:GetValue() - ColorCallback(self, r, g, b, a, true) - end - - local r, g, b, a = self.r, self.g, self.b, self.a - if self.HasAlpha then - ColorPickerFrame.opacity = 1 - (a or 0) - end - ColorPickerFrame:SetColorRGB(r, g, b) - - ColorPickerFrame.cancelFunc = function() - ColorCallback(self, r, g, b, a, true) - end - - ColorPickerFrame:Show() - end - AceGUI:ClearFocus() -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetHeight(24) - self:SetWidth(200) - self:SetHasAlpha(false) - self:SetColor(0, 0, 0, 1) - self:SetDisabled(nil) - self:SetLabel(nil) - end, - - -- ["OnRelease"] = nil, - - ["SetLabel"] = function(self, text) - self.text:SetText(text) - end, - - ["SetColor"] = function(self, r, g, b, a) - self.r = r - self.g = g - self.b = b - self.a = a or 1 - self.colorSwatch:SetVertexColor(r, g, b, a) - end, - - ["SetHasAlpha"] = function(self, HasAlpha) - self.HasAlpha = HasAlpha - end, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if self.disabled then - self.frame:Disable() - self.text:SetTextColor(0.5, 0.5, 0.5) - else - self.frame:Enable() - self.text:SetTextColor(1, 1, 1) - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Button", nil, UIParent) - frame:Hide() - - frame:EnableMouse(true) - frame:SetScript("OnEnter", Control_OnEnter) - frame:SetScript("OnLeave", Control_OnLeave) - frame:SetScript("OnClick", ColorSwatch_OnClick) - - local colorSwatch = frame:CreateTexture(nil, "OVERLAY") - colorSwatch:SetWidth(19) - colorSwatch:SetHeight(19) - colorSwatch:SetTexture(130939) -- Interface\\ChatFrame\\ChatFrameColorSwatch - colorSwatch:SetPoint("LEFT") - - local texture = frame:CreateTexture(nil, "BACKGROUND") - colorSwatch.background = texture - texture:SetWidth(16) - texture:SetHeight(16) - texture:SetColorTexture(1, 1, 1) - texture:SetPoint("CENTER", colorSwatch) - texture:Show() - - local checkers = frame:CreateTexture(nil, "BACKGROUND") - colorSwatch.checkers = checkers - checkers:SetWidth(14) - checkers:SetHeight(14) - checkers:SetTexture(188523) -- Tileset\\Generic\\Checkers - checkers:SetTexCoord(.25, 0, 0.5, .25) - checkers:SetDesaturated(true) - checkers:SetVertexColor(1, 1, 1, 0.75) - checkers:SetPoint("CENTER", colorSwatch) - checkers:Show() - - local text = frame:CreateFontString(nil,"OVERLAY","GameFontHighlight") - text:SetHeight(24) - text:SetJustifyH("LEFT") - text:SetTextColor(1, 1, 1) - text:SetPoint("LEFT", colorSwatch, "RIGHT", 2, 0) - text:SetPoint("RIGHT") - - --local highlight = frame:CreateTexture(nil, "HIGHLIGHT") - --highlight:SetTexture(136810) -- Interface\\QuestFrame\\UI-QuestTitleHighlight - --highlight:SetBlendMode("ADD") - --highlight:SetAllPoints(frame) - - local widget = { - colorSwatch = colorSwatch, - text = text, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua deleted file mode 100644 index 7ae1401..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua +++ /dev/null @@ -1,471 +0,0 @@ ---[[ $Id: AceGUIWidget-DropDown-Items.lua 1202 2019-05-15 23:11:22Z nevcairiel $ ]]-- - -local AceGUI = LibStub("AceGUI-3.0") - --- Lua APIs -local select, assert = select, assert - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame = CreateFrame - -local function fixlevels(parent,...) - local i = 1 - local child = select(i, ...) - while child do - child:SetFrameLevel(parent:GetFrameLevel()+1) - fixlevels(child, child:GetChildren()) - i = i + 1 - child = select(i, ...) - end -end - -local function fixstrata(strata, parent, ...) - local i = 1 - local child = select(i, ...) - parent:SetFrameStrata(strata) - while child do - fixstrata(strata, child, child:GetChildren()) - i = i + 1 - child = select(i, ...) - end -end - --- ItemBase is the base "class" for all dropdown items. --- Each item has to use ItemBase.Create(widgetType) to --- create an initial 'self' value. --- ItemBase will add common functions and ui event handlers. --- Be sure to keep basic usage when you override functions. - -local ItemBase = { - -- NOTE: The ItemBase version is added to each item's version number - -- to ensure proper updates on ItemBase changes. - -- Use at least 1000er steps. - version = 1000, - counter = 0, -} - -function ItemBase.Frame_OnEnter(this) - local self = this.obj - - if self.useHighlight then - self.highlight:Show() - end - self:Fire("OnEnter") - - if self.specialOnEnter then - self.specialOnEnter(self) - end -end - -function ItemBase.Frame_OnLeave(this) - local self = this.obj - - self.highlight:Hide() - self:Fire("OnLeave") - - if self.specialOnLeave then - self.specialOnLeave(self) - end -end - --- exported, AceGUI callback -function ItemBase.OnAcquire(self) - self.frame:SetToplevel(true) - self.frame:SetFrameStrata("FULLSCREEN_DIALOG") -end - --- exported, AceGUI callback -function ItemBase.OnRelease(self) - self:SetDisabled(false) - self.pullout = nil - self.frame:SetParent(nil) - self.frame:ClearAllPoints() - self.frame:Hide() -end - --- exported --- NOTE: this is called by a Dropdown-Pullout. --- Do not call this method directly -function ItemBase.SetPullout(self, pullout) - self.pullout = pullout - - self.frame:SetParent(nil) - self.frame:SetParent(pullout.itemFrame) - self.parent = pullout.itemFrame - fixlevels(pullout.itemFrame, pullout.itemFrame:GetChildren()) -end - --- exported -function ItemBase.SetText(self, text) - self.text:SetText(text or "") -end - --- exported -function ItemBase.GetText(self) - return self.text:GetText() -end - --- exported -function ItemBase.SetPoint(self, ...) - self.frame:SetPoint(...) -end - --- exported -function ItemBase.Show(self) - self.frame:Show() -end - --- exported -function ItemBase.Hide(self) - self.frame:Hide() -end - --- exported -function ItemBase.SetDisabled(self, disabled) - self.disabled = disabled - if disabled then - self.useHighlight = false - self.text:SetTextColor(.5, .5, .5) - else - self.useHighlight = true - self.text:SetTextColor(1, 1, 1) - end -end - --- exported --- NOTE: this is called by a Dropdown-Pullout. --- Do not call this method directly -function ItemBase.SetOnLeave(self, func) - self.specialOnLeave = func -end - --- exported --- NOTE: this is called by a Dropdown-Pullout. --- Do not call this method directly -function ItemBase.SetOnEnter(self, func) - self.specialOnEnter = func -end - -function ItemBase.Create(type) - -- NOTE: Most of the following code is copied from AceGUI-3.0/Dropdown widget - local count = AceGUI:GetNextWidgetNum(type) - local frame = CreateFrame("Button", "AceGUI30DropDownItem"..count) - local self = {} - self.frame = frame - frame.obj = self - self.type = type - - self.useHighlight = true - - frame:SetHeight(17) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - - local text = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall") - text:SetTextColor(1,1,1) - text:SetJustifyH("LEFT") - text:SetPoint("TOPLEFT",frame,"TOPLEFT",18,0) - text:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-8,0) - self.text = text - - local highlight = frame:CreateTexture(nil, "OVERLAY") - highlight:SetTexture(136810) -- Interface\\QuestFrame\\UI-QuestTitleHighlight - highlight:SetBlendMode("ADD") - highlight:SetHeight(14) - highlight:ClearAllPoints() - highlight:SetPoint("RIGHT",frame,"RIGHT",-3,0) - highlight:SetPoint("LEFT",frame,"LEFT",5,0) - highlight:Hide() - self.highlight = highlight - - local check = frame:CreateTexture("OVERLAY") - check:SetWidth(16) - check:SetHeight(16) - check:SetPoint("LEFT",frame,"LEFT",3,-1) - check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check - check:Hide() - self.check = check - - local sub = frame:CreateTexture("OVERLAY") - sub:SetWidth(16) - sub:SetHeight(16) - sub:SetPoint("RIGHT",frame,"RIGHT",-3,-1) - sub:SetTexture(130940) -- Interface\\ChatFrame\\ChatFrameExpandArrow - sub:Hide() - self.sub = sub - - frame:SetScript("OnEnter", ItemBase.Frame_OnEnter) - frame:SetScript("OnLeave", ItemBase.Frame_OnLeave) - - self.OnAcquire = ItemBase.OnAcquire - self.OnRelease = ItemBase.OnRelease - - self.SetPullout = ItemBase.SetPullout - self.GetText = ItemBase.GetText - self.SetText = ItemBase.SetText - self.SetDisabled = ItemBase.SetDisabled - - self.SetPoint = ItemBase.SetPoint - self.Show = ItemBase.Show - self.Hide = ItemBase.Hide - - self.SetOnLeave = ItemBase.SetOnLeave - self.SetOnEnter = ItemBase.SetOnEnter - - return self -end - --- Register a dummy LibStub library to retrieve the ItemBase, so other addons can use it. -local IBLib = LibStub:NewLibrary("AceGUI-3.0-DropDown-ItemBase", ItemBase.version) -if IBLib then - IBLib.GetItemBase = function() return ItemBase end -end - ---[[ - Template for items: - --- Item: --- -do - local widgetType = "Dropdown-Item-" - local widgetVersion = 1 - - local function Constructor() - local self = ItemBase.Create(widgetType) - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end ---]] - --- Item: Header --- A single text entry. --- Special: Different text color and no highlight -do - local widgetType = "Dropdown-Item-Header" - local widgetVersion = 1 - - local function OnEnter(this) - local self = this.obj - self:Fire("OnEnter") - - if self.specialOnEnter then - self.specialOnEnter(self) - end - end - - local function OnLeave(this) - local self = this.obj - self:Fire("OnLeave") - - if self.specialOnLeave then - self.specialOnLeave(self) - end - end - - -- exported, override - local function SetDisabled(self, disabled) - ItemBase.SetDisabled(self, disabled) - if not disabled then - self.text:SetTextColor(1, 1, 0) - end - end - - local function Constructor() - local self = ItemBase.Create(widgetType) - - self.SetDisabled = SetDisabled - - self.frame:SetScript("OnEnter", OnEnter) - self.frame:SetScript("OnLeave", OnLeave) - - self.text:SetTextColor(1, 1, 0) - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end - --- Item: Execute --- A simple button -do - local widgetType = "Dropdown-Item-Execute" - local widgetVersion = 1 - - local function Frame_OnClick(this, button) - local self = this.obj - if self.disabled then return end - self:Fire("OnClick") - if self.pullout then - self.pullout:Close() - end - end - - local function Constructor() - local self = ItemBase.Create(widgetType) - - self.frame:SetScript("OnClick", Frame_OnClick) - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end - --- Item: Toggle --- Some sort of checkbox for dropdown menus. --- Does not close the pullout on click. -do - local widgetType = "Dropdown-Item-Toggle" - local widgetVersion = 4 - - local function UpdateToggle(self) - if self.value then - self.check:Show() - else - self.check:Hide() - end - end - - local function OnRelease(self) - ItemBase.OnRelease(self) - self:SetValue(nil) - end - - local function Frame_OnClick(this, button) - local self = this.obj - if self.disabled then return end - self.value = not self.value - if self.value then - PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON - else - PlaySound(857) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_OFF - end - UpdateToggle(self) - self:Fire("OnValueChanged", self.value) - end - - -- exported - local function SetValue(self, value) - self.value = value - UpdateToggle(self) - end - - -- exported - local function GetValue(self) - return self.value - end - - local function Constructor() - local self = ItemBase.Create(widgetType) - - self.frame:SetScript("OnClick", Frame_OnClick) - - self.SetValue = SetValue - self.GetValue = GetValue - self.OnRelease = OnRelease - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end - --- Item: Menu --- Shows a submenu on mouse over --- Does not close the pullout on click -do - local widgetType = "Dropdown-Item-Menu" - local widgetVersion = 2 - - local function OnEnter(this) - local self = this.obj - self:Fire("OnEnter") - - if self.specialOnEnter then - self.specialOnEnter(self) - end - - self.highlight:Show() - - if not self.disabled and self.submenu then - self.submenu:Open("TOPLEFT", self.frame, "TOPRIGHT", self.pullout:GetRightBorderWidth(), 0, self.frame:GetFrameLevel() + 100) - end - end - - local function OnHide(this) - local self = this.obj - if self.submenu then - self.submenu:Close() - end - end - - -- exported - local function SetMenu(self, menu) - assert(menu.type == "Dropdown-Pullout") - self.submenu = menu - end - - -- exported - local function CloseMenu(self) - self.submenu:Close() - end - - local function Constructor() - local self = ItemBase.Create(widgetType) - - self.sub:Show() - - self.frame:SetScript("OnEnter", OnEnter) - self.frame:SetScript("OnHide", OnHide) - - self.SetMenu = SetMenu - self.CloseMenu = CloseMenu - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end - --- Item: Separator --- A single line to separate items -do - local widgetType = "Dropdown-Item-Separator" - local widgetVersion = 2 - - -- exported, override - local function SetDisabled(self, disabled) - ItemBase.SetDisabled(self, disabled) - self.useHighlight = false - end - - local function Constructor() - local self = ItemBase.Create(widgetType) - - self.SetDisabled = SetDisabled - - local line = self.frame:CreateTexture(nil, "OVERLAY") - line:SetHeight(1) - line:SetColorTexture(.5, .5, .5) - line:SetPoint("LEFT", self.frame, "LEFT", 10, 0) - line:SetPoint("RIGHT", self.frame, "RIGHT", -10, 0) - - self.text:Hide() - - self.useHighlight = false - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua deleted file mode 100644 index 5481630..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua +++ /dev/null @@ -1,737 +0,0 @@ ---[[ $Id: AceGUIWidget-DropDown.lua 1239 2020-09-20 10:22:02Z nevcairiel $ ]]-- -local AceGUI = LibStub("AceGUI-3.0") - --- Lua APIs -local min, max, floor = math.min, math.max, math.floor -local select, pairs, ipairs, type, tostring = select, pairs, ipairs, type, tostring -local tsort = table.sort - --- WoW APIs -local PlaySound = PlaySound -local UIParent, CreateFrame = UIParent, CreateFrame -local _G = _G - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: CLOSE - -local function fixlevels(parent,...) - local i = 1 - local child = select(i, ...) - while child do - child:SetFrameLevel(parent:GetFrameLevel()+1) - fixlevels(child, child:GetChildren()) - i = i + 1 - child = select(i, ...) - end -end - -local function fixstrata(strata, parent, ...) - local i = 1 - local child = select(i, ...) - parent:SetFrameStrata(strata) - while child do - fixstrata(strata, child, child:GetChildren()) - i = i + 1 - child = select(i, ...) - end -end - -do - local widgetType = "Dropdown-Pullout" - local widgetVersion = 5 - - --[[ Static data ]]-- - - local backdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border", - edgeSize = 32, - tileSize = 32, - tile = true, - insets = { left = 11, right = 12, top = 12, bottom = 11 }, - } - local sliderBackdrop = { - bgFile = "Interface\\Buttons\\UI-SliderBar-Background", - edgeFile = "Interface\\Buttons\\UI-SliderBar-Border", - tile = true, tileSize = 8, edgeSize = 8, - insets = { left = 3, right = 3, top = 3, bottom = 3 } - } - - local defaultWidth = 200 - local defaultMaxHeight = 600 - - --[[ UI Event Handlers ]]-- - - -- HACK: This should be no part of the pullout, but there - -- is no other 'clean' way to response to any item-OnEnter - -- Used to close Submenus when an other item is entered - local function OnEnter(item) - local self = item.pullout - for k, v in ipairs(self.items) do - if v.CloseMenu and v ~= item then - v:CloseMenu() - end - end - end - - -- See the note in Constructor() for each scroll related function - local function OnMouseWheel(this, value) - this.obj:MoveScroll(value) - end - - local function OnScrollValueChanged(this, value) - this.obj:SetScroll(value) - end - - local function OnSizeChanged(this) - this.obj:FixScroll() - end - - --[[ Exported methods ]]-- - - -- exported - local function SetScroll(self, value) - local status = self.scrollStatus - local frame, child = self.scrollFrame, self.itemFrame - local height, viewheight = frame:GetHeight(), child:GetHeight() - - local offset - if height > viewheight then - offset = 0 - else - offset = floor((viewheight - height) / 1000 * value) - end - child:ClearAllPoints() - child:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, offset) - child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", self.slider:IsShown() and -12 or 0, offset) - status.offset = offset - status.scrollvalue = value - end - - -- exported - local function MoveScroll(self, value) - local status = self.scrollStatus - local frame, child = self.scrollFrame, self.itemFrame - local height, viewheight = frame:GetHeight(), child:GetHeight() - - if height > viewheight then - self.slider:Hide() - else - self.slider:Show() - local diff = height - viewheight - local delta = 1 - if value < 0 then - delta = -1 - end - self.slider:SetValue(min(max(status.scrollvalue + delta*(1000/(diff/45)),0), 1000)) - end - end - - -- exported - local function FixScroll(self) - local status = self.scrollStatus - local frame, child = self.scrollFrame, self.itemFrame - local height, viewheight = frame:GetHeight(), child:GetHeight() - local offset = status.offset or 0 - - if viewheight < height then - self.slider:Hide() - child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", 0, offset) - self.slider:SetValue(0) - else - self.slider:Show() - local value = (offset / (viewheight - height) * 1000) - if value > 1000 then value = 1000 end - self.slider:SetValue(value) - self:SetScroll(value) - if value < 1000 then - child:ClearAllPoints() - child:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, offset) - child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -12, offset) - status.offset = offset - end - end - end - - -- exported, AceGUI callback - local function OnAcquire(self) - self.frame:SetParent(UIParent) - --self.itemFrame:SetToplevel(true) - end - - -- exported, AceGUI callback - local function OnRelease(self) - self:Clear() - self.frame:ClearAllPoints() - self.frame:Hide() - end - - -- exported - local function AddItem(self, item) - self.items[#self.items + 1] = item - - local h = #self.items * 16 - self.itemFrame:SetHeight(h) - self.frame:SetHeight(min(h + 34, self.maxHeight)) -- +34: 20 for scrollFrame placement (10 offset) and +14 for item placement - - item.frame:SetPoint("LEFT", self.itemFrame, "LEFT") - item.frame:SetPoint("RIGHT", self.itemFrame, "RIGHT") - - item:SetPullout(self) - item:SetOnEnter(OnEnter) - end - - -- exported - local function Open(self, point, relFrame, relPoint, x, y) - local items = self.items - local frame = self.frame - local itemFrame = self.itemFrame - - frame:SetPoint(point, relFrame, relPoint, x, y) - - - local height = 8 - for i, item in pairs(items) do - item:SetPoint("TOP", itemFrame, "TOP", 0, -2 + (i - 1) * -16) - item:Show() - - height = height + 16 - end - itemFrame:SetHeight(height) - fixstrata("TOOLTIP", frame, frame:GetChildren()) - frame:Show() - self:Fire("OnOpen") - end - - -- exported - local function Close(self) - self.frame:Hide() - self:Fire("OnClose") - end - - -- exported - local function Clear(self) - local items = self.items - for i, item in pairs(items) do - AceGUI:Release(item) - items[i] = nil - end - end - - -- exported - local function IterateItems(self) - return ipairs(self.items) - end - - -- exported - local function SetHideOnLeave(self, val) - self.hideOnLeave = val - end - - -- exported - local function SetMaxHeight(self, height) - self.maxHeight = height or defaultMaxHeight - if self.frame:GetHeight() > height then - self.frame:SetHeight(height) - elseif (self.itemFrame:GetHeight() + 34) < height then - self.frame:SetHeight(self.itemFrame:GetHeight() + 34) -- see :AddItem - end - end - - -- exported - local function GetRightBorderWidth(self) - return 6 + (self.slider:IsShown() and 12 or 0) - end - - -- exported - local function GetLeftBorderWidth(self) - return 6 - end - - --[[ Constructor ]]-- - - local function Constructor() - local count = AceGUI:GetNextWidgetNum(widgetType) - local frame = CreateFrame("Frame", "AceGUI30Pullout"..count, UIParent, BackdropTemplateMixin and "BackdropTemplate" or nil) - local self = {} - self.count = count - self.type = widgetType - self.frame = frame - frame.obj = self - - self.OnAcquire = OnAcquire - self.OnRelease = OnRelease - - self.AddItem = AddItem - self.Open = Open - self.Close = Close - self.Clear = Clear - self.IterateItems = IterateItems - self.SetHideOnLeave = SetHideOnLeave - - self.SetScroll = SetScroll - self.MoveScroll = MoveScroll - self.FixScroll = FixScroll - - self.SetMaxHeight = SetMaxHeight - self.GetRightBorderWidth = GetRightBorderWidth - self.GetLeftBorderWidth = GetLeftBorderWidth - - self.items = {} - - self.scrollStatus = { - scrollvalue = 0, - } - - self.maxHeight = defaultMaxHeight - - frame:SetBackdrop(backdrop) - frame:SetBackdropColor(0, 0, 0) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - frame:SetClampedToScreen(true) - frame:SetWidth(defaultWidth) - frame:SetHeight(self.maxHeight) - --frame:SetToplevel(true) - - -- NOTE: The whole scroll frame code is copied from the AceGUI-3.0 widget ScrollFrame - local scrollFrame = CreateFrame("ScrollFrame", nil, frame) - local itemFrame = CreateFrame("Frame", nil, scrollFrame) - - self.scrollFrame = scrollFrame - self.itemFrame = itemFrame - - scrollFrame.obj = self - itemFrame.obj = self - - local slider = CreateFrame("Slider", "AceGUI30PulloutScrollbar"..count, scrollFrame, BackdropTemplateMixin and "BackdropTemplate" or nil) - slider:SetOrientation("VERTICAL") - slider:SetHitRectInsets(0, 0, -10, 0) - slider:SetBackdrop(sliderBackdrop) - slider:SetWidth(8) - slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Vertical") - slider:SetFrameStrata("FULLSCREEN_DIALOG") - self.slider = slider - slider.obj = self - - scrollFrame:SetScrollChild(itemFrame) - scrollFrame:SetPoint("TOPLEFT", frame, "TOPLEFT", 6, -12) - scrollFrame:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -6, 12) - scrollFrame:EnableMouseWheel(true) - scrollFrame:SetScript("OnMouseWheel", OnMouseWheel) - scrollFrame:SetScript("OnSizeChanged", OnSizeChanged) - scrollFrame:SetToplevel(true) - scrollFrame:SetFrameStrata("FULLSCREEN_DIALOG") - - itemFrame:SetPoint("TOPLEFT", scrollFrame, "TOPLEFT", 0, 0) - itemFrame:SetPoint("TOPRIGHT", scrollFrame, "TOPRIGHT", -12, 0) - itemFrame:SetHeight(400) - itemFrame:SetToplevel(true) - itemFrame:SetFrameStrata("FULLSCREEN_DIALOG") - - slider:SetPoint("TOPLEFT", scrollFrame, "TOPRIGHT", -16, 0) - slider:SetPoint("BOTTOMLEFT", scrollFrame, "BOTTOMRIGHT", -16, 0) - slider:SetScript("OnValueChanged", OnScrollValueChanged) - slider:SetMinMaxValues(0, 1000) - slider:SetValueStep(1) - slider:SetValue(0) - - scrollFrame:Show() - itemFrame:Show() - slider:Hide() - - self:FixScroll() - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) -end - -do - local widgetType = "Dropdown" - local widgetVersion = 35 - - --[[ Static data ]]-- - - --[[ UI event handler ]]-- - - local function Control_OnEnter(this) - this.obj.button:LockHighlight() - this.obj:Fire("OnEnter") - end - - local function Control_OnLeave(this) - this.obj.button:UnlockHighlight() - this.obj:Fire("OnLeave") - end - - local function Dropdown_OnHide(this) - local self = this.obj - if self.open then - self.pullout:Close() - end - end - - local function Dropdown_TogglePullout(this) - local self = this.obj - PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON - if self.open then - self.open = nil - self.pullout:Close() - AceGUI:ClearFocus() - else - self.open = true - self.pullout:SetWidth(self.pulloutWidth or self.frame:GetWidth()) - self.pullout:Open("TOPLEFT", self.frame, "BOTTOMLEFT", 0, self.label:IsShown() and -2 or 0) - AceGUI:SetFocus(self) - end - end - - local function OnPulloutOpen(this) - local self = this.userdata.obj - local value = self.value - - if not self.multiselect then - for i, item in this:IterateItems() do - item:SetValue(item.userdata.value == value) - end - end - - self.open = true - self:Fire("OnOpened") - end - - local function OnPulloutClose(this) - local self = this.userdata.obj - self.open = nil - self:Fire("OnClosed") - end - - local function ShowMultiText(self) - local text - for i, widget in self.pullout:IterateItems() do - if widget.type == "Dropdown-Item-Toggle" then - if widget:GetValue() then - if text then - text = text..", "..widget:GetText() - else - text = widget:GetText() - end - end - end - end - self:SetText(text) - end - - local function OnItemValueChanged(this, event, checked) - local self = this.userdata.obj - - if self.multiselect then - self:Fire("OnValueChanged", this.userdata.value, checked) - ShowMultiText(self) - else - if checked then - self:SetValue(this.userdata.value) - self:Fire("OnValueChanged", this.userdata.value) - else - this:SetValue(true) - end - if self.open then - self.pullout:Close() - end - end - end - - --[[ Exported methods ]]-- - - -- exported, AceGUI callback - local function OnAcquire(self) - local pullout = AceGUI:Create("Dropdown-Pullout") - self.pullout = pullout - pullout.userdata.obj = self - pullout:SetCallback("OnClose", OnPulloutClose) - pullout:SetCallback("OnOpen", OnPulloutOpen) - self.pullout.frame:SetFrameLevel(self.frame:GetFrameLevel() + 1) - fixlevels(self.pullout.frame, self.pullout.frame:GetChildren()) - - self:SetHeight(44) - self:SetWidth(200) - self:SetLabel() - self:SetPulloutWidth(nil) - self.list = {} - end - - -- exported, AceGUI callback - local function OnRelease(self) - if self.open then - self.pullout:Close() - end - AceGUI:Release(self.pullout) - self.pullout = nil - - self:SetText("") - self:SetDisabled(false) - self:SetMultiselect(false) - - self.value = nil - self.list = nil - self.open = nil - self.hasClose = nil - - self.frame:ClearAllPoints() - self.frame:Hide() - end - - -- exported - local function SetDisabled(self, disabled) - self.disabled = disabled - if disabled then - self.text:SetTextColor(0.5,0.5,0.5) - self.button:Disable() - self.button_cover:Disable() - self.label:SetTextColor(0.5,0.5,0.5) - else - self.button:Enable() - self.button_cover:Enable() - self.label:SetTextColor(1,.82,0) - self.text:SetTextColor(1,1,1) - end - end - - -- exported - local function ClearFocus(self) - if self.open then - self.pullout:Close() - end - end - - -- exported - local function SetText(self, text) - self.text:SetText(text or "") - end - - -- exported - local function SetLabel(self, text) - if text and text ~= "" then - self.label:SetText(text) - self.label:Show() - self.dropdown:SetPoint("TOPLEFT",self.frame,"TOPLEFT",-15,-14) - self:SetHeight(40) - self.alignoffset = 26 - else - self.label:SetText("") - self.label:Hide() - self.dropdown:SetPoint("TOPLEFT",self.frame,"TOPLEFT",-15,0) - self:SetHeight(26) - self.alignoffset = 12 - end - end - - -- exported - local function SetValue(self, value) - self:SetText(self.list[value] or "") - self.value = value - end - - -- exported - local function GetValue(self) - return self.value - end - - -- exported - local function SetItemValue(self, item, value) - if not self.multiselect then return end - for i, widget in self.pullout:IterateItems() do - if widget.userdata.value == item then - if widget.SetValue then - widget:SetValue(value) - end - end - end - ShowMultiText(self) - end - - -- exported - local function SetItemDisabled(self, item, disabled) - for i, widget in self.pullout:IterateItems() do - if widget.userdata.value == item then - widget:SetDisabled(disabled) - end - end - end - - local function AddListItem(self, value, text, itemType) - if not itemType then itemType = "Dropdown-Item-Toggle" end - local exists = AceGUI:GetWidgetVersion(itemType) - if not exists then error(("The given item type, %q, does not exist within AceGUI-3.0"):format(tostring(itemType)), 2) end - - local item = AceGUI:Create(itemType) - item:SetText(text) - item.userdata.obj = self - item.userdata.value = value - item:SetCallback("OnValueChanged", OnItemValueChanged) - self.pullout:AddItem(item) - end - - local function AddCloseButton(self) - if not self.hasClose then - local close = AceGUI:Create("Dropdown-Item-Execute") - close:SetText(CLOSE) - self.pullout:AddItem(close) - self.hasClose = true - end - end - - -- exported - local sortlist = {} - local function sortTbl(x,y) - local num1, num2 = tonumber(x), tonumber(y) - if num1 and num2 then -- numeric comparison, either two numbers or numeric strings - return num1 < num2 - else -- compare everything else tostring'ed - return tostring(x) < tostring(y) - end - end - local function SetList(self, list, order, itemType) - self.list = list or {} - self.pullout:Clear() - self.hasClose = nil - if not list then return end - - if type(order) ~= "table" then - for v in pairs(list) do - sortlist[#sortlist + 1] = v - end - tsort(sortlist, sortTbl) - - for i, key in ipairs(sortlist) do - AddListItem(self, key, list[key], itemType) - sortlist[i] = nil - end - else - for i, key in ipairs(order) do - AddListItem(self, key, list[key], itemType) - end - end - if self.multiselect then - ShowMultiText(self) - AddCloseButton(self) - end - end - - -- exported - local function AddItem(self, value, text, itemType) - self.list[value] = text - AddListItem(self, value, text, itemType) - end - - -- exported - local function SetMultiselect(self, multi) - self.multiselect = multi - if multi then - ShowMultiText(self) - AddCloseButton(self) - end - end - - -- exported - local function GetMultiselect(self) - return self.multiselect - end - - local function SetPulloutWidth(self, width) - self.pulloutWidth = width - end - - --[[ Constructor ]]-- - - local function Constructor() - local count = AceGUI:GetNextWidgetNum(widgetType) - local frame = CreateFrame("Frame", nil, UIParent) - local dropdown = CreateFrame("Frame", "AceGUI30DropDown"..count, frame, "UIDropDownMenuTemplate") - - local self = {} - self.type = widgetType - self.frame = frame - self.dropdown = dropdown - self.count = count - frame.obj = self - dropdown.obj = self - - self.OnRelease = OnRelease - self.OnAcquire = OnAcquire - - self.ClearFocus = ClearFocus - - self.SetText = SetText - self.SetValue = SetValue - self.GetValue = GetValue - self.SetList = SetList - self.SetLabel = SetLabel - self.SetDisabled = SetDisabled - self.AddItem = AddItem - self.SetMultiselect = SetMultiselect - self.GetMultiselect = GetMultiselect - self.SetItemValue = SetItemValue - self.SetItemDisabled = SetItemDisabled - self.SetPulloutWidth = SetPulloutWidth - - self.alignoffset = 26 - - frame:SetScript("OnHide",Dropdown_OnHide) - - dropdown:ClearAllPoints() - dropdown:SetPoint("TOPLEFT",frame,"TOPLEFT",-15,0) - dropdown:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",17,0) - dropdown:SetScript("OnHide", nil) - - local left = _G[dropdown:GetName() .. "Left"] - local middle = _G[dropdown:GetName() .. "Middle"] - local right = _G[dropdown:GetName() .. "Right"] - - middle:ClearAllPoints() - right:ClearAllPoints() - - middle:SetPoint("LEFT", left, "RIGHT", 0, 0) - middle:SetPoint("RIGHT", right, "LEFT", 0, 0) - right:SetPoint("TOPRIGHT", dropdown, "TOPRIGHT", 0, 17) - - local button = _G[dropdown:GetName() .. "Button"] - self.button = button - button.obj = self - button:SetScript("OnEnter",Control_OnEnter) - button:SetScript("OnLeave",Control_OnLeave) - button:SetScript("OnClick",Dropdown_TogglePullout) - - local button_cover = CreateFrame("BUTTON",nil,self.frame) - self.button_cover = button_cover - button_cover.obj = self - button_cover:SetPoint("TOPLEFT",self.frame,"BOTTOMLEFT",0,25) - button_cover:SetPoint("BOTTOMRIGHT",self.frame,"BOTTOMRIGHT") - button_cover:SetScript("OnEnter",Control_OnEnter) - button_cover:SetScript("OnLeave",Control_OnLeave) - button_cover:SetScript("OnClick",Dropdown_TogglePullout) - - local text = _G[dropdown:GetName() .. "Text"] - self.text = text - text.obj = self - text:ClearAllPoints() - text:SetPoint("RIGHT", right, "RIGHT" ,-43, 2) - text:SetPoint("LEFT", left, "LEFT", 25, 2) - - local label = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall") - label:SetPoint("TOPLEFT",frame,"TOPLEFT",0,0) - label:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0) - label:SetJustifyH("LEFT") - label:SetHeight(18) - label:Hide() - self.label = label - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua deleted file mode 100644 index 29f7e00..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua +++ /dev/null @@ -1,263 +0,0 @@ ---[[----------------------------------------------------------------------------- -EditBox Widget --------------------------------------------------------------------------------]] -local Type, Version = "EditBox", 28 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local tostring, pairs = tostring, pairs - --- WoW APIs -local PlaySound = PlaySound -local GetCursorInfo, ClearCursor, GetSpellInfo = GetCursorInfo, ClearCursor, GetSpellInfo -local CreateFrame, UIParent = CreateFrame, UIParent -local _G = _G - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: AceGUIEditBoxInsertLink, ChatFontNormal, OKAY - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -if not AceGUIEditBoxInsertLink then - -- upgradeable hook - hooksecurefunc("ChatEdit_InsertLink", function(...) return _G.AceGUIEditBoxInsertLink(...) end) -end - -function _G.AceGUIEditBoxInsertLink(text) - for i = 1, AceGUI:GetWidgetCount(Type) do - local editbox = _G["AceGUI-3.0EditBox"..i] - if editbox and editbox:IsVisible() and editbox:HasFocus() then - editbox:Insert(text) - return true - end - end -end - -local function ShowButton(self) - if not self.disablebutton then - self.button:Show() - self.editbox:SetTextInsets(0, 20, 3, 3) - end -end - -local function HideButton(self) - self.button:Hide() - self.editbox:SetTextInsets(0, 0, 3, 3) -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function Frame_OnShowFocus(frame) - frame.obj.editbox:SetFocus() - frame:SetScript("OnShow", nil) -end - -local function EditBox_OnEscapePressed(frame) - AceGUI:ClearFocus() -end - -local function EditBox_OnEnterPressed(frame) - local self = frame.obj - local value = frame:GetText() - local cancel = self:Fire("OnEnterPressed", value) - if not cancel then - PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON - HideButton(self) - end -end - -local function EditBox_OnReceiveDrag(frame) - local self = frame.obj - local type, id, info = GetCursorInfo() - local name - if type == "item" then - name = info - elseif type == "spell" then - name = GetSpellInfo(id, info) - elseif type == "macro" then - name = GetMacroInfo(id) - end - if name then - self:SetText(name) - self:Fire("OnEnterPressed", name) - ClearCursor() - HideButton(self) - AceGUI:ClearFocus() - end -end - -local function EditBox_OnTextChanged(frame) - local self = frame.obj - local value = frame:GetText() - if tostring(value) ~= tostring(self.lasttext) then - self:Fire("OnTextChanged", value) - self.lasttext = value - ShowButton(self) - end -end - -local function EditBox_OnFocusGained(frame) - AceGUI:SetFocus(frame.obj) -end - -local function Button_OnClick(frame) - local editbox = frame.obj.editbox - editbox:ClearFocus() - EditBox_OnEnterPressed(editbox) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - -- height is controlled by SetLabel - self:SetWidth(200) - self:SetDisabled(false) - self:SetLabel() - self:SetText() - self:DisableButton(false) - self:SetMaxLetters(0) - end, - - ["OnRelease"] = function(self) - self:ClearFocus() - end, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.editbox:EnableMouse(false) - self.editbox:ClearFocus() - self.editbox:SetTextColor(0.5,0.5,0.5) - self.label:SetTextColor(0.5,0.5,0.5) - else - self.editbox:EnableMouse(true) - self.editbox:SetTextColor(1,1,1) - self.label:SetTextColor(1,.82,0) - end - end, - - ["SetText"] = function(self, text) - self.lasttext = text or "" - self.editbox:SetText(text or "") - self.editbox:SetCursorPosition(0) - HideButton(self) - end, - - ["GetText"] = function(self, text) - return self.editbox:GetText() - end, - - ["SetLabel"] = function(self, text) - if text and text ~= "" then - self.label:SetText(text) - self.label:Show() - self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,-18) - self:SetHeight(44) - self.alignoffset = 30 - else - self.label:SetText("") - self.label:Hide() - self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,0) - self:SetHeight(26) - self.alignoffset = 12 - end - end, - - ["DisableButton"] = function(self, disabled) - self.disablebutton = disabled - if disabled then - HideButton(self) - end - end, - - ["SetMaxLetters"] = function (self, num) - self.editbox:SetMaxLetters(num or 0) - end, - - ["ClearFocus"] = function(self) - self.editbox:ClearFocus() - self.frame:SetScript("OnShow", nil) - end, - - ["SetFocus"] = function(self) - self.editbox:SetFocus() - if not self.frame:IsShown() then - self.frame:SetScript("OnShow", Frame_OnShowFocus) - end - end, - - ["HighlightText"] = function(self, from, to) - self.editbox:HighlightText(from, to) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local num = AceGUI:GetNextWidgetNum(Type) - local frame = CreateFrame("Frame", nil, UIParent) - frame:Hide() - - local editbox = CreateFrame("EditBox", "AceGUI-3.0EditBox"..num, frame, "InputBoxTemplate") - editbox:SetAutoFocus(false) - editbox:SetFontObject(ChatFontNormal) - editbox:SetScript("OnEnter", Control_OnEnter) - editbox:SetScript("OnLeave", Control_OnLeave) - editbox:SetScript("OnEscapePressed", EditBox_OnEscapePressed) - editbox:SetScript("OnEnterPressed", EditBox_OnEnterPressed) - editbox:SetScript("OnTextChanged", EditBox_OnTextChanged) - editbox:SetScript("OnReceiveDrag", EditBox_OnReceiveDrag) - editbox:SetScript("OnMouseDown", EditBox_OnReceiveDrag) - editbox:SetScript("OnEditFocusGained", EditBox_OnFocusGained) - editbox:SetTextInsets(0, 0, 3, 3) - editbox:SetMaxLetters(256) - editbox:SetPoint("BOTTOMLEFT", 6, 0) - editbox:SetPoint("BOTTOMRIGHT") - editbox:SetHeight(19) - - local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall") - label:SetPoint("TOPLEFT", 0, -2) - label:SetPoint("TOPRIGHT", 0, -2) - label:SetJustifyH("LEFT") - label:SetHeight(18) - - local button = CreateFrame("Button", nil, editbox, "UIPanelButtonTemplate") - button:SetWidth(40) - button:SetHeight(20) - button:SetPoint("RIGHT", -2, 0) - button:SetText(OKAY) - button:SetScript("OnClick", Button_OnClick) - button:Hide() - - local widget = { - alignoffset = 30, - editbox = editbox, - label = label, - button = button, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - editbox.obj, button.obj = widget, widget - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua deleted file mode 100644 index 862ae88..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua +++ /dev/null @@ -1,78 +0,0 @@ ---[[----------------------------------------------------------------------------- -Heading Widget --------------------------------------------------------------------------------]] -local Type, Version = "Heading", 20 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetText() - self:SetFullWidth() - self:SetHeight(18) - end, - - -- ["OnRelease"] = nil, - - ["SetText"] = function(self, text) - self.label:SetText(text or "") - if text and text ~= "" then - self.left:SetPoint("RIGHT", self.label, "LEFT", -5, 0) - self.right:Show() - else - self.left:SetPoint("RIGHT", -3, 0) - self.right:Hide() - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - frame:Hide() - - local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontNormal") - label:SetPoint("TOP") - label:SetPoint("BOTTOM") - label:SetJustifyH("CENTER") - - local left = frame:CreateTexture(nil, "BACKGROUND") - left:SetHeight(8) - left:SetPoint("LEFT", 3, 0) - left:SetPoint("RIGHT", label, "LEFT", -5, 0) - left:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - left:SetTexCoord(0.81, 0.94, 0.5, 1) - - local right = frame:CreateTexture(nil, "BACKGROUND") - right:SetHeight(8) - right:SetPoint("RIGHT", -3, 0) - right:SetPoint("LEFT", label, "RIGHT", 5, 0) - right:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - right:SetTexCoord(0.81, 0.94, 0.5, 1) - - local widget = { - label = label, - left = left, - right = right, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua deleted file mode 100644 index 378e813..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua +++ /dev/null @@ -1,140 +0,0 @@ ---[[----------------------------------------------------------------------------- -Icon Widget --------------------------------------------------------------------------------]] -local Type, Version = "Icon", 21 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local select, pairs, print = select, pairs, print - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function Button_OnClick(frame, button) - frame.obj:Fire("OnClick", button) - AceGUI:ClearFocus() -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetHeight(110) - self:SetWidth(110) - self:SetLabel() - self:SetImage(nil) - self:SetImageSize(64, 64) - self:SetDisabled(false) - end, - - -- ["OnRelease"] = nil, - - ["SetLabel"] = function(self, text) - if text and text ~= "" then - self.label:Show() - self.label:SetText(text) - self:SetHeight(self.image:GetHeight() + 25) - else - self.label:Hide() - self:SetHeight(self.image:GetHeight() + 10) - end - end, - - ["SetImage"] = function(self, path, ...) - local image = self.image - image:SetTexture(path) - - if image:GetTexture() then - local n = select("#", ...) - if n == 4 or n == 8 then - image:SetTexCoord(...) - else - image:SetTexCoord(0, 1, 0, 1) - end - end - end, - - ["SetImageSize"] = function(self, width, height) - self.image:SetWidth(width) - self.image:SetHeight(height) - --self.frame:SetWidth(width + 30) - if self.label:IsShown() then - self:SetHeight(height + 25) - else - self:SetHeight(height + 10) - end - end, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.frame:Disable() - self.label:SetTextColor(0.5, 0.5, 0.5) - self.image:SetVertexColor(0.5, 0.5, 0.5, 0.5) - else - self.frame:Enable() - self.label:SetTextColor(1, 1, 1) - self.image:SetVertexColor(1, 1, 1, 1) - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Button", nil, UIParent) - frame:Hide() - - frame:EnableMouse(true) - frame:SetScript("OnEnter", Control_OnEnter) - frame:SetScript("OnLeave", Control_OnLeave) - frame:SetScript("OnClick", Button_OnClick) - - local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontHighlight") - label:SetPoint("BOTTOMLEFT") - label:SetPoint("BOTTOMRIGHT") - label:SetJustifyH("CENTER") - label:SetJustifyV("TOP") - label:SetHeight(18) - - local image = frame:CreateTexture(nil, "BACKGROUND") - image:SetWidth(64) - image:SetHeight(64) - image:SetPoint("TOP", 0, -5) - - local highlight = frame:CreateTexture(nil, "HIGHLIGHT") - highlight:SetAllPoints(image) - highlight:SetTexture(136580) -- Interface\\PaperDollInfoFrame\\UI-Character-Tab-Highlight - highlight:SetTexCoord(0, 1, 0.23, 0.77) - highlight:SetBlendMode("ADD") - - local widget = { - label = label, - image = image, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - widget.SetText = function(self, ...) print("AceGUI-3.0-Icon: SetText is deprecated! Use SetLabel instead!"); self:SetLabel(...) end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua deleted file mode 100644 index 255dd97..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua +++ /dev/null @@ -1,94 +0,0 @@ ---[[----------------------------------------------------------------------------- -InteractiveLabel Widget --------------------------------------------------------------------------------]] -local Type, Version = "InteractiveLabel", 21 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local select, pairs = select, pairs - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function Label_OnClick(frame, button) - frame.obj:Fire("OnClick", button) - AceGUI:ClearFocus() -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:LabelOnAcquire() - self:SetHighlight() - self:SetHighlightTexCoord() - self:SetDisabled(false) - end, - - -- ["OnRelease"] = nil, - - ["SetHighlight"] = function(self, ...) - self.highlight:SetTexture(...) - end, - - ["SetHighlightTexCoord"] = function(self, ...) - local c = select("#", ...) - if c == 4 or c == 8 then - self.highlight:SetTexCoord(...) - else - self.highlight:SetTexCoord(0, 1, 0, 1) - end - end, - - ["SetDisabled"] = function(self,disabled) - self.disabled = disabled - if disabled then - self.frame:EnableMouse(false) - self.label:SetTextColor(0.5, 0.5, 0.5) - else - self.frame:EnableMouse(true) - self.label:SetTextColor(1, 1, 1) - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - -- create a Label type that we will hijack - local label = AceGUI:Create("Label") - - local frame = label.frame - frame:EnableMouse(true) - frame:SetScript("OnEnter", Control_OnEnter) - frame:SetScript("OnLeave", Control_OnLeave) - frame:SetScript("OnMouseDown", Label_OnClick) - - local highlight = frame:CreateTexture(nil, "HIGHLIGHT") - highlight:SetTexture(nil) - highlight:SetAllPoints() - highlight:SetBlendMode("ADD") - - label.highlight = highlight - label.type = Type - label.LabelOnAcquire = label.OnAcquire - for method, func in pairs(methods) do - label[method] = func - end - - return label -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) - diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua deleted file mode 100644 index 17a3c0b..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua +++ /dev/null @@ -1,249 +0,0 @@ ---[[----------------------------------------------------------------------------- -Keybinding Widget -Set Keybindings in the Config UI. --------------------------------------------------------------------------------]] -local Type, Version = "Keybinding", 26 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local IsShiftKeyDown, IsControlKeyDown, IsAltKeyDown = IsShiftKeyDown, IsControlKeyDown, IsAltKeyDown -local CreateFrame, UIParent = CreateFrame, UIParent - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: NOT_BOUND - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] - -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function Keybinding_OnClick(frame, button) - if button == "LeftButton" or button == "RightButton" then - local self = frame.obj - if self.waitingForKey then - frame:EnableKeyboard(false) - frame:EnableMouseWheel(false) - self.msgframe:Hide() - frame:UnlockHighlight() - self.waitingForKey = nil - else - frame:EnableKeyboard(true) - frame:EnableMouseWheel(true) - self.msgframe:Show() - frame:LockHighlight() - self.waitingForKey = true - end - end - AceGUI:ClearFocus() -end - -local ignoreKeys = { - ["BUTTON1"] = true, ["BUTTON2"] = true, - ["UNKNOWN"] = true, - ["LSHIFT"] = true, ["LCTRL"] = true, ["LALT"] = true, - ["RSHIFT"] = true, ["RCTRL"] = true, ["RALT"] = true, -} -local function Keybinding_OnKeyDown(frame, key) - local self = frame.obj - if self.waitingForKey then - local keyPressed = key - if keyPressed == "ESCAPE" then - keyPressed = "" - else - if ignoreKeys[keyPressed] then return end - if IsShiftKeyDown() then - keyPressed = "SHIFT-"..keyPressed - end - if IsControlKeyDown() then - keyPressed = "CTRL-"..keyPressed - end - if IsAltKeyDown() then - keyPressed = "ALT-"..keyPressed - end - end - - frame:EnableKeyboard(false) - frame:EnableMouseWheel(false) - self.msgframe:Hide() - frame:UnlockHighlight() - self.waitingForKey = nil - - if not self.disabled then - self:SetKey(keyPressed) - self:Fire("OnKeyChanged", keyPressed) - end - end -end - -local function Keybinding_OnMouseDown(frame, button) - if button == "LeftButton" or button == "RightButton" then - return - elseif button == "MiddleButton" then - button = "BUTTON3" - elseif button == "Button4" then - button = "BUTTON4" - elseif button == "Button5" then - button = "BUTTON5" - end - Keybinding_OnKeyDown(frame, button) -end - -local function Keybinding_OnMouseWheel(frame, direction) - local button - if direction >= 0 then - button = "MOUSEWHEELUP" - else - button = "MOUSEWHEELDOWN" - end - Keybinding_OnKeyDown(frame, button) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetWidth(200) - self:SetLabel("") - self:SetKey("") - self.waitingForKey = nil - self.msgframe:Hide() - self:SetDisabled(false) - self.button:EnableKeyboard(false) - self.button:EnableMouseWheel(false) - end, - - -- ["OnRelease"] = nil, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.button:Disable() - self.label:SetTextColor(0.5,0.5,0.5) - else - self.button:Enable() - self.label:SetTextColor(1,1,1) - end - end, - - ["SetKey"] = function(self, key) - if (key or "") == "" then - self.button:SetText(NOT_BOUND) - self.button:SetNormalFontObject("GameFontNormal") - else - self.button:SetText(key) - self.button:SetNormalFontObject("GameFontHighlight") - end - end, - - ["GetKey"] = function(self) - local key = self.button:GetText() - if key == NOT_BOUND then - key = nil - end - return key - end, - - ["SetLabel"] = function(self, label) - self.label:SetText(label or "") - if (label or "") == "" then - self.alignoffset = nil - self:SetHeight(24) - else - self.alignoffset = 30 - self:SetHeight(44) - end - end, -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] - -local ControlBackdrop = { - bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 3, bottom = 3 } -} - -local function keybindingMsgFixWidth(frame) - frame:SetWidth(frame.msg:GetWidth() + 10) - frame:SetScript("OnUpdate", nil) -end - -local function Constructor() - local name = "AceGUI30KeybindingButton" .. AceGUI:GetNextWidgetNum(Type) - - local frame = CreateFrame("Frame", nil, UIParent) - local button = CreateFrame("Button", name, frame, "UIPanelButtonTemplate") - - button:EnableMouse(true) - button:EnableMouseWheel(false) - button:RegisterForClicks("AnyDown") - button:SetScript("OnEnter", Control_OnEnter) - button:SetScript("OnLeave", Control_OnLeave) - button:SetScript("OnClick", Keybinding_OnClick) - button:SetScript("OnKeyDown", Keybinding_OnKeyDown) - button:SetScript("OnMouseDown", Keybinding_OnMouseDown) - button:SetScript("OnMouseWheel", Keybinding_OnMouseWheel) - button:SetPoint("BOTTOMLEFT") - button:SetPoint("BOTTOMRIGHT") - button:SetHeight(24) - button:EnableKeyboard(false) - - local text = button:GetFontString() - text:SetPoint("LEFT", 7, 0) - text:SetPoint("RIGHT", -7, 0) - - local label = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight") - label:SetPoint("TOPLEFT") - label:SetPoint("TOPRIGHT") - label:SetJustifyH("CENTER") - label:SetHeight(18) - - local msgframe = CreateFrame("Frame", nil, UIParent, BackdropTemplateMixin and "BackdropTemplate" or nil) - msgframe:SetHeight(30) - msgframe:SetBackdrop(ControlBackdrop) - msgframe:SetBackdropColor(0,0,0) - msgframe:SetFrameStrata("FULLSCREEN_DIALOG") - msgframe:SetFrameLevel(1000) - msgframe:SetToplevel(true) - - local msg = msgframe:CreateFontString(nil, "OVERLAY", "GameFontNormal") - msg:SetText("Press a key to bind, ESC to clear the binding or click the button again to cancel.") - msgframe.msg = msg - msg:SetPoint("TOPLEFT", 5, -5) - msgframe:SetScript("OnUpdate", keybindingMsgFixWidth) - msgframe:SetPoint("BOTTOM", button, "TOP") - msgframe:Hide() - - local widget = { - button = button, - label = label, - msgframe = msgframe, - frame = frame, - alignoffset = 30, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - button.obj = widget - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua deleted file mode 100644 index 5c75f3b..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua +++ /dev/null @@ -1,179 +0,0 @@ ---[[----------------------------------------------------------------------------- -Label Widget -Displays text and optionally an icon. --------------------------------------------------------------------------------]] -local Type, Version = "Label", 27 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local max, select, pairs = math.max, select, pairs - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: GameFontHighlightSmall - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] - -local function UpdateImageAnchor(self) - if self.resizing then return end - local frame = self.frame - local width = frame.width or frame:GetWidth() or 0 - local image = self.image - local label = self.label - local height - - label:ClearAllPoints() - image:ClearAllPoints() - - if self.imageshown then - local imagewidth = image:GetWidth() - if (width - imagewidth) < 200 or (label:GetText() or "") == "" then - -- image goes on top centered when less than 200 width for the text, or if there is no text - image:SetPoint("TOP") - label:SetPoint("TOP", image, "BOTTOM") - label:SetPoint("LEFT") - label:SetWidth(width) - height = image:GetHeight() + label:GetStringHeight() - else - -- image on the left - image:SetPoint("TOPLEFT") - if image:GetHeight() > label:GetStringHeight() then - label:SetPoint("LEFT", image, "RIGHT", 4, 0) - else - label:SetPoint("TOPLEFT", image, "TOPRIGHT", 4, 0) - end - label:SetWidth(width - imagewidth - 4) - height = max(image:GetHeight(), label:GetStringHeight()) - end - else - -- no image shown - label:SetPoint("TOPLEFT") - label:SetWidth(width) - height = label:GetStringHeight() - end - - -- avoid zero-height labels, since they can used as spacers - if not height or height == 0 then - height = 1 - end - - self.resizing = true - frame:SetHeight(height) - frame.height = height - self.resizing = nil -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - -- set the flag to stop constant size updates - self.resizing = true - -- height is set dynamically by the text and image size - self:SetWidth(200) - self:SetText() - self:SetImage(nil) - self:SetImageSize(16, 16) - self:SetColor() - self:SetFontObject() - self:SetJustifyH("LEFT") - self:SetJustifyV("TOP") - - -- reset the flag - self.resizing = nil - -- run the update explicitly - UpdateImageAnchor(self) - end, - - -- ["OnRelease"] = nil, - - ["OnWidthSet"] = function(self, width) - UpdateImageAnchor(self) - end, - - ["SetText"] = function(self, text) - self.label:SetText(text) - UpdateImageAnchor(self) - end, - - ["SetColor"] = function(self, r, g, b) - if not (r and g and b) then - r, g, b = 1, 1, 1 - end - self.label:SetVertexColor(r, g, b) - end, - - ["SetImage"] = function(self, path, ...) - local image = self.image - image:SetTexture(path) - - if image:GetTexture() then - self.imageshown = true - local n = select("#", ...) - if n == 4 or n == 8 then - image:SetTexCoord(...) - else - image:SetTexCoord(0, 1, 0, 1) - end - else - self.imageshown = nil - end - UpdateImageAnchor(self) - end, - - ["SetFont"] = function(self, font, height, flags) - self.label:SetFont(font, height, flags) - UpdateImageAnchor(self) - end, - - ["SetFontObject"] = function(self, font) - self:SetFont((font or GameFontHighlightSmall):GetFont()) - end, - - ["SetImageSize"] = function(self, width, height) - self.image:SetWidth(width) - self.image:SetHeight(height) - UpdateImageAnchor(self) - end, - - ["SetJustifyH"] = function(self, justifyH) - self.label:SetJustifyH(justifyH) - end, - - ["SetJustifyV"] = function(self, justifyV) - self.label:SetJustifyV(justifyV) - end, -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - frame:Hide() - - local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontHighlightSmall") - local image = frame:CreateTexture(nil, "BACKGROUND") - - -- create widget - local widget = { - label = label, - image = image, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua deleted file mode 100644 index 0e953ab..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua +++ /dev/null @@ -1,366 +0,0 @@ -local Type, Version = "MultiLineEditBox", 29 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local GetCursorInfo, GetSpellInfo, ClearCursor = GetCursorInfo, GetSpellInfo, ClearCursor -local CreateFrame, UIParent = CreateFrame, UIParent -local _G = _G - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: ACCEPT, ChatFontNormal - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] - -if not AceGUIMultiLineEditBoxInsertLink then - -- upgradeable hook - hooksecurefunc("ChatEdit_InsertLink", function(...) return _G.AceGUIMultiLineEditBoxInsertLink(...) end) -end - -function _G.AceGUIMultiLineEditBoxInsertLink(text) - for i = 1, AceGUI:GetWidgetCount(Type) do - local editbox = _G[("MultiLineEditBox%uEdit"):format(i)] - if editbox and editbox:IsVisible() and editbox:HasFocus() then - editbox:Insert(text) - return true - end - end -end - - -local function Layout(self) - self:SetHeight(self.numlines * 14 + (self.disablebutton and 19 or 41) + self.labelHeight) - - if self.labelHeight == 0 then - self.scrollBar:SetPoint("TOP", self.frame, "TOP", 0, -23) - else - self.scrollBar:SetPoint("TOP", self.label, "BOTTOM", 0, -19) - end - - if self.disablebutton then - self.scrollBar:SetPoint("BOTTOM", self.frame, "BOTTOM", 0, 21) - self.scrollBG:SetPoint("BOTTOMLEFT", 0, 4) - else - self.scrollBar:SetPoint("BOTTOM", self.button, "TOP", 0, 18) - self.scrollBG:SetPoint("BOTTOMLEFT", self.button, "TOPLEFT") - end -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function OnClick(self) -- Button - self = self.obj - self.editBox:ClearFocus() - if not self:Fire("OnEnterPressed", self.editBox:GetText()) then - self.button:Disable() - end -end - -local function OnCursorChanged(self, _, y, _, cursorHeight) -- EditBox - self, y = self.obj.scrollFrame, -y - local offset = self:GetVerticalScroll() - if y < offset then - self:SetVerticalScroll(y) - else - y = y + cursorHeight - self:GetHeight() - if y > offset then - self:SetVerticalScroll(y) - end - end -end - -local function OnEditFocusLost(self) -- EditBox - self:HighlightText(0, 0) - self.obj:Fire("OnEditFocusLost") -end - -local function OnEnter(self) -- EditBox / ScrollFrame - self = self.obj - if not self.entered then - self.entered = true - self:Fire("OnEnter") - end -end - -local function OnLeave(self) -- EditBox / ScrollFrame - self = self.obj - if self.entered then - self.entered = nil - self:Fire("OnLeave") - end -end - -local function OnMouseUp(self) -- ScrollFrame - self = self.obj.editBox - self:SetFocus() - self:SetCursorPosition(self:GetNumLetters()) -end - -local function OnReceiveDrag(self) -- EditBox / ScrollFrame - local type, id, info = GetCursorInfo() - if type == "spell" then - info = GetSpellInfo(id, info) - elseif type ~= "item" then - return - end - ClearCursor() - self = self.obj - local editBox = self.editBox - if not editBox:HasFocus() then - editBox:SetFocus() - editBox:SetCursorPosition(editBox:GetNumLetters()) - end - editBox:Insert(info) - self.button:Enable() -end - -local function OnSizeChanged(self, width, height) -- ScrollFrame - self.obj.editBox:SetWidth(width) -end - -local function OnTextChanged(self, userInput) -- EditBox - if userInput then - self = self.obj - self:Fire("OnTextChanged", self.editBox:GetText()) - self.button:Enable() - end -end - -local function OnTextSet(self) -- EditBox - self:HighlightText(0, 0) - self:SetCursorPosition(self:GetNumLetters()) - self:SetCursorPosition(0) - self.obj.button:Disable() -end - -local function OnVerticalScroll(self, offset) -- ScrollFrame - local editBox = self.obj.editBox - editBox:SetHitRectInsets(0, 0, offset, editBox:GetHeight() - offset - self:GetHeight()) -end - -local function OnShowFocus(frame) - frame.obj.editBox:SetFocus() - frame:SetScript("OnShow", nil) -end - -local function OnEditFocusGained(frame) - AceGUI:SetFocus(frame.obj) - frame.obj:Fire("OnEditFocusGained") -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self.editBox:SetText("") - self:SetDisabled(false) - self:SetWidth(200) - self:DisableButton(false) - self:SetNumLines() - self.entered = nil - self:SetMaxLetters(0) - end, - - ["OnRelease"] = function(self) - self:ClearFocus() - end, - - ["SetDisabled"] = function(self, disabled) - local editBox = self.editBox - if disabled then - editBox:ClearFocus() - editBox:EnableMouse(false) - editBox:SetTextColor(0.5, 0.5, 0.5) - self.label:SetTextColor(0.5, 0.5, 0.5) - self.scrollFrame:EnableMouse(false) - self.button:Disable() - else - editBox:EnableMouse(true) - editBox:SetTextColor(1, 1, 1) - self.label:SetTextColor(1, 0.82, 0) - self.scrollFrame:EnableMouse(true) - end - end, - - ["SetLabel"] = function(self, text) - if text and text ~= "" then - self.label:SetText(text) - if self.labelHeight ~= 10 then - self.labelHeight = 10 - self.label:Show() - end - elseif self.labelHeight ~= 0 then - self.labelHeight = 0 - self.label:Hide() - end - Layout(self) - end, - - ["SetNumLines"] = function(self, value) - if not value or value < 4 then - value = 4 - end - self.numlines = value - Layout(self) - end, - - ["SetText"] = function(self, text) - self.editBox:SetText(text) - end, - - ["GetText"] = function(self) - return self.editBox:GetText() - end, - - ["SetMaxLetters"] = function (self, num) - self.editBox:SetMaxLetters(num or 0) - end, - - ["DisableButton"] = function(self, disabled) - self.disablebutton = disabled - if disabled then - self.button:Hide() - else - self.button:Show() - end - Layout(self) - end, - - ["ClearFocus"] = function(self) - self.editBox:ClearFocus() - self.frame:SetScript("OnShow", nil) - end, - - ["SetFocus"] = function(self) - self.editBox:SetFocus() - if not self.frame:IsShown() then - self.frame:SetScript("OnShow", OnShowFocus) - end - end, - - ["HighlightText"] = function(self, from, to) - self.editBox:HighlightText(from, to) - end, - - ["GetCursorPosition"] = function(self) - return self.editBox:GetCursorPosition() - end, - - ["SetCursorPosition"] = function(self, ...) - return self.editBox:SetCursorPosition(...) - end, - - -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local backdrop = { - bgFile = [[Interface\Tooltips\UI-Tooltip-Background]], - edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]], edgeSize = 16, - insets = { left = 4, right = 3, top = 4, bottom = 3 } -} - -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - frame:Hide() - - local widgetNum = AceGUI:GetNextWidgetNum(Type) - - local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall") - label:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, -4) - label:SetPoint("TOPRIGHT", frame, "TOPRIGHT", 0, -4) - label:SetJustifyH("LEFT") - label:SetText(ACCEPT) - label:SetHeight(10) - - local button = CreateFrame("Button", ("%s%dButton"):format(Type, widgetNum), frame, "UIPanelButtonTemplate") - button:SetPoint("BOTTOMLEFT", 0, 4) - button:SetHeight(22) - button:SetWidth(label:GetStringWidth() + 24) - button:SetText(ACCEPT) - button:SetScript("OnClick", OnClick) - button:Disable() - - local text = button:GetFontString() - text:ClearAllPoints() - text:SetPoint("TOPLEFT", button, "TOPLEFT", 5, -5) - text:SetPoint("BOTTOMRIGHT", button, "BOTTOMRIGHT", -5, 1) - text:SetJustifyV("MIDDLE") - - local scrollBG = CreateFrame("Frame", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) - scrollBG:SetBackdrop(backdrop) - scrollBG:SetBackdropColor(0, 0, 0) - scrollBG:SetBackdropBorderColor(0.4, 0.4, 0.4) - - local scrollFrame = CreateFrame("ScrollFrame", ("%s%dScrollFrame"):format(Type, widgetNum), frame, "UIPanelScrollFrameTemplate") - - local scrollBar = _G[scrollFrame:GetName() .. "ScrollBar"] - scrollBar:ClearAllPoints() - scrollBar:SetPoint("TOP", label, "BOTTOM", 0, -19) - scrollBar:SetPoint("BOTTOM", button, "TOP", 0, 18) - scrollBar:SetPoint("RIGHT", frame, "RIGHT") - - scrollBG:SetPoint("TOPRIGHT", scrollBar, "TOPLEFT", 0, 19) - scrollBG:SetPoint("BOTTOMLEFT", button, "TOPLEFT") - - scrollFrame:SetPoint("TOPLEFT", scrollBG, "TOPLEFT", 5, -6) - scrollFrame:SetPoint("BOTTOMRIGHT", scrollBG, "BOTTOMRIGHT", -4, 4) - scrollFrame:SetScript("OnEnter", OnEnter) - scrollFrame:SetScript("OnLeave", OnLeave) - scrollFrame:SetScript("OnMouseUp", OnMouseUp) - scrollFrame:SetScript("OnReceiveDrag", OnReceiveDrag) - scrollFrame:SetScript("OnSizeChanged", OnSizeChanged) - scrollFrame:HookScript("OnVerticalScroll", OnVerticalScroll) - - local editBox = CreateFrame("EditBox", ("%s%dEdit"):format(Type, widgetNum), scrollFrame) - editBox:SetAllPoints() - editBox:SetFontObject(ChatFontNormal) - editBox:SetMultiLine(true) - editBox:EnableMouse(true) - editBox:SetAutoFocus(false) - editBox:SetCountInvisibleLetters(false) - editBox:SetScript("OnCursorChanged", OnCursorChanged) - editBox:SetScript("OnEditFocusLost", OnEditFocusLost) - editBox:SetScript("OnEnter", OnEnter) - editBox:SetScript("OnEscapePressed", editBox.ClearFocus) - editBox:SetScript("OnLeave", OnLeave) - editBox:SetScript("OnMouseDown", OnReceiveDrag) - editBox:SetScript("OnReceiveDrag", OnReceiveDrag) - editBox:SetScript("OnTextChanged", OnTextChanged) - editBox:SetScript("OnTextSet", OnTextSet) - editBox:SetScript("OnEditFocusGained", OnEditFocusGained) - - - scrollFrame:SetScrollChild(editBox) - - local widget = { - button = button, - editBox = editBox, - frame = frame, - label = label, - labelHeight = 10, - numlines = 4, - scrollBar = scrollBar, - scrollBG = scrollBG, - scrollFrame = scrollFrame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - button.obj, editBox.obj, scrollFrame.obj = widget, widget, widget - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua deleted file mode 100644 index 9f26d2d..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua +++ /dev/null @@ -1,284 +0,0 @@ ---[[----------------------------------------------------------------------------- -Slider Widget -Graphical Slider, like, for Range values. --------------------------------------------------------------------------------]] -local Type, Version = "Slider", 23 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local min, max, floor = math.min, math.max, math.floor -local tonumber, pairs = tonumber, pairs - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame, UIParent = CreateFrame, UIParent - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: GameFontHighlightSmall - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function UpdateText(self) - local value = self.value or 0 - if self.ispercent then - self.editbox:SetText(("%s%%"):format(floor(value * 1000 + 0.5) / 10)) - else - self.editbox:SetText(floor(value * 100 + 0.5) / 100) - end -end - -local function UpdateLabels(self) - local min, max = (self.min or 0), (self.max or 100) - if self.ispercent then - self.lowtext:SetFormattedText("%s%%", (min * 100)) - self.hightext:SetFormattedText("%s%%", (max * 100)) - else - self.lowtext:SetText(min) - self.hightext:SetText(max) - end -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function Frame_OnMouseDown(frame) - frame.obj.slider:EnableMouseWheel(true) - AceGUI:ClearFocus() -end - -local function Slider_OnValueChanged(frame, newvalue) - local self = frame.obj - if not frame.setup then - if self.step and self.step > 0 then - local min_value = self.min or 0 - newvalue = floor((newvalue - min_value) / self.step + 0.5) * self.step + min_value - end - if newvalue ~= self.value and not self.disabled then - self.value = newvalue - self:Fire("OnValueChanged", newvalue) - end - if self.value then - UpdateText(self) - end - end -end - -local function Slider_OnMouseUp(frame) - local self = frame.obj - self:Fire("OnMouseUp", self.value) -end - -local function Slider_OnMouseWheel(frame, v) - local self = frame.obj - if not self.disabled then - local value = self.value - if v > 0 then - value = min(value + (self.step or 1), self.max) - else - value = max(value - (self.step or 1), self.min) - end - self.slider:SetValue(value) - end -end - -local function EditBox_OnEscapePressed(frame) - frame:ClearFocus() -end - -local function EditBox_OnEnterPressed(frame) - local self = frame.obj - local value = frame:GetText() - if self.ispercent then - value = value:gsub('%%', '') - value = tonumber(value) / 100 - else - value = tonumber(value) - end - - if value then - PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON - self.slider:SetValue(value) - self:Fire("OnMouseUp", value) - end -end - -local function EditBox_OnEnter(frame) - frame:SetBackdropBorderColor(0.5, 0.5, 0.5, 1) -end - -local function EditBox_OnLeave(frame) - frame:SetBackdropBorderColor(0.3, 0.3, 0.3, 0.8) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetWidth(200) - self:SetHeight(44) - self:SetDisabled(false) - self:SetIsPercent(nil) - self:SetSliderValues(0,100,1) - self:SetValue(0) - self.slider:EnableMouseWheel(false) - end, - - -- ["OnRelease"] = nil, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.slider:EnableMouse(false) - self.label:SetTextColor(.5, .5, .5) - self.hightext:SetTextColor(.5, .5, .5) - self.lowtext:SetTextColor(.5, .5, .5) - --self.valuetext:SetTextColor(.5, .5, .5) - self.editbox:SetTextColor(.5, .5, .5) - self.editbox:EnableMouse(false) - self.editbox:ClearFocus() - else - self.slider:EnableMouse(true) - self.label:SetTextColor(1, .82, 0) - self.hightext:SetTextColor(1, 1, 1) - self.lowtext:SetTextColor(1, 1, 1) - --self.valuetext:SetTextColor(1, 1, 1) - self.editbox:SetTextColor(1, 1, 1) - self.editbox:EnableMouse(true) - end - end, - - ["SetValue"] = function(self, value) - self.slider.setup = true - self.slider:SetValue(value) - self.value = value - UpdateText(self) - self.slider.setup = nil - end, - - ["GetValue"] = function(self) - return self.value - end, - - ["SetLabel"] = function(self, text) - self.label:SetText(text) - end, - - ["SetSliderValues"] = function(self, min, max, step) - local frame = self.slider - frame.setup = true - self.min = min - self.max = max - self.step = step - frame:SetMinMaxValues(min or 0,max or 100) - UpdateLabels(self) - frame:SetValueStep(step or 1) - if self.value then - frame:SetValue(self.value) - end - frame.setup = nil - end, - - ["SetIsPercent"] = function(self, value) - self.ispercent = value - UpdateLabels(self) - UpdateText(self) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local SliderBackdrop = { - bgFile = "Interface\\Buttons\\UI-SliderBar-Background", - edgeFile = "Interface\\Buttons\\UI-SliderBar-Border", - tile = true, tileSize = 8, edgeSize = 8, - insets = { left = 3, right = 3, top = 6, bottom = 6 } -} - -local ManualBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\ChatFrame\\ChatFrameBackground", - tile = true, edgeSize = 1, tileSize = 5, -} - -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - - frame:EnableMouse(true) - frame:SetScript("OnMouseDown", Frame_OnMouseDown) - - local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") - label:SetPoint("TOPLEFT") - label:SetPoint("TOPRIGHT") - label:SetJustifyH("CENTER") - label:SetHeight(15) - - local slider = CreateFrame("Slider", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) - slider:SetOrientation("HORIZONTAL") - slider:SetHeight(15) - slider:SetHitRectInsets(0, 0, -10, 0) - slider:SetBackdrop(SliderBackdrop) - slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Horizontal") - slider:SetPoint("TOP", label, "BOTTOM") - slider:SetPoint("LEFT", 3, 0) - slider:SetPoint("RIGHT", -3, 0) - slider:SetValue(0) - slider:SetScript("OnValueChanged",Slider_OnValueChanged) - slider:SetScript("OnEnter", Control_OnEnter) - slider:SetScript("OnLeave", Control_OnLeave) - slider:SetScript("OnMouseUp", Slider_OnMouseUp) - slider:SetScript("OnMouseWheel", Slider_OnMouseWheel) - - local lowtext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall") - lowtext:SetPoint("TOPLEFT", slider, "BOTTOMLEFT", 2, 3) - - local hightext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall") - hightext:SetPoint("TOPRIGHT", slider, "BOTTOMRIGHT", -2, 3) - - local editbox = CreateFrame("EditBox", nil, frame, BackdropTemplateMixin and "BackdropTemplate" or nil) - editbox:SetAutoFocus(false) - editbox:SetFontObject(GameFontHighlightSmall) - editbox:SetPoint("TOP", slider, "BOTTOM") - editbox:SetHeight(14) - editbox:SetWidth(70) - editbox:SetJustifyH("CENTER") - editbox:EnableMouse(true) - editbox:SetBackdrop(ManualBackdrop) - editbox:SetBackdropColor(0, 0, 0, 0.5) - editbox:SetBackdropBorderColor(0.3, 0.3, 0.30, 0.80) - editbox:SetScript("OnEnter", EditBox_OnEnter) - editbox:SetScript("OnLeave", EditBox_OnLeave) - editbox:SetScript("OnEnterPressed", EditBox_OnEnterPressed) - editbox:SetScript("OnEscapePressed", EditBox_OnEscapePressed) - - local widget = { - label = label, - slider = slider, - lowtext = lowtext, - hightext = hightext, - editbox = editbox, - alignoffset = 25, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - slider.obj, editbox.obj = widget, widget - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type,Constructor,Version) diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.lua deleted file mode 100644 index 9016d1e..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.lua +++ /dev/null @@ -1,239 +0,0 @@ ---[[ $Id: CallbackHandler-1.0.lua 3 2008-09-29 16:54:20Z nevcairiel $ ]] -local MAJOR, MINOR = "CallbackHandler-1.0", 3 -local CallbackHandler = LibStub:NewLibrary(MAJOR, MINOR) - -if not CallbackHandler then return end -- No upgrade needed - -local meta = {__index = function(tbl, key) tbl[key] = {} return tbl[key] end} - -local type = type -local pcall = pcall -local pairs = pairs -local assert = assert -local concat = table.concat -local loadstring = loadstring -local next = next -local select = select -local type = type -local xpcall = xpcall - -local function errorhandler(err) - return geterrorhandler()(err) -end - -local function CreateDispatcher(argCount) - local code = [[ - local next, xpcall, eh = ... - - local method, ARGS - local function call() method(ARGS) end - - local function dispatch(handlers, ...) - local index - index, method = next(handlers) - if not method then return end - local OLD_ARGS = ARGS - ARGS = ... - repeat - xpcall(call, eh) - index, method = next(handlers, index) - until not method - ARGS = OLD_ARGS - end - - return dispatch - ]] - - local ARGS, OLD_ARGS = {}, {} - for i = 1, argCount do ARGS[i], OLD_ARGS[i] = "arg"..i, "old_arg"..i end - code = code:gsub("OLD_ARGS", concat(OLD_ARGS, ", ")):gsub("ARGS", concat(ARGS, ", ")) - return assert(loadstring(code, "safecall Dispatcher["..argCount.."]"))(next, xpcall, errorhandler) -end - -local Dispatchers = setmetatable({}, {__index=function(self, argCount) - local dispatcher = CreateDispatcher(argCount) - rawset(self, argCount, dispatcher) - return dispatcher -end}) - --------------------------------------------------------------------------- --- CallbackHandler:New --- --- target - target object to embed public APIs in --- RegisterName - name of the callback registration API, default "RegisterCallback" --- UnregisterName - name of the callback unregistration API, default "UnregisterCallback" --- UnregisterAllName - name of the API to unregister all callbacks, default "UnregisterAllCallbacks". false == don't publish this API. - -function CallbackHandler:New(target, RegisterName, UnregisterName, UnregisterAllName, OnUsed, OnUnused) - -- TODO: Remove this after beta has gone out - assert(not OnUsed and not OnUnused, "ACE-80: OnUsed/OnUnused are deprecated. Callbacks are now done to registry.OnUsed and registry.OnUnused") - - RegisterName = RegisterName or "RegisterCallback" - UnregisterName = UnregisterName or "UnregisterCallback" - if UnregisterAllName==nil then -- false is used to indicate "don't want this method" - UnregisterAllName = "UnregisterAllCallbacks" - end - - -- we declare all objects and exported APIs inside this closure to quickly gain access - -- to e.g. function names, the "target" parameter, etc - - - -- Create the registry object - local events = setmetatable({}, meta) - local registry = { recurse=0, events=events } - - -- registry:Fire() - fires the given event/message into the registry - function registry:Fire(eventname, ...) - if not rawget(events, eventname) or not next(events[eventname]) then return end - local oldrecurse = registry.recurse - registry.recurse = oldrecurse + 1 - - Dispatchers[select('#', ...) + 1](events[eventname], eventname, ...) - - registry.recurse = oldrecurse - - if registry.insertQueue and oldrecurse==0 then - -- Something in one of our callbacks wanted to register more callbacks; they got queued - for eventname,callbacks in pairs(registry.insertQueue) do - local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. - for self,func in pairs(callbacks) do - events[eventname][self] = func - -- fire OnUsed callback? - if first and registry.OnUsed then - registry.OnUsed(registry, target, eventname) - first = nil - end - end - end - registry.insertQueue = nil - end - end - - -- Registration of a callback, handles: - -- self["method"], leads to self["method"](self, ...) - -- self with function ref, leads to functionref(...) - -- "addonId" (instead of self) with function ref, leads to functionref(...) - -- all with an optional arg, which, if present, gets passed as first argument (after self if present) - target[RegisterName] = function(self, eventname, method, ... --[[actually just a single arg]]) - if type(eventname) ~= "string" then - error("Usage: "..RegisterName.."(eventname, method[, arg]): 'eventname' - string expected.", 2) - end - - method = method or eventname - - local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. - - if type(method) ~= "string" and type(method) ~= "function" then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - string or function expected.", 2) - end - - local regfunc - - if type(method) == "string" then - -- self["method"] calling style - if type(self) ~= "table" then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): self was not a table?", 2) - elseif self==target then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): do not use Library:"..RegisterName.."(), use your own 'self'", 2) - elseif type(self[method]) ~= "function" then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - method '"..tostring(method).."' not found on self.", 2) - end - - if select("#",...)>=1 then -- this is not the same as testing for arg==nil! - local arg=select(1,...) - regfunc = function(...) self[method](self,arg,...) end - else - regfunc = function(...) self[method](self,...) end - end - else - -- function ref with self=object or self="addonId" - if type(self)~="table" and type(self)~="string" then - error("Usage: "..RegisterName.."(self or \"addonId\", eventname, method): 'self or addonId': table or string expected.", 2) - end - - if select("#",...)>=1 then -- this is not the same as testing for arg==nil! - local arg=select(1,...) - regfunc = function(...) method(arg,...) end - else - regfunc = method - end - end - - - if events[eventname][self] or registry.recurse<1 then - -- if registry.recurse<1 then - -- we're overwriting an existing entry, or not currently recursing. just set it. - events[eventname][self] = regfunc - -- fire OnUsed callback? - if registry.OnUsed and first then - registry.OnUsed(registry, target, eventname) - end - else - -- we're currently processing a callback in this registry, so delay the registration of this new entry! - -- yes, we're a bit wasteful on garbage, but this is a fringe case, so we're picking low implementation overhead over garbage efficiency - registry.insertQueue = registry.insertQueue or setmetatable({},meta) - registry.insertQueue[eventname][self] = regfunc - end - end - - -- Unregister a callback - target[UnregisterName] = function(self, eventname) - if not self or self==target then - error("Usage: "..UnregisterName.."(eventname): bad 'self'", 2) - end - if type(eventname) ~= "string" then - error("Usage: "..UnregisterName.."(eventname): 'eventname' - string expected.", 2) - end - if rawget(events, eventname) and events[eventname][self] then - events[eventname][self] = nil - -- Fire OnUnused callback? - if registry.OnUnused and not next(events[eventname]) then - registry.OnUnused(registry, target, eventname) - end - end - if registry.insertQueue and rawget(registry.insertQueue, eventname) and registry.insertQueue[eventname][self] then - registry.insertQueue[eventname][self] = nil - end - end - - -- OPTIONAL: Unregister all callbacks for given selfs/addonIds - if UnregisterAllName then - target[UnregisterAllName] = function(...) - if select("#",...)<1 then - error("Usage: "..UnregisterAllName.."([whatFor]): missing 'self' or \"addonId\" to unregister events for.", 2) - end - if select("#",...)==1 and ...==target then - error("Usage: "..UnregisterAllName.."([whatFor]): supply a meaningful 'self' or \"addonId\"", 2) - end - - - for i=1,select("#",...) do - local self = select(i,...) - if registry.insertQueue then - for eventname, callbacks in pairs(registry.insertQueue) do - if callbacks[self] then - callbacks[self] = nil - end - end - end - for eventname, callbacks in pairs(events) do - if callbacks[self] then - callbacks[self] = nil - -- Fire OnUnused callback? - if registry.OnUnused and not next(callbacks) then - registry.OnUnused(registry, target, eventname) - end - end - end - end - end - end - - return registry -end - - --- CallbackHandler purposefully does NOT do explicit embedding. Nor does it --- try to upgrade old implicit embeds since the system is selfcontained and --- relies on closures to work. - diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.xml b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.xml deleted file mode 100644 index 876df83..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/CallbackHandler-1.0/CallbackHandler-1.0.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="CallbackHandler-1.0.lua"/> -</Ui> \ No newline at end of file diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/LibSharedMedia-3.0.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/LibSharedMedia-3.0.lua deleted file mode 100644 index c66e9cc..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/LibSharedMedia-3.0.lua +++ /dev/null @@ -1,300 +0,0 @@ ---[[ -Name: LibSharedMedia-3.0 -Revision: $Revision: 114 $ -Author: Elkano (elkano@gmx.de) -Inspired By: SurfaceLib by Haste/Otravi (troeks@gmail.com) -Website: http://www.wowace.com/projects/libsharedmedia-3-0/ -Description: Shared handling of media data (fonts, sounds, textures, ...) between addons. -Dependencies: LibStub, CallbackHandler-1.0 -License: LGPL v2.1 -]] - -local MAJOR, MINOR = "LibSharedMedia-3.0", 8020003 -- 8.2.0 v3 / increase manually on changes -local lib = LibStub:NewLibrary(MAJOR, MINOR) - -if not lib then return end - -local _G = getfenv(0) - -local pairs = _G.pairs -local type = _G.type - -local band = _G.bit.band -local table_sort = _G.table.sort - -local RESTRICTED_FILE_ACCESS = WOW_PROJECT_ID == WOW_PROJECT_MAINLINE -- starting with 8.2, some rules for file access have changed; classic still uses the old way - -local locale = GetLocale() -local locale_is_western -local LOCALE_MASK = 0 -lib.LOCALE_BIT_koKR = 1 -lib.LOCALE_BIT_ruRU = 2 -lib.LOCALE_BIT_zhCN = 4 -lib.LOCALE_BIT_zhTW = 8 -lib.LOCALE_BIT_western = 128 - -local CallbackHandler = LibStub:GetLibrary("CallbackHandler-1.0") - -lib.callbacks = lib.callbacks or CallbackHandler:New(lib) - -lib.DefaultMedia = lib.DefaultMedia or {} -lib.MediaList = lib.MediaList or {} -lib.MediaTable = lib.MediaTable or {} -lib.MediaType = lib.MediaType or {} -lib.OverrideMedia = lib.OverrideMedia or {} - -local defaultMedia = lib.DefaultMedia -local mediaList = lib.MediaList -local mediaTable = lib.MediaTable -local overrideMedia = lib.OverrideMedia - - --- create mediatype constants -lib.MediaType.BACKGROUND = "background" -- background textures -lib.MediaType.BORDER = "border" -- border textures -lib.MediaType.FONT = "font" -- fonts -lib.MediaType.STATUSBAR = "statusbar" -- statusbar textures -lib.MediaType.SOUND = "sound" -- sound files - --- populate lib with default Blizzard data --- BACKGROUND -if not lib.MediaTable.background then lib.MediaTable.background = {} end -lib.MediaTable.background["None"] = [[]] -lib.MediaTable.background["Blizzard Collections Background"] = [[Interface\Collections\CollectionsBackgroundTile]] -lib.MediaTable.background["Blizzard Dialog Background"] = [[Interface\DialogFrame\UI-DialogBox-Background]] -lib.MediaTable.background["Blizzard Dialog Background Dark"] = [[Interface\DialogFrame\UI-DialogBox-Background-Dark]] -lib.MediaTable.background["Blizzard Dialog Background Gold"] = [[Interface\DialogFrame\UI-DialogBox-Gold-Background]] -lib.MediaTable.background["Blizzard Garrison Background"] = [[Interface\Garrison\GarrisonUIBackground]] -lib.MediaTable.background["Blizzard Garrison Background 2"] = [[Interface\Garrison\GarrisonUIBackground2]] -lib.MediaTable.background["Blizzard Garrison Background 3"] = [[Interface\Garrison\GarrisonMissionUIInfoBoxBackgroundTile]] -lib.MediaTable.background["Blizzard Low Health"] = [[Interface\FullScreenTextures\LowHealth]] -lib.MediaTable.background["Blizzard Marble"] = [[Interface\FrameGeneral\UI-Background-Marble]] -lib.MediaTable.background["Blizzard Out of Control"] = [[Interface\FullScreenTextures\OutOfControl]] -lib.MediaTable.background["Blizzard Parchment"] = [[Interface\AchievementFrame\UI-Achievement-Parchment-Horizontal]] -lib.MediaTable.background["Blizzard Parchment 2"] = [[Interface\AchievementFrame\UI-GuildAchievement-Parchment-Horizontal]] -lib.MediaTable.background["Blizzard Rock"] = [[Interface\FrameGeneral\UI-Background-Rock]] -lib.MediaTable.background["Blizzard Tabard Background"] = [[Interface\TabardFrame\TabardFrameBackground]] -lib.MediaTable.background["Blizzard Tooltip"] = [[Interface\Tooltips\UI-Tooltip-Background]] -lib.MediaTable.background["Solid"] = [[Interface\Buttons\WHITE8X8]] -lib.DefaultMedia.background = "None" - --- BORDER -if not lib.MediaTable.border then lib.MediaTable.border = {} end -lib.MediaTable.border["None"] = [[]] -lib.MediaTable.border["Blizzard Achievement Wood"] = [[Interface\AchievementFrame\UI-Achievement-WoodBorder]] -lib.MediaTable.border["Blizzard Chat Bubble"] = [[Interface\Tooltips\ChatBubble-Backdrop]] -lib.MediaTable.border["Blizzard Dialog"] = [[Interface\DialogFrame\UI-DialogBox-Border]] -lib.MediaTable.border["Blizzard Dialog Gold"] = [[Interface\DialogFrame\UI-DialogBox-Gold-Border]] -lib.MediaTable.border["Blizzard Party"] = [[Interface\CHARACTERFRAME\UI-Party-Border]] -lib.MediaTable.border["Blizzard Tooltip"] = [[Interface\Tooltips\UI-Tooltip-Border]] -lib.DefaultMedia.border = "None" - --- FONT -if not lib.MediaTable.font then lib.MediaTable.font = {} end -local SML_MT_font = lib.MediaTable.font ---[[ -All font files are currently in all clients, the following table depicts which font supports which charset as of 5.0.4 -Fonts were checked using langcover.pl from DejaVu fonts (http://sourceforge.net/projects/dejavu/) and FontForge (http://fontforge.org/) -latin means check for: de, en, es, fr, it, pt - -file name latin koKR ruRU zhCN zhTW -2002.ttf 2002 X X X - - -2002B.ttf 2002 Bold X X X - - -ARHei.ttf AR CrystalzcuheiGBK Demibold X - X X X -ARIALN.TTF Arial Narrow X - X - - -ARKai_C.ttf AR ZhongkaiGBK Medium (Combat) X - X X X -ARKai_T.ttf AR ZhongkaiGBK Medium X - X X X -bHEI00M.ttf AR Heiti2 Medium B5 - - - - X -bHEI01B.ttf AR Heiti2 Bold B5 - - - - X -bKAI00M.ttf AR Kaiti Medium B5 - - - - X -bLEI00D.ttf AR Leisu Demi B5 - - - - X -FRIZQT__.TTF Friz Quadrata TT X - - - - -FRIZQT___CYR.TTF FrizQuadrataCTT x - X - - -K_Damage.TTF YDIWingsM - X X - - -K_Pagetext.TTF MoK X X X - - -MORPHEUS.TTF Morpheus X - - - - -MORPHEUS_CYR.TTF Morpheus X - X - - -NIM_____.ttf Nimrod MT X - X - - -SKURRI.TTF Skurri X - - - - -SKURRI_CYR.TTF Skurri X - X - - - -WARNING: Although FRIZQT___CYR is available on western clients, it doesn't support special European characters e.g. é, ï, ö -Due to this, we cannot use it as a replacement for FRIZQT__.TTF -]] - -if locale == "koKR" then - LOCALE_MASK = lib.LOCALE_BIT_koKR --- - SML_MT_font["굵은 글꼴"] = [[Fonts\2002B.TTF]] - SML_MT_font["기본 글꼴"] = [[Fonts\2002.TTF]] - SML_MT_font["데미지 글꼴"] = [[Fonts\K_Damage.TTF]] - SML_MT_font["퀘스트 글꼴"] = [[Fonts\K_Pagetext.TTF]] --- - lib.DefaultMedia["font"] = "기본 글꼴" -- someone from koKR please adjust if needed --- -elseif locale == "zhCN" then - LOCALE_MASK = lib.LOCALE_BIT_zhCN --- - SML_MT_font["伤害数字"] = [[Fonts\ARKai_C.ttf]] - SML_MT_font["默认"] = [[Fonts\ARKai_T.ttf]] - SML_MT_font["聊天"] = [[Fonts\ARHei.ttf]] --- - lib.DefaultMedia["font"] = "默认" -- someone from zhCN please adjust if needed --- -elseif locale == "zhTW" then - LOCALE_MASK = lib.LOCALE_BIT_zhTW --- - SML_MT_font["提示訊息"] = [[Fonts\bHEI00M.ttf]] - SML_MT_font["聊天"] = [[Fonts\bHEI01B.ttf]] - SML_MT_font["傷害數字"] = [[Fonts\bKAI00M.ttf]] - SML_MT_font["預設"] = [[Fonts\bLEI00D.ttf]] --- - lib.DefaultMedia["font"] = "預設" -- someone from zhTW please adjust if needed - -elseif locale == "ruRU" then - LOCALE_MASK = lib.LOCALE_BIT_ruRU --- - SML_MT_font["2002"] = [[Fonts\2002.TTF]] - SML_MT_font["2002 Bold"] = [[Fonts\2002B.TTF]] - SML_MT_font["AR CrystalzcuheiGBK Demibold"] = [[Fonts\ARHei.TTF]] - SML_MT_font["AR ZhongkaiGBK Medium (Combat)"] = [[Fonts\ARKai_C.TTF]] - SML_MT_font["AR ZhongkaiGBK Medium"] = [[Fonts\ARKai_T.TTF]] - SML_MT_font["Arial Narrow"] = [[Fonts\ARIALN.TTF]] - SML_MT_font["Friz Quadrata TT"] = [[Fonts\FRIZQT___CYR.TTF]] - SML_MT_font["MoK"] = [[Fonts\K_Pagetext.TTF]] - SML_MT_font["Morpheus"] = [[Fonts\MORPHEUS_CYR.TTF]] - SML_MT_font["Nimrod MT"] = [[Fonts\NIM_____.ttf]] - SML_MT_font["Skurri"] = [[Fonts\SKURRI_CYR.TTF]] --- - lib.DefaultMedia.font = "Friz Quadrata TT" --- -else - LOCALE_MASK = lib.LOCALE_BIT_western - locale_is_western = true --- - SML_MT_font["2002"] = [[Fonts\2002.TTF]] - SML_MT_font["2002 Bold"] = [[Fonts\2002B.TTF]] - SML_MT_font["AR CrystalzcuheiGBK Demibold"] = [[Fonts\ARHei.TTF]] - SML_MT_font["AR ZhongkaiGBK Medium (Combat)"] = [[Fonts\ARKai_C.TTF]] - SML_MT_font["AR ZhongkaiGBK Medium"] = [[Fonts\ARKai_T.TTF]] - SML_MT_font["Arial Narrow"] = [[Fonts\ARIALN.TTF]] - SML_MT_font["Friz Quadrata TT"] = [[Fonts\FRIZQT__.TTF]] - SML_MT_font["MoK"] = [[Fonts\K_Pagetext.TTF]] - SML_MT_font["Morpheus"] = [[Fonts\MORPHEUS_CYR.TTF]] - SML_MT_font["Nimrod MT"] = [[Fonts\NIM_____.ttf]] - SML_MT_font["Skurri"] = [[Fonts\SKURRI_CYR.TTF]] --- - lib.DefaultMedia.font = "Friz Quadrata TT" --- -end - --- STATUSBAR -if not lib.MediaTable.statusbar then lib.MediaTable.statusbar = {} end -lib.MediaTable.statusbar["Blizzard"] = [[Interface\TargetingFrame\UI-StatusBar]] -lib.MediaTable.statusbar["Blizzard Character Skills Bar"] = [[Interface\PaperDollInfoFrame\UI-Character-Skills-Bar]] -lib.MediaTable.statusbar["Blizzard Raid Bar"] = [[Interface\RaidFrame\Raid-Bar-Hp-Fill]] -lib.MediaTable.statusbar["Solid"] = [[Interface\Buttons\WHITE8X8]] -lib.DefaultMedia.statusbar = "Blizzard" - --- SOUND -if not lib.MediaTable.sound then lib.MediaTable.sound = {} end -lib.MediaTable.sound["None"] = RESTRICTED_FILE_ACCESS and 1 or [[Interface\Quiet.ogg]] -- Relies on the fact that PlaySound[File] doesn't error on these values. -lib.DefaultMedia.sound = "None" - -local function rebuildMediaList(mediatype) - local mtable = mediaTable[mediatype] - if not mtable then return end - if not mediaList[mediatype] then mediaList[mediatype] = {} end - local mlist = mediaList[mediatype] - -- list can only get larger, so simply overwrite it - local i = 0 - for k in pairs(mtable) do - i = i + 1 - mlist[i] = k - end - table_sort(mlist) -end - -function lib:Register(mediatype, key, data, langmask) - if type(mediatype) ~= "string" then - error(MAJOR..":Register(mediatype, key, data, langmask) - mediatype must be string, got "..type(mediatype)) - end - if type(key) ~= "string" then - error(MAJOR..":Register(mediatype, key, data, langmask) - key must be string, got "..type(key)) - end - mediatype = mediatype:lower() - if mediatype == lib.MediaType.FONT and ((langmask and band(langmask, LOCALE_MASK) == 0) or not (langmask or locale_is_western)) then - -- ignore fonts that aren't flagged as supporting local glyphs on non-western clients - return false - end - if type(data) == "string" and (mediatype == lib.MediaType.BACKGROUND or mediatype == lib.MediaType.BORDER or mediatype == lib.MediaType.STATUSBAR or mediatype == lib.MediaType.SOUND) then - local path = data:lower() - if RESTRICTED_FILE_ACCESS and not path:find("^interface") then - -- files accessed via path only allowed from interface folder - return false - end - if mediatype == lib.MediaType.SOUND and not (path:find(".ogg", nil, true) or path:find(".mp3", nil, true)) then - -- Only ogg and mp3 are valid sounds. - return false - end - end - if not mediaTable[mediatype] then mediaTable[mediatype] = {} end - local mtable = mediaTable[mediatype] - if mtable[key] then return false end - - mtable[key] = data - rebuildMediaList(mediatype) - self.callbacks:Fire("LibSharedMedia_Registered", mediatype, key) - return true -end - -function lib:Fetch(mediatype, key, noDefault) - local mtt = mediaTable[mediatype] - local overridekey = overrideMedia[mediatype] - local result = mtt and ((overridekey and mtt[overridekey] or mtt[key]) or (not noDefault and defaultMedia[mediatype] and mtt[defaultMedia[mediatype]])) or nil - return result ~= "" and result or nil -end - -function lib:IsValid(mediatype, key) - return mediaTable[mediatype] and (not key or mediaTable[mediatype][key]) and true or false -end - -function lib:HashTable(mediatype) - return mediaTable[mediatype] -end - -function lib:List(mediatype) - if not mediaTable[mediatype] then - return nil - end - if not mediaList[mediatype] then - rebuildMediaList(mediatype) - end - return mediaList[mediatype] -end - -function lib:GetGlobal(mediatype) - return overrideMedia[mediatype] -end - -function lib:SetGlobal(mediatype, key) - if not mediaTable[mediatype] then - return false - end - overrideMedia[mediatype] = (key and mediaTable[mediatype][key]) and key or nil - self.callbacks:Fire("LibSharedMedia_SetGlobal", mediatype, overrideMedia[mediatype]) - return true -end - -function lib:GetDefault(mediatype) - return defaultMedia[mediatype] -end - -function lib:SetDefault(mediatype, key) - if mediaTable[mediatype] and mediaTable[mediatype][key] and not defaultMedia[mediatype] then - defaultMedia[mediatype] = key - return true - else - return false - end -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/lib.xml b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/lib.xml deleted file mode 100644 index 34aa874..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibSharedMedia-3.0/lib.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="LibSharedMedia-3.0.lua" /> -</Ui> \ No newline at end of file diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.lua b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.lua deleted file mode 100644 index 0a41ac0..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.lua +++ /dev/null @@ -1,30 +0,0 @@ --- LibStub is a simple versioning stub meant for use in Libraries. http://www.wowace.com/wiki/LibStub for more info --- LibStub is hereby placed in the Public Domain Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel, joshborke -local LIBSTUB_MAJOR, LIBSTUB_MINOR = "LibStub", 2 -- NEVER MAKE THIS AN SVN REVISION! IT NEEDS TO BE USABLE IN ALL REPOS! -local LibStub = _G[LIBSTUB_MAJOR] - -if not LibStub or LibStub.minor < LIBSTUB_MINOR then - LibStub = LibStub or {libs = {}, minors = {} } - _G[LIBSTUB_MAJOR] = LibStub - LibStub.minor = LIBSTUB_MINOR - - function LibStub:NewLibrary(major, minor) - assert(type(major) == "string", "Bad argument #2 to `NewLibrary' (string expected)") - minor = assert(tonumber(strmatch(minor, "%d+")), "Minor version must either be a number or contain a number.") - - local oldminor = self.minors[major] - if oldminor and oldminor >= minor then return nil end - self.minors[major], self.libs[major] = minor, self.libs[major] or {} - return self.libs[major], oldminor - end - - function LibStub:GetLibrary(major, silent) - if not self.libs[major] and not silent then - error(("Cannot find a library instance of %q."):format(tostring(major)), 2) - end - return self.libs[major], self.minors[major] - end - - function LibStub:IterateLibraries() return pairs(self.libs) end - setmetatable(LibStub, { __call = LibStub.GetLibrary }) -end diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.toc b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.toc deleted file mode 100644 index 4d9130c..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/Libs/LibStub/LibStub.toc +++ /dev/null @@ -1,9 +0,0 @@ -## Interface: 20400 -## Title: Lib: LibStub -## Notes: Universal Library Stub -## Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel -## X-Website: http://jira.wowace.com/browse/LS -## X-Category: Library -## X-License: Public Domain - -LibStub.lua diff --git a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/widget.xml b/Titan/libs/AceGUI-3.0-SharedMediaWidgets/widget.xml deleted file mode 100755 index ca8847a..0000000 --- a/Titan/libs/AceGUI-3.0-SharedMediaWidgets/widget.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Include file="AceGUI-3.0-SharedMediaWidgets\widget.xml" /> -</Ui> diff --git a/Titan/libs/AceGUI-3.0/AceGUI-3.0.lua b/Titan/libs/AceGUI-3.0/AceGUI-3.0.lua deleted file mode 100755 index 7d9a2cf..0000000 --- a/Titan/libs/AceGUI-3.0/AceGUI-3.0.lua +++ /dev/null @@ -1,1020 +0,0 @@ ---- **AceGUI-3.0** provides access to numerous widgets which can be used to create GUIs. --- AceGUI is used by AceConfigDialog to create the option GUIs, but you can use it by itself --- to create any custom GUI. There are more extensive examples in the test suite in the Ace3 --- stand-alone distribution. --- --- **Note**: When using AceGUI-3.0 directly, please do not modify the frames of the widgets directly, --- as any "unknown" change to the widgets will cause addons that get your widget out of the widget pool --- to misbehave. If you think some part of a widget should be modifiable, please open a ticket, and we"ll --- implement a proper API to modify it. --- @usage --- local AceGUI = LibStub("AceGUI-3.0") --- -- Create a container frame --- local f = AceGUI:Create("Frame") --- f:SetCallback("OnClose",function(widget) AceGUI:Release(widget) end) --- f:SetTitle("AceGUI-3.0 Example") --- f:SetStatusText("Status Bar") --- f:SetLayout("Flow") --- -- Create a button --- local btn = AceGUI:Create("Button") --- btn:SetWidth(170) --- btn:SetText("Button !") --- btn:SetCallback("OnClick", function() print("Click!") end) --- -- Add the button to the container --- f:AddChild(btn) --- @class file --- @name AceGUI-3.0 --- @release $Id: AceGUI-3.0.lua 1288 2022-09-25 14:19:00Z funkehdude $ -local ACEGUI_MAJOR, ACEGUI_MINOR = "AceGUI-3.0", 41 -local AceGUI, oldminor = LibStub:NewLibrary(ACEGUI_MAJOR, ACEGUI_MINOR) - -if not AceGUI then return end -- No upgrade needed - --- Lua APIs -local tinsert, wipe = table.insert, table.wipe -local select, pairs, next, type = select, pairs, next, type -local error, assert = error, assert -local setmetatable, rawget = setmetatable, rawget -local math_max, math_min, math_ceil = math.max, math.min, math.ceil - --- WoW APIs -local UIParent = UIParent - -AceGUI.WidgetRegistry = AceGUI.WidgetRegistry or {} -AceGUI.LayoutRegistry = AceGUI.LayoutRegistry or {} -AceGUI.WidgetBase = AceGUI.WidgetBase or {} -AceGUI.WidgetContainerBase = AceGUI.WidgetContainerBase or {} -AceGUI.WidgetVersions = AceGUI.WidgetVersions or {} -AceGUI.tooltip = AceGUI.tooltip or CreateFrame("GameTooltip", "AceGUITooltip", UIParent, "GameTooltipTemplate") - --- local upvalues -local WidgetRegistry = AceGUI.WidgetRegistry -local LayoutRegistry = AceGUI.LayoutRegistry -local WidgetVersions = AceGUI.WidgetVersions - ---[[ - xpcall safecall implementation -]] -local xpcall = xpcall - -local function errorhandler(err) - return geterrorhandler()(err) -end - -local function safecall(func, ...) - if func then - return xpcall(func, errorhandler, ...) - end -end - --- Recycling functions -local newWidget, delWidget -do - -- Version Upgrade in Minor 29 - -- Internal Storage of the objects changed, from an array table - -- to a hash table, and additionally we introduced versioning on - -- the widgets which would discard all widgets from a pre-29 version - -- anyway, so we just clear the storage now, and don't try to - -- convert the storage tables to the new format. - -- This should generally not cause *many* widgets to end up in trash, - -- since once dialogs are opened, all addons should be loaded already - -- and AceGUI should be on the latest version available on the users - -- setup. - -- -- nevcairiel - Nov 2nd, 2009 - if oldminor and oldminor < 29 and AceGUI.objPools then - AceGUI.objPools = nil - end - - AceGUI.objPools = AceGUI.objPools or {} - local objPools = AceGUI.objPools - --Returns a new instance, if none are available either returns a new table or calls the given contructor - function newWidget(widgetType) - if not WidgetRegistry[widgetType] then - error("Attempt to instantiate unknown widget type", 2) - end - - if not objPools[widgetType] then - objPools[widgetType] = {} - end - - local newObj = next(objPools[widgetType]) - if not newObj then - newObj = WidgetRegistry[widgetType]() - newObj.AceGUIWidgetVersion = WidgetVersions[widgetType] - else - objPools[widgetType][newObj] = nil - -- if the widget is older then the latest, don't even try to reuse it - -- just forget about it, and grab a new one. - if not newObj.AceGUIWidgetVersion or newObj.AceGUIWidgetVersion < WidgetVersions[widgetType] then - return newWidget(widgetType) - end - end - return newObj - end - -- Releases an instance to the Pool - function delWidget(obj,widgetType) - if not objPools[widgetType] then - objPools[widgetType] = {} - end - if objPools[widgetType][obj] then - error("Attempt to Release Widget that is already released", 2) - end - objPools[widgetType][obj] = true - end -end - - -------------------- --- API Functions -- -------------------- - --- Gets a widget Object - ---- Create a new Widget of the given type. --- This function will instantiate a new widget (or use one from the widget pool), and call the --- OnAcquire function on it, before returning. --- @param type The type of the widget. --- @return The newly created widget. -function AceGUI:Create(widgetType) - if WidgetRegistry[widgetType] then - local widget = newWidget(widgetType) - - if rawget(widget, "Acquire") then - widget.OnAcquire = widget.Acquire - widget.Acquire = nil - elseif rawget(widget, "Aquire") then - widget.OnAcquire = widget.Aquire - widget.Aquire = nil - end - - if rawget(widget, "Release") then - widget.OnRelease = rawget(widget, "Release") - widget.Release = nil - end - - if widget.OnAcquire then - widget:OnAcquire() - else - error(("Widget type %s doesn't supply an OnAcquire Function"):format(widgetType)) - end - -- Set the default Layout ("List") - safecall(widget.SetLayout, widget, "List") - safecall(widget.ResumeLayout, widget) - return widget - end -end - ---- Releases a widget Object. --- This function calls OnRelease on the widget and places it back in the widget pool. --- Any data on the widget is being erased, and the widget will be hidden.\\ --- If this widget is a Container-Widget, all of its Child-Widgets will be releases as well. --- @param widget The widget to release -function AceGUI:Release(widget) - if widget.isQueuedForRelease then return end - widget.isQueuedForRelease = true - safecall(widget.PauseLayout, widget) - widget.frame:Hide() - widget:Fire("OnRelease") - safecall(widget.ReleaseChildren, widget) - - if widget.OnRelease then - widget:OnRelease() --- else --- error(("Widget type %s doesn't supply an OnRelease Function"):format(widget.type)) - end - for k in pairs(widget.userdata) do - widget.userdata[k] = nil - end - for k in pairs(widget.events) do - widget.events[k] = nil - end - widget.width = nil - widget.relWidth = nil - widget.height = nil - widget.relHeight = nil - widget.noAutoHeight = nil - widget.frame:ClearAllPoints() - widget.frame:Hide() - widget.frame:SetParent(UIParent) - widget.frame.width = nil - widget.frame.height = nil - if widget.content then - widget.content.width = nil - widget.content.height = nil - end - widget.isQueuedForRelease = nil - delWidget(widget, widget.type) -end - ---- Check if a widget is currently in the process of being released --- This function check if this widget, or any of its parents (in which case it'll be released shortly as well) --- are currently being released. This allows addon to handle any callbacks accordingly. --- @param widget The widget to check -function AceGUI:IsReleasing(widget) - if widget.isQueuedForRelease then - return true - end - - if widget.parent and widget.parent.AceGUIWidgetVersion then - return AceGUI:IsReleasing(widget.parent) - end - - return false -end - ------------ --- Focus -- ------------ - - ---- Called when a widget has taken focus. --- e.g. Dropdowns opening, Editboxes gaining kb focus --- @param widget The widget that should be focused -function AceGUI:SetFocus(widget) - if self.FocusedWidget and self.FocusedWidget ~= widget then - safecall(self.FocusedWidget.ClearFocus, self.FocusedWidget) - end - self.FocusedWidget = widget -end - - ---- Called when something has happened that could cause widgets with focus to drop it --- e.g. titlebar of a frame being clicked -function AceGUI:ClearFocus() - if self.FocusedWidget then - safecall(self.FocusedWidget.ClearFocus, self.FocusedWidget) - self.FocusedWidget = nil - end -end - -------------- --- Widgets -- -------------- ---[[ - Widgets must provide the following functions - OnAcquire() - Called when the object is acquired, should set everything to a default hidden state - - And the following members - frame - the frame or derivitive object that will be treated as the widget for size and anchoring purposes - type - the type of the object, same as the name given to :RegisterWidget() - - Widgets contain a table called userdata, this is a safe place to store data associated with the wigdet - It will be cleared automatically when a widget is released - Placing values directly into a widget object should be avoided - - If the Widget can act as a container for other Widgets the following - content - frame or derivitive that children will be anchored to - - The Widget can supply the following Optional Members - :OnRelease() - Called when the object is Released, should remove any additional anchors and clear any data - :OnWidthSet(width) - Called when the width of the widget is changed - :OnHeightSet(height) - Called when the height of the widget is changed - Widgets should not use the OnSizeChanged events of thier frame or content members, use these methods instead - AceGUI already sets a handler to the event - :LayoutFinished(width, height) - called after a layout has finished, the width and height will be the width and height of the - area used for controls. These can be nil if the layout used the existing size to layout the controls. - -]] - --------------------------- --- Widget Base Template -- --------------------------- -do - local WidgetBase = AceGUI.WidgetBase - - WidgetBase.SetParent = function(self, parent) - local frame = self.frame - frame:SetParent(nil) - frame:SetParent(parent.content) - self.parent = parent - end - - WidgetBase.SetCallback = function(self, name, func) - if type(func) == "function" then - self.events[name] = func - end - end - - WidgetBase.Fire = function(self, name, ...) - if self.events[name] then - local success, ret = safecall(self.events[name], self, name, ...) - if success then - return ret - end - end - end - - WidgetBase.SetWidth = function(self, width) - self.frame:SetWidth(width) - self.frame.width = width - if self.OnWidthSet then - self:OnWidthSet(width) - end - end - - WidgetBase.SetRelativeWidth = function(self, width) - if width <= 0 or width > 1 then - error(":SetRelativeWidth(width): Invalid relative width.", 2) - end - self.relWidth = width - self.width = "relative" - end - - WidgetBase.SetHeight = function(self, height) - self.frame:SetHeight(height) - self.frame.height = height - if self.OnHeightSet then - self:OnHeightSet(height) - end - end - - --[[ WidgetBase.SetRelativeHeight = function(self, height) - if height <= 0 or height > 1 then - error(":SetRelativeHeight(height): Invalid relative height.", 2) - end - self.relHeight = height - self.height = "relative" - end ]] - - WidgetBase.IsVisible = function(self) - return self.frame:IsVisible() - end - - WidgetBase.IsShown= function(self) - return self.frame:IsShown() - end - - WidgetBase.Release = function(self) - AceGUI:Release(self) - end - - WidgetBase.IsReleasing = function(self) - return AceGUI:IsReleasing(self) - end - - WidgetBase.SetPoint = function(self, ...) - return self.frame:SetPoint(...) - end - - WidgetBase.ClearAllPoints = function(self) - return self.frame:ClearAllPoints() - end - - WidgetBase.GetNumPoints = function(self) - return self.frame:GetNumPoints() - end - - WidgetBase.GetPoint = function(self, ...) - return self.frame:GetPoint(...) - end - - WidgetBase.GetUserDataTable = function(self) - return self.userdata - end - - WidgetBase.SetUserData = function(self, key, value) - self.userdata[key] = value - end - - WidgetBase.GetUserData = function(self, key) - return self.userdata[key] - end - - WidgetBase.IsFullHeight = function(self) - return self.height == "fill" - end - - WidgetBase.SetFullHeight = function(self, isFull) - if isFull then - self.height = "fill" - else - self.height = nil - end - end - - WidgetBase.IsFullWidth = function(self) - return self.width == "fill" - end - - WidgetBase.SetFullWidth = function(self, isFull) - if isFull then - self.width = "fill" - else - self.width = nil - end - end - --- local function LayoutOnUpdate(this) --- this:SetScript("OnUpdate",nil) --- this.obj:PerformLayout() --- end - - local WidgetContainerBase = AceGUI.WidgetContainerBase - - WidgetContainerBase.PauseLayout = function(self) - self.LayoutPaused = true - end - - WidgetContainerBase.ResumeLayout = function(self) - self.LayoutPaused = nil - end - - WidgetContainerBase.PerformLayout = function(self) - if self.LayoutPaused then - return - end - safecall(self.LayoutFunc, self.content, self.children) - end - - --call this function to layout, makes sure layed out objects get a frame to get sizes etc - WidgetContainerBase.DoLayout = function(self) - self:PerformLayout() --- if not self.parent then --- self.frame:SetScript("OnUpdate", LayoutOnUpdate) --- end - end - - WidgetContainerBase.AddChild = function(self, child, beforeWidget) - if beforeWidget then - local siblingIndex = 1 - for _, widget in pairs(self.children) do - if widget == beforeWidget then - break - end - siblingIndex = siblingIndex + 1 - end - tinsert(self.children, siblingIndex, child) - else - tinsert(self.children, child) - end - child:SetParent(self) - child.frame:Show() - self:DoLayout() - end - - WidgetContainerBase.AddChildren = function(self, ...) - for i = 1, select("#", ...) do - local child = select(i, ...) - tinsert(self.children, child) - child:SetParent(self) - child.frame:Show() - end - self:DoLayout() - end - - WidgetContainerBase.ReleaseChildren = function(self) - local children = self.children - for i = 1,#children do - AceGUI:Release(children[i]) - children[i] = nil - end - end - - WidgetContainerBase.SetLayout = function(self, Layout) - self.LayoutFunc = AceGUI:GetLayout(Layout) - end - - WidgetContainerBase.SetAutoAdjustHeight = function(self, adjust) - if adjust then - self.noAutoHeight = nil - else - self.noAutoHeight = true - end - end - - local function FrameResize(this) - local self = this.obj - if this:GetWidth() and this:GetHeight() then - if self.OnWidthSet then - self:OnWidthSet(this:GetWidth()) - end - if self.OnHeightSet then - self:OnHeightSet(this:GetHeight()) - end - end - end - - local function ContentResize(this) - if this:GetWidth() and this:GetHeight() then - this.width = this:GetWidth() - this.height = this:GetHeight() - this.obj:DoLayout() - end - end - - setmetatable(WidgetContainerBase, {__index=WidgetBase}) - - --One of these function should be called on each Widget Instance as part of its creation process - - --- Register a widget-class as a container for newly created widgets. - -- @param widget The widget class - function AceGUI:RegisterAsContainer(widget) - widget.children = {} - widget.userdata = {} - widget.events = {} - widget.base = WidgetContainerBase - widget.content.obj = widget - widget.frame.obj = widget - widget.content:SetScript("OnSizeChanged", ContentResize) - widget.frame:SetScript("OnSizeChanged", FrameResize) - setmetatable(widget, {__index = WidgetContainerBase}) - widget:SetLayout("List") - return widget - end - - --- Register a widget-class as a widget. - -- @param widget The widget class - function AceGUI:RegisterAsWidget(widget) - widget.userdata = {} - widget.events = {} - widget.base = WidgetBase - widget.frame.obj = widget - widget.frame:SetScript("OnSizeChanged", FrameResize) - setmetatable(widget, {__index = WidgetBase}) - return widget - end -end - - - - ------------------- --- Widget API -- ------------------- - ---- Registers a widget Constructor, this function returns a new instance of the Widget --- @param Name The name of the widget --- @param Constructor The widget constructor function --- @param Version The version of the widget -function AceGUI:RegisterWidgetType(Name, Constructor, Version) - assert(type(Constructor) == "function") - assert(type(Version) == "number") - - local oldVersion = WidgetVersions[Name] - if oldVersion and oldVersion >= Version then return end - - WidgetVersions[Name] = Version - WidgetRegistry[Name] = Constructor -end - ---- Registers a Layout Function --- @param Name The name of the layout --- @param LayoutFunc Reference to the layout function -function AceGUI:RegisterLayout(Name, LayoutFunc) - assert(type(LayoutFunc) == "function") - if type(Name) == "string" then - Name = Name:upper() - end - LayoutRegistry[Name] = LayoutFunc -end - ---- Get a Layout Function from the registry --- @param Name The name of the layout -function AceGUI:GetLayout(Name) - if type(Name) == "string" then - Name = Name:upper() - end - return LayoutRegistry[Name] -end - -AceGUI.counts = AceGUI.counts or {} - ---- A type-based counter to count the number of widgets created. --- This is used by widgets that require a named frame, e.g. when a Blizzard --- Template requires it. --- @param type The widget type -function AceGUI:GetNextWidgetNum(widgetType) - if not self.counts[widgetType] then - self.counts[widgetType] = 0 - end - self.counts[widgetType] = self.counts[widgetType] + 1 - return self.counts[widgetType] -end - ---- Return the number of created widgets for this type. --- In contrast to GetNextWidgetNum, the number is not incremented. --- @param widgetType The widget type -function AceGUI:GetWidgetCount(widgetType) - return self.counts[widgetType] or 0 -end - ---- Return the version of the currently registered widget type. --- @param widgetType The widget type -function AceGUI:GetWidgetVersion(widgetType) - return WidgetVersions[widgetType] -end - -------------- --- Layouts -- -------------- - ---[[ - A Layout is a func that takes 2 parameters - content - the frame that widgets will be placed inside - children - a table containing the widgets to layout -]] - --- Very simple Layout, Children are stacked on top of each other down the left side -AceGUI:RegisterLayout("List", - function(content, children) - local height = 0 - local width = content.width or content:GetWidth() or 0 - for i = 1, #children do - local child = children[i] - - local frame = child.frame - frame:ClearAllPoints() - frame:Show() - if i == 1 then - frame:SetPoint("TOPLEFT", content) - else - frame:SetPoint("TOPLEFT", children[i-1].frame, "BOTTOMLEFT") - end - - if child.width == "fill" then - child:SetWidth(width) - frame:SetPoint("RIGHT", content) - - if child.DoLayout then - child:DoLayout() - end - elseif child.width == "relative" then - child:SetWidth(width * child.relWidth) - - if child.DoLayout then - child:DoLayout() - end - end - - height = height + (frame.height or frame:GetHeight() or 0) - end - safecall(content.obj.LayoutFinished, content.obj, nil, height) - end) - --- A single control fills the whole content area -AceGUI:RegisterLayout("Fill", - function(content, children) - if children[1] then - children[1]:SetWidth(content:GetWidth() or 0) - children[1]:SetHeight(content:GetHeight() or 0) - children[1].frame:ClearAllPoints() - children[1].frame:SetAllPoints(content) - children[1].frame:Show() - safecall(content.obj.LayoutFinished, content.obj, nil, children[1].frame:GetHeight()) - end - end) - -local layoutrecursionblock = nil -local function safelayoutcall(object, func, ...) - layoutrecursionblock = true - object[func](object, ...) - layoutrecursionblock = nil -end - -AceGUI:RegisterLayout("Flow", - function(content, children) - if layoutrecursionblock then return end - --used height so far - local height = 0 - --width used in the current row - local usedwidth = 0 - --height of the current row - local rowheight = 0 - local rowoffset = 0 - - local width = content.width or content:GetWidth() or 0 - - --control at the start of the row - local rowstart - local rowstartoffset - local isfullheight - - local frameoffset - local lastframeoffset - local oversize - for i = 1, #children do - local child = children[i] - oversize = nil - local frame = child.frame - local frameheight = frame.height or frame:GetHeight() or 0 - local framewidth = frame.width or frame:GetWidth() or 0 - lastframeoffset = frameoffset - -- HACK: Why did we set a frameoffset of (frameheight / 2) ? - -- That was moving all widgets half the widgets size down, is that intended? - -- Actually, it seems to be neccessary for many cases, we'll leave it in for now. - -- If widgets seem to anchor weirdly with this, provide a valid alignoffset for them. - -- TODO: Investigate moar! - frameoffset = child.alignoffset or (frameheight / 2) - - if child.width == "relative" then - framewidth = width * child.relWidth - end - - frame:Show() - frame:ClearAllPoints() - if i == 1 then - -- anchor the first control to the top left - frame:SetPoint("TOPLEFT", content) - rowheight = frameheight - rowoffset = frameoffset - rowstart = frame - rowstartoffset = frameoffset - usedwidth = framewidth - if usedwidth > width then - oversize = true - end - else - -- if there isn't available width for the control start a new row - -- if a control is "fill" it will be on a row of its own full width - if usedwidth == 0 or ((framewidth) + usedwidth > width) or child.width == "fill" then - if isfullheight then - -- a previous row has already filled the entire height, there's nothing we can usefully do anymore - -- (maybe error/warn about this?) - break - end - --anchor the previous row, we will now know its height and offset - rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -(height + (rowoffset - rowstartoffset) + 3)) - height = height + rowheight + 3 - --save this as the rowstart so we can anchor it after the row is complete and we have the max height and offset of controls in it - rowstart = frame - rowstartoffset = frameoffset - rowheight = frameheight - rowoffset = frameoffset - usedwidth = framewidth - if usedwidth > width then - oversize = true - end - -- put the control on the current row, adding it to the width and checking if the height needs to be increased - else - --handles cases where the new height is higher than either control because of the offsets - --math.max(rowheight-rowoffset+frameoffset, frameheight-frameoffset+rowoffset) - - --offset is always the larger of the two offsets - rowoffset = math_max(rowoffset, frameoffset) - rowheight = math_max(rowheight, rowoffset + (frameheight / 2)) - - frame:SetPoint("TOPLEFT", children[i-1].frame, "TOPRIGHT", 0, frameoffset - lastframeoffset) - usedwidth = framewidth + usedwidth - end - end - - if child.width == "fill" then - safelayoutcall(child, "SetWidth", width) - frame:SetPoint("RIGHT", content) - - usedwidth = 0 - rowstart = frame - - if child.DoLayout then - child:DoLayout() - end - rowheight = frame.height or frame:GetHeight() or 0 - rowoffset = child.alignoffset or (rowheight / 2) - rowstartoffset = rowoffset - elseif child.width == "relative" then - safelayoutcall(child, "SetWidth", width * child.relWidth) - - if child.DoLayout then - child:DoLayout() - end - elseif oversize then - if width > 1 then - frame:SetPoint("RIGHT", content) - end - end - - if child.height == "fill" then - frame:SetPoint("BOTTOM", content) - isfullheight = true - end - end - - --anchor the last row, if its full height needs a special case since its height has just been changed by the anchor - if isfullheight then - rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -height) - elseif rowstart then - rowstart:SetPoint("TOPLEFT", content, "TOPLEFT", 0, -(height + (rowoffset - rowstartoffset) + 3)) - end - - height = height + rowheight + 3 - safecall(content.obj.LayoutFinished, content.obj, nil, height) - end) - --- Get alignment method and value. Possible alignment methods are a callback, a number, "start", "middle", "end", "fill" or "TOPLEFT", "BOTTOMRIGHT" etc. -local GetCellAlign = function (dir, tableObj, colObj, cellObj, cell, child) - local fn = cellObj and (cellObj["align" .. dir] or cellObj.align) - or colObj and (colObj["align" .. dir] or colObj.align) - or tableObj["align" .. dir] or tableObj.align - or "CENTERLEFT" - local val - child, cell = child or 0, cell or 0 - - if type(fn) == "string" then - fn = fn:lower() - fn = dir == "V" and (fn:sub(1, 3) == "top" and "start" or fn:sub(1, 6) == "bottom" and "end" or fn:sub(1, 6) == "center" and "middle") - or dir == "H" and (fn:sub(-4) == "left" and "start" or fn:sub(-5) == "right" and "end" or fn:sub(-6) == "center" and "middle") - or fn - val = (fn == "start" or fn == "fill") and 0 or fn == "end" and cell - child or (cell - child) / 2 - elseif type(fn) == "function" then - val = fn(child or 0, cell, dir) - else - val = fn - end - - return fn, math_max(0, math_min(val, cell)) -end - --- Get width or height for multiple cells combined -local GetCellDimension = function (dir, laneDim, from, to, space) - local dim = 0 - for cell=from,to do - dim = dim + (laneDim[cell] or 0) - end - return dim + math_max(0, to - from) * (space or 0) -end - ---[[ Options -============ -Container: - - columns ({col, col, ...}): Column settings. "col" can be a number (<= 0: content width, <1: rel. width, <10: weight, >=10: abs. width) or a table with column setting. - - space, spaceH, spaceV: Overall, horizontal and vertical spacing between cells. - - align, alignH, alignV: Overall, horizontal and vertical cell alignment. See GetCellAlign() for possible values. -Columns: - - width: Fixed column width (nil or <=0: content width, <1: rel. width, >=1: abs. width). - - min or 1: Min width for content based width - - max or 2: Max width for content based width - - weight: Flexible column width. The leftover width after accounting for fixed-width columns is distributed to weighted columns according to their weights. - - align, alignH, alignV: Overwrites the container setting for alignment. -Cell: - - colspan: Makes a cell span multiple columns. - - rowspan: Makes a cell span multiple rows. - - align, alignH, alignV: Overwrites the container and column setting for alignment. -]] -AceGUI:RegisterLayout("Table", - function (content, children) - local obj = content.obj - obj:PauseLayout() - - local tableObj = obj:GetUserData("table") - local cols = tableObj.columns - local spaceH = tableObj.spaceH or tableObj.space or 0 - local spaceV = tableObj.spaceV or tableObj.space or 0 - local totalH = (content:GetWidth() or content.width or 0) - spaceH * (#cols - 1) - - -- We need to reuse these because layout events can come in very frequently - local layoutCache = obj:GetUserData("layoutCache") - if not layoutCache then - layoutCache = {{}, {}, {}, {}, {}, {}} - obj:SetUserData("layoutCache", layoutCache) - end - local t, laneH, laneV, rowspans, rowStart, colStart = unpack(layoutCache) - - -- Create the grid - local n, slotFound = 0 - for i,child in ipairs(children) do - if child:IsShown() then - repeat - n = n + 1 - local col = (n - 1) % #cols + 1 - local row = math_ceil(n / #cols) - local rowspan = rowspans[col] - local cell = rowspan and rowspan.child or child - local cellObj = cell:GetUserData("cell") - slotFound = not rowspan - - -- Rowspan - if not rowspan and cellObj and cellObj.rowspan then - rowspan = {child = child, from = row, to = row + cellObj.rowspan - 1} - rowspans[col] = rowspan - end - if rowspan and i == #children then - rowspan.to = row - end - - -- Colspan - local colspan = math_max(0, math_min((cellObj and cellObj.colspan or 1) - 1, #cols - col)) - n = n + colspan - - -- Place the cell - if not rowspan or rowspan.to == row then - t[n] = cell - rowStart[cell] = rowspan and rowspan.from or row - colStart[cell] = col - - if rowspan then - rowspans[col] = nil - end - end - until slotFound - end - end - - local rows = math_ceil(n / #cols) - - -- Determine fixed size cols and collect weights - local extantH, totalWeight = totalH, 0 - for col,colObj in ipairs(cols) do - laneH[col] = 0 - - if type(colObj) == "number" then - colObj = {[colObj >= 1 and colObj < 10 and "weight" or "width"] = colObj} - cols[col] = colObj - end - - if colObj.weight then - -- Weight - totalWeight = totalWeight + (colObj.weight or 1) - else - if not colObj.width or colObj.width <= 0 then - -- Content width - for row=1,rows do - local child = t[(row - 1) * #cols + col] - if child then - local f = child.frame - f:ClearAllPoints() - local childH = f:GetWidth() or 0 - - laneH[col] = math_max(laneH[col], childH - GetCellDimension("H", laneH, colStart[child], col - 1, spaceH)) - end - end - - laneH[col] = math_max(colObj.min or colObj[1] or 0, math_min(laneH[col], colObj.max or colObj[2] or laneH[col])) - else - -- Rel./Abs. width - laneH[col] = colObj.width < 1 and colObj.width * totalH or colObj.width - end - extantH = math_max(0, extantH - laneH[col]) - end - end - - -- Determine sizes based on weight - local scale = totalWeight > 0 and extantH / totalWeight or 0 - for col,colObj in pairs(cols) do - if colObj.weight then - laneH[col] = scale * colObj.weight - end - end - - -- Arrange children - for row=1,rows do - local rowV = 0 - - -- Horizontal placement and sizing - for col=1,#cols do - local child = t[(row - 1) * #cols + col] - if child then - local colObj = cols[colStart[child]] - local cellObj = child:GetUserData("cell") - local offsetH = GetCellDimension("H", laneH, 1, colStart[child] - 1, spaceH) + (colStart[child] == 1 and 0 or spaceH) - local cellH = GetCellDimension("H", laneH, colStart[child], col, spaceH) - - local f = child.frame - f:ClearAllPoints() - local childH = f:GetWidth() or 0 - - local alignFn, align = GetCellAlign("H", tableObj, colObj, cellObj, cellH, childH) - f:SetPoint("LEFT", content, offsetH + align, 0) - if child:IsFullWidth() or alignFn == "fill" or childH > cellH then - f:SetPoint("RIGHT", content, "LEFT", offsetH + align + cellH, 0) - end - - if child.DoLayout then - child:DoLayout() - end - - rowV = math_max(rowV, (f:GetHeight() or 0) - GetCellDimension("V", laneV, rowStart[child], row - 1, spaceV)) - end - end - - laneV[row] = rowV - - -- Vertical placement and sizing - for col=1,#cols do - local child = t[(row - 1) * #cols + col] - if child then - local colObj = cols[colStart[child]] - local cellObj = child:GetUserData("cell") - local offsetV = GetCellDimension("V", laneV, 1, rowStart[child] - 1, spaceV) + (rowStart[child] == 1 and 0 or spaceV) - local cellV = GetCellDimension("V", laneV, rowStart[child], row, spaceV) - - local f = child.frame - local childV = f:GetHeight() or 0 - - local alignFn, align = GetCellAlign("V", tableObj, colObj, cellObj, cellV, childV) - if child:IsFullHeight() or alignFn == "fill" then - f:SetHeight(cellV) - end - f:SetPoint("TOP", content, 0, -(offsetV + align)) - end - end - end - - -- Calculate total height - local totalV = GetCellDimension("V", laneV, 1, #laneV, spaceV) - - -- Cleanup - for _,v in pairs(layoutCache) do wipe(v) end - - safecall(obj.LayoutFinished, obj, nil, totalV) - obj:ResumeLayout() - end) diff --git a/Titan/libs/AceGUI-3.0/AceGUI-3.0.xml b/Titan/libs/AceGUI-3.0/AceGUI-3.0.xml deleted file mode 100755 index ae22c90..0000000 --- a/Titan/libs/AceGUI-3.0/AceGUI-3.0.xml +++ /dev/null @@ -1,28 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="AceGUI-3.0.lua"/> - <!-- Container --> - <Script file="widgets\AceGUIContainer-BlizOptionsGroup.lua"/> - <Script file="widgets\AceGUIContainer-DropDownGroup.lua"/> - <Script file="widgets\AceGUIContainer-Frame.lua"/> - <Script file="widgets\AceGUIContainer-InlineGroup.lua"/> - <Script file="widgets\AceGUIContainer-ScrollFrame.lua"/> - <Script file="widgets\AceGUIContainer-SimpleGroup.lua"/> - <Script file="widgets\AceGUIContainer-TabGroup.lua"/> - <Script file="widgets\AceGUIContainer-TreeGroup.lua"/> - <Script file="widgets\AceGUIContainer-Window.lua"/> - <!-- Widgets --> - <Script file="widgets\AceGUIWidget-Button.lua"/> - <Script file="widgets\AceGUIWidget-CheckBox.lua"/> - <Script file="widgets\AceGUIWidget-ColorPicker.lua"/> - <Script file="widgets\AceGUIWidget-DropDown.lua"/> - <Script file="widgets\AceGUIWidget-DropDown-Items.lua"/> - <Script file="widgets\AceGUIWidget-EditBox.lua"/> - <Script file="widgets\AceGUIWidget-Heading.lua"/> - <Script file="widgets\AceGUIWidget-Icon.lua"/> - <Script file="widgets\AceGUIWidget-InteractiveLabel.lua"/> - <Script file="widgets\AceGUIWidget-Keybinding.lua"/> - <Script file="widgets\AceGUIWidget-Label.lua"/> - <Script file="widgets\AceGUIWidget-MultiLineEditBox.lua"/> - <Script file="widgets\AceGUIWidget-Slider.lua"/> -</Ui> diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua deleted file mode 100755 index bf1eae7..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua +++ /dev/null @@ -1,143 +0,0 @@ ---[[----------------------------------------------------------------------------- -BlizOptionsGroup Container -Simple container widget for the integration of AceGUI into the Blizzard Interface Options --------------------------------------------------------------------------------]] -local Type, Version = "BlizOptionsGroup", 26 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local CreateFrame = CreateFrame - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] - -local function OnShow(frame) - frame.obj:Fire("OnShow") -end - -local function OnHide(frame) - frame.obj:Fire("OnHide") -end - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] - -local function okay(frame) - frame.obj:Fire("okay") -end - -local function cancel(frame) - frame.obj:Fire("cancel") -end - -local function default(frame) - frame.obj:Fire("default") -end - -local function refresh(frame) - frame.obj:Fire("refresh") -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] - -local methods = { - ["OnAcquire"] = function(self) - self:SetName() - self:SetTitle() - end, - - -- ["OnRelease"] = nil, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local contentwidth = width - 63 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - 26 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end, - - ["SetName"] = function(self, name, parent) - self.frame.name = name - self.frame.parent = parent - end, - - ["SetTitle"] = function(self, title) - local content = self.content - content:ClearAllPoints() - if not title or title == "" then - content:SetPoint("TOPLEFT", 10, -10) - self.label:SetText("") - else - content:SetPoint("TOPLEFT", 10, -40) - self.label:SetText(title) - end - content:SetPoint("BOTTOMRIGHT", -10, 10) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Frame", nil, InterfaceOptionsFramePanelContainer) - frame:Hide() - - -- support functions for the Blizzard Interface Options - frame.okay = okay - frame.cancel = cancel - frame.default = default - frame.refresh = refresh - - -- 10.0 support function aliases (cancel has been removed) - frame.OnCommit = okay - frame.OnDefault = default - frame.OnRefresh = refresh - - frame:SetScript("OnHide", OnHide) - frame:SetScript("OnShow", OnShow) - - local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge") - label:SetPoint("TOPLEFT", 10, -15) - label:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", 10, -45) - label:SetJustifyH("LEFT") - label:SetJustifyV("TOP") - - --Container Support - local content = CreateFrame("Frame", nil, frame) - content:SetPoint("TOPLEFT", 10, -10) - content:SetPoint("BOTTOMRIGHT", -10, 10) - - local widget = { - label = label, - frame = frame, - content = content, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua deleted file mode 100755 index 2322e3d..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua +++ /dev/null @@ -1,157 +0,0 @@ ---[[----------------------------------------------------------------------------- -DropdownGroup Container -Container controlled by a dropdown on the top. --------------------------------------------------------------------------------]] -local Type, Version = "DropdownGroup", 22 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local assert, pairs, type = assert, pairs, type - --- WoW APIs -local CreateFrame = CreateFrame - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function SelectedGroup(self, event, value) - local group = self.parentgroup - local status = group.status or group.localstatus - status.selected = value - self.parentgroup:Fire("OnGroupSelected", value) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self.dropdown:SetText("") - self:SetDropdownWidth(200) - self:SetTitle("") - end, - - ["OnRelease"] = function(self) - self.dropdown.list = nil - self.status = nil - for k in pairs(self.localstatus) do - self.localstatus[k] = nil - end - end, - - ["SetTitle"] = function(self, title) - self.titletext:SetText(title) - self.dropdown.frame:ClearAllPoints() - if title and title ~= "" then - self.dropdown.frame:SetPoint("TOPRIGHT", -2, 0) - else - self.dropdown.frame:SetPoint("TOPLEFT", -1, 0) - end - end, - - ["SetGroupList"] = function(self,list,order) - self.dropdown:SetList(list,order) - end, - - ["SetStatusTable"] = function(self, status) - assert(type(status) == "table") - self.status = status - end, - - ["SetGroup"] = function(self,group) - self.dropdown:SetValue(group) - local status = self.status or self.localstatus - status.selected = group - self:Fire("OnGroupSelected", group) - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local contentwidth = width - 26 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - 63 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end, - - ["LayoutFinished"] = function(self, width, height) - self:SetHeight((height or 0) + 63) - end, - - ["SetDropdownWidth"] = function(self, width) - self.dropdown:SetWidth(width) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local PaneBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 5, bottom = 3 } -} - -local function Constructor() - local frame = CreateFrame("Frame") - frame:SetHeight(100) - frame:SetWidth(100) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - - local titletext = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") - titletext:SetPoint("TOPLEFT", 4, -5) - titletext:SetPoint("TOPRIGHT", -4, -5) - titletext:SetJustifyH("LEFT") - titletext:SetHeight(18) - - local dropdown = AceGUI:Create("Dropdown") - dropdown.frame:SetParent(frame) - dropdown.frame:SetFrameLevel(dropdown.frame:GetFrameLevel() + 2) - dropdown:SetCallback("OnValueChanged", SelectedGroup) - dropdown.frame:SetPoint("TOPLEFT", -1, 0) - dropdown.frame:Show() - dropdown:SetLabel("") - - local border = CreateFrame("Frame", nil, frame, "BackdropTemplate") - border:SetPoint("TOPLEFT", 0, -26) - border:SetPoint("BOTTOMRIGHT", 0, 3) - border:SetBackdrop(PaneBackdrop) - border:SetBackdropColor(0.1,0.1,0.1,0.5) - border:SetBackdropBorderColor(0.4,0.4,0.4) - - --Container Support - local content = CreateFrame("Frame", nil, border) - content:SetPoint("TOPLEFT", 10, -10) - content:SetPoint("BOTTOMRIGHT", -10, 10) - - local widget = { - frame = frame, - localstatus = {}, - titletext = titletext, - dropdown = dropdown, - border = border, - content = content, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - dropdown.parentgroup = widget - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua deleted file mode 100755 index ca90890..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua +++ /dev/null @@ -1,318 +0,0 @@ ---[[----------------------------------------------------------------------------- -Frame Container --------------------------------------------------------------------------------]] -local Type, Version = "Frame", 30 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs, assert, type = pairs, assert, type -local wipe = table.wipe - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Button_OnClick(frame) - PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT - frame.obj:Hide() -end - -local function Frame_OnShow(frame) - frame.obj:Fire("OnShow") -end - -local function Frame_OnClose(frame) - frame.obj:Fire("OnClose") -end - -local function Frame_OnMouseDown(frame) - AceGUI:ClearFocus() -end - -local function Title_OnMouseDown(frame) - frame:GetParent():StartMoving() - AceGUI:ClearFocus() -end - -local function MoverSizer_OnMouseUp(mover) - local frame = mover:GetParent() - frame:StopMovingOrSizing() - local self = frame.obj - local status = self.status or self.localstatus - status.width = frame:GetWidth() - status.height = frame:GetHeight() - status.top = frame:GetTop() - status.left = frame:GetLeft() -end - -local function SizerSE_OnMouseDown(frame) - frame:GetParent():StartSizing("BOTTOMRIGHT") - AceGUI:ClearFocus() -end - -local function SizerS_OnMouseDown(frame) - frame:GetParent():StartSizing("BOTTOM") - AceGUI:ClearFocus() -end - -local function SizerE_OnMouseDown(frame) - frame:GetParent():StartSizing("RIGHT") - AceGUI:ClearFocus() -end - -local function StatusBar_OnEnter(frame) - frame.obj:Fire("OnEnterStatusBar") -end - -local function StatusBar_OnLeave(frame) - frame.obj:Fire("OnLeaveStatusBar") -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self.frame:SetParent(UIParent) - self.frame:SetFrameStrata("FULLSCREEN_DIALOG") - self.frame:SetFrameLevel(100) -- Lots of room to draw under it - self:SetTitle() - self:SetStatusText() - self:ApplyStatus() - self:Show() - self:EnableResize(true) - end, - - ["OnRelease"] = function(self) - self.status = nil - wipe(self.localstatus) - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local contentwidth = width - 34 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - 57 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end, - - ["SetTitle"] = function(self, title) - self.titletext:SetText(title) - self.titlebg:SetWidth((self.titletext:GetWidth() or 0) + 10) - end, - - ["SetStatusText"] = function(self, text) - self.statustext:SetText(text) - end, - - ["Hide"] = function(self) - self.frame:Hide() - end, - - ["Show"] = function(self) - self.frame:Show() - end, - - ["EnableResize"] = function(self, state) - local func = state and "Show" or "Hide" - self.sizer_se[func](self.sizer_se) - self.sizer_s[func](self.sizer_s) - self.sizer_e[func](self.sizer_e) - end, - - -- called to set an external table to store status in - ["SetStatusTable"] = function(self, status) - assert(type(status) == "table") - self.status = status - self:ApplyStatus() - end, - - ["ApplyStatus"] = function(self) - local status = self.status or self.localstatus - local frame = self.frame - self:SetWidth(status.width or 700) - self:SetHeight(status.height or 500) - frame:ClearAllPoints() - if status.top and status.left then - frame:SetPoint("TOP", UIParent, "BOTTOM", 0, status.top) - frame:SetPoint("LEFT", UIParent, "LEFT", status.left, 0) - else - frame:SetPoint("CENTER") - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local FrameBackdrop = { - bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background", - edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border", - tile = true, tileSize = 32, edgeSize = 32, - insets = { left = 8, right = 8, top = 8, bottom = 8 } -} - -local PaneBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 5, bottom = 3 } -} - -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent, "BackdropTemplate") - frame:Hide() - - frame:EnableMouse(true) - frame:SetMovable(true) - frame:SetResizable(true) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - frame:SetFrameLevel(100) -- Lots of room to draw under it - frame:SetBackdrop(FrameBackdrop) - frame:SetBackdropColor(0, 0, 0, 1) - if frame.SetResizeBounds then -- WoW 10.0 - frame:SetResizeBounds(400, 200) - else - frame:SetMinResize(400, 200) - end - frame:SetToplevel(true) - frame:SetScript("OnShow", Frame_OnShow) - frame:SetScript("OnHide", Frame_OnClose) - frame:SetScript("OnMouseDown", Frame_OnMouseDown) - - local closebutton = CreateFrame("Button", nil, frame, "UIPanelButtonTemplate") - closebutton:SetScript("OnClick", Button_OnClick) - closebutton:SetPoint("BOTTOMRIGHT", -27, 17) - closebutton:SetHeight(20) - closebutton:SetWidth(100) - closebutton:SetText(CLOSE) - - local statusbg = CreateFrame("Button", nil, frame, "BackdropTemplate") - statusbg:SetPoint("BOTTOMLEFT", 15, 15) - statusbg:SetPoint("BOTTOMRIGHT", -132, 15) - statusbg:SetHeight(24) - statusbg:SetBackdrop(PaneBackdrop) - statusbg:SetBackdropColor(0.1,0.1,0.1) - statusbg:SetBackdropBorderColor(0.4,0.4,0.4) - statusbg:SetScript("OnEnter", StatusBar_OnEnter) - statusbg:SetScript("OnLeave", StatusBar_OnLeave) - - local statustext = statusbg:CreateFontString(nil, "OVERLAY", "GameFontNormal") - statustext:SetPoint("TOPLEFT", 7, -2) - statustext:SetPoint("BOTTOMRIGHT", -7, 2) - statustext:SetHeight(20) - statustext:SetJustifyH("LEFT") - statustext:SetText("") - - local titlebg = frame:CreateTexture(nil, "OVERLAY") - titlebg:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header - titlebg:SetTexCoord(0.31, 0.67, 0, 0.63) - titlebg:SetPoint("TOP", 0, 12) - titlebg:SetWidth(100) - titlebg:SetHeight(40) - - local title = CreateFrame("Frame", nil, frame) - title:EnableMouse(true) - title:SetScript("OnMouseDown", Title_OnMouseDown) - title:SetScript("OnMouseUp", MoverSizer_OnMouseUp) - title:SetAllPoints(titlebg) - - local titletext = title:CreateFontString(nil, "OVERLAY", "GameFontNormal") - titletext:SetPoint("TOP", titlebg, "TOP", 0, -14) - - local titlebg_l = frame:CreateTexture(nil, "OVERLAY") - titlebg_l:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header - titlebg_l:SetTexCoord(0.21, 0.31, 0, 0.63) - titlebg_l:SetPoint("RIGHT", titlebg, "LEFT") - titlebg_l:SetWidth(30) - titlebg_l:SetHeight(40) - - local titlebg_r = frame:CreateTexture(nil, "OVERLAY") - titlebg_r:SetTexture(131080) -- Interface\\DialogFrame\\UI-DialogBox-Header - titlebg_r:SetTexCoord(0.67, 0.77, 0, 0.63) - titlebg_r:SetPoint("LEFT", titlebg, "RIGHT") - titlebg_r:SetWidth(30) - titlebg_r:SetHeight(40) - - local sizer_se = CreateFrame("Frame", nil, frame) - sizer_se:SetPoint("BOTTOMRIGHT") - sizer_se:SetWidth(25) - sizer_se:SetHeight(25) - sizer_se:EnableMouse() - sizer_se:SetScript("OnMouseDown",SizerSE_OnMouseDown) - sizer_se:SetScript("OnMouseUp", MoverSizer_OnMouseUp) - - local line1 = sizer_se:CreateTexture(nil, "BACKGROUND") - line1:SetWidth(14) - line1:SetHeight(14) - line1:SetPoint("BOTTOMRIGHT", -8, 8) - line1:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - local x = 0.1 * 14/17 - line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) - - local line2 = sizer_se:CreateTexture(nil, "BACKGROUND") - line2:SetWidth(8) - line2:SetHeight(8) - line2:SetPoint("BOTTOMRIGHT", -8, 8) - line2:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - x = 0.1 * 8/17 - line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) - - local sizer_s = CreateFrame("Frame", nil, frame) - sizer_s:SetPoint("BOTTOMRIGHT", -25, 0) - sizer_s:SetPoint("BOTTOMLEFT") - sizer_s:SetHeight(25) - sizer_s:EnableMouse(true) - sizer_s:SetScript("OnMouseDown", SizerS_OnMouseDown) - sizer_s:SetScript("OnMouseUp", MoverSizer_OnMouseUp) - - local sizer_e = CreateFrame("Frame", nil, frame) - sizer_e:SetPoint("BOTTOMRIGHT", 0, 25) - sizer_e:SetPoint("TOPRIGHT") - sizer_e:SetWidth(25) - sizer_e:EnableMouse(true) - sizer_e:SetScript("OnMouseDown", SizerE_OnMouseDown) - sizer_e:SetScript("OnMouseUp", MoverSizer_OnMouseUp) - - --Container Support - local content = CreateFrame("Frame", nil, frame) - content:SetPoint("TOPLEFT", 17, -27) - content:SetPoint("BOTTOMRIGHT", -17, 40) - - local widget = { - localstatus = {}, - titletext = titletext, - statustext = statustext, - titlebg = titlebg, - sizer_se = sizer_se, - sizer_s = sizer_s, - sizer_e = sizer_e, - content = content, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - closebutton.obj, statusbg.obj = widget, widget - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua deleted file mode 100755 index 04b4d5d..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua +++ /dev/null @@ -1,103 +0,0 @@ ---[[----------------------------------------------------------------------------- -InlineGroup Container -Simple container widget that creates a visible "box" with an optional title. --------------------------------------------------------------------------------]] -local Type, Version = "InlineGroup", 22 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetWidth(300) - self:SetHeight(100) - self:SetTitle("") - end, - - -- ["OnRelease"] = nil, - - ["SetTitle"] = function(self,title) - self.titletext:SetText(title) - end, - - - ["LayoutFinished"] = function(self, width, height) - if self.noAutoHeight then return end - self:SetHeight((height or 0) + 40) - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local contentwidth = width - 20 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - 20 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local PaneBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 5, bottom = 3 } -} - -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - - local titletext = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") - titletext:SetPoint("TOPLEFT", 14, 0) - titletext:SetPoint("TOPRIGHT", -14, 0) - titletext:SetJustifyH("LEFT") - titletext:SetHeight(18) - - local border = CreateFrame("Frame", nil, frame, "BackdropTemplate") - border:SetPoint("TOPLEFT", 0, -17) - border:SetPoint("BOTTOMRIGHT", -1, 3) - border:SetBackdrop(PaneBackdrop) - border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) - border:SetBackdropBorderColor(0.4, 0.4, 0.4) - - --Container Support - local content = CreateFrame("Frame", nil, border) - content:SetPoint("TOPLEFT", 10, -10) - content:SetPoint("BOTTOMRIGHT", -10, 10) - - local widget = { - frame = frame, - content = content, - titletext = titletext, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua deleted file mode 100755 index be6052f..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua +++ /dev/null @@ -1,215 +0,0 @@ ---[[----------------------------------------------------------------------------- -ScrollFrame Container -Plain container that scrolls its content and doesn't grow in height. --------------------------------------------------------------------------------]] -local Type, Version = "ScrollFrame", 26 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs, assert, type = pairs, assert, type -local min, max, floor = math.min, math.max, math.floor - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function FixScrollOnUpdate(frame) - frame:SetScript("OnUpdate", nil) - frame.obj:FixScroll() -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function ScrollFrame_OnMouseWheel(frame, value) - frame.obj:MoveScroll(value) -end - -local function ScrollFrame_OnSizeChanged(frame) - frame:SetScript("OnUpdate", FixScrollOnUpdate) -end - -local function ScrollBar_OnScrollValueChanged(frame, value) - frame.obj:SetScroll(value) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetScroll(0) - self.scrollframe:SetScript("OnUpdate", FixScrollOnUpdate) - end, - - ["OnRelease"] = function(self) - self.status = nil - for k in pairs(self.localstatus) do - self.localstatus[k] = nil - end - self.scrollframe:SetPoint("BOTTOMRIGHT") - self.scrollbar:Hide() - self.scrollBarShown = nil - self.content.height, self.content.width, self.content.original_width = nil, nil, nil - end, - - ["SetScroll"] = function(self, value) - local status = self.status or self.localstatus - local viewheight = self.scrollframe:GetHeight() - local height = self.content:GetHeight() - local offset - - if viewheight > height then - offset = 0 - else - offset = floor((height - viewheight) / 1000.0 * value) - end - self.content:ClearAllPoints() - self.content:SetPoint("TOPLEFT", 0, offset) - self.content:SetPoint("TOPRIGHT", 0, offset) - status.offset = offset - status.scrollvalue = value - end, - - ["MoveScroll"] = function(self, value) - local status = self.status or self.localstatus - local height, viewheight = self.scrollframe:GetHeight(), self.content:GetHeight() - - if self.scrollBarShown then - local diff = height - viewheight - local delta = 1 - if value < 0 then - delta = -1 - end - self.scrollbar:SetValue(min(max(status.scrollvalue + delta*(1000/(diff/45)),0), 1000)) - end - end, - - ["FixScroll"] = function(self) - if self.updateLock then return end - self.updateLock = true - local status = self.status or self.localstatus - local height, viewheight = self.scrollframe:GetHeight(), self.content:GetHeight() - local offset = status.offset or 0 - -- Give us a margin of error of 2 pixels to stop some conditions that i would blame on floating point inaccuracys - -- No-one is going to miss 2 pixels at the bottom of the frame, anyhow! - if viewheight < height + 2 then - if self.scrollBarShown then - self.scrollBarShown = nil - self.scrollbar:Hide() - self.scrollbar:SetValue(0) - self.scrollframe:SetPoint("BOTTOMRIGHT") - if self.content.original_width then - self.content.width = self.content.original_width - end - self:DoLayout() - end - else - if not self.scrollBarShown then - self.scrollBarShown = true - self.scrollbar:Show() - self.scrollframe:SetPoint("BOTTOMRIGHT", -20, 0) - if self.content.original_width then - self.content.width = self.content.original_width - 20 - end - self:DoLayout() - end - local value = (offset / (viewheight - height) * 1000) - if value > 1000 then value = 1000 end - self.scrollbar:SetValue(value) - self:SetScroll(value) - if value < 1000 then - self.content:ClearAllPoints() - self.content:SetPoint("TOPLEFT", 0, offset) - self.content:SetPoint("TOPRIGHT", 0, offset) - status.offset = offset - end - end - self.updateLock = nil - end, - - ["LayoutFinished"] = function(self, width, height) - self.content:SetHeight(height or 0 + 20) - - -- update the scrollframe - self:FixScroll() - - -- schedule another update when everything has "settled" - self.scrollframe:SetScript("OnUpdate", FixScrollOnUpdate) - end, - - ["SetStatusTable"] = function(self, status) - assert(type(status) == "table") - self.status = status - if not status.scrollvalue then - status.scrollvalue = 0 - end - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - content.width = width - (self.scrollBarShown and 20 or 0) - content.original_width = width - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - content.height = height - end -} ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - local num = AceGUI:GetNextWidgetNum(Type) - - local scrollframe = CreateFrame("ScrollFrame", nil, frame) - scrollframe:SetPoint("TOPLEFT") - scrollframe:SetPoint("BOTTOMRIGHT") - scrollframe:EnableMouseWheel(true) - scrollframe:SetScript("OnMouseWheel", ScrollFrame_OnMouseWheel) - scrollframe:SetScript("OnSizeChanged", ScrollFrame_OnSizeChanged) - - local scrollbar = CreateFrame("Slider", ("AceConfigDialogScrollFrame%dScrollBar"):format(num), scrollframe, "UIPanelScrollBarTemplate") - scrollbar:SetPoint("TOPLEFT", scrollframe, "TOPRIGHT", 4, -16) - scrollbar:SetPoint("BOTTOMLEFT", scrollframe, "BOTTOMRIGHT", 4, 16) - scrollbar:SetMinMaxValues(0, 1000) - scrollbar:SetValueStep(1) - scrollbar:SetValue(0) - scrollbar:SetWidth(16) - scrollbar:Hide() - -- set the script as the last step, so it doesn't fire yet - scrollbar:SetScript("OnValueChanged", ScrollBar_OnScrollValueChanged) - - local scrollbg = scrollbar:CreateTexture(nil, "BACKGROUND") - scrollbg:SetAllPoints(scrollbar) - scrollbg:SetColorTexture(0, 0, 0, 0.4) - - --Container Support - local content = CreateFrame("Frame", nil, scrollframe) - content:SetPoint("TOPLEFT") - content:SetPoint("TOPRIGHT") - content:SetHeight(400) - scrollframe:SetScrollChild(content) - - local widget = { - localstatus = { scrollvalue = 0 }, - scrollframe = scrollframe, - scrollbar = scrollbar, - content = content, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - scrollframe.obj, scrollbar.obj = widget, widget - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua deleted file mode 100755 index 6e23abc..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-SimpleGroup.lua +++ /dev/null @@ -1,69 +0,0 @@ ---[[----------------------------------------------------------------------------- -SimpleGroup Container -Simple container widget that just groups widgets. --------------------------------------------------------------------------------]] -local Type, Version = "SimpleGroup", 20 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetWidth(300) - self:SetHeight(100) - end, - - -- ["OnRelease"] = nil, - - ["LayoutFinished"] = function(self, width, height) - if self.noAutoHeight then return end - self:SetHeight(height or 0) - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - content:SetWidth(width) - content.width = width - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - content:SetHeight(height) - content.height = height - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - - --Container Support - local content = CreateFrame("Frame", nil, frame) - content:SetPoint("TOPLEFT") - content:SetPoint("BOTTOMRIGHT") - - local widget = { - frame = frame, - content = content, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua deleted file mode 100755 index 8a5756f..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua +++ /dev/null @@ -1,535 +0,0 @@ ---[[----------------------------------------------------------------------------- -TabGroup Container -Container that uses tabs on top to switch between groups. --------------------------------------------------------------------------------]] -local Type, Version = "TabGroup", 38 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs, ipairs, assert, type, wipe = pairs, ipairs, assert, type, table.wipe - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame, UIParent = CreateFrame, UIParent -local _G = _G - --- local upvalue storage used by BuildTabs -local widths = {} -local rowwidths = {} -local rowends = {} - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] - -local function PanelTemplates_TabResize(tab, padding, absoluteSize, minWidth, maxWidth, absoluteTextSize) - local tabName = tab:GetName(); - - local buttonMiddle = tab.Middle or tab.middleTexture or _G[tabName.."Middle"]; - local buttonMiddleDisabled = tab.MiddleDisabled or (tabName and _G[tabName.."MiddleDisabled"]); - local left = tab.Left or tab.leftTexture or _G[tabName.."Left"]; - local sideWidths = 2 * left:GetWidth(); - local tabText = tab.Text or _G[tab:GetName().."Text"]; - local highlightTexture = tab.HighlightTexture or (tabName and _G[tabName.."HighlightTexture"]); - - local width, tabWidth; - local textWidth; - if ( absoluteTextSize ) then - textWidth = absoluteTextSize; - else - tabText:SetWidth(0); - textWidth = tabText:GetWidth(); - end - -- If there's an absolute size specified then use it - if ( absoluteSize ) then - if ( absoluteSize < sideWidths) then - width = 1; - tabWidth = sideWidths - else - width = absoluteSize - sideWidths; - tabWidth = absoluteSize - end - tabText:SetWidth(width); - else - -- Otherwise try to use padding - if ( padding ) then - width = textWidth + padding; - else - width = textWidth + 24; - end - -- If greater than the maxWidth then cap it - if ( maxWidth and width > maxWidth ) then - if ( padding ) then - width = maxWidth + padding; - else - width = maxWidth + 24; - end - tabText:SetWidth(width); - else - tabText:SetWidth(0); - end - if (minWidth and width < minWidth) then - width = minWidth; - end - tabWidth = width + sideWidths; - end - - if ( buttonMiddle ) then - buttonMiddle:SetWidth(width); - end - if ( buttonMiddleDisabled ) then - buttonMiddleDisabled:SetWidth(width); - end - - tab:SetWidth(tabWidth); - - if ( highlightTexture ) then - highlightTexture:SetWidth(tabWidth); - end -end - -local function PanelTemplates_DeselectTab(tab) - local name = tab:GetName(); - - local left = tab.Left or _G[name.."Left"]; - local middle = tab.Middle or _G[name.."Middle"]; - local right = tab.Right or _G[name.."Right"]; - left:Show(); - middle:Show(); - right:Show(); - --tab:UnlockHighlight(); - tab:Enable(); - local text = tab.Text or _G[name.."Text"]; - text:SetPoint("CENTER", tab, "CENTER", (tab.deselectedTextX or 0), (tab.deselectedTextY or 2)); - - local leftDisabled = tab.LeftDisabled or _G[name.."LeftDisabled"]; - local middleDisabled = tab.MiddleDisabled or _G[name.."MiddleDisabled"]; - local rightDisabled = tab.RightDisabled or _G[name.."RightDisabled"]; - leftDisabled:Hide(); - middleDisabled:Hide(); - rightDisabled:Hide(); -end - -local function PanelTemplates_SelectTab(tab) - local name = tab:GetName(); - - local left = tab.Left or _G[name.."Left"]; - local middle = tab.Middle or _G[name.."Middle"]; - local right = tab.Right or _G[name.."Right"]; - left:Hide(); - middle:Hide(); - right:Hide(); - --tab:LockHighlight(); - tab:Disable(); - tab:SetDisabledFontObject(GameFontHighlightSmall); - local text = tab.Text or _G[name.."Text"]; - text:SetPoint("CENTER", tab, "CENTER", (tab.selectedTextX or 0), (tab.selectedTextY or -3)); - - local leftDisabled = tab.LeftDisabled or _G[name.."LeftDisabled"]; - local middleDisabled = tab.MiddleDisabled or _G[name.."MiddleDisabled"]; - local rightDisabled = tab.RightDisabled or _G[name.."RightDisabled"]; - leftDisabled:Show(); - middleDisabled:Show(); - rightDisabled:Show(); - - if GameTooltip:IsOwned(tab) then - GameTooltip:Hide(); - end -end - -local function PanelTemplates_SetDisabledTabState(tab) - local name = tab:GetName(); - local left = tab.Left or _G[name.."Left"]; - local middle = tab.Middle or _G[name.."Middle"]; - local right = tab.Right or _G[name.."Right"]; - left:Show(); - middle:Show(); - right:Show(); - --tab:UnlockHighlight(); - tab:Disable(); - tab.text = tab:GetText(); - -- Gray out text - tab:SetDisabledFontObject(GameFontDisableSmall); - local leftDisabled = tab.LeftDisabled or _G[name.."LeftDisabled"]; - local middleDisabled = tab.MiddleDisabled or _G[name.."MiddleDisabled"]; - local rightDisabled = tab.RightDisabled or _G[name.."RightDisabled"]; - leftDisabled:Hide(); - middleDisabled:Hide(); - rightDisabled:Hide(); -end - -local function UpdateTabLook(frame) - if frame.disabled then - PanelTemplates_SetDisabledTabState(frame) - elseif frame.selected then - PanelTemplates_SelectTab(frame) - else - PanelTemplates_DeselectTab(frame) - end -end - -local function Tab_SetText(frame, text) - frame:_SetText(text) - local width = frame.obj.frame.width or frame.obj.frame:GetWidth() or 0 - PanelTemplates_TabResize(frame, 0, nil, nil, width, frame:GetFontString():GetStringWidth()) -end - -local function Tab_SetSelected(frame, selected) - frame.selected = selected - UpdateTabLook(frame) -end - -local function Tab_SetDisabled(frame, disabled) - frame.disabled = disabled - UpdateTabLook(frame) -end - -local function BuildTabsOnUpdate(frame) - local self = frame.obj - self:BuildTabs() - frame:SetScript("OnUpdate", nil) -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Tab_OnClick(frame) - if not (frame.selected or frame.disabled) then - PlaySound(841) -- SOUNDKIT.IG_CHARACTER_INFO_TAB - frame.obj:SelectTab(frame.value) - end -end - -local function Tab_OnEnter(frame) - local self = frame.obj - self:Fire("OnTabEnter", self.tabs[frame.id].value, frame) -end - -local function Tab_OnLeave(frame) - local self = frame.obj - self:Fire("OnTabLeave", self.tabs[frame.id].value, frame) -end - -local function Tab_OnShow(frame) - _G[frame:GetName().."HighlightTexture"]:SetWidth(frame:GetTextWidth() + 30) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetTitle() - end, - - ["OnRelease"] = function(self) - self.status = nil - for k in pairs(self.localstatus) do - self.localstatus[k] = nil - end - self.tablist = nil - for _, tab in pairs(self.tabs) do - tab:Hide() - end - end, - - ["CreateTab"] = function(self, id) - local tabname = ("AceGUITabGroup%dTab%d"):format(self.num, id) - local tab = CreateFrame("Button", tabname, self.border) - tab:SetSize(115, 24) - tab.deselectedTextY = -3 - tab.selectedTextY = -2 - - tab.LeftDisabled = tab:CreateTexture(tabname .. "LeftDisabled", "BORDER") - tab.LeftDisabled:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-ActiveTab") - tab.LeftDisabled:SetSize(20, 24) - tab.LeftDisabled:SetPoint("BOTTOMLEFT", 0, -3) - tab.LeftDisabled:SetTexCoord(0, 0.15625, 0, 1.0) - - tab.MiddleDisabled = tab:CreateTexture(tabname .. "MiddleDisabled", "BORDER") - tab.MiddleDisabled:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-ActiveTab") - tab.MiddleDisabled:SetSize(88, 24) - tab.MiddleDisabled:SetPoint("LEFT", tab.LeftDisabled, "RIGHT") - tab.MiddleDisabled:SetTexCoord(0.15625, 0.84375, 0, 1.0) - - tab.RightDisabled = tab:CreateTexture(tabname .. "RightDisabled", "BORDER") - tab.RightDisabled:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-ActiveTab") - tab.RightDisabled:SetSize(20, 24) - tab.RightDisabled:SetPoint("LEFT", tab.MiddleDisabled, "RIGHT") - tab.RightDisabled:SetTexCoord(0.84375, 1.0, 0, 1.0) - - tab.Left = tab:CreateTexture(tabname .. "Left", "BORDER") - tab.Left:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-InActiveTab") - tab.Left:SetSize(20, 24) - tab.Left:SetPoint("TOPLEFT") - tab.Left:SetTexCoord(0, 0.15625, 0, 1.0) - - tab.Middle = tab:CreateTexture(tabname .. "Middle", "BORDER") - tab.Middle:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-InActiveTab") - tab.Middle:SetSize(88, 24) - tab.Middle:SetPoint("LEFT", tab.Left, "RIGHT") - tab.Middle:SetTexCoord(0.15625, 0.84375, 0, 1.0) - - tab.Right = tab:CreateTexture(tabname .. "Right", "BORDER") - tab.Right:SetTexture("Interface\\OptionsFrame\\UI-OptionsFrame-InActiveTab") - tab.Right:SetSize(20, 24) - tab.Right:SetPoint("LEFT", tab.Middle, "RIGHT") - tab.Right:SetTexCoord(0.84375, 1.0, 0, 1.0) - - tab.Text = tab:CreateFontString(tabname .. "Text") - tab:SetFontString(tab.Text) - - tab:SetNormalFontObject(GameFontNormalSmall) - tab:SetHighlightFontObject(GameFontHighlightSmall) - tab:SetDisabledFontObject(GameFontHighlightSmall) - tab:SetHighlightTexture("Interface\\PaperDollInfoFrame\\UI-Character-Tab-Highlight", "ADD") - tab.HighlightTexture = tab:GetHighlightTexture() - tab.HighlightTexture:ClearAllPoints() - tab.HighlightTexture:SetPoint("LEFT", tab, "LEFT", 10, -4) - tab.HighlightTexture:SetPoint("RIGHT", tab, "RIGHT", -10, -4) - _G[tabname .. "HighlightTexture"] = tab.HighlightTexture - - tab.obj = self - tab.id = id - - tab.text = tab.Text -- compat - tab.text:ClearAllPoints() - tab.text:SetPoint("LEFT", 14, -3) - tab.text:SetPoint("RIGHT", -12, -3) - - tab:SetScript("OnClick", Tab_OnClick) - tab:SetScript("OnEnter", Tab_OnEnter) - tab:SetScript("OnLeave", Tab_OnLeave) - tab:SetScript("OnShow", Tab_OnShow) - - tab._SetText = tab.SetText - tab.SetText = Tab_SetText - tab.SetSelected = Tab_SetSelected - tab.SetDisabled = Tab_SetDisabled - - return tab - end, - - ["SetTitle"] = function(self, text) - self.titletext:SetText(text or "") - if text and text ~= "" then - self.alignoffset = 25 - else - self.alignoffset = 18 - end - self:BuildTabs() - end, - - ["SetStatusTable"] = function(self, status) - assert(type(status) == "table") - self.status = status - end, - - ["SelectTab"] = function(self, value) - local status = self.status or self.localstatus - local found - for i, v in ipairs(self.tabs) do - if v.value == value then - v:SetSelected(true) - found = true - else - v:SetSelected(false) - end - end - status.selected = value - if found then - self:Fire("OnGroupSelected",value) - end - end, - - ["SetTabs"] = function(self, tabs) - self.tablist = tabs - self:BuildTabs() - end, - - - ["BuildTabs"] = function(self) - local hastitle = (self.titletext:GetText() and self.titletext:GetText() ~= "") - local tablist = self.tablist - local tabs = self.tabs - - if not tablist then return end - - local width = self.frame.width or self.frame:GetWidth() or 0 - - wipe(widths) - wipe(rowwidths) - wipe(rowends) - - --Place Text into tabs and get thier initial width - for i, v in ipairs(tablist) do - local tab = tabs[i] - if not tab then - tab = self:CreateTab(i) - tabs[i] = tab - end - - tab:Show() - tab:SetText(v.text) - tab:SetDisabled(v.disabled) - tab.value = v.value - - widths[i] = tab:GetWidth() - 6 --tabs are anchored 10 pixels from the right side of the previous one to reduce spacing, but add a fixed 4px padding for the text - end - - for i = (#tablist)+1, #tabs, 1 do - tabs[i]:Hide() - end - - --First pass, find the minimum number of rows needed to hold all tabs and the initial tab layout - local numtabs = #tablist - local numrows = 1 - local usedwidth = 0 - - for i = 1, #tablist do - --If this is not the first tab of a row and there isn't room for it - if usedwidth ~= 0 and (width - usedwidth - widths[i]) < 0 then - rowwidths[numrows] = usedwidth + 10 --first tab in each row takes up an extra 10px - rowends[numrows] = i - 1 - numrows = numrows + 1 - usedwidth = 0 - end - usedwidth = usedwidth + widths[i] - end - rowwidths[numrows] = usedwidth + 10 --first tab in each row takes up an extra 10px - rowends[numrows] = #tablist - - --Fix for single tabs being left on the last row, move a tab from the row above if applicable - if numrows > 1 then - --if the last row has only one tab - if rowends[numrows-1] == numtabs-1 then - --if there are more than 2 tabs in the 2nd last row - if (numrows == 2 and rowends[numrows-1] > 2) or (rowends[numrows] - rowends[numrows-1] > 2) then - --move 1 tab from the second last row to the last, if there is enough space - if (rowwidths[numrows] + widths[numtabs-1]) <= width then - rowends[numrows-1] = rowends[numrows-1] - 1 - rowwidths[numrows] = rowwidths[numrows] + widths[numtabs-1] - rowwidths[numrows-1] = rowwidths[numrows-1] - widths[numtabs-1] - end - end - end - end - - --anchor the rows as defined and resize tabs to fill thier row - local starttab = 1 - for row, endtab in ipairs(rowends) do - local first = true - for tabno = starttab, endtab do - local tab = tabs[tabno] - tab:ClearAllPoints() - if first then - tab:SetPoint("TOPLEFT", self.frame, "TOPLEFT", 0, -(hastitle and 14 or 7)-(row-1)*20 ) - first = false - else - tab:SetPoint("LEFT", tabs[tabno-1], "RIGHT", -10, 0) - end - end - - -- equal padding for each tab to fill the available width, - -- if the used space is above 75% already - -- the 18 pixel is the typical width of a scrollbar, so we can have a tab group inside a scrolling frame, - -- and not have the tabs jump around funny when switching between tabs that need scrolling and those that don't - local padding = 0 - if not (numrows == 1 and rowwidths[1] < width*0.75 - 18) then - padding = (width - rowwidths[row]) / (endtab - starttab+1) - end - - for i = starttab, endtab do - PanelTemplates_TabResize(tabs[i], padding + 4, nil, nil, width, tabs[i]:GetFontString():GetStringWidth()) - end - starttab = endtab + 1 - end - - self.borderoffset = (hastitle and 17 or 10)+((numrows)*20) - self.border:SetPoint("TOPLEFT", 1, -self.borderoffset) - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local contentwidth = width - 60 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - self:BuildTabs(self) - self.frame:SetScript("OnUpdate", BuildTabsOnUpdate) - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - (self.borderoffset + 23) - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end, - - ["LayoutFinished"] = function(self, width, height) - if self.noAutoHeight then return end - self:SetHeight((height or 0) + (self.borderoffset + 23)) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local PaneBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 5, bottom = 3 } -} - -local function Constructor() - local num = AceGUI:GetNextWidgetNum(Type) - local frame = CreateFrame("Frame",nil,UIParent) - frame:SetHeight(100) - frame:SetWidth(100) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - - local titletext = frame:CreateFontString(nil,"OVERLAY","GameFontNormal") - titletext:SetPoint("TOPLEFT", 14, 0) - titletext:SetPoint("TOPRIGHT", -14, 0) - titletext:SetJustifyH("LEFT") - titletext:SetHeight(18) - titletext:SetText("") - - local border = CreateFrame("Frame", nil, frame, "BackdropTemplate") - border:SetPoint("TOPLEFT", 1, -27) - border:SetPoint("BOTTOMRIGHT", -1, 3) - border:SetBackdrop(PaneBackdrop) - border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) - border:SetBackdropBorderColor(0.4, 0.4, 0.4) - - local content = CreateFrame("Frame", nil, border) - content:SetPoint("TOPLEFT", 10, -7) - content:SetPoint("BOTTOMRIGHT", -10, 7) - - local widget = { - num = num, - frame = frame, - localstatus = {}, - alignoffset = 18, - titletext = titletext, - border = border, - borderoffset = 27, - tabs = {}, - content = content, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua deleted file mode 100755 index ca9b2df..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua +++ /dev/null @@ -1,719 +0,0 @@ ---[[----------------------------------------------------------------------------- -TreeGroup Container -Container that uses a tree control to switch between groups. --------------------------------------------------------------------------------]] -local Type, Version = "TreeGroup", 47 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local next, pairs, ipairs, assert, type = next, pairs, ipairs, assert, type -local math_min, math_max, floor = math.min, math.max, math.floor -local select, tremove, unpack, tconcat = select, table.remove, unpack, table.concat - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - --- Recycling functions -local new, del -do - local pool = setmetatable({},{__mode='k'}) - function new() - local t = next(pool) - if t then - pool[t] = nil - return t - else - return {} - end - end - function del(t) - for k in pairs(t) do - t[k] = nil - end - pool[t] = true - end -end - -local DEFAULT_TREE_WIDTH = 175 -local DEFAULT_TREE_SIZABLE = true - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function GetButtonUniqueValue(line) - local parent = line.parent - if parent and parent.value then - return GetButtonUniqueValue(parent).."\001"..line.value - else - return line.value - end -end - -local function UpdateButton(button, treeline, selected, canExpand, isExpanded) - local self = button.obj - local toggle = button.toggle - local text = treeline.text or "" - local icon = treeline.icon - local iconCoords = treeline.iconCoords - local level = treeline.level - local value = treeline.value - local uniquevalue = treeline.uniquevalue - local disabled = treeline.disabled - - button.treeline = treeline - button.value = value - button.uniquevalue = uniquevalue - if selected then - button:LockHighlight() - button.selected = true - else - button:UnlockHighlight() - button.selected = false - end - button.level = level - if ( level == 1 ) then - button:SetNormalFontObject("GameFontNormal") - button:SetHighlightFontObject("GameFontHighlight") - button.text:SetPoint("LEFT", (icon and 16 or 0) + 8, 2) - else - button:SetNormalFontObject("GameFontHighlightSmall") - button:SetHighlightFontObject("GameFontHighlightSmall") - button.text:SetPoint("LEFT", (icon and 16 or 0) + 8 * level, 2) - end - - if disabled then - button:EnableMouse(false) - button.text:SetText("|cff808080"..text..FONT_COLOR_CODE_CLOSE) - else - button.text:SetText(text) - button:EnableMouse(true) - end - - if icon then - button.icon:SetTexture(icon) - button.icon:SetPoint("LEFT", 8 * level, (level == 1) and 0 or 1) - else - button.icon:SetTexture(nil) - end - - if iconCoords then - button.icon:SetTexCoord(unpack(iconCoords)) - else - button.icon:SetTexCoord(0, 1, 0, 1) - end - - if canExpand then - if not isExpanded then - toggle:SetNormalTexture(130838) -- Interface\\Buttons\\UI-PlusButton-UP - toggle:SetPushedTexture(130836) -- Interface\\Buttons\\UI-PlusButton-DOWN - else - toggle:SetNormalTexture(130821) -- Interface\\Buttons\\UI-MinusButton-UP - toggle:SetPushedTexture(130820) -- Interface\\Buttons\\UI-MinusButton-DOWN - end - toggle:Show() - else - toggle:Hide() - end -end - -local function ShouldDisplayLevel(tree) - local result = false - for k, v in ipairs(tree) do - if v.children == nil and v.visible ~= false then - result = true - elseif v.children then - result = result or ShouldDisplayLevel(v.children) - end - if result then return result end - end - return false -end - -local function addLine(self, v, tree, level, parent) - local line = new() - line.value = v.value - line.text = v.text - line.icon = v.icon - line.iconCoords = v.iconCoords - line.disabled = v.disabled - line.tree = tree - line.level = level - line.parent = parent - line.visible = v.visible - line.uniquevalue = GetButtonUniqueValue(line) - if v.children then - line.hasChildren = true - else - line.hasChildren = nil - end - self.lines[#self.lines+1] = line - return line -end - ---fire an update after one frame to catch the treeframes height -local function FirstFrameUpdate(frame) - local self = frame.obj - frame:SetScript("OnUpdate", nil) - self:RefreshTree(nil, true) -end - -local function BuildUniqueValue(...) - local n = select('#', ...) - if n == 1 then - return ... - else - return (...).."\001"..BuildUniqueValue(select(2,...)) - end -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Expand_OnClick(frame) - local button = frame.button - local self = button.obj - local status = (self.status or self.localstatus).groups - status[button.uniquevalue] = not status[button.uniquevalue] - self:RefreshTree() -end - -local function Button_OnClick(frame) - local self = frame.obj - self:Fire("OnClick", frame.uniquevalue, frame.selected) - if not frame.selected then - self:SetSelected(frame.uniquevalue) - frame.selected = true - frame:LockHighlight() - self:RefreshTree() - end - AceGUI:ClearFocus() -end - -local function Button_OnDoubleClick(button) - local self = button.obj - local status = (self.status or self.localstatus).groups - status[button.uniquevalue] = not status[button.uniquevalue] - self:RefreshTree() -end - -local function Button_OnEnter(frame) - local self = frame.obj - self:Fire("OnButtonEnter", frame.uniquevalue, frame) - - if self.enabletooltips then - local tooltip = AceGUI.tooltip - tooltip:SetOwner(frame, "ANCHOR_NONE") - tooltip:ClearAllPoints() - tooltip:SetPoint("LEFT",frame,"RIGHT") - tooltip:SetText(frame.text:GetText() or "", 1, .82, 0, true) - - tooltip:Show() - end -end - -local function Button_OnLeave(frame) - local self = frame.obj - self:Fire("OnButtonLeave", frame.uniquevalue, frame) - - if self.enabletooltips then - AceGUI.tooltip:Hide() - end -end - -local function OnScrollValueChanged(frame, value) - if frame.obj.noupdate then return end - local self = frame.obj - local status = self.status or self.localstatus - status.scrollvalue = floor(value + 0.5) - self:RefreshTree() - AceGUI:ClearFocus() -end - -local function Tree_OnSizeChanged(frame) - frame.obj:RefreshTree() -end - -local function Tree_OnMouseWheel(frame, delta) - local self = frame.obj - if self.showscroll then - local scrollbar = self.scrollbar - local min, max = scrollbar:GetMinMaxValues() - local value = scrollbar:GetValue() - local newvalue = math_min(max,math_max(min,value - delta)) - if value ~= newvalue then - scrollbar:SetValue(newvalue) - end - end -end - -local function Dragger_OnLeave(frame) - frame:SetBackdropColor(1, 1, 1, 0) -end - -local function Dragger_OnEnter(frame) - frame:SetBackdropColor(1, 1, 1, 0.8) -end - -local function Dragger_OnMouseDown(frame) - local treeframe = frame:GetParent() - treeframe:StartSizing("RIGHT") -end - -local function Dragger_OnMouseUp(frame) - local treeframe = frame:GetParent() - local self = treeframe.obj - local treeframeParent = treeframe:GetParent() - treeframe:StopMovingOrSizing() - --treeframe:SetScript("OnUpdate", nil) - treeframe:SetUserPlaced(false) - --Without this :GetHeight will get stuck on the current height, causing the tree contents to not resize - treeframe:SetHeight(0) - treeframe:ClearAllPoints() - treeframe:SetPoint("TOPLEFT", treeframeParent, "TOPLEFT",0,0) - treeframe:SetPoint("BOTTOMLEFT", treeframeParent, "BOTTOMLEFT",0,0) - - local status = self.status or self.localstatus - status.treewidth = treeframe:GetWidth() - - treeframe.obj:Fire("OnTreeResize",treeframe:GetWidth()) - -- recalculate the content width - treeframe.obj:OnWidthSet(status.fullwidth) - -- update the layout of the content - treeframe.obj:DoLayout() -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetTreeWidth(DEFAULT_TREE_WIDTH, DEFAULT_TREE_SIZABLE) - self:EnableButtonTooltips(true) - self.frame:SetScript("OnUpdate", FirstFrameUpdate) - end, - - ["OnRelease"] = function(self) - self.status = nil - self.tree = nil - self.frame:SetScript("OnUpdate", nil) - for k, v in pairs(self.localstatus) do - if k == "groups" then - for k2 in pairs(v) do - v[k2] = nil - end - else - self.localstatus[k] = nil - end - end - self.localstatus.scrollvalue = 0 - self.localstatus.treewidth = DEFAULT_TREE_WIDTH - self.localstatus.treesizable = DEFAULT_TREE_SIZABLE - end, - - ["EnableButtonTooltips"] = function(self, enable) - self.enabletooltips = enable - end, - - ["CreateButton"] = function(self) - local num = AceGUI:GetNextWidgetNum("TreeGroupButton") - local button = CreateFrame("Button", ("AceGUI30TreeButton%d"):format(num), self.treeframe, "OptionsListButtonTemplate") - button.obj = self - - local icon = button:CreateTexture(nil, "OVERLAY") - icon:SetWidth(14) - icon:SetHeight(14) - button.icon = icon - - button:SetScript("OnClick",Button_OnClick) - button:SetScript("OnDoubleClick", Button_OnDoubleClick) - button:SetScript("OnEnter",Button_OnEnter) - button:SetScript("OnLeave",Button_OnLeave) - - button.toggle.button = button - button.toggle:SetScript("OnClick",Expand_OnClick) - - button.text:SetHeight(14) -- Prevents text wrapping - - return button - end, - - ["SetStatusTable"] = function(self, status) - assert(type(status) == "table") - self.status = status - if not status.groups then - status.groups = {} - end - if not status.scrollvalue then - status.scrollvalue = 0 - end - if not status.treewidth then - status.treewidth = DEFAULT_TREE_WIDTH - end - if status.treesizable == nil then - status.treesizable = DEFAULT_TREE_SIZABLE - end - self:SetTreeWidth(status.treewidth,status.treesizable) - self:RefreshTree() - end, - - --sets the tree to be displayed - ["SetTree"] = function(self, tree, filter) - self.filter = filter - if tree then - assert(type(tree) == "table") - end - self.tree = tree - self:RefreshTree() - end, - - ["BuildLevel"] = function(self, tree, level, parent) - local groups = (self.status or self.localstatus).groups - - for i, v in ipairs(tree) do - if v.children then - if not self.filter or ShouldDisplayLevel(v.children) then - local line = addLine(self, v, tree, level, parent) - if groups[line.uniquevalue] then - self:BuildLevel(v.children, level+1, line) - end - end - elseif v.visible ~= false or not self.filter then - addLine(self, v, tree, level, parent) - end - end - end, - - ["RefreshTree"] = function(self,scrollToSelection,fromOnUpdate) - local buttons = self.buttons - local lines = self.lines - - for i, v in ipairs(buttons) do - v:Hide() - end - while lines[1] do - local t = tremove(lines) - for k in pairs(t) do - t[k] = nil - end - del(t) - end - - if not self.tree then return end - --Build the list of visible entries from the tree and status tables - local status = self.status or self.localstatus - local groupstatus = status.groups - local tree = self.tree - - local treeframe = self.treeframe - - status.scrollToSelection = status.scrollToSelection or scrollToSelection -- needs to be cached in case the control hasn't been drawn yet (code bails out below) - - self:BuildLevel(tree, 1) - - local numlines = #lines - - local maxlines = (floor(((self.treeframe:GetHeight()or 0) - 20 ) / 18)) - if maxlines <= 0 then return end - - if self.frame:GetParent() == UIParent and not fromOnUpdate then - self.frame:SetScript("OnUpdate", FirstFrameUpdate) - return - end - - local first, last - - scrollToSelection = status.scrollToSelection - status.scrollToSelection = nil - - if numlines <= maxlines then - --the whole tree fits in the frame - status.scrollvalue = 0 - self:ShowScroll(false) - first, last = 1, numlines - else - self:ShowScroll(true) - --scrolling will be needed - self.noupdate = true - self.scrollbar:SetMinMaxValues(0, numlines - maxlines) - --check if we are scrolled down too far - if numlines - status.scrollvalue < maxlines then - status.scrollvalue = numlines - maxlines - end - self.noupdate = nil - first, last = status.scrollvalue+1, status.scrollvalue + maxlines - --show selection? - if scrollToSelection and status.selected then - local show - for i,line in ipairs(lines) do -- find the line number - if line.uniquevalue==status.selected then - show=i - end - end - if not show then - -- selection was deleted or something? - elseif show>=first and show<=last then - -- all good - else - -- scrolling needed! - if show<first then - status.scrollvalue = show-1 - else - status.scrollvalue = show-maxlines - end - first, last = status.scrollvalue+1, status.scrollvalue + maxlines - end - end - if self.scrollbar:GetValue() ~= status.scrollvalue then - self.scrollbar:SetValue(status.scrollvalue) - end - end - - local buttonnum = 1 - for i = first, last do - local line = lines[i] - local button = buttons[buttonnum] - if not button then - button = self:CreateButton() - - buttons[buttonnum] = button - button:SetParent(treeframe) - button:SetFrameLevel(treeframe:GetFrameLevel()+1) - button:ClearAllPoints() - if buttonnum == 1 then - if self.showscroll then - button:SetPoint("TOPRIGHT", -22, -10) - button:SetPoint("TOPLEFT", 0, -10) - else - button:SetPoint("TOPRIGHT", 0, -10) - button:SetPoint("TOPLEFT", 0, -10) - end - else - button:SetPoint("TOPRIGHT", buttons[buttonnum-1], "BOTTOMRIGHT",0,0) - button:SetPoint("TOPLEFT", buttons[buttonnum-1], "BOTTOMLEFT",0,0) - end - end - - UpdateButton(button, line, status.selected == line.uniquevalue, line.hasChildren, groupstatus[line.uniquevalue] ) - button:Show() - buttonnum = buttonnum + 1 - end - - end, - - ["SetSelected"] = function(self, value) - local status = self.status or self.localstatus - if status.selected ~= value then - status.selected = value - self:Fire("OnGroupSelected", value) - end - end, - - ["Select"] = function(self, uniquevalue, ...) - self.filter = false - local status = self.status or self.localstatus - local groups = status.groups - local path = {...} - for i = 1, #path do - groups[tconcat(path, "\001", 1, i)] = true - end - status.selected = uniquevalue - self:RefreshTree(true) - self:Fire("OnGroupSelected", uniquevalue) - end, - - ["SelectByPath"] = function(self, ...) - self:Select(BuildUniqueValue(...), ...) - end, - - ["SelectByValue"] = function(self, uniquevalue) - self:Select(uniquevalue, ("\001"):split(uniquevalue)) - end, - - ["ShowScroll"] = function(self, show) - self.showscroll = show - if show then - self.scrollbar:Show() - if self.buttons[1] then - self.buttons[1]:SetPoint("TOPRIGHT", self.treeframe,"TOPRIGHT",-22,-10) - end - else - self.scrollbar:Hide() - if self.buttons[1] then - self.buttons[1]:SetPoint("TOPRIGHT", self.treeframe,"TOPRIGHT",0,-10) - end - end - end, - - ["OnWidthSet"] = function(self, width) - local content = self.content - local treeframe = self.treeframe - local status = self.status or self.localstatus - status.fullwidth = width - - local contentwidth = width - status.treewidth - 20 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - - local maxtreewidth = math_min(400, width - 50) - - if maxtreewidth > 100 and status.treewidth > maxtreewidth then - self:SetTreeWidth(maxtreewidth, status.treesizable) - end - if treeframe.SetResizeBounds then - treeframe:SetResizeBounds(100, 1, maxtreewidth, 1600) - else - treeframe:SetMaxResize(maxtreewidth, 1600) - end - end, - - ["OnHeightSet"] = function(self, height) - local content = self.content - local contentheight = height - 20 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end, - - ["SetTreeWidth"] = function(self, treewidth, resizable) - if not resizable then - if type(treewidth) == 'number' then - resizable = false - elseif type(treewidth) == 'boolean' then - resizable = treewidth - treewidth = DEFAULT_TREE_WIDTH - else - resizable = false - treewidth = DEFAULT_TREE_WIDTH - end - end - self.treeframe:SetWidth(treewidth) - self.dragger:EnableMouse(resizable) - - local status = self.status or self.localstatus - status.treewidth = treewidth - status.treesizable = resizable - - -- recalculate the content width - if status.fullwidth then - self:OnWidthSet(status.fullwidth) - end - end, - - ["GetTreeWidth"] = function(self) - local status = self.status or self.localstatus - return status.treewidth or DEFAULT_TREE_WIDTH - end, - - ["LayoutFinished"] = function(self, width, height) - if self.noAutoHeight then return end - self:SetHeight((height or 0) + 20) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local PaneBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 5, bottom = 3 } -} - -local DraggerBackdrop = { - bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", - edgeFile = nil, - tile = true, tileSize = 16, edgeSize = 1, - insets = { left = 3, right = 3, top = 7, bottom = 7 } -} - -local function Constructor() - local num = AceGUI:GetNextWidgetNum(Type) - local frame = CreateFrame("Frame", nil, UIParent) - - local treeframe = CreateFrame("Frame", nil, frame, "BackdropTemplate") - treeframe:SetPoint("TOPLEFT") - treeframe:SetPoint("BOTTOMLEFT") - treeframe:SetWidth(DEFAULT_TREE_WIDTH) - treeframe:EnableMouseWheel(true) - treeframe:SetBackdrop(PaneBackdrop) - treeframe:SetBackdropColor(0.1, 0.1, 0.1, 0.5) - treeframe:SetBackdropBorderColor(0.4, 0.4, 0.4) - treeframe:SetResizable(true) - if treeframe.SetResizeBounds then -- WoW 10.0 - treeframe:SetResizeBounds(100, 1, 400, 1600) - else - treeframe:SetMinResize(100, 1) - treeframe:SetMaxResize(400, 1600) - end - treeframe:SetScript("OnUpdate", FirstFrameUpdate) - treeframe:SetScript("OnSizeChanged", Tree_OnSizeChanged) - treeframe:SetScript("OnMouseWheel", Tree_OnMouseWheel) - - local dragger = CreateFrame("Frame", nil, treeframe, "BackdropTemplate") - dragger:SetWidth(8) - dragger:SetPoint("TOP", treeframe, "TOPRIGHT") - dragger:SetPoint("BOTTOM", treeframe, "BOTTOMRIGHT") - dragger:SetBackdrop(DraggerBackdrop) - dragger:SetBackdropColor(1, 1, 1, 0) - dragger:SetScript("OnEnter", Dragger_OnEnter) - dragger:SetScript("OnLeave", Dragger_OnLeave) - dragger:SetScript("OnMouseDown", Dragger_OnMouseDown) - dragger:SetScript("OnMouseUp", Dragger_OnMouseUp) - - local scrollbar = CreateFrame("Slider", ("AceConfigDialogTreeGroup%dScrollBar"):format(num), treeframe, "UIPanelScrollBarTemplate") - scrollbar:SetScript("OnValueChanged", nil) - scrollbar:SetPoint("TOPRIGHT", -10, -26) - scrollbar:SetPoint("BOTTOMRIGHT", -10, 26) - scrollbar:SetMinMaxValues(0,0) - scrollbar:SetValueStep(1) - scrollbar:SetValue(0) - scrollbar:SetWidth(16) - scrollbar:SetScript("OnValueChanged", OnScrollValueChanged) - - local scrollbg = scrollbar:CreateTexture(nil, "BACKGROUND") - scrollbg:SetAllPoints(scrollbar) - scrollbg:SetColorTexture(0,0,0,0.4) - - local border = CreateFrame("Frame", nil, frame, "BackdropTemplate") - border:SetPoint("TOPLEFT", treeframe, "TOPRIGHT") - border:SetPoint("BOTTOMRIGHT") - border:SetBackdrop(PaneBackdrop) - border:SetBackdropColor(0.1, 0.1, 0.1, 0.5) - border:SetBackdropBorderColor(0.4, 0.4, 0.4) - - --Container Support - local content = CreateFrame("Frame", nil, border) - content:SetPoint("TOPLEFT", 10, -10) - content:SetPoint("BOTTOMRIGHT", -10, 10) - - local widget = { - frame = frame, - lines = {}, - levels = {}, - buttons = {}, - hasChildren = {}, - localstatus = { groups = {}, scrollvalue = 0 }, - filter = false, - treeframe = treeframe, - dragger = dragger, - scrollbar = scrollbar, - border = border, - content = content, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - treeframe.obj, dragger.obj, scrollbar.obj = widget, widget, widget - - return AceGUI:RegisterAsContainer(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua deleted file mode 100755 index 5729bfd..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua +++ /dev/null @@ -1,336 +0,0 @@ -local AceGUI = LibStub("AceGUI-3.0") - --- Lua APIs -local pairs, assert, type = pairs, assert, type - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame, UIParent = CreateFrame, UIParent - ----------------- --- Main Frame -- ----------------- ---[[ - Events : - OnClose - -]] -do - local Type = "Window" - local Version = 8 - - local function frameOnShow(this) - this.obj:Fire("OnShow") - end - - local function frameOnClose(this) - this.obj:Fire("OnClose") - end - - local function closeOnClick(this) - PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT - this.obj:Hide() - end - - local function frameOnMouseDown(this) - AceGUI:ClearFocus() - end - - local function titleOnMouseDown(this) - this:GetParent():StartMoving() - AceGUI:ClearFocus() - end - - local function frameOnMouseUp(this) - local frame = this:GetParent() - frame:StopMovingOrSizing() - local self = frame.obj - local status = self.status or self.localstatus - status.width = frame:GetWidth() - status.height = frame:GetHeight() - status.top = frame:GetTop() - status.left = frame:GetLeft() - end - - local function sizerseOnMouseDown(this) - this:GetParent():StartSizing("BOTTOMRIGHT") - AceGUI:ClearFocus() - end - - local function sizersOnMouseDown(this) - this:GetParent():StartSizing("BOTTOM") - AceGUI:ClearFocus() - end - - local function sizereOnMouseDown(this) - this:GetParent():StartSizing("RIGHT") - AceGUI:ClearFocus() - end - - local function sizerOnMouseUp(this) - this:GetParent():StopMovingOrSizing() - end - - local function SetTitle(self,title) - self.titletext:SetText(title) - end - - local function SetStatusText(self,text) - -- self.statustext:SetText(text) - end - - local function Hide(self) - self.frame:Hide() - end - - local function Show(self) - self.frame:Show() - end - - local function OnAcquire(self) - self.frame:SetParent(UIParent) - self.frame:SetFrameStrata("FULLSCREEN_DIALOG") - self:ApplyStatus() - self:EnableResize(true) - self:Show() - end - - local function OnRelease(self) - self.status = nil - for k in pairs(self.localstatus) do - self.localstatus[k] = nil - end - end - - -- called to set an external table to store status in - local function SetStatusTable(self, status) - assert(type(status) == "table") - self.status = status - self:ApplyStatus() - end - - local function ApplyStatus(self) - local status = self.status or self.localstatus - local frame = self.frame - self:SetWidth(status.width or 700) - self:SetHeight(status.height or 500) - if status.top and status.left then - frame:SetPoint("TOP",UIParent,"BOTTOM",0,status.top) - frame:SetPoint("LEFT",UIParent,"LEFT",status.left,0) - else - frame:SetPoint("CENTER",UIParent,"CENTER") - end - end - - local function OnWidthSet(self, width) - local content = self.content - local contentwidth = width - 34 - if contentwidth < 0 then - contentwidth = 0 - end - content:SetWidth(contentwidth) - content.width = contentwidth - end - - - local function OnHeightSet(self, height) - local content = self.content - local contentheight = height - 57 - if contentheight < 0 then - contentheight = 0 - end - content:SetHeight(contentheight) - content.height = contentheight - end - - local function EnableResize(self, state) - local func = state and "Show" or "Hide" - self.sizer_se[func](self.sizer_se) - self.sizer_s[func](self.sizer_s) - self.sizer_e[func](self.sizer_e) - end - - local function Constructor() - local frame = CreateFrame("Frame",nil,UIParent) - local self = {} - self.type = "Window" - - self.Hide = Hide - self.Show = Show - self.SetTitle = SetTitle - self.OnRelease = OnRelease - self.OnAcquire = OnAcquire - self.SetStatusText = SetStatusText - self.SetStatusTable = SetStatusTable - self.ApplyStatus = ApplyStatus - self.OnWidthSet = OnWidthSet - self.OnHeightSet = OnHeightSet - self.EnableResize = EnableResize - - self.localstatus = {} - - self.frame = frame - frame.obj = self - frame:SetWidth(700) - frame:SetHeight(500) - frame:SetPoint("CENTER",UIParent,"CENTER",0,0) - frame:EnableMouse() - frame:SetMovable(true) - frame:SetResizable(true) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - frame:SetScript("OnMouseDown", frameOnMouseDown) - - frame:SetScript("OnShow",frameOnShow) - frame:SetScript("OnHide",frameOnClose) - if frame.SetResizeBounds then -- WoW 10.0 - frame:SetResizeBounds(240,240) - else - frame:SetMinResize(240,240) - end - frame:SetToplevel(true) - - local titlebg = frame:CreateTexture(nil, "BACKGROUND") - titlebg:SetTexture(251966) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Title-Background - titlebg:SetPoint("TOPLEFT", 9, -6) - titlebg:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", -28, -24) - - local dialogbg = frame:CreateTexture(nil, "BACKGROUND") - dialogbg:SetTexture(137056) -- Interface\\Tooltips\\UI-Tooltip-Background - dialogbg:SetPoint("TOPLEFT", 8, -24) - dialogbg:SetPoint("BOTTOMRIGHT", -6, 8) - dialogbg:SetVertexColor(0, 0, 0, .75) - - local topleft = frame:CreateTexture(nil, "BORDER") - topleft:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - topleft:SetWidth(64) - topleft:SetHeight(64) - topleft:SetPoint("TOPLEFT") - topleft:SetTexCoord(0.501953125, 0.625, 0, 1) - - local topright = frame:CreateTexture(nil, "BORDER") - topright:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - topright:SetWidth(64) - topright:SetHeight(64) - topright:SetPoint("TOPRIGHT") - topright:SetTexCoord(0.625, 0.75, 0, 1) - - local top = frame:CreateTexture(nil, "BORDER") - top:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - top:SetHeight(64) - top:SetPoint("TOPLEFT", topleft, "TOPRIGHT") - top:SetPoint("TOPRIGHT", topright, "TOPLEFT") - top:SetTexCoord(0.25, 0.369140625, 0, 1) - - local bottomleft = frame:CreateTexture(nil, "BORDER") - bottomleft:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - bottomleft:SetWidth(64) - bottomleft:SetHeight(64) - bottomleft:SetPoint("BOTTOMLEFT") - bottomleft:SetTexCoord(0.751953125, 0.875, 0, 1) - - local bottomright = frame:CreateTexture(nil, "BORDER") - bottomright:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - bottomright:SetWidth(64) - bottomright:SetHeight(64) - bottomright:SetPoint("BOTTOMRIGHT") - bottomright:SetTexCoord(0.875, 1, 0, 1) - - local bottom = frame:CreateTexture(nil, "BORDER") - bottom:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - bottom:SetHeight(64) - bottom:SetPoint("BOTTOMLEFT", bottomleft, "BOTTOMRIGHT") - bottom:SetPoint("BOTTOMRIGHT", bottomright, "BOTTOMLEFT") - bottom:SetTexCoord(0.376953125, 0.498046875, 0, 1) - - local left = frame:CreateTexture(nil, "BORDER") - left:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - left:SetWidth(64) - left:SetPoint("TOPLEFT", topleft, "BOTTOMLEFT") - left:SetPoint("BOTTOMLEFT", bottomleft, "TOPLEFT") - left:SetTexCoord(0.001953125, 0.125, 0, 1) - - local right = frame:CreateTexture(nil, "BORDER") - right:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border - right:SetWidth(64) - right:SetPoint("TOPRIGHT", topright, "BOTTOMRIGHT") - right:SetPoint("BOTTOMRIGHT", bottomright, "TOPRIGHT") - right:SetTexCoord(0.1171875, 0.2421875, 0, 1) - - local close = CreateFrame("Button", nil, frame, "UIPanelCloseButton") - close:SetPoint("TOPRIGHT", 2, 1) - close:SetScript("OnClick", closeOnClick) - self.closebutton = close - close.obj = self - - local titletext = frame:CreateFontString(nil, "ARTWORK") - titletext:SetFontObject(GameFontNormal) - titletext:SetPoint("TOPLEFT", 12, -8) - titletext:SetPoint("TOPRIGHT", -32, -8) - self.titletext = titletext - - local title = CreateFrame("Button", nil, frame) - title:SetPoint("TOPLEFT", titlebg) - title:SetPoint("BOTTOMRIGHT", titlebg) - title:EnableMouse() - title:SetScript("OnMouseDown",titleOnMouseDown) - title:SetScript("OnMouseUp", frameOnMouseUp) - self.title = title - - local sizer_se = CreateFrame("Frame",nil,frame) - sizer_se:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,0) - sizer_se:SetWidth(25) - sizer_se:SetHeight(25) - sizer_se:EnableMouse() - sizer_se:SetScript("OnMouseDown",sizerseOnMouseDown) - sizer_se:SetScript("OnMouseUp", sizerOnMouseUp) - self.sizer_se = sizer_se - - local line1 = sizer_se:CreateTexture(nil, "BACKGROUND") - self.line1 = line1 - line1:SetWidth(14) - line1:SetHeight(14) - line1:SetPoint("BOTTOMRIGHT", -8, 8) - line1:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - local x = 0.1 * 14/17 - line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) - - local line2 = sizer_se:CreateTexture(nil, "BACKGROUND") - self.line2 = line2 - line2:SetWidth(8) - line2:SetHeight(8) - line2:SetPoint("BOTTOMRIGHT", -8, 8) - line2:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - x = 0.1 * 8/17 - line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5) - - local sizer_s = CreateFrame("Frame",nil,frame) - sizer_s:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-25,0) - sizer_s:SetPoint("BOTTOMLEFT",frame,"BOTTOMLEFT",0,0) - sizer_s:SetHeight(25) - sizer_s:EnableMouse() - sizer_s:SetScript("OnMouseDown",sizersOnMouseDown) - sizer_s:SetScript("OnMouseUp", sizerOnMouseUp) - self.sizer_s = sizer_s - - local sizer_e = CreateFrame("Frame",nil,frame) - sizer_e:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,25) - sizer_e:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0) - sizer_e:SetWidth(25) - sizer_e:EnableMouse() - sizer_e:SetScript("OnMouseDown",sizereOnMouseDown) - sizer_e:SetScript("OnMouseUp", sizerOnMouseUp) - self.sizer_e = sizer_e - - --Container Support - local content = CreateFrame("Frame",nil,frame) - self.content = content - content.obj = self - content:SetPoint("TOPLEFT",frame,"TOPLEFT",12,-32) - content:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-12,13) - - AceGUI:RegisterAsContainer(self) - return self - end - - AceGUI:RegisterWidgetType(Type,Constructor,Version) -end diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua deleted file mode 100755 index 8e650ce..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua +++ /dev/null @@ -1,103 +0,0 @@ ---[[----------------------------------------------------------------------------- -Button Widget -Graphical Button. --------------------------------------------------------------------------------]] -local Type, Version = "Button", 24 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local _G = _G -local PlaySound, CreateFrame, UIParent = PlaySound, CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Button_OnClick(frame, ...) - AceGUI:ClearFocus() - PlaySound(852) -- SOUNDKIT.IG_MAINMENU_OPTION - frame.obj:Fire("OnClick", ...) -end - -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - -- restore default values - self:SetHeight(24) - self:SetWidth(200) - self:SetDisabled(false) - self:SetAutoWidth(false) - self:SetText() - end, - - -- ["OnRelease"] = nil, - - ["SetText"] = function(self, text) - self.text:SetText(text) - if self.autoWidth then - self:SetWidth(self.text:GetStringWidth() + 30) - end - end, - - ["SetAutoWidth"] = function(self, autoWidth) - self.autoWidth = autoWidth - if self.autoWidth then - self:SetWidth(self.text:GetStringWidth() + 30) - end - end, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.frame:Disable() - else - self.frame:Enable() - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local name = "AceGUI30Button" .. AceGUI:GetNextWidgetNum(Type) - local frame = CreateFrame("Button", name, UIParent, "UIPanelButtonTemplate") - frame:Hide() - - frame:EnableMouse(true) - frame:SetScript("OnClick", Button_OnClick) - frame:SetScript("OnEnter", Control_OnEnter) - frame:SetScript("OnLeave", Control_OnLeave) - - local text = frame:GetFontString() - text:ClearAllPoints() - text:SetPoint("TOPLEFT", 15, -1) - text:SetPoint("BOTTOMRIGHT", -15, 1) - text:SetJustifyV("MIDDLE") - - local widget = { - text = text, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua deleted file mode 100755 index 6e64292..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua +++ /dev/null @@ -1,292 +0,0 @@ ---[[----------------------------------------------------------------------------- -Checkbox Widget --------------------------------------------------------------------------------]] -local Type, Version = "CheckBox", 26 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local select, pairs = select, pairs - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function AlignImage(self) - local img = self.image:GetTexture() - self.text:ClearAllPoints() - if not img then - self.text:SetPoint("LEFT", self.checkbg, "RIGHT") - self.text:SetPoint("RIGHT") - else - self.text:SetPoint("LEFT", self.image, "RIGHT", 1, 0) - self.text:SetPoint("RIGHT") - end -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function CheckBox_OnMouseDown(frame) - local self = frame.obj - if not self.disabled then - if self.image:GetTexture() then - self.text:SetPoint("LEFT", self.image,"RIGHT", 2, -1) - else - self.text:SetPoint("LEFT", self.checkbg, "RIGHT", 1, -1) - end - end - AceGUI:ClearFocus() -end - -local function CheckBox_OnMouseUp(frame) - local self = frame.obj - if not self.disabled then - self:ToggleChecked() - - if self.checked then - PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON - else -- for both nil and false (tristate) - PlaySound(857) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_OFF - end - - self:Fire("OnValueChanged", self.checked) - AlignImage(self) - end -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetType() - self:SetValue(false) - self:SetTriState(nil) - -- height is calculated from the width and required space for the description - self:SetWidth(200) - self:SetImage() - self:SetDisabled(nil) - self:SetDescription(nil) - end, - - -- ["OnRelease"] = nil, - - ["OnWidthSet"] = function(self, width) - if self.desc then - self.desc:SetWidth(width - 30) - if self.desc:GetText() and self.desc:GetText() ~= "" then - self:SetHeight(28 + self.desc:GetStringHeight()) - end - end - end, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.frame:Disable() - self.text:SetTextColor(0.5, 0.5, 0.5) - SetDesaturation(self.check, true) - if self.desc then - self.desc:SetTextColor(0.5, 0.5, 0.5) - end - else - self.frame:Enable() - self.text:SetTextColor(1, 1, 1) - if self.tristate and self.checked == nil then - SetDesaturation(self.check, true) - else - SetDesaturation(self.check, false) - end - if self.desc then - self.desc:SetTextColor(1, 1, 1) - end - end - end, - - ["SetValue"] = function(self, value) - local check = self.check - self.checked = value - if value then - SetDesaturation(check, false) - check:Show() - else - --Nil is the unknown tristate value - if self.tristate and value == nil then - SetDesaturation(check, true) - check:Show() - else - SetDesaturation(check, false) - check:Hide() - end - end - self:SetDisabled(self.disabled) - end, - - ["GetValue"] = function(self) - return self.checked - end, - - ["SetTriState"] = function(self, enabled) - self.tristate = enabled - self:SetValue(self:GetValue()) - end, - - ["SetType"] = function(self, type) - local checkbg = self.checkbg - local check = self.check - local highlight = self.highlight - - local size - if type == "radio" then - size = 16 - checkbg:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton - checkbg:SetTexCoord(0, 0.25, 0, 1) - check:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton - check:SetTexCoord(0.25, 0.5, 0, 1) - check:SetBlendMode("ADD") - highlight:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton - highlight:SetTexCoord(0.5, 0.75, 0, 1) - else - size = 24 - checkbg:SetTexture(130755) -- Interface\\Buttons\\UI-CheckBox-Up - checkbg:SetTexCoord(0, 1, 0, 1) - check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check - check:SetTexCoord(0, 1, 0, 1) - check:SetBlendMode("BLEND") - highlight:SetTexture(130753) -- Interface\\Buttons\\UI-CheckBox-Highlight - highlight:SetTexCoord(0, 1, 0, 1) - end - checkbg:SetHeight(size) - checkbg:SetWidth(size) - end, - - ["ToggleChecked"] = function(self) - local value = self:GetValue() - if self.tristate then - --cycle in true, nil, false order - if value then - self:SetValue(nil) - elseif value == nil then - self:SetValue(false) - else - self:SetValue(true) - end - else - self:SetValue(not self:GetValue()) - end - end, - - ["SetLabel"] = function(self, label) - self.text:SetText(label) - end, - - ["SetDescription"] = function(self, desc) - if desc then - if not self.desc then - local f = self.frame:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall") - f:ClearAllPoints() - f:SetPoint("TOPLEFT", self.checkbg, "TOPRIGHT", 5, -21) - f:SetWidth(self.frame.width - 30) - f:SetPoint("RIGHT", self.frame, "RIGHT", -30, 0) - f:SetJustifyH("LEFT") - f:SetJustifyV("TOP") - self.desc = f - end - self.desc:Show() - --self.text:SetFontObject(GameFontNormal) - self.desc:SetText(desc) - self:SetHeight(28 + self.desc:GetStringHeight()) - else - if self.desc then - self.desc:SetText("") - self.desc:Hide() - end - --self.text:SetFontObject(GameFontHighlight) - self:SetHeight(24) - end - end, - - ["SetImage"] = function(self, path, ...) - local image = self.image - image:SetTexture(path) - - if image:GetTexture() then - local n = select("#", ...) - if n == 4 or n == 8 then - image:SetTexCoord(...) - else - image:SetTexCoord(0, 1, 0, 1) - end - end - AlignImage(self) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Button", nil, UIParent) - frame:Hide() - - frame:EnableMouse(true) - frame:SetScript("OnEnter", Control_OnEnter) - frame:SetScript("OnLeave", Control_OnLeave) - frame:SetScript("OnMouseDown", CheckBox_OnMouseDown) - frame:SetScript("OnMouseUp", CheckBox_OnMouseUp) - - local checkbg = frame:CreateTexture(nil, "ARTWORK") - checkbg:SetWidth(24) - checkbg:SetHeight(24) - checkbg:SetPoint("TOPLEFT") - checkbg:SetTexture(130755) -- Interface\\Buttons\\UI-CheckBox-Up - - local check = frame:CreateTexture(nil, "OVERLAY") - check:SetAllPoints(checkbg) - check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check - - local text = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight") - text:SetJustifyH("LEFT") - text:SetHeight(18) - text:SetPoint("LEFT", checkbg, "RIGHT") - text:SetPoint("RIGHT") - - local highlight = frame:CreateTexture(nil, "HIGHLIGHT") - highlight:SetTexture(130753) -- Interface\\Buttons\\UI-CheckBox-Highlight - highlight:SetBlendMode("ADD") - highlight:SetAllPoints(checkbg) - - local image = frame:CreateTexture(nil, "OVERLAY") - image:SetHeight(16) - image:SetWidth(16) - image:SetPoint("LEFT", checkbg, "RIGHT", 1, 0) - - local widget = { - checkbg = checkbg, - check = check, - text = text, - highlight = highlight, - image = image, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua deleted file mode 100755 index 699d583..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua +++ /dev/null @@ -1,186 +0,0 @@ ---[[----------------------------------------------------------------------------- -ColorPicker Widget --------------------------------------------------------------------------------]] -local Type, Version = "ColorPicker", 25 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function ColorCallback(self, r, g, b, a, isAlpha) - if not self.HasAlpha then - a = 1 - end - self:SetColor(r, g, b, a) - if ColorPickerFrame:IsVisible() then - --colorpicker is still open - self:Fire("OnValueChanged", r, g, b, a) - else - --colorpicker is closed, color callback is first, ignore it, - --alpha callback is the final call after it closes so confirm now - if isAlpha then - self:Fire("OnValueConfirmed", r, g, b, a) - end - end -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function ColorSwatch_OnClick(frame) - ColorPickerFrame:Hide() - local self = frame.obj - if not self.disabled then - ColorPickerFrame:SetFrameStrata("FULLSCREEN_DIALOG") - ColorPickerFrame:SetFrameLevel(frame:GetFrameLevel() + 10) - ColorPickerFrame:SetClampedToScreen(true) - - ColorPickerFrame.func = function() - local r, g, b = ColorPickerFrame:GetColorRGB() - local a = 1 - OpacitySliderFrame:GetValue() - ColorCallback(self, r, g, b, a) - end - - ColorPickerFrame.hasOpacity = self.HasAlpha - ColorPickerFrame.opacityFunc = function() - local r, g, b = ColorPickerFrame:GetColorRGB() - local a = 1 - OpacitySliderFrame:GetValue() - ColorCallback(self, r, g, b, a, true) - end - - local r, g, b, a = self.r, self.g, self.b, self.a - if self.HasAlpha then - ColorPickerFrame.opacity = 1 - (a or 0) - end - ColorPickerFrame:SetColorRGB(r, g, b) - - ColorPickerFrame.cancelFunc = function() - ColorCallback(self, r, g, b, a, true) - end - - ColorPickerFrame:Show() - end - AceGUI:ClearFocus() -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetHeight(24) - self:SetWidth(200) - self:SetHasAlpha(false) - self:SetColor(0, 0, 0, 1) - self:SetDisabled(nil) - self:SetLabel(nil) - end, - - -- ["OnRelease"] = nil, - - ["SetLabel"] = function(self, text) - self.text:SetText(text) - end, - - ["SetColor"] = function(self, r, g, b, a) - self.r = r - self.g = g - self.b = b - self.a = a or 1 - self.colorSwatch:SetVertexColor(r, g, b, a) - end, - - ["SetHasAlpha"] = function(self, HasAlpha) - self.HasAlpha = HasAlpha - end, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if self.disabled then - self.frame:Disable() - self.text:SetTextColor(0.5, 0.5, 0.5) - else - self.frame:Enable() - self.text:SetTextColor(1, 1, 1) - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Button", nil, UIParent) - frame:Hide() - - frame:EnableMouse(true) - frame:SetScript("OnEnter", Control_OnEnter) - frame:SetScript("OnLeave", Control_OnLeave) - frame:SetScript("OnClick", ColorSwatch_OnClick) - - local colorSwatch = frame:CreateTexture(nil, "OVERLAY") - colorSwatch:SetWidth(19) - colorSwatch:SetHeight(19) - colorSwatch:SetTexture(130939) -- Interface\\ChatFrame\\ChatFrameColorSwatch - colorSwatch:SetPoint("LEFT") - - local texture = frame:CreateTexture(nil, "BACKGROUND") - colorSwatch.background = texture - texture:SetWidth(16) - texture:SetHeight(16) - texture:SetColorTexture(1, 1, 1) - texture:SetPoint("CENTER", colorSwatch) - texture:Show() - - local checkers = frame:CreateTexture(nil, "BACKGROUND") - colorSwatch.checkers = checkers - checkers:SetWidth(14) - checkers:SetHeight(14) - checkers:SetTexture(188523) -- Tileset\\Generic\\Checkers - checkers:SetTexCoord(.25, 0, 0.5, .25) - checkers:SetDesaturated(true) - checkers:SetVertexColor(1, 1, 1, 0.75) - checkers:SetPoint("CENTER", colorSwatch) - checkers:Show() - - local text = frame:CreateFontString(nil,"OVERLAY","GameFontHighlight") - text:SetHeight(24) - text:SetJustifyH("LEFT") - text:SetTextColor(1, 1, 1) - text:SetPoint("LEFT", colorSwatch, "RIGHT", 2, 0) - text:SetPoint("RIGHT") - - --local highlight = frame:CreateTexture(nil, "HIGHLIGHT") - --highlight:SetTexture(136810) -- Interface\\QuestFrame\\UI-QuestTitleHighlight - --highlight:SetBlendMode("ADD") - --highlight:SetAllPoints(frame) - - local widget = { - colorSwatch = colorSwatch, - text = text, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua deleted file mode 100755 index 0ad94f8..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua +++ /dev/null @@ -1,471 +0,0 @@ ---[[ $Id: AceGUIWidget-DropDown-Items.lua 1272 2022-08-29 15:56:35Z nevcairiel $ ]]-- - -local AceGUI = LibStub("AceGUI-3.0") - --- Lua APIs -local select, assert = select, assert - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame = CreateFrame - -local function fixlevels(parent,...) - local i = 1 - local child = select(i, ...) - while child do - child:SetFrameLevel(parent:GetFrameLevel()+1) - fixlevels(child, child:GetChildren()) - i = i + 1 - child = select(i, ...) - end -end - -local function fixstrata(strata, parent, ...) - local i = 1 - local child = select(i, ...) - parent:SetFrameStrata(strata) - while child do - fixstrata(strata, child, child:GetChildren()) - i = i + 1 - child = select(i, ...) - end -end - --- ItemBase is the base "class" for all dropdown items. --- Each item has to use ItemBase.Create(widgetType) to --- create an initial 'self' value. --- ItemBase will add common functions and ui event handlers. --- Be sure to keep basic usage when you override functions. - -local ItemBase = { - -- NOTE: The ItemBase version is added to each item's version number - -- to ensure proper updates on ItemBase changes. - -- Use at least 1000er steps. - version = 2000, - counter = 0, -} - -function ItemBase.Frame_OnEnter(this) - local self = this.obj - - if self.useHighlight then - self.highlight:Show() - end - self:Fire("OnEnter") - - if self.specialOnEnter then - self.specialOnEnter(self) - end -end - -function ItemBase.Frame_OnLeave(this) - local self = this.obj - - self.highlight:Hide() - self:Fire("OnLeave") - - if self.specialOnLeave then - self.specialOnLeave(self) - end -end - --- exported, AceGUI callback -function ItemBase.OnAcquire(self) - self.frame:SetToplevel(true) - self.frame:SetFrameStrata("FULLSCREEN_DIALOG") -end - --- exported, AceGUI callback -function ItemBase.OnRelease(self) - self:SetDisabled(false) - self.pullout = nil - self.frame:SetParent(nil) - self.frame:ClearAllPoints() - self.frame:Hide() -end - --- exported --- NOTE: this is called by a Dropdown-Pullout. --- Do not call this method directly -function ItemBase.SetPullout(self, pullout) - self.pullout = pullout - - self.frame:SetParent(nil) - self.frame:SetParent(pullout.itemFrame) - self.parent = pullout.itemFrame - fixlevels(pullout.itemFrame, pullout.itemFrame:GetChildren()) -end - --- exported -function ItemBase.SetText(self, text) - self.text:SetText(text or "") -end - --- exported -function ItemBase.GetText(self) - return self.text:GetText() -end - --- exported -function ItemBase.SetPoint(self, ...) - self.frame:SetPoint(...) -end - --- exported -function ItemBase.Show(self) - self.frame:Show() -end - --- exported -function ItemBase.Hide(self) - self.frame:Hide() -end - --- exported -function ItemBase.SetDisabled(self, disabled) - self.disabled = disabled - if disabled then - self.useHighlight = false - self.text:SetTextColor(.5, .5, .5) - else - self.useHighlight = true - self.text:SetTextColor(1, 1, 1) - end -end - --- exported --- NOTE: this is called by a Dropdown-Pullout. --- Do not call this method directly -function ItemBase.SetOnLeave(self, func) - self.specialOnLeave = func -end - --- exported --- NOTE: this is called by a Dropdown-Pullout. --- Do not call this method directly -function ItemBase.SetOnEnter(self, func) - self.specialOnEnter = func -end - -function ItemBase.Create(type) - -- NOTE: Most of the following code is copied from AceGUI-3.0/Dropdown widget - local count = AceGUI:GetNextWidgetNum(type) - local frame = CreateFrame("Button", "AceGUI30DropDownItem"..count) - local self = {} - self.frame = frame - frame.obj = self - self.type = type - - self.useHighlight = true - - frame:SetHeight(17) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - - local text = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall") - text:SetTextColor(1,1,1) - text:SetJustifyH("LEFT") - text:SetPoint("TOPLEFT",frame,"TOPLEFT",18,0) - text:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-8,0) - self.text = text - - local highlight = frame:CreateTexture(nil, "OVERLAY") - highlight:SetTexture(136810) -- Interface\\QuestFrame\\UI-QuestTitleHighlight - highlight:SetBlendMode("ADD") - highlight:SetHeight(14) - highlight:ClearAllPoints() - highlight:SetPoint("RIGHT",frame,"RIGHT",-3,0) - highlight:SetPoint("LEFT",frame,"LEFT",5,0) - highlight:Hide() - self.highlight = highlight - - local check = frame:CreateTexture(nil, "OVERLAY") - check:SetWidth(16) - check:SetHeight(16) - check:SetPoint("LEFT",frame,"LEFT",3,-1) - check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check - check:Hide() - self.check = check - - local sub = frame:CreateTexture(nil, "OVERLAY") - sub:SetWidth(16) - sub:SetHeight(16) - sub:SetPoint("RIGHT",frame,"RIGHT",-3,-1) - sub:SetTexture(130940) -- Interface\\ChatFrame\\ChatFrameExpandArrow - sub:Hide() - self.sub = sub - - frame:SetScript("OnEnter", ItemBase.Frame_OnEnter) - frame:SetScript("OnLeave", ItemBase.Frame_OnLeave) - - self.OnAcquire = ItemBase.OnAcquire - self.OnRelease = ItemBase.OnRelease - - self.SetPullout = ItemBase.SetPullout - self.GetText = ItemBase.GetText - self.SetText = ItemBase.SetText - self.SetDisabled = ItemBase.SetDisabled - - self.SetPoint = ItemBase.SetPoint - self.Show = ItemBase.Show - self.Hide = ItemBase.Hide - - self.SetOnLeave = ItemBase.SetOnLeave - self.SetOnEnter = ItemBase.SetOnEnter - - return self -end - --- Register a dummy LibStub library to retrieve the ItemBase, so other addons can use it. -local IBLib = LibStub:NewLibrary("AceGUI-3.0-DropDown-ItemBase", ItemBase.version) -if IBLib then - IBLib.GetItemBase = function() return ItemBase end -end - ---[[ - Template for items: - --- Item: --- -do - local widgetType = "Dropdown-Item-" - local widgetVersion = 1 - - local function Constructor() - local self = ItemBase.Create(widgetType) - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end ---]] - --- Item: Header --- A single text entry. --- Special: Different text color and no highlight -do - local widgetType = "Dropdown-Item-Header" - local widgetVersion = 1 - - local function OnEnter(this) - local self = this.obj - self:Fire("OnEnter") - - if self.specialOnEnter then - self.specialOnEnter(self) - end - end - - local function OnLeave(this) - local self = this.obj - self:Fire("OnLeave") - - if self.specialOnLeave then - self.specialOnLeave(self) - end - end - - -- exported, override - local function SetDisabled(self, disabled) - ItemBase.SetDisabled(self, disabled) - if not disabled then - self.text:SetTextColor(1, 1, 0) - end - end - - local function Constructor() - local self = ItemBase.Create(widgetType) - - self.SetDisabled = SetDisabled - - self.frame:SetScript("OnEnter", OnEnter) - self.frame:SetScript("OnLeave", OnLeave) - - self.text:SetTextColor(1, 1, 0) - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end - --- Item: Execute --- A simple button -do - local widgetType = "Dropdown-Item-Execute" - local widgetVersion = 1 - - local function Frame_OnClick(this, button) - local self = this.obj - if self.disabled then return end - self:Fire("OnClick") - if self.pullout then - self.pullout:Close() - end - end - - local function Constructor() - local self = ItemBase.Create(widgetType) - - self.frame:SetScript("OnClick", Frame_OnClick) - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end - --- Item: Toggle --- Some sort of checkbox for dropdown menus. --- Does not close the pullout on click. -do - local widgetType = "Dropdown-Item-Toggle" - local widgetVersion = 4 - - local function UpdateToggle(self) - if self.value then - self.check:Show() - else - self.check:Hide() - end - end - - local function OnRelease(self) - ItemBase.OnRelease(self) - self:SetValue(nil) - end - - local function Frame_OnClick(this, button) - local self = this.obj - if self.disabled then return end - self.value = not self.value - if self.value then - PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON - else - PlaySound(857) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_OFF - end - UpdateToggle(self) - self:Fire("OnValueChanged", self.value) - end - - -- exported - local function SetValue(self, value) - self.value = value - UpdateToggle(self) - end - - -- exported - local function GetValue(self) - return self.value - end - - local function Constructor() - local self = ItemBase.Create(widgetType) - - self.frame:SetScript("OnClick", Frame_OnClick) - - self.SetValue = SetValue - self.GetValue = GetValue - self.OnRelease = OnRelease - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end - --- Item: Menu --- Shows a submenu on mouse over --- Does not close the pullout on click -do - local widgetType = "Dropdown-Item-Menu" - local widgetVersion = 2 - - local function OnEnter(this) - local self = this.obj - self:Fire("OnEnter") - - if self.specialOnEnter then - self.specialOnEnter(self) - end - - self.highlight:Show() - - if not self.disabled and self.submenu then - self.submenu:Open("TOPLEFT", self.frame, "TOPRIGHT", self.pullout:GetRightBorderWidth(), 0, self.frame:GetFrameLevel() + 100) - end - end - - local function OnHide(this) - local self = this.obj - if self.submenu then - self.submenu:Close() - end - end - - -- exported - local function SetMenu(self, menu) - assert(menu.type == "Dropdown-Pullout") - self.submenu = menu - end - - -- exported - local function CloseMenu(self) - self.submenu:Close() - end - - local function Constructor() - local self = ItemBase.Create(widgetType) - - self.sub:Show() - - self.frame:SetScript("OnEnter", OnEnter) - self.frame:SetScript("OnHide", OnHide) - - self.SetMenu = SetMenu - self.CloseMenu = CloseMenu - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end - --- Item: Separator --- A single line to separate items -do - local widgetType = "Dropdown-Item-Separator" - local widgetVersion = 2 - - -- exported, override - local function SetDisabled(self, disabled) - ItemBase.SetDisabled(self, disabled) - self.useHighlight = false - end - - local function Constructor() - local self = ItemBase.Create(widgetType) - - self.SetDisabled = SetDisabled - - local line = self.frame:CreateTexture(nil, "OVERLAY") - line:SetHeight(1) - line:SetColorTexture(.5, .5, .5) - line:SetPoint("LEFT", self.frame, "LEFT", 10, 0) - line:SetPoint("RIGHT", self.frame, "RIGHT", -10, 0) - - self.text:Hide() - - self.useHighlight = false - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion + ItemBase.version) -end diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua deleted file mode 100755 index 3d8dd11..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua +++ /dev/null @@ -1,732 +0,0 @@ ---[[ $Id: AceGUIWidget-DropDown.lua 1284 2022-09-25 09:15:30Z nevcairiel $ ]]-- -local AceGUI = LibStub("AceGUI-3.0") - --- Lua APIs -local min, max, floor = math.min, math.max, math.floor -local select, pairs, ipairs, type, tostring = select, pairs, ipairs, type, tostring -local tsort = table.sort - --- WoW APIs -local PlaySound = PlaySound -local UIParent, CreateFrame = UIParent, CreateFrame -local _G = _G - -local function fixlevels(parent,...) - local i = 1 - local child = select(i, ...) - while child do - child:SetFrameLevel(parent:GetFrameLevel()+1) - fixlevels(child, child:GetChildren()) - i = i + 1 - child = select(i, ...) - end -end - -local function fixstrata(strata, parent, ...) - local i = 1 - local child = select(i, ...) - parent:SetFrameStrata(strata) - while child do - fixstrata(strata, child, child:GetChildren()) - i = i + 1 - child = select(i, ...) - end -end - -do - local widgetType = "Dropdown-Pullout" - local widgetVersion = 5 - - --[[ Static data ]]-- - - local backdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border", - edgeSize = 32, - tileSize = 32, - tile = true, - insets = { left = 11, right = 12, top = 12, bottom = 11 }, - } - local sliderBackdrop = { - bgFile = "Interface\\Buttons\\UI-SliderBar-Background", - edgeFile = "Interface\\Buttons\\UI-SliderBar-Border", - tile = true, tileSize = 8, edgeSize = 8, - insets = { left = 3, right = 3, top = 3, bottom = 3 } - } - - local defaultWidth = 200 - local defaultMaxHeight = 600 - - --[[ UI Event Handlers ]]-- - - -- HACK: This should be no part of the pullout, but there - -- is no other 'clean' way to response to any item-OnEnter - -- Used to close Submenus when an other item is entered - local function OnEnter(item) - local self = item.pullout - for k, v in ipairs(self.items) do - if v.CloseMenu and v ~= item then - v:CloseMenu() - end - end - end - - -- See the note in Constructor() for each scroll related function - local function OnMouseWheel(this, value) - this.obj:MoveScroll(value) - end - - local function OnScrollValueChanged(this, value) - this.obj:SetScroll(value) - end - - local function OnSizeChanged(this) - this.obj:FixScroll() - end - - --[[ Exported methods ]]-- - - -- exported - local function SetScroll(self, value) - local status = self.scrollStatus - local frame, child = self.scrollFrame, self.itemFrame - local height, viewheight = frame:GetHeight(), child:GetHeight() - - local offset - if height > viewheight then - offset = 0 - else - offset = floor((viewheight - height) / 1000 * value) - end - child:ClearAllPoints() - child:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, offset) - child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", self.slider:IsShown() and -12 or 0, offset) - status.offset = offset - status.scrollvalue = value - end - - -- exported - local function MoveScroll(self, value) - local status = self.scrollStatus - local frame, child = self.scrollFrame, self.itemFrame - local height, viewheight = frame:GetHeight(), child:GetHeight() - - if height > viewheight then - self.slider:Hide() - else - self.slider:Show() - local diff = height - viewheight - local delta = 1 - if value < 0 then - delta = -1 - end - self.slider:SetValue(min(max(status.scrollvalue + delta*(1000/(diff/45)),0), 1000)) - end - end - - -- exported - local function FixScroll(self) - local status = self.scrollStatus - local frame, child = self.scrollFrame, self.itemFrame - local height, viewheight = frame:GetHeight(), child:GetHeight() - local offset = status.offset or 0 - - if viewheight < height then - self.slider:Hide() - child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", 0, offset) - self.slider:SetValue(0) - else - self.slider:Show() - local value = (offset / (viewheight - height) * 1000) - if value > 1000 then value = 1000 end - self.slider:SetValue(value) - self:SetScroll(value) - if value < 1000 then - child:ClearAllPoints() - child:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, offset) - child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -12, offset) - status.offset = offset - end - end - end - - -- exported, AceGUI callback - local function OnAcquire(self) - self.frame:SetParent(UIParent) - --self.itemFrame:SetToplevel(true) - end - - -- exported, AceGUI callback - local function OnRelease(self) - self:Clear() - self.frame:ClearAllPoints() - self.frame:Hide() - end - - -- exported - local function AddItem(self, item) - self.items[#self.items + 1] = item - - local h = #self.items * 16 - self.itemFrame:SetHeight(h) - self.frame:SetHeight(min(h + 34, self.maxHeight)) -- +34: 20 for scrollFrame placement (10 offset) and +14 for item placement - - item.frame:SetPoint("LEFT", self.itemFrame, "LEFT") - item.frame:SetPoint("RIGHT", self.itemFrame, "RIGHT") - - item:SetPullout(self) - item:SetOnEnter(OnEnter) - end - - -- exported - local function Open(self, point, relFrame, relPoint, x, y) - local items = self.items - local frame = self.frame - local itemFrame = self.itemFrame - - frame:SetPoint(point, relFrame, relPoint, x, y) - - - local height = 8 - for i, item in pairs(items) do - item:SetPoint("TOP", itemFrame, "TOP", 0, -2 + (i - 1) * -16) - item:Show() - - height = height + 16 - end - itemFrame:SetHeight(height) - fixstrata("TOOLTIP", frame, frame:GetChildren()) - frame:Show() - self:Fire("OnOpen") - end - - -- exported - local function Close(self) - self.frame:Hide() - self:Fire("OnClose") - end - - -- exported - local function Clear(self) - local items = self.items - for i, item in pairs(items) do - AceGUI:Release(item) - items[i] = nil - end - end - - -- exported - local function IterateItems(self) - return ipairs(self.items) - end - - -- exported - local function SetHideOnLeave(self, val) - self.hideOnLeave = val - end - - -- exported - local function SetMaxHeight(self, height) - self.maxHeight = height or defaultMaxHeight - if self.frame:GetHeight() > height then - self.frame:SetHeight(height) - elseif (self.itemFrame:GetHeight() + 34) < height then - self.frame:SetHeight(self.itemFrame:GetHeight() + 34) -- see :AddItem - end - end - - -- exported - local function GetRightBorderWidth(self) - return 6 + (self.slider:IsShown() and 12 or 0) - end - - -- exported - local function GetLeftBorderWidth(self) - return 6 - end - - --[[ Constructor ]]-- - - local function Constructor() - local count = AceGUI:GetNextWidgetNum(widgetType) - local frame = CreateFrame("Frame", "AceGUI30Pullout"..count, UIParent, "BackdropTemplate") - local self = {} - self.count = count - self.type = widgetType - self.frame = frame - frame.obj = self - - self.OnAcquire = OnAcquire - self.OnRelease = OnRelease - - self.AddItem = AddItem - self.Open = Open - self.Close = Close - self.Clear = Clear - self.IterateItems = IterateItems - self.SetHideOnLeave = SetHideOnLeave - - self.SetScroll = SetScroll - self.MoveScroll = MoveScroll - self.FixScroll = FixScroll - - self.SetMaxHeight = SetMaxHeight - self.GetRightBorderWidth = GetRightBorderWidth - self.GetLeftBorderWidth = GetLeftBorderWidth - - self.items = {} - - self.scrollStatus = { - scrollvalue = 0, - } - - self.maxHeight = defaultMaxHeight - - frame:SetBackdrop(backdrop) - frame:SetBackdropColor(0, 0, 0) - frame:SetFrameStrata("FULLSCREEN_DIALOG") - frame:SetClampedToScreen(true) - frame:SetWidth(defaultWidth) - frame:SetHeight(self.maxHeight) - --frame:SetToplevel(true) - - -- NOTE: The whole scroll frame code is copied from the AceGUI-3.0 widget ScrollFrame - local scrollFrame = CreateFrame("ScrollFrame", nil, frame) - local itemFrame = CreateFrame("Frame", nil, scrollFrame) - - self.scrollFrame = scrollFrame - self.itemFrame = itemFrame - - scrollFrame.obj = self - itemFrame.obj = self - - local slider = CreateFrame("Slider", "AceGUI30PulloutScrollbar"..count, scrollFrame, "BackdropTemplate") - slider:SetOrientation("VERTICAL") - slider:SetHitRectInsets(0, 0, -10, 0) - slider:SetBackdrop(sliderBackdrop) - slider:SetWidth(8) - slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Vertical") - slider:SetFrameStrata("FULLSCREEN_DIALOG") - self.slider = slider - slider.obj = self - - scrollFrame:SetScrollChild(itemFrame) - scrollFrame:SetPoint("TOPLEFT", frame, "TOPLEFT", 6, -12) - scrollFrame:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -6, 12) - scrollFrame:EnableMouseWheel(true) - scrollFrame:SetScript("OnMouseWheel", OnMouseWheel) - scrollFrame:SetScript("OnSizeChanged", OnSizeChanged) - scrollFrame:SetToplevel(true) - scrollFrame:SetFrameStrata("FULLSCREEN_DIALOG") - - itemFrame:SetPoint("TOPLEFT", scrollFrame, "TOPLEFT", 0, 0) - itemFrame:SetPoint("TOPRIGHT", scrollFrame, "TOPRIGHT", -12, 0) - itemFrame:SetHeight(400) - itemFrame:SetToplevel(true) - itemFrame:SetFrameStrata("FULLSCREEN_DIALOG") - - slider:SetPoint("TOPLEFT", scrollFrame, "TOPRIGHT", -16, 0) - slider:SetPoint("BOTTOMLEFT", scrollFrame, "BOTTOMRIGHT", -16, 0) - slider:SetScript("OnValueChanged", OnScrollValueChanged) - slider:SetMinMaxValues(0, 1000) - slider:SetValueStep(1) - slider:SetValue(0) - - scrollFrame:Show() - itemFrame:Show() - slider:Hide() - - self:FixScroll() - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) -end - -do - local widgetType = "Dropdown" - local widgetVersion = 36 - - --[[ Static data ]]-- - - --[[ UI event handler ]]-- - - local function Control_OnEnter(this) - this.obj.button:LockHighlight() - this.obj:Fire("OnEnter") - end - - local function Control_OnLeave(this) - this.obj.button:UnlockHighlight() - this.obj:Fire("OnLeave") - end - - local function Dropdown_OnHide(this) - local self = this.obj - if self.open then - self.pullout:Close() - end - end - - local function Dropdown_TogglePullout(this) - local self = this.obj - if self.open then - self.open = nil - self.pullout:Close() - AceGUI:ClearFocus() - else - self.open = true - self.pullout:SetWidth(self.pulloutWidth or self.frame:GetWidth()) - self.pullout:Open("TOPLEFT", self.frame, "BOTTOMLEFT", 0, self.label:IsShown() and -2 or 0) - AceGUI:SetFocus(self) - end - end - - local function OnPulloutOpen(this) - local self = this.userdata.obj - local value = self.value - - if not self.multiselect then - for i, item in this:IterateItems() do - item:SetValue(item.userdata.value == value) - end - end - - self.open = true - self:Fire("OnOpened") - end - - local function OnPulloutClose(this) - local self = this.userdata.obj - self.open = nil - self:Fire("OnClosed") - end - - local function ShowMultiText(self) - local text - for i, widget in self.pullout:IterateItems() do - if widget.type == "Dropdown-Item-Toggle" then - if widget:GetValue() then - if text then - text = text..", "..widget:GetText() - else - text = widget:GetText() - end - end - end - end - self:SetText(text) - end - - local function OnItemValueChanged(this, event, checked) - local self = this.userdata.obj - - if self.multiselect then - self:Fire("OnValueChanged", this.userdata.value, checked) - ShowMultiText(self) - else - if checked then - self:SetValue(this.userdata.value) - self:Fire("OnValueChanged", this.userdata.value) - else - this:SetValue(true) - end - if self.open then - self.pullout:Close() - end - end - end - - --[[ Exported methods ]]-- - - -- exported, AceGUI callback - local function OnAcquire(self) - local pullout = AceGUI:Create("Dropdown-Pullout") - self.pullout = pullout - pullout.userdata.obj = self - pullout:SetCallback("OnClose", OnPulloutClose) - pullout:SetCallback("OnOpen", OnPulloutOpen) - self.pullout.frame:SetFrameLevel(self.frame:GetFrameLevel() + 1) - fixlevels(self.pullout.frame, self.pullout.frame:GetChildren()) - - self:SetHeight(44) - self:SetWidth(200) - self:SetLabel() - self:SetPulloutWidth(nil) - self.list = {} - end - - -- exported, AceGUI callback - local function OnRelease(self) - if self.open then - self.pullout:Close() - end - AceGUI:Release(self.pullout) - self.pullout = nil - - self:SetText("") - self:SetDisabled(false) - self:SetMultiselect(false) - - self.value = nil - self.list = nil - self.open = nil - self.hasClose = nil - - self.frame:ClearAllPoints() - self.frame:Hide() - end - - -- exported - local function SetDisabled(self, disabled) - self.disabled = disabled - if disabled then - self.text:SetTextColor(0.5,0.5,0.5) - self.button:Disable() - self.button_cover:Disable() - self.label:SetTextColor(0.5,0.5,0.5) - else - self.button:Enable() - self.button_cover:Enable() - self.label:SetTextColor(1,.82,0) - self.text:SetTextColor(1,1,1) - end - end - - -- exported - local function ClearFocus(self) - if self.open then - self.pullout:Close() - end - end - - -- exported - local function SetText(self, text) - self.text:SetText(text or "") - end - - -- exported - local function SetLabel(self, text) - if text and text ~= "" then - self.label:SetText(text) - self.label:Show() - self.dropdown:SetPoint("TOPLEFT",self.frame,"TOPLEFT",-15,-14) - self:SetHeight(40) - self.alignoffset = 26 - else - self.label:SetText("") - self.label:Hide() - self.dropdown:SetPoint("TOPLEFT",self.frame,"TOPLEFT",-15,0) - self:SetHeight(26) - self.alignoffset = 12 - end - end - - -- exported - local function SetValue(self, value) - self:SetText(self.list[value] or "") - self.value = value - end - - -- exported - local function GetValue(self) - return self.value - end - - -- exported - local function SetItemValue(self, item, value) - if not self.multiselect then return end - for i, widget in self.pullout:IterateItems() do - if widget.userdata.value == item then - if widget.SetValue then - widget:SetValue(value) - end - end - end - ShowMultiText(self) - end - - -- exported - local function SetItemDisabled(self, item, disabled) - for i, widget in self.pullout:IterateItems() do - if widget.userdata.value == item then - widget:SetDisabled(disabled) - end - end - end - - local function AddListItem(self, value, text, itemType) - if not itemType then itemType = "Dropdown-Item-Toggle" end - local exists = AceGUI:GetWidgetVersion(itemType) - if not exists then error(("The given item type, %q, does not exist within AceGUI-3.0"):format(tostring(itemType)), 2) end - - local item = AceGUI:Create(itemType) - item:SetText(text) - item.userdata.obj = self - item.userdata.value = value - item:SetCallback("OnValueChanged", OnItemValueChanged) - self.pullout:AddItem(item) - end - - local function AddCloseButton(self) - if not self.hasClose then - local close = AceGUI:Create("Dropdown-Item-Execute") - close:SetText(CLOSE) - self.pullout:AddItem(close) - self.hasClose = true - end - end - - -- exported - local sortlist = {} - local function sortTbl(x,y) - local num1, num2 = tonumber(x), tonumber(y) - if num1 and num2 then -- numeric comparison, either two numbers or numeric strings - return num1 < num2 - else -- compare everything else tostring'ed - return tostring(x) < tostring(y) - end - end - local function SetList(self, list, order, itemType) - self.list = list or {} - self.pullout:Clear() - self.hasClose = nil - if not list then return end - - if type(order) ~= "table" then - for v in pairs(list) do - sortlist[#sortlist + 1] = v - end - tsort(sortlist, sortTbl) - - for i, key in ipairs(sortlist) do - AddListItem(self, key, list[key], itemType) - sortlist[i] = nil - end - else - for i, key in ipairs(order) do - AddListItem(self, key, list[key], itemType) - end - end - if self.multiselect then - ShowMultiText(self) - AddCloseButton(self) - end - end - - -- exported - local function AddItem(self, value, text, itemType) - self.list[value] = text - AddListItem(self, value, text, itemType) - end - - -- exported - local function SetMultiselect(self, multi) - self.multiselect = multi - if multi then - ShowMultiText(self) - AddCloseButton(self) - end - end - - -- exported - local function GetMultiselect(self) - return self.multiselect - end - - local function SetPulloutWidth(self, width) - self.pulloutWidth = width - end - - --[[ Constructor ]]-- - - local function Constructor() - local count = AceGUI:GetNextWidgetNum(widgetType) - local frame = CreateFrame("Frame", nil, UIParent) - local dropdown = CreateFrame("Frame", "AceGUI30DropDown"..count, frame, "UIDropDownMenuTemplate") - - local self = {} - self.type = widgetType - self.frame = frame - self.dropdown = dropdown - self.count = count - frame.obj = self - dropdown.obj = self - - self.OnRelease = OnRelease - self.OnAcquire = OnAcquire - - self.ClearFocus = ClearFocus - - self.SetText = SetText - self.SetValue = SetValue - self.GetValue = GetValue - self.SetList = SetList - self.SetLabel = SetLabel - self.SetDisabled = SetDisabled - self.AddItem = AddItem - self.SetMultiselect = SetMultiselect - self.GetMultiselect = GetMultiselect - self.SetItemValue = SetItemValue - self.SetItemDisabled = SetItemDisabled - self.SetPulloutWidth = SetPulloutWidth - - self.alignoffset = 26 - - frame:SetScript("OnHide",Dropdown_OnHide) - - dropdown:ClearAllPoints() - dropdown:SetPoint("TOPLEFT",frame,"TOPLEFT",-15,0) - dropdown:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",17,0) - dropdown:SetScript("OnHide", nil) - - local left = _G[dropdown:GetName() .. "Left"] - local middle = _G[dropdown:GetName() .. "Middle"] - local right = _G[dropdown:GetName() .. "Right"] - - middle:ClearAllPoints() - right:ClearAllPoints() - - middle:SetPoint("LEFT", left, "RIGHT", 0, 0) - middle:SetPoint("RIGHT", right, "LEFT", 0, 0) - right:SetPoint("TOPRIGHT", dropdown, "TOPRIGHT", 0, 17) - - local button = _G[dropdown:GetName() .. "Button"] - self.button = button - button.obj = self - button:SetScript("OnEnter",Control_OnEnter) - button:SetScript("OnLeave",Control_OnLeave) - button:SetScript("OnClick",Dropdown_TogglePullout) - - local button_cover = CreateFrame("BUTTON",nil,self.frame) - self.button_cover = button_cover - button_cover.obj = self - button_cover:SetPoint("TOPLEFT",self.frame,"BOTTOMLEFT",0,25) - button_cover:SetPoint("BOTTOMRIGHT",self.frame,"BOTTOMRIGHT") - button_cover:SetScript("OnEnter",Control_OnEnter) - button_cover:SetScript("OnLeave",Control_OnLeave) - button_cover:SetScript("OnClick",Dropdown_TogglePullout) - - local text = _G[dropdown:GetName() .. "Text"] - self.text = text - text.obj = self - text:ClearAllPoints() - text:SetPoint("RIGHT", right, "RIGHT" ,-43, 2) - text:SetPoint("LEFT", left, "LEFT", 25, 2) - - local label = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall") - label:SetPoint("TOPLEFT",frame,"TOPLEFT",0,0) - label:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0) - label:SetJustifyH("LEFT") - label:SetHeight(18) - label:Hide() - self.label = label - - AceGUI:RegisterAsWidget(self) - return self - end - - AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion) -end diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua deleted file mode 100755 index 85a32a0..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua +++ /dev/null @@ -1,259 +0,0 @@ ---[[----------------------------------------------------------------------------- -EditBox Widget --------------------------------------------------------------------------------]] -local Type, Version = "EditBox", 28 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local tostring, pairs = tostring, pairs - --- WoW APIs -local PlaySound = PlaySound -local GetCursorInfo, ClearCursor, GetSpellInfo = GetCursorInfo, ClearCursor, GetSpellInfo -local CreateFrame, UIParent = CreateFrame, UIParent -local _G = _G - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -if not AceGUIEditBoxInsertLink then - -- upgradeable hook - hooksecurefunc("ChatEdit_InsertLink", function(...) return _G.AceGUIEditBoxInsertLink(...) end) -end - -function _G.AceGUIEditBoxInsertLink(text) - for i = 1, AceGUI:GetWidgetCount(Type) do - local editbox = _G["AceGUI-3.0EditBox"..i] - if editbox and editbox:IsVisible() and editbox:HasFocus() then - editbox:Insert(text) - return true - end - end -end - -local function ShowButton(self) - if not self.disablebutton then - self.button:Show() - self.editbox:SetTextInsets(0, 20, 3, 3) - end -end - -local function HideButton(self) - self.button:Hide() - self.editbox:SetTextInsets(0, 0, 3, 3) -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function Frame_OnShowFocus(frame) - frame.obj.editbox:SetFocus() - frame:SetScript("OnShow", nil) -end - -local function EditBox_OnEscapePressed(frame) - AceGUI:ClearFocus() -end - -local function EditBox_OnEnterPressed(frame) - local self = frame.obj - local value = frame:GetText() - local cancel = self:Fire("OnEnterPressed", value) - if not cancel then - PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON - HideButton(self) - end -end - -local function EditBox_OnReceiveDrag(frame) - local self = frame.obj - local type, id, info = GetCursorInfo() - local name - if type == "item" then - name = info - elseif type == "spell" then - name = GetSpellInfo(id, info) - elseif type == "macro" then - name = GetMacroInfo(id) - end - if name then - self:SetText(name) - self:Fire("OnEnterPressed", name) - ClearCursor() - HideButton(self) - AceGUI:ClearFocus() - end -end - -local function EditBox_OnTextChanged(frame) - local self = frame.obj - local value = frame:GetText() - if tostring(value) ~= tostring(self.lasttext) then - self:Fire("OnTextChanged", value) - self.lasttext = value - ShowButton(self) - end -end - -local function EditBox_OnFocusGained(frame) - AceGUI:SetFocus(frame.obj) -end - -local function Button_OnClick(frame) - local editbox = frame.obj.editbox - editbox:ClearFocus() - EditBox_OnEnterPressed(editbox) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - -- height is controlled by SetLabel - self:SetWidth(200) - self:SetDisabled(false) - self:SetLabel() - self:SetText() - self:DisableButton(false) - self:SetMaxLetters(0) - end, - - ["OnRelease"] = function(self) - self:ClearFocus() - end, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.editbox:EnableMouse(false) - self.editbox:ClearFocus() - self.editbox:SetTextColor(0.5,0.5,0.5) - self.label:SetTextColor(0.5,0.5,0.5) - else - self.editbox:EnableMouse(true) - self.editbox:SetTextColor(1,1,1) - self.label:SetTextColor(1,.82,0) - end - end, - - ["SetText"] = function(self, text) - self.lasttext = text or "" - self.editbox:SetText(text or "") - self.editbox:SetCursorPosition(0) - HideButton(self) - end, - - ["GetText"] = function(self, text) - return self.editbox:GetText() - end, - - ["SetLabel"] = function(self, text) - if text and text ~= "" then - self.label:SetText(text) - self.label:Show() - self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,-18) - self:SetHeight(44) - self.alignoffset = 30 - else - self.label:SetText("") - self.label:Hide() - self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,0) - self:SetHeight(26) - self.alignoffset = 12 - end - end, - - ["DisableButton"] = function(self, disabled) - self.disablebutton = disabled - if disabled then - HideButton(self) - end - end, - - ["SetMaxLetters"] = function (self, num) - self.editbox:SetMaxLetters(num or 0) - end, - - ["ClearFocus"] = function(self) - self.editbox:ClearFocus() - self.frame:SetScript("OnShow", nil) - end, - - ["SetFocus"] = function(self) - self.editbox:SetFocus() - if not self.frame:IsShown() then - self.frame:SetScript("OnShow", Frame_OnShowFocus) - end - end, - - ["HighlightText"] = function(self, from, to) - self.editbox:HighlightText(from, to) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local num = AceGUI:GetNextWidgetNum(Type) - local frame = CreateFrame("Frame", nil, UIParent) - frame:Hide() - - local editbox = CreateFrame("EditBox", "AceGUI-3.0EditBox"..num, frame, "InputBoxTemplate") - editbox:SetAutoFocus(false) - editbox:SetFontObject(ChatFontNormal) - editbox:SetScript("OnEnter", Control_OnEnter) - editbox:SetScript("OnLeave", Control_OnLeave) - editbox:SetScript("OnEscapePressed", EditBox_OnEscapePressed) - editbox:SetScript("OnEnterPressed", EditBox_OnEnterPressed) - editbox:SetScript("OnTextChanged", EditBox_OnTextChanged) - editbox:SetScript("OnReceiveDrag", EditBox_OnReceiveDrag) - editbox:SetScript("OnMouseDown", EditBox_OnReceiveDrag) - editbox:SetScript("OnEditFocusGained", EditBox_OnFocusGained) - editbox:SetTextInsets(0, 0, 3, 3) - editbox:SetMaxLetters(256) - editbox:SetPoint("BOTTOMLEFT", 6, 0) - editbox:SetPoint("BOTTOMRIGHT") - editbox:SetHeight(19) - - local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall") - label:SetPoint("TOPLEFT", 0, -2) - label:SetPoint("TOPRIGHT", 0, -2) - label:SetJustifyH("LEFT") - label:SetHeight(18) - - local button = CreateFrame("Button", nil, editbox, "UIPanelButtonTemplate") - button:SetWidth(40) - button:SetHeight(20) - button:SetPoint("RIGHT", -2, 0) - button:SetText(OKAY) - button:SetScript("OnClick", Button_OnClick) - button:Hide() - - local widget = { - alignoffset = 30, - editbox = editbox, - label = label, - button = button, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - editbox.obj, button.obj = widget, widget - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua deleted file mode 100755 index 670cd4e..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua +++ /dev/null @@ -1,78 +0,0 @@ ---[[----------------------------------------------------------------------------- -Heading Widget --------------------------------------------------------------------------------]] -local Type, Version = "Heading", 20 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetText() - self:SetFullWidth() - self:SetHeight(18) - end, - - -- ["OnRelease"] = nil, - - ["SetText"] = function(self, text) - self.label:SetText(text or "") - if text and text ~= "" then - self.left:SetPoint("RIGHT", self.label, "LEFT", -5, 0) - self.right:Show() - else - self.left:SetPoint("RIGHT", -3, 0) - self.right:Hide() - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - frame:Hide() - - local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontNormal") - label:SetPoint("TOP") - label:SetPoint("BOTTOM") - label:SetJustifyH("CENTER") - - local left = frame:CreateTexture(nil, "BACKGROUND") - left:SetHeight(8) - left:SetPoint("LEFT", 3, 0) - left:SetPoint("RIGHT", label, "LEFT", -5, 0) - left:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - left:SetTexCoord(0.81, 0.94, 0.5, 1) - - local right = frame:CreateTexture(nil, "BACKGROUND") - right:SetHeight(8) - right:SetPoint("RIGHT", -3, 0) - right:SetPoint("LEFT", label, "RIGHT", 5, 0) - right:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border - right:SetTexCoord(0.81, 0.94, 0.5, 1) - - local widget = { - label = label, - left = left, - right = right, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua deleted file mode 100755 index 092697e..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua +++ /dev/null @@ -1,140 +0,0 @@ ---[[----------------------------------------------------------------------------- -Icon Widget --------------------------------------------------------------------------------]] -local Type, Version = "Icon", 21 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local select, pairs, print = select, pairs, print - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function Button_OnClick(frame, button) - frame.obj:Fire("OnClick", button) - AceGUI:ClearFocus() -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetHeight(110) - self:SetWidth(110) - self:SetLabel() - self:SetImage(nil) - self:SetImageSize(64, 64) - self:SetDisabled(false) - end, - - -- ["OnRelease"] = nil, - - ["SetLabel"] = function(self, text) - if text and text ~= "" then - self.label:Show() - self.label:SetText(text) - self:SetHeight(self.image:GetHeight() + 25) - else - self.label:Hide() - self:SetHeight(self.image:GetHeight() + 10) - end - end, - - ["SetImage"] = function(self, path, ...) - local image = self.image - image:SetTexture(path) - - if image:GetTexture() then - local n = select("#", ...) - if n == 4 or n == 8 then - image:SetTexCoord(...) - else - image:SetTexCoord(0, 1, 0, 1) - end - end - end, - - ["SetImageSize"] = function(self, width, height) - self.image:SetWidth(width) - self.image:SetHeight(height) - --self.frame:SetWidth(width + 30) - if self.label:IsShown() then - self:SetHeight(height + 25) - else - self:SetHeight(height + 10) - end - end, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.frame:Disable() - self.label:SetTextColor(0.5, 0.5, 0.5) - self.image:SetVertexColor(0.5, 0.5, 0.5, 0.5) - else - self.frame:Enable() - self.label:SetTextColor(1, 1, 1) - self.image:SetVertexColor(1, 1, 1, 1) - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Button", nil, UIParent) - frame:Hide() - - frame:EnableMouse(true) - frame:SetScript("OnEnter", Control_OnEnter) - frame:SetScript("OnLeave", Control_OnLeave) - frame:SetScript("OnClick", Button_OnClick) - - local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontHighlight") - label:SetPoint("BOTTOMLEFT") - label:SetPoint("BOTTOMRIGHT") - label:SetJustifyH("CENTER") - label:SetJustifyV("TOP") - label:SetHeight(18) - - local image = frame:CreateTexture(nil, "BACKGROUND") - image:SetWidth(64) - image:SetHeight(64) - image:SetPoint("TOP", 0, -5) - - local highlight = frame:CreateTexture(nil, "HIGHLIGHT") - highlight:SetAllPoints(image) - highlight:SetTexture(136580) -- Interface\\PaperDollInfoFrame\\UI-Character-Tab-Highlight - highlight:SetTexCoord(0, 1, 0.23, 0.77) - highlight:SetBlendMode("ADD") - - local widget = { - label = label, - image = image, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - widget.SetText = function(self, ...) print("AceGUI-3.0-Icon: SetText is deprecated! Use SetLabel instead!"); self:SetLabel(...) end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua deleted file mode 100755 index 76a2cf9..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua +++ /dev/null @@ -1,94 +0,0 @@ ---[[----------------------------------------------------------------------------- -InteractiveLabel Widget --------------------------------------------------------------------------------]] -local Type, Version = "InteractiveLabel", 21 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local select, pairs = select, pairs - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function Label_OnClick(frame, button) - frame.obj:Fire("OnClick", button) - AceGUI:ClearFocus() -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:LabelOnAcquire() - self:SetHighlight() - self:SetHighlightTexCoord() - self:SetDisabled(false) - end, - - -- ["OnRelease"] = nil, - - ["SetHighlight"] = function(self, ...) - self.highlight:SetTexture(...) - end, - - ["SetHighlightTexCoord"] = function(self, ...) - local c = select("#", ...) - if c == 4 or c == 8 then - self.highlight:SetTexCoord(...) - else - self.highlight:SetTexCoord(0, 1, 0, 1) - end - end, - - ["SetDisabled"] = function(self,disabled) - self.disabled = disabled - if disabled then - self.frame:EnableMouse(false) - self.label:SetTextColor(0.5, 0.5, 0.5) - else - self.frame:EnableMouse(true) - self.label:SetTextColor(1, 1, 1) - end - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - -- create a Label type that we will hijack - local label = AceGUI:Create("Label") - - local frame = label.frame - frame:EnableMouse(true) - frame:SetScript("OnEnter", Control_OnEnter) - frame:SetScript("OnLeave", Control_OnLeave) - frame:SetScript("OnMouseDown", Label_OnClick) - - local highlight = frame:CreateTexture(nil, "HIGHLIGHT") - highlight:SetTexture(nil) - highlight:SetAllPoints() - highlight:SetBlendMode("ADD") - - label.highlight = highlight - label.type = Type - label.LabelOnAcquire = label.OnAcquire - for method, func in pairs(methods) do - label[method] = func - end - - return label -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) - diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua deleted file mode 100755 index 96f7e5b..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua +++ /dev/null @@ -1,245 +0,0 @@ ---[[----------------------------------------------------------------------------- -Keybinding Widget -Set Keybindings in the Config UI. --------------------------------------------------------------------------------]] -local Type, Version = "Keybinding", 26 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local IsShiftKeyDown, IsControlKeyDown, IsAltKeyDown = IsShiftKeyDown, IsControlKeyDown, IsAltKeyDown -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] - -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function Keybinding_OnClick(frame, button) - if button == "LeftButton" or button == "RightButton" then - local self = frame.obj - if self.waitingForKey then - frame:EnableKeyboard(false) - frame:EnableMouseWheel(false) - self.msgframe:Hide() - frame:UnlockHighlight() - self.waitingForKey = nil - else - frame:EnableKeyboard(true) - frame:EnableMouseWheel(true) - self.msgframe:Show() - frame:LockHighlight() - self.waitingForKey = true - end - end - AceGUI:ClearFocus() -end - -local ignoreKeys = { - ["BUTTON1"] = true, ["BUTTON2"] = true, - ["UNKNOWN"] = true, - ["LSHIFT"] = true, ["LCTRL"] = true, ["LALT"] = true, - ["RSHIFT"] = true, ["RCTRL"] = true, ["RALT"] = true, -} -local function Keybinding_OnKeyDown(frame, key) - local self = frame.obj - if self.waitingForKey then - local keyPressed = key - if keyPressed == "ESCAPE" then - keyPressed = "" - else - if ignoreKeys[keyPressed] then return end - if IsShiftKeyDown() then - keyPressed = "SHIFT-"..keyPressed - end - if IsControlKeyDown() then - keyPressed = "CTRL-"..keyPressed - end - if IsAltKeyDown() then - keyPressed = "ALT-"..keyPressed - end - end - - frame:EnableKeyboard(false) - frame:EnableMouseWheel(false) - self.msgframe:Hide() - frame:UnlockHighlight() - self.waitingForKey = nil - - if not self.disabled then - self:SetKey(keyPressed) - self:Fire("OnKeyChanged", keyPressed) - end - end -end - -local function Keybinding_OnMouseDown(frame, button) - if button == "LeftButton" or button == "RightButton" then - return - elseif button == "MiddleButton" then - button = "BUTTON3" - elseif button == "Button4" then - button = "BUTTON4" - elseif button == "Button5" then - button = "BUTTON5" - end - Keybinding_OnKeyDown(frame, button) -end - -local function Keybinding_OnMouseWheel(frame, direction) - local button - if direction >= 0 then - button = "MOUSEWHEELUP" - else - button = "MOUSEWHEELDOWN" - end - Keybinding_OnKeyDown(frame, button) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetWidth(200) - self:SetLabel("") - self:SetKey("") - self.waitingForKey = nil - self.msgframe:Hide() - self:SetDisabled(false) - self.button:EnableKeyboard(false) - self.button:EnableMouseWheel(false) - end, - - -- ["OnRelease"] = nil, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.button:Disable() - self.label:SetTextColor(0.5,0.5,0.5) - else - self.button:Enable() - self.label:SetTextColor(1,1,1) - end - end, - - ["SetKey"] = function(self, key) - if (key or "") == "" then - self.button:SetText(NOT_BOUND) - self.button:SetNormalFontObject("GameFontNormal") - else - self.button:SetText(key) - self.button:SetNormalFontObject("GameFontHighlight") - end - end, - - ["GetKey"] = function(self) - local key = self.button:GetText() - if key == NOT_BOUND then - key = nil - end - return key - end, - - ["SetLabel"] = function(self, label) - self.label:SetText(label or "") - if (label or "") == "" then - self.alignoffset = nil - self:SetHeight(24) - else - self.alignoffset = 30 - self:SetHeight(44) - end - end, -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] - -local ControlBackdrop = { - bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", - edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", - tile = true, tileSize = 16, edgeSize = 16, - insets = { left = 3, right = 3, top = 3, bottom = 3 } -} - -local function keybindingMsgFixWidth(frame) - frame:SetWidth(frame.msg:GetWidth() + 10) - frame:SetScript("OnUpdate", nil) -end - -local function Constructor() - local name = "AceGUI30KeybindingButton" .. AceGUI:GetNextWidgetNum(Type) - - local frame = CreateFrame("Frame", nil, UIParent) - local button = CreateFrame("Button", name, frame, "UIPanelButtonTemplate") - - button:EnableMouse(true) - button:EnableMouseWheel(false) - button:RegisterForClicks("AnyDown") - button:SetScript("OnEnter", Control_OnEnter) - button:SetScript("OnLeave", Control_OnLeave) - button:SetScript("OnClick", Keybinding_OnClick) - button:SetScript("OnKeyDown", Keybinding_OnKeyDown) - button:SetScript("OnMouseDown", Keybinding_OnMouseDown) - button:SetScript("OnMouseWheel", Keybinding_OnMouseWheel) - button:SetPoint("BOTTOMLEFT") - button:SetPoint("BOTTOMRIGHT") - button:SetHeight(24) - button:EnableKeyboard(false) - - local text = button:GetFontString() - text:SetPoint("LEFT", 7, 0) - text:SetPoint("RIGHT", -7, 0) - - local label = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight") - label:SetPoint("TOPLEFT") - label:SetPoint("TOPRIGHT") - label:SetJustifyH("CENTER") - label:SetHeight(18) - - local msgframe = CreateFrame("Frame", nil, UIParent, "BackdropTemplate") - msgframe:SetHeight(30) - msgframe:SetBackdrop(ControlBackdrop) - msgframe:SetBackdropColor(0,0,0) - msgframe:SetFrameStrata("FULLSCREEN_DIALOG") - msgframe:SetFrameLevel(1000) - msgframe:SetToplevel(true) - - local msg = msgframe:CreateFontString(nil, "OVERLAY", "GameFontNormal") - msg:SetText("Press a key to bind, ESC to clear the binding or click the button again to cancel.") - msgframe.msg = msg - msg:SetPoint("TOPLEFT", 5, -5) - msgframe:SetScript("OnUpdate", keybindingMsgFixWidth) - msgframe:SetPoint("BOTTOM", button, "TOP") - msgframe:Hide() - - local widget = { - button = button, - label = label, - msgframe = msgframe, - frame = frame, - alignoffset = 30, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - button.obj = widget - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua deleted file mode 100755 index 6bbcf3b..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua +++ /dev/null @@ -1,179 +0,0 @@ ---[[----------------------------------------------------------------------------- -Label Widget -Displays text and optionally an icon. --------------------------------------------------------------------------------]] -local Type, Version = "Label", 28 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local max, select, pairs = math.max, select, pairs - --- WoW APIs -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] - -local function UpdateImageAnchor(self) - if self.resizing then return end - local frame = self.frame - local width = frame.width or frame:GetWidth() or 0 - local image = self.image - local label = self.label - local height - - label:ClearAllPoints() - image:ClearAllPoints() - - if self.imageshown then - local imagewidth = image:GetWidth() - if (width - imagewidth) < 200 or (label:GetText() or "") == "" then - -- image goes on top centered when less than 200 width for the text, or if there is no text - image:SetPoint("TOP") - label:SetPoint("TOP", image, "BOTTOM") - label:SetPoint("LEFT") - label:SetWidth(width) - height = image:GetHeight() + label:GetStringHeight() - else - -- image on the left - image:SetPoint("TOPLEFT") - if image:GetHeight() > label:GetStringHeight() then - label:SetPoint("LEFT", image, "RIGHT", 4, 0) - else - label:SetPoint("TOPLEFT", image, "TOPRIGHT", 4, 0) - end - label:SetWidth(width - imagewidth - 4) - height = max(image:GetHeight(), label:GetStringHeight()) - end - else - -- no image shown - label:SetPoint("TOPLEFT") - label:SetWidth(width) - height = label:GetStringHeight() - end - - -- avoid zero-height labels, since they can used as spacers - if not height or height == 0 then - height = 1 - end - - self.resizing = true - frame:SetHeight(height) - frame.height = height - self.resizing = nil -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - -- set the flag to stop constant size updates - self.resizing = true - -- height is set dynamically by the text and image size - self:SetWidth(200) - self:SetText() - self:SetImage(nil) - self:SetImageSize(16, 16) - self:SetColor() - self:SetFontObject() - self:SetJustifyH("LEFT") - self:SetJustifyV("TOP") - - -- reset the flag - self.resizing = nil - -- run the update explicitly - UpdateImageAnchor(self) - end, - - -- ["OnRelease"] = nil, - - ["OnWidthSet"] = function(self, width) - UpdateImageAnchor(self) - end, - - ["SetText"] = function(self, text) - self.label:SetText(text) - UpdateImageAnchor(self) - end, - - ["SetColor"] = function(self, r, g, b) - if not (r and g and b) then - r, g, b = 1, 1, 1 - end - self.label:SetVertexColor(r, g, b) - end, - - ["SetImage"] = function(self, path, ...) - local image = self.image - image:SetTexture(path) - - if image:GetTexture() then - self.imageshown = true - local n = select("#", ...) - if n == 4 or n == 8 then - image:SetTexCoord(...) - else - image:SetTexCoord(0, 1, 0, 1) - end - else - self.imageshown = nil - end - UpdateImageAnchor(self) - end, - - ["SetFont"] = function(self, font, height, flags) - if not self.fontObject then - self.fontObject = CreateFont("AceGUI30LabelFont" .. AceGUI:GetNextWidgetNum(Type)) - end - self.fontObject:SetFont(font, height, flags) - self:SetFontObject(self.fontObject) - end, - - ["SetFontObject"] = function(self, font) - self.label:SetFontObject(font or GameFontHighlightSmall) - UpdateImageAnchor(self) - end, - - ["SetImageSize"] = function(self, width, height) - self.image:SetWidth(width) - self.image:SetHeight(height) - UpdateImageAnchor(self) - end, - - ["SetJustifyH"] = function(self, justifyH) - self.label:SetJustifyH(justifyH) - end, - - ["SetJustifyV"] = function(self, justifyV) - self.label:SetJustifyV(justifyV) - end, -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - frame:Hide() - - local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontHighlightSmall") - local image = frame:CreateTexture(nil, "BACKGROUND") - - -- create widget - local widget = { - label = label, - image = image, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua deleted file mode 100755 index c33a986..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua +++ /dev/null @@ -1,369 +0,0 @@ -local Type, Version = "MultiLineEditBox", 32 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local pairs = pairs - --- WoW APIs -local GetCursorInfo, GetSpellInfo, ClearCursor = GetCursorInfo, GetSpellInfo, ClearCursor -local CreateFrame, UIParent = CreateFrame, UIParent -local _G = _G - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] - -if not AceGUIMultiLineEditBoxInsertLink then - -- upgradeable hook - hooksecurefunc("ChatEdit_InsertLink", function(...) return _G.AceGUIMultiLineEditBoxInsertLink(...) end) -end - -function _G.AceGUIMultiLineEditBoxInsertLink(text) - for i = 1, AceGUI:GetWidgetCount(Type) do - local editbox = _G[("MultiLineEditBox%uEdit"):format(i)] - if editbox and editbox:IsVisible() and editbox:HasFocus() then - editbox:Insert(text) - return true - end - end -end - - -local function Layout(self) - self:SetHeight(self.numlines * 14 + (self.disablebutton and 19 or 41) + self.labelHeight) - - if self.labelHeight == 0 then - self.scrollBar:SetPoint("TOP", self.frame, "TOP", 0, -23) - else - self.scrollBar:SetPoint("TOP", self.label, "BOTTOM", 0, -19) - end - - if self.disablebutton then - self.scrollBar:SetPoint("BOTTOM", self.frame, "BOTTOM", 0, 21) - self.scrollBG:SetPoint("BOTTOMLEFT", 0, 4) - else - self.scrollBar:SetPoint("BOTTOM", self.button, "TOP", 0, 18) - self.scrollBG:SetPoint("BOTTOMLEFT", self.button, "TOPLEFT") - end -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function OnClick(self) -- Button - self = self.obj - self.editBox:ClearFocus() - if not self:Fire("OnEnterPressed", self.editBox:GetText()) then - self.button:Disable() - end -end - -local function OnCursorChanged(self, _, y, _, cursorHeight) -- EditBox - self, y = self.obj.scrollFrame, -y - local offset = self:GetVerticalScroll() - if y < offset then - self:SetVerticalScroll(y) - else - y = y + cursorHeight - self:GetHeight() - if y > offset then - self:SetVerticalScroll(y) - end - end -end - -local function OnEditFocusLost(self) -- EditBox - self:HighlightText(0, 0) - self.obj:Fire("OnEditFocusLost") -end - -local function OnEnter(self) -- EditBox / ScrollFrame - self = self.obj - if not self.entered then - self.entered = true - self:Fire("OnEnter") - end -end - -local function OnLeave(self) -- EditBox / ScrollFrame - self = self.obj - if self.entered then - self.entered = nil - self:Fire("OnLeave") - end -end - -local function OnMouseUp(self) -- ScrollFrame - self = self.obj.editBox - self:SetFocus() - self:SetCursorPosition(self:GetNumLetters()) -end - -local function OnReceiveDrag(self) -- EditBox / ScrollFrame - local type, id, info = GetCursorInfo() - if type == "spell" then - info = GetSpellInfo(id, info) - elseif type ~= "item" then - return - end - ClearCursor() - self = self.obj - local editBox = self.editBox - if not editBox:HasFocus() then - editBox:SetFocus() - editBox:SetCursorPosition(editBox:GetNumLetters()) - end - editBox:Insert(info) - self.button:Enable() -end - -local function OnSizeChanged(self, width, height) -- ScrollFrame - self.obj.editBox:SetWidth(width) -end - -local function OnTextChanged(self, userInput) -- EditBox - if userInput then - self = self.obj - self:Fire("OnTextChanged", self.editBox:GetText()) - self.button:Enable() - end -end - -local function OnTextSet(self) -- EditBox - self:HighlightText(0, 0) - self:SetCursorPosition(self:GetNumLetters()) - self:SetCursorPosition(0) - self.obj.button:Disable() -end - -local function OnVerticalScroll(self, offset) -- ScrollFrame - local editBox = self.obj.editBox - editBox:SetHitRectInsets(0, 0, offset, editBox:GetHeight() - offset - self:GetHeight()) -end - -local function OnScrollRangeChanged(self, xrange, yrange) - if yrange == 0 then - self.obj.editBox:SetHitRectInsets(0, 0, 0, 0) - else - OnVerticalScroll(self, self:GetVerticalScroll()) - end -end - -local function OnShowFocus(frame) - frame.obj.editBox:SetFocus() - frame:SetScript("OnShow", nil) -end - -local function OnEditFocusGained(frame) - AceGUI:SetFocus(frame.obj) - frame.obj:Fire("OnEditFocusGained") -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self.editBox:SetText("") - self:SetDisabled(false) - self:SetWidth(200) - self:DisableButton(false) - self:SetNumLines() - self.entered = nil - self:SetMaxLetters(0) - end, - - ["OnRelease"] = function(self) - self:ClearFocus() - end, - - ["SetDisabled"] = function(self, disabled) - local editBox = self.editBox - if disabled then - editBox:ClearFocus() - editBox:EnableMouse(false) - editBox:SetTextColor(0.5, 0.5, 0.5) - self.label:SetTextColor(0.5, 0.5, 0.5) - self.scrollFrame:EnableMouse(false) - self.button:Disable() - else - editBox:EnableMouse(true) - editBox:SetTextColor(1, 1, 1) - self.label:SetTextColor(1, 0.82, 0) - self.scrollFrame:EnableMouse(true) - end - end, - - ["SetLabel"] = function(self, text) - if text and text ~= "" then - self.label:SetText(text) - if self.labelHeight ~= 10 then - self.labelHeight = 10 - self.label:Show() - end - elseif self.labelHeight ~= 0 then - self.labelHeight = 0 - self.label:Hide() - end - Layout(self) - end, - - ["SetNumLines"] = function(self, value) - if not value or value < 4 then - value = 4 - end - self.numlines = value - Layout(self) - end, - - ["SetText"] = function(self, text) - self.editBox:SetText(text) - end, - - ["GetText"] = function(self) - return self.editBox:GetText() - end, - - ["SetMaxLetters"] = function (self, num) - self.editBox:SetMaxLetters(num or 0) - end, - - ["DisableButton"] = function(self, disabled) - self.disablebutton = disabled - if disabled then - self.button:Hide() - else - self.button:Show() - end - Layout(self) - end, - - ["ClearFocus"] = function(self) - self.editBox:ClearFocus() - self.frame:SetScript("OnShow", nil) - end, - - ["SetFocus"] = function(self) - self.editBox:SetFocus() - if not self.frame:IsShown() then - self.frame:SetScript("OnShow", OnShowFocus) - end - end, - - ["HighlightText"] = function(self, from, to) - self.editBox:HighlightText(from, to) - end, - - ["GetCursorPosition"] = function(self) - return self.editBox:GetCursorPosition() - end, - - ["SetCursorPosition"] = function(self, ...) - return self.editBox:SetCursorPosition(...) - end, -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local backdrop = { - bgFile = [[Interface\Tooltips\UI-Tooltip-Background]], - edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]], edgeSize = 16, - insets = { left = 4, right = 3, top = 4, bottom = 3 } -} - -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - frame:Hide() - - local widgetNum = AceGUI:GetNextWidgetNum(Type) - - local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall") - label:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, -4) - label:SetPoint("TOPRIGHT", frame, "TOPRIGHT", 0, -4) - label:SetJustifyH("LEFT") - label:SetText(ACCEPT) - label:SetHeight(10) - - local button = CreateFrame("Button", ("%s%dButton"):format(Type, widgetNum), frame, "UIPanelButtonTemplate") - button:SetPoint("BOTTOMLEFT", 0, 4) - button:SetHeight(22) - button:SetWidth(label:GetStringWidth() + 24) - button:SetText(ACCEPT) - button:SetScript("OnClick", OnClick) - button:Disable() - - local text = button:GetFontString() - text:ClearAllPoints() - text:SetPoint("TOPLEFT", button, "TOPLEFT", 5, -5) - text:SetPoint("BOTTOMRIGHT", button, "BOTTOMRIGHT", -5, 1) - text:SetJustifyV("MIDDLE") - - local scrollBG = CreateFrame("Frame", nil, frame, "BackdropTemplate") - scrollBG:SetBackdrop(backdrop) - scrollBG:SetBackdropColor(0, 0, 0) - scrollBG:SetBackdropBorderColor(0.4, 0.4, 0.4) - - local scrollFrame = CreateFrame("ScrollFrame", ("%s%dScrollFrame"):format(Type, widgetNum), frame, "UIPanelScrollFrameTemplate") - - local scrollBar = _G[scrollFrame:GetName() .. "ScrollBar"] - scrollBar:ClearAllPoints() - scrollBar:SetPoint("TOP", label, "BOTTOM", 0, -19) - scrollBar:SetPoint("BOTTOM", button, "TOP", 0, 18) - scrollBar:SetPoint("RIGHT", frame, "RIGHT") - - scrollBG:SetPoint("TOPRIGHT", scrollBar, "TOPLEFT", 0, 19) - scrollBG:SetPoint("BOTTOMLEFT", button, "TOPLEFT") - - scrollFrame:SetPoint("TOPLEFT", scrollBG, "TOPLEFT", 5, -6) - scrollFrame:SetPoint("BOTTOMRIGHT", scrollBG, "BOTTOMRIGHT", -4, 4) - scrollFrame:SetScript("OnEnter", OnEnter) - scrollFrame:SetScript("OnLeave", OnLeave) - scrollFrame:SetScript("OnMouseUp", OnMouseUp) - scrollFrame:SetScript("OnReceiveDrag", OnReceiveDrag) - scrollFrame:SetScript("OnSizeChanged", OnSizeChanged) - scrollFrame:HookScript("OnVerticalScroll", OnVerticalScroll) - scrollFrame:HookScript("OnScrollRangeChanged", OnScrollRangeChanged) - - local editBox = CreateFrame("EditBox", ("%s%dEdit"):format(Type, widgetNum), scrollFrame) - editBox:SetAllPoints() - editBox:SetFontObject(ChatFontNormal) - editBox:SetMultiLine(true) - editBox:EnableMouse(true) - editBox:SetAutoFocus(false) - editBox:SetCountInvisibleLetters(false) - editBox:SetScript("OnCursorChanged", OnCursorChanged) - editBox:SetScript("OnEditFocusLost", OnEditFocusLost) - editBox:SetScript("OnEnter", OnEnter) - editBox:SetScript("OnEscapePressed", editBox.ClearFocus) - editBox:SetScript("OnLeave", OnLeave) - editBox:SetScript("OnMouseDown", OnReceiveDrag) - editBox:SetScript("OnReceiveDrag", OnReceiveDrag) - editBox:SetScript("OnTextChanged", OnTextChanged) - editBox:SetScript("OnTextSet", OnTextSet) - editBox:SetScript("OnEditFocusGained", OnEditFocusGained) - - - scrollFrame:SetScrollChild(editBox) - - local widget = { - button = button, - editBox = editBox, - frame = frame, - label = label, - labelHeight = 10, - numlines = 4, - scrollBar = scrollBar, - scrollBG = scrollBG, - scrollFrame = scrollFrame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - button.obj, editBox.obj, scrollFrame.obj = widget, widget, widget - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type, Constructor, Version) diff --git a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua b/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua deleted file mode 100755 index 8989608..0000000 --- a/Titan/libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua +++ /dev/null @@ -1,280 +0,0 @@ ---[[----------------------------------------------------------------------------- -Slider Widget -Graphical Slider, like, for Range values. --------------------------------------------------------------------------------]] -local Type, Version = "Slider", 23 -local AceGUI = LibStub and LibStub("AceGUI-3.0", true) -if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end - --- Lua APIs -local min, max, floor = math.min, math.max, math.floor -local tonumber, pairs = tonumber, pairs - --- WoW APIs -local PlaySound = PlaySound -local CreateFrame, UIParent = CreateFrame, UIParent - ---[[----------------------------------------------------------------------------- -Support functions --------------------------------------------------------------------------------]] -local function UpdateText(self) - local value = self.value or 0 - if self.ispercent then - self.editbox:SetText(("%s%%"):format(floor(value * 1000 + 0.5) / 10)) - else - self.editbox:SetText(floor(value * 100 + 0.5) / 100) - end -end - -local function UpdateLabels(self) - local min_value, max_value = (self.min or 0), (self.max or 100) - if self.ispercent then - self.lowtext:SetFormattedText("%s%%", (min_value * 100)) - self.hightext:SetFormattedText("%s%%", (max_value * 100)) - else - self.lowtext:SetText(min_value) - self.hightext:SetText(max_value) - end -end - ---[[----------------------------------------------------------------------------- -Scripts --------------------------------------------------------------------------------]] -local function Control_OnEnter(frame) - frame.obj:Fire("OnEnter") -end - -local function Control_OnLeave(frame) - frame.obj:Fire("OnLeave") -end - -local function Frame_OnMouseDown(frame) - frame.obj.slider:EnableMouseWheel(true) - AceGUI:ClearFocus() -end - -local function Slider_OnValueChanged(frame, newvalue) - local self = frame.obj - if not frame.setup then - if self.step and self.step > 0 then - local min_value = self.min or 0 - newvalue = floor((newvalue - min_value) / self.step + 0.5) * self.step + min_value - end - if newvalue ~= self.value and not self.disabled then - self.value = newvalue - self:Fire("OnValueChanged", newvalue) - end - if self.value then - UpdateText(self) - end - end -end - -local function Slider_OnMouseUp(frame) - local self = frame.obj - self:Fire("OnMouseUp", self.value) -end - -local function Slider_OnMouseWheel(frame, v) - local self = frame.obj - if not self.disabled then - local value = self.value - if v > 0 then - value = min(value + (self.step or 1), self.max) - else - value = max(value - (self.step or 1), self.min) - end - self.slider:SetValue(value) - end -end - -local function EditBox_OnEscapePressed(frame) - frame:ClearFocus() -end - -local function EditBox_OnEnterPressed(frame) - local self = frame.obj - local value = frame:GetText() - if self.ispercent then - value = value:gsub('%%', '') - value = tonumber(value) / 100 - else - value = tonumber(value) - end - - if value then - PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON - self.slider:SetValue(value) - self:Fire("OnMouseUp", value) - end -end - -local function EditBox_OnEnter(frame) - frame:SetBackdropBorderColor(0.5, 0.5, 0.5, 1) -end - -local function EditBox_OnLeave(frame) - frame:SetBackdropBorderColor(0.3, 0.3, 0.3, 0.8) -end - ---[[----------------------------------------------------------------------------- -Methods --------------------------------------------------------------------------------]] -local methods = { - ["OnAcquire"] = function(self) - self:SetWidth(200) - self:SetHeight(44) - self:SetDisabled(false) - self:SetIsPercent(nil) - self:SetSliderValues(0,100,1) - self:SetValue(0) - self.slider:EnableMouseWheel(false) - end, - - -- ["OnRelease"] = nil, - - ["SetDisabled"] = function(self, disabled) - self.disabled = disabled - if disabled then - self.slider:EnableMouse(false) - self.label:SetTextColor(.5, .5, .5) - self.hightext:SetTextColor(.5, .5, .5) - self.lowtext:SetTextColor(.5, .5, .5) - --self.valuetext:SetTextColor(.5, .5, .5) - self.editbox:SetTextColor(.5, .5, .5) - self.editbox:EnableMouse(false) - self.editbox:ClearFocus() - else - self.slider:EnableMouse(true) - self.label:SetTextColor(1, .82, 0) - self.hightext:SetTextColor(1, 1, 1) - self.lowtext:SetTextColor(1, 1, 1) - --self.valuetext:SetTextColor(1, 1, 1) - self.editbox:SetTextColor(1, 1, 1) - self.editbox:EnableMouse(true) - end - end, - - ["SetValue"] = function(self, value) - self.slider.setup = true - self.slider:SetValue(value) - self.value = value - UpdateText(self) - self.slider.setup = nil - end, - - ["GetValue"] = function(self) - return self.value - end, - - ["SetLabel"] = function(self, text) - self.label:SetText(text) - end, - - ["SetSliderValues"] = function(self, min_value, max_value, step) - local frame = self.slider - frame.setup = true - self.min = min_value - self.max = max_value - self.step = step - frame:SetMinMaxValues(min_value or 0,max_value or 100) - UpdateLabels(self) - frame:SetValueStep(step or 1) - if self.value then - frame:SetValue(self.value) - end - frame.setup = nil - end, - - ["SetIsPercent"] = function(self, value) - self.ispercent = value - UpdateLabels(self) - UpdateText(self) - end -} - ---[[----------------------------------------------------------------------------- -Constructor --------------------------------------------------------------------------------]] -local SliderBackdrop = { - bgFile = "Interface\\Buttons\\UI-SliderBar-Background", - edgeFile = "Interface\\Buttons\\UI-SliderBar-Border", - tile = true, tileSize = 8, edgeSize = 8, - insets = { left = 3, right = 3, top = 6, bottom = 6 } -} - -local ManualBackdrop = { - bgFile = "Interface\\ChatFrame\\ChatFrameBackground", - edgeFile = "Interface\\ChatFrame\\ChatFrameBackground", - tile = true, edgeSize = 1, tileSize = 5, -} - -local function Constructor() - local frame = CreateFrame("Frame", nil, UIParent) - - frame:EnableMouse(true) - frame:SetScript("OnMouseDown", Frame_OnMouseDown) - - local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal") - label:SetPoint("TOPLEFT") - label:SetPoint("TOPRIGHT") - label:SetJustifyH("CENTER") - label:SetHeight(15) - - local slider = CreateFrame("Slider", nil, frame, "BackdropTemplate") - slider:SetOrientation("HORIZONTAL") - slider:SetHeight(15) - slider:SetHitRectInsets(0, 0, -10, 0) - slider:SetBackdrop(SliderBackdrop) - slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Horizontal") - slider:SetPoint("TOP", label, "BOTTOM") - slider:SetPoint("LEFT", 3, 0) - slider:SetPoint("RIGHT", -3, 0) - slider:SetValue(0) - slider:SetScript("OnValueChanged",Slider_OnValueChanged) - slider:SetScript("OnEnter", Control_OnEnter) - slider:SetScript("OnLeave", Control_OnLeave) - slider:SetScript("OnMouseUp", Slider_OnMouseUp) - slider:SetScript("OnMouseWheel", Slider_OnMouseWheel) - - local lowtext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall") - lowtext:SetPoint("TOPLEFT", slider, "BOTTOMLEFT", 2, 3) - - local hightext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall") - hightext:SetPoint("TOPRIGHT", slider, "BOTTOMRIGHT", -2, 3) - - local editbox = CreateFrame("EditBox", nil, frame, "BackdropTemplate") - editbox:SetAutoFocus(false) - editbox:SetFontObject(GameFontHighlightSmall) - editbox:SetPoint("TOP", slider, "BOTTOM") - editbox:SetHeight(14) - editbox:SetWidth(70) - editbox:SetJustifyH("CENTER") - editbox:EnableMouse(true) - editbox:SetBackdrop(ManualBackdrop) - editbox:SetBackdropColor(0, 0, 0, 0.5) - editbox:SetBackdropBorderColor(0.3, 0.3, 0.30, 0.80) - editbox:SetScript("OnEnter", EditBox_OnEnter) - editbox:SetScript("OnLeave", EditBox_OnLeave) - editbox:SetScript("OnEnterPressed", EditBox_OnEnterPressed) - editbox:SetScript("OnEscapePressed", EditBox_OnEscapePressed) - - local widget = { - label = label, - slider = slider, - lowtext = lowtext, - hightext = hightext, - editbox = editbox, - alignoffset = 25, - frame = frame, - type = Type - } - for method, func in pairs(methods) do - widget[method] = func - end - slider.obj, editbox.obj = widget, widget - - return AceGUI:RegisterAsWidget(widget) -end - -AceGUI:RegisterWidgetType(Type,Constructor,Version) diff --git a/Titan/libs/AceHook-3.0/AceHook-3.0.lua b/Titan/libs/AceHook-3.0/AceHook-3.0.lua deleted file mode 100755 index 6c75f9e..0000000 --- a/Titan/libs/AceHook-3.0/AceHook-3.0.lua +++ /dev/null @@ -1,511 +0,0 @@ ---- **AceHook-3.0** offers safe Hooking/Unhooking of functions, methods and frame scripts. --- Using AceHook-3.0 is recommended when you need to unhook your hooks again, so the hook chain isn't broken --- when you manually restore the original function. --- --- **AceHook-3.0** can be embeded into your addon, either explicitly by calling AceHook:Embed(MyAddon) or by --- specifying it as an embeded library in your AceAddon. All functions will be available on your addon object --- and can be accessed directly, without having to explicitly call AceHook itself.\\ --- It is recommended to embed AceHook, otherwise you'll have to specify a custom `self` on all calls you --- make into AceHook. --- @class file --- @name AceHook-3.0 --- @release $Id: AceHook-3.0.lua 1202 2019-05-15 23:11:22Z nevcairiel $ -local ACEHOOK_MAJOR, ACEHOOK_MINOR = "AceHook-3.0", 8 -local AceHook, oldminor = LibStub:NewLibrary(ACEHOOK_MAJOR, ACEHOOK_MINOR) - -if not AceHook then return end -- No upgrade needed - -AceHook.embeded = AceHook.embeded or {} -AceHook.registry = AceHook.registry or setmetatable({}, {__index = function(tbl, key) tbl[key] = {} return tbl[key] end }) -AceHook.handlers = AceHook.handlers or {} -AceHook.actives = AceHook.actives or {} -AceHook.scripts = AceHook.scripts or {} -AceHook.onceSecure = AceHook.onceSecure or {} -AceHook.hooks = AceHook.hooks or {} - --- local upvalues -local registry = AceHook.registry -local handlers = AceHook.handlers -local actives = AceHook.actives -local scripts = AceHook.scripts -local onceSecure = AceHook.onceSecure - --- Lua APIs -local pairs, next, type = pairs, next, type -local format = string.format -local assert, error = assert, error - --- WoW APIs -local issecurevariable, hooksecurefunc = issecurevariable, hooksecurefunc -local _G = _G - --- functions for later definition -local donothing, createHook, hook - -local protectedScripts = { - OnClick = true, -} - --- upgrading of embeded is done at the bottom of the file - -local mixins = { - "Hook", "SecureHook", - "HookScript", "SecureHookScript", - "Unhook", "UnhookAll", - "IsHooked", - "RawHook", "RawHookScript" -} - --- AceHook:Embed( target ) --- target (object) - target object to embed AceHook in --- --- Embeds AceEevent into the target object making the functions from the mixins list available on target:.. -function AceHook:Embed( target ) - for k, v in pairs( mixins ) do - target[v] = self[v] - end - self.embeded[target] = true - -- inject the hooks table safely - target.hooks = target.hooks or {} - return target -end - --- AceHook:OnEmbedDisable( target ) --- target (object) - target object that is being disabled --- --- Unhooks all hooks when the target disables. --- this method should be called by the target manually or by an addon framework -function AceHook:OnEmbedDisable( target ) - target:UnhookAll() -end - -function createHook(self, handler, orig, secure, failsafe) - local uid - local method = type(handler) == "string" - if failsafe and not secure then - -- failsafe hook creation - uid = function(...) - if actives[uid] then - if method then - self[handler](self, ...) - else - handler(...) - end - end - return orig(...) - end - -- /failsafe hook - else - -- all other hooks - uid = function(...) - if actives[uid] then - if method then - return self[handler](self, ...) - else - return handler(...) - end - elseif not secure then -- backup on non secure - return orig(...) - end - end - -- /hook - end - return uid -end - -function donothing() end - -function hook(self, obj, method, handler, script, secure, raw, forceSecure, usage) - if not handler then handler = method end - - -- These asserts make sure AceHooks's devs play by the rules. - assert(not script or type(script) == "boolean") - assert(not secure or type(secure) == "boolean") - assert(not raw or type(raw) == "boolean") - assert(not forceSecure or type(forceSecure) == "boolean") - assert(usage) - - -- Error checking Battery! - if obj and type(obj) ~= "table" then - error(format("%s: 'object' - nil or table expected got %s", usage, type(obj)), 3) - end - if type(method) ~= "string" then - error(format("%s: 'method' - string expected got %s", usage, type(method)), 3) - end - if type(handler) ~= "string" and type(handler) ~= "function" then - error(format("%s: 'handler' - nil, string, or function expected got %s", usage, type(handler)), 3) - end - if type(handler) == "string" and type(self[handler]) ~= "function" then - error(format("%s: 'handler' - Handler specified does not exist at self[handler]", usage), 3) - end - if script then - if not obj or not obj.GetScript or not obj:HasScript(method) then - error(format("%s: You can only hook a script on a frame object", usage), 3) - end - if not secure and obj.IsProtected and obj:IsProtected() and protectedScripts[method] then - error(format("Cannot hook secure script %q; Use SecureHookScript(obj, method, [handler]) instead.", method), 3) - end - else - local issecure - if obj then - issecure = onceSecure[obj] and onceSecure[obj][method] or issecurevariable(obj, method) - else - issecure = onceSecure[method] or issecurevariable(method) - end - if issecure then - if forceSecure then - if obj then - onceSecure[obj] = onceSecure[obj] or {} - onceSecure[obj][method] = true - else - onceSecure[method] = true - end - elseif not secure then - error(format("%s: Attempt to hook secure function %s. Use `SecureHook' or add `true' to the argument list to override.", usage, method), 3) - end - end - end - - local uid - if obj then - uid = registry[self][obj] and registry[self][obj][method] - else - uid = registry[self][method] - end - - if uid then - if actives[uid] then - -- Only two sane choices exist here. We either a) error 100% of the time or b) always unhook and then hook - -- choice b would likely lead to odd debuging conditions or other mysteries so we're going with a. - error(format("Attempting to rehook already active hook %s.", method)) - end - - if handlers[uid] == handler then -- turn on a decative hook, note enclosures break this ability, small memory leak - actives[uid] = true - return - elseif obj then -- is there any reason not to call unhook instead of doing the following several lines? - if self.hooks and self.hooks[obj] then - self.hooks[obj][method] = nil - end - registry[self][obj][method] = nil - else - if self.hooks then - self.hooks[method] = nil - end - registry[self][method] = nil - end - handlers[uid], actives[uid], scripts[uid] = nil, nil, nil - uid = nil - end - - local orig - if script then - orig = obj:GetScript(method) or donothing - elseif obj then - orig = obj[method] - else - orig = _G[method] - end - - if not orig then - error(format("%s: Attempting to hook a non existing target", usage), 3) - end - - uid = createHook(self, handler, orig, secure, not (raw or secure)) - - if obj then - self.hooks[obj] = self.hooks[obj] or {} - registry[self][obj] = registry[self][obj] or {} - registry[self][obj][method] = uid - - if not secure then - self.hooks[obj][method] = orig - end - - if script then - if not secure then - obj:SetScript(method, uid) - else - obj:HookScript(method, uid) - end - else - if not secure then - obj[method] = uid - else - hooksecurefunc(obj, method, uid) - end - end - else - registry[self][method] = uid - - if not secure then - _G[method] = uid - self.hooks[method] = orig - else - hooksecurefunc(method, uid) - end - end - - actives[uid], handlers[uid], scripts[uid] = true, handler, script and true or nil -end - ---- Hook a function or a method on an object. --- The hook created will be a "safe hook", that means that your handler will be called --- before the hooked function ("Pre-Hook"), and you don't have to call the original function yourself, --- however you cannot stop the execution of the function, or modify any of the arguments/return values.\\ --- This type of hook is typically used if you need to know if some function got called, and don't want to modify it. --- @paramsig [object], method, [handler], [hookSecure] --- @param object The object to hook a method from --- @param method If object was specified, the name of the method, or the name of the function to hook. --- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked function) --- @param hookSecure If true, AceHook will allow hooking of secure functions. --- @usage --- -- create an addon with AceHook embeded --- MyAddon = LibStub("AceAddon-3.0"):NewAddon("HookDemo", "AceHook-3.0") --- --- function MyAddon:OnEnable() --- -- Hook ActionButton_UpdateHotkeys, overwriting the secure status --- self:Hook("ActionButton_UpdateHotkeys", true) --- end --- --- function MyAddon:ActionButton_UpdateHotkeys(button, type) --- print(button:GetName() .. " is updating its HotKey") --- end -function AceHook:Hook(object, method, handler, hookSecure) - if type(object) == "string" then - method, handler, hookSecure, object = object, method, handler, nil - end - - if handler == true then - handler, hookSecure = nil, true - end - - hook(self, object, method, handler, false, false, false, hookSecure or false, "Usage: Hook([object], method, [handler], [hookSecure])") -end - ---- RawHook a function or a method on an object. --- The hook created will be a "raw hook", that means that your handler will completly replace --- the original function, and your handler has to call the original function (or not, depending on your intentions).\\ --- The original function will be stored in `self.hooks[object][method]` or `self.hooks[functionName]` respectively.\\ --- This type of hook can be used for all purposes, and is usually the most common case when you need to modify arguments --- or want to control execution of the original function. --- @paramsig [object], method, [handler], [hookSecure] --- @param object The object to hook a method from --- @param method If object was specified, the name of the method, or the name of the function to hook. --- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked function) --- @param hookSecure If true, AceHook will allow hooking of secure functions. --- @usage --- -- create an addon with AceHook embeded --- MyAddon = LibStub("AceAddon-3.0"):NewAddon("HookDemo", "AceHook-3.0") --- --- function MyAddon:OnEnable() --- -- Hook ActionButton_UpdateHotkeys, overwriting the secure status --- self:RawHook("ActionButton_UpdateHotkeys", true) --- end --- --- function MyAddon:ActionButton_UpdateHotkeys(button, type) --- if button:GetName() == "MyButton" then --- -- do stuff here --- else --- self.hooks.ActionButton_UpdateHotkeys(button, type) --- end --- end -function AceHook:RawHook(object, method, handler, hookSecure) - if type(object) == "string" then - method, handler, hookSecure, object = object, method, handler, nil - end - - if handler == true then - handler, hookSecure = nil, true - end - - hook(self, object, method, handler, false, false, true, hookSecure or false, "Usage: RawHook([object], method, [handler], [hookSecure])") -end - ---- SecureHook a function or a method on an object. --- This function is a wrapper around the `hooksecurefunc` function in the WoW API. Using AceHook --- extends the functionality of secure hooks, and adds the ability to unhook once the hook isn't --- required anymore, or the addon is being disabled.\\ --- Secure Hooks should be used if the secure-status of the function is vital to its function, --- and taint would block execution. Secure Hooks are always called after the original function was called --- ("Post Hook"), and you cannot modify the arguments, return values or control the execution. --- @paramsig [object], method, [handler] --- @param object The object to hook a method from --- @param method If object was specified, the name of the method, or the name of the function to hook. --- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked function) -function AceHook:SecureHook(object, method, handler) - if type(object) == "string" then - method, handler, object = object, method, nil - end - - hook(self, object, method, handler, false, true, false, false, "Usage: SecureHook([object], method, [handler])") -end - ---- Hook a script handler on a frame. --- The hook created will be a "safe hook", that means that your handler will be called --- before the hooked script ("Pre-Hook"), and you don't have to call the original function yourself, --- however you cannot stop the execution of the function, or modify any of the arguments/return values.\\ --- This is the frame script equivalent of the :Hook safe-hook. It would typically be used to be notified --- when a certain event happens to a frame. --- @paramsig frame, script, [handler] --- @param frame The Frame to hook the script on --- @param script The script to hook --- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked script) --- @usage --- -- create an addon with AceHook embeded --- MyAddon = LibStub("AceAddon-3.0"):NewAddon("HookDemo", "AceHook-3.0") --- --- function MyAddon:OnEnable() --- -- Hook the OnShow of FriendsFrame --- self:HookScript(FriendsFrame, "OnShow", "FriendsFrameOnShow") --- end --- --- function MyAddon:FriendsFrameOnShow(frame) --- print("The FriendsFrame was shown!") --- end -function AceHook:HookScript(frame, script, handler) - hook(self, frame, script, handler, true, false, false, false, "Usage: HookScript(object, method, [handler])") -end - ---- RawHook a script handler on a frame. --- The hook created will be a "raw hook", that means that your handler will completly replace --- the original script, and your handler has to call the original script (or not, depending on your intentions).\\ --- The original script will be stored in `self.hooks[frame][script]`.\\ --- This type of hook can be used for all purposes, and is usually the most common case when you need to modify arguments --- or want to control execution of the original script. --- @paramsig frame, script, [handler] --- @param frame The Frame to hook the script on --- @param script The script to hook --- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked script) --- @usage --- -- create an addon with AceHook embeded --- MyAddon = LibStub("AceAddon-3.0"):NewAddon("HookDemo", "AceHook-3.0") --- --- function MyAddon:OnEnable() --- -- Hook the OnShow of FriendsFrame --- self:RawHookScript(FriendsFrame, "OnShow", "FriendsFrameOnShow") --- end --- --- function MyAddon:FriendsFrameOnShow(frame) --- -- Call the original function --- self.hooks[frame].OnShow(frame) --- -- Do our processing --- -- .. stuff --- end -function AceHook:RawHookScript(frame, script, handler) - hook(self, frame, script, handler, true, false, true, false, "Usage: RawHookScript(object, method, [handler])") -end - ---- SecureHook a script handler on a frame. --- This function is a wrapper around the `frame:HookScript` function in the WoW API. Using AceHook --- extends the functionality of secure hooks, and adds the ability to unhook once the hook isn't --- required anymore, or the addon is being disabled.\\ --- Secure Hooks should be used if the secure-status of the function is vital to its function, --- and taint would block execution. Secure Hooks are always called after the original function was called --- ("Post Hook"), and you cannot modify the arguments, return values or control the execution. --- @paramsig frame, script, [handler] --- @param frame The Frame to hook the script on --- @param script The script to hook --- @param handler The handler for the hook, a funcref or a method name. (Defaults to the name of the hooked script) -function AceHook:SecureHookScript(frame, script, handler) - hook(self, frame, script, handler, true, true, false, false, "Usage: SecureHookScript(object, method, [handler])") -end - ---- Unhook from the specified function, method or script. --- @paramsig [obj], method --- @param obj The object or frame to unhook from --- @param method The name of the method, function or script to unhook from. -function AceHook:Unhook(obj, method) - local usage = "Usage: Unhook([obj], method)" - if type(obj) == "string" then - method, obj = obj, nil - end - - if obj and type(obj) ~= "table" then - error(format("%s: 'obj' - expecting nil or table got %s", usage, type(obj)), 2) - end - if type(method) ~= "string" then - error(format("%s: 'method' - expeting string got %s", usage, type(method)), 2) - end - - local uid - if obj then - uid = registry[self][obj] and registry[self][obj][method] - else - uid = registry[self][method] - end - - if not uid or not actives[uid] then - -- Declining to error on an unneeded unhook since the end effect is the same and this would just be annoying. - return false - end - - actives[uid], handlers[uid] = nil, nil - - if obj then - registry[self][obj][method] = nil - registry[self][obj] = next(registry[self][obj]) and registry[self][obj] or nil - - -- if the hook reference doesnt exist, then its a secure hook, just bail out and dont do any unhooking - if not self.hooks[obj] or not self.hooks[obj][method] then return true end - - if scripts[uid] and obj:GetScript(method) == uid then -- unhooks scripts - obj:SetScript(method, self.hooks[obj][method] ~= donothing and self.hooks[obj][method] or nil) - scripts[uid] = nil - elseif obj and self.hooks[obj] and self.hooks[obj][method] and obj[method] == uid then -- unhooks methods - obj[method] = self.hooks[obj][method] - end - - self.hooks[obj][method] = nil - self.hooks[obj] = next(self.hooks[obj]) and self.hooks[obj] or nil - else - registry[self][method] = nil - - -- if self.hooks[method] doesn't exist, then this is a SecureHook, just bail out - if not self.hooks[method] then return true end - - if self.hooks[method] and _G[method] == uid then -- unhooks functions - _G[method] = self.hooks[method] - end - - self.hooks[method] = nil - end - return true -end - ---- Unhook all existing hooks for this addon. -function AceHook:UnhookAll() - for key, value in pairs(registry[self]) do - if type(key) == "table" then - for method in pairs(value) do - self:Unhook(key, method) - end - else - self:Unhook(key) - end - end -end - ---- Check if the specific function, method or script is already hooked. --- @paramsig [obj], method --- @param obj The object or frame to unhook from --- @param method The name of the method, function or script to unhook from. -function AceHook:IsHooked(obj, method) - -- we don't check if registry[self] exists, this is done by evil magicks in the metatable - if type(obj) == "string" then - if registry[self][obj] and actives[registry[self][obj]] then - return true, handlers[registry[self][obj]] - end - else - if registry[self][obj] and registry[self][obj][method] and actives[registry[self][obj][method]] then - return true, handlers[registry[self][obj][method]] - end - end - - return false, nil -end - ---- Upgrade our old embeded -for target, v in pairs( AceHook.embeded ) do - AceHook:Embed( target ) -end diff --git a/Titan/libs/AceHook-3.0/AceHook-3.0.xml b/Titan/libs/AceHook-3.0/AceHook-3.0.xml deleted file mode 100755 index ea2ae25..0000000 --- a/Titan/libs/AceHook-3.0/AceHook-3.0.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="AceHook-3.0.lua"/> -</Ui> diff --git a/Titan/libs/AceLocale-3.0/AceLocale-3.0.lua b/Titan/libs/AceLocale-3.0/AceLocale-3.0.lua deleted file mode 100755 index 2ecc0cb..0000000 --- a/Titan/libs/AceLocale-3.0/AceLocale-3.0.lua +++ /dev/null @@ -1,137 +0,0 @@ ---- **AceLocale-3.0** manages localization in addons, allowing for multiple locale to be registered with fallback to the base locale for untranslated strings. --- @class file --- @name AceLocale-3.0 --- @release $Id: AceLocale-3.0.lua 1035 2011-07-09 03:20:13Z kaelten $ -local MAJOR,MINOR = "AceLocale-3.0", 6 - -local AceLocale, oldminor = LibStub:NewLibrary(MAJOR, MINOR) - -if not AceLocale then return end -- no upgrade needed - --- Lua APIs -local assert, tostring, error = assert, tostring, error -local getmetatable, setmetatable, rawset, rawget = getmetatable, setmetatable, rawset, rawget - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: GAME_LOCALE, geterrorhandler - -local gameLocale = GetLocale() -if gameLocale == "enGB" then - gameLocale = "enUS" -end - -AceLocale.apps = AceLocale.apps or {} -- array of ["AppName"]=localetableref -AceLocale.appnames = AceLocale.appnames or {} -- array of [localetableref]="AppName" - --- This metatable is used on all tables returned from GetLocale -local readmeta = { - __index = function(self, key) -- requesting totally unknown entries: fire off a nonbreaking error and return key - rawset(self, key, key) -- only need to see the warning once, really - geterrorhandler()(MAJOR..": "..tostring(AceLocale.appnames[self])..": Missing entry for '"..tostring(key).."'") - return key - end -} - --- This metatable is used on all tables returned from GetLocale if the silent flag is true, it does not issue a warning on unknown keys -local readmetasilent = { - __index = function(self, key) -- requesting totally unknown entries: return key - rawset(self, key, key) -- only need to invoke this function once - return key - end -} - --- Remember the locale table being registered right now (it gets set by :NewLocale()) --- NOTE: Do never try to register 2 locale tables at once and mix their definition. -local registering - --- local assert false function -local assertfalse = function() assert(false) end - --- This metatable proxy is used when registering nondefault locales -local writeproxy = setmetatable({}, { - __newindex = function(self, key, value) - rawset(registering, key, value == true and key or value) -- assigning values: replace 'true' with key string - end, - __index = assertfalse -}) - --- This metatable proxy is used when registering the default locale. --- It refuses to overwrite existing values --- Reason 1: Allows loading locales in any order --- Reason 2: If 2 modules have the same string, but only the first one to be --- loaded has a translation for the current locale, the translation --- doesn't get overwritten. --- -local writedefaultproxy = setmetatable({}, { - __newindex = function(self, key, value) - if not rawget(registering, key) then - rawset(registering, key, value == true and key or value) - end - end, - __index = assertfalse -}) - ---- Register a new locale (or extend an existing one) for the specified application. --- :NewLocale will return a table you can fill your locale into, or nil if the locale isn't needed for the players --- game locale. --- @paramsig application, locale[, isDefault[, silent]] --- @param application Unique name of addon / module --- @param locale Name of the locale to register, e.g. "enUS", "deDE", etc. --- @param isDefault If this is the default locale being registered (your addon is written in this language, generally enUS) --- @param silent If true, the locale will not issue warnings for missing keys. Must be set on the first locale registered. If set to "raw", nils will be returned for unknown keys (no metatable used). --- @usage --- -- enUS.lua --- local L = LibStub("AceLocale-3.0"):NewLocale("TestLocale", "enUS", true) --- L["string1"] = true --- --- -- deDE.lua --- local L = LibStub("AceLocale-3.0"):NewLocale("TestLocale", "deDE") --- if not L then return end --- L["string1"] = "Zeichenkette1" --- @return Locale Table to add localizations to, or nil if the current locale is not required. -function AceLocale:NewLocale(application, locale, isDefault, silent) - - -- GAME_LOCALE allows translators to test translations of addons without having that wow client installed - local gameLocale = GAME_LOCALE or gameLocale - - local app = AceLocale.apps[application] - - if silent and app and getmetatable(app) ~= readmetasilent then - geterrorhandler()("Usage: NewLocale(application, locale[, isDefault[, silent]]): 'silent' must be specified for the first locale registered") - end - - if not app then - if silent=="raw" then - app = {} - else - app = setmetatable({}, silent and readmetasilent or readmeta) - end - AceLocale.apps[application] = app - AceLocale.appnames[app] = application - end - - if locale ~= gameLocale and not isDefault then - return -- nop, we don't need these translations - end - - registering = app -- remember globally for writeproxy and writedefaultproxy - - if isDefault then - return writedefaultproxy - end - - return writeproxy -end - ---- Returns localizations for the current locale (or default locale if translations are missing). --- Errors if nothing is registered (spank developer, not just a missing translation) --- @param application Unique name of addon / module --- @param silent If true, the locale is optional, silently return nil if it's not found (defaults to false, optional) --- @return The locale table for the current language. -function AceLocale:GetLocale(application, silent) - if not silent and not AceLocale.apps[application] then - error("Usage: GetLocale(application[, silent]): 'application' - No locales registered for '"..tostring(application).."'", 2) - end - return AceLocale.apps[application] -end diff --git a/Titan/libs/AceLocale-3.0/AceLocale-3.0.xml b/Titan/libs/AceLocale-3.0/AceLocale-3.0.xml deleted file mode 100755 index a4cf340..0000000 --- a/Titan/libs/AceLocale-3.0/AceLocale-3.0.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="AceLocale-3.0.lua"/> -</Ui> diff --git a/Titan/libs/AceTimer-3.0/AceTimer-3.0.lua b/Titan/libs/AceTimer-3.0/AceTimer-3.0.lua deleted file mode 100755 index f576fe7..0000000 --- a/Titan/libs/AceTimer-3.0/AceTimer-3.0.lua +++ /dev/null @@ -1,278 +0,0 @@ ---- **AceTimer-3.0** provides a central facility for registering timers. --- AceTimer supports one-shot timers and repeating timers. All timers are stored in an efficient --- data structure that allows easy dispatching and fast rescheduling. Timers can be registered --- or canceled at any time, even from within a running timer, without conflict or large overhead.\\ --- AceTimer is currently limited to firing timers at a frequency of 0.01s as this is what the WoW timer API --- restricts us to. --- --- All `:Schedule` functions will return a handle to the current timer, which you will need to store if you --- need to cancel the timer you just registered. --- --- **AceTimer-3.0** can be embeded into your addon, either explicitly by calling AceTimer:Embed(MyAddon) or by --- specifying it as an embeded library in your AceAddon. All functions will be available on your addon object --- and can be accessed directly, without having to explicitly call AceTimer itself.\\ --- It is recommended to embed AceTimer, otherwise you'll have to specify a custom `self` on all calls you --- make into AceTimer. --- @class file --- @name AceTimer-3.0 --- @release $Id: AceTimer-3.0.lua 1202 2019-05-15 23:11:22Z nevcairiel $ - -local MAJOR, MINOR = "AceTimer-3.0", 17 -- Bump minor on changes -local AceTimer, oldminor = LibStub:NewLibrary(MAJOR, MINOR) - -if not AceTimer then return end -- No upgrade needed -AceTimer.activeTimers = AceTimer.activeTimers or {} -- Active timer list -local activeTimers = AceTimer.activeTimers -- Upvalue our private data - --- Lua APIs -local type, unpack, next, error, select = type, unpack, next, error, select --- WoW APIs -local GetTime, C_TimerAfter = GetTime, C_Timer.After - -local function new(self, loop, func, delay, ...) - if delay < 0.01 then - delay = 0.01 -- Restrict to the lowest time that the C_Timer API allows us - end - - local timer = { - object = self, - func = func, - looping = loop, - argsCount = select("#", ...), - delay = delay, - ends = GetTime() + delay, - ... - } - - activeTimers[timer] = timer - - -- Create new timer closure to wrap the "timer" object - timer.callback = function() - if not timer.cancelled then - if type(timer.func) == "string" then - -- We manually set the unpack count to prevent issues with an arg set that contains nil and ends with nil - -- e.g. local t = {1, 2, nil, 3, nil} print(#t) will result in 2, instead of 5. This fixes said issue. - timer.object[timer.func](timer.object, unpack(timer, 1, timer.argsCount)) - else - timer.func(unpack(timer, 1, timer.argsCount)) - end - - if timer.looping and not timer.cancelled then - -- Compensate delay to get a perfect average delay, even if individual times don't match up perfectly - -- due to fps differences - local time = GetTime() - local delay = timer.delay - (time - timer.ends) - -- Ensure the delay doesn't go below the threshold - if delay < 0.01 then delay = 0.01 end - C_TimerAfter(delay, timer.callback) - timer.ends = time + delay - else - activeTimers[timer.handle or timer] = nil - end - end - end - - C_TimerAfter(delay, timer.callback) - return timer -end - ---- Schedule a new one-shot timer. --- The timer will fire once in `delay` seconds, unless canceled before. --- @param callback Callback function for the timer pulse (funcref or method name). --- @param delay Delay for the timer, in seconds. --- @param ... An optional, unlimited amount of arguments to pass to the callback function. --- @usage --- MyAddOn = LibStub("AceAddon-3.0"):NewAddon("MyAddOn", "AceTimer-3.0") --- --- function MyAddOn:OnEnable() --- self:ScheduleTimer("TimerFeedback", 5) --- end --- --- function MyAddOn:TimerFeedback() --- print("5 seconds passed") --- end -function AceTimer:ScheduleTimer(func, delay, ...) - if not func or not delay then - error(MAJOR..": ScheduleTimer(callback, delay, args...): 'callback' and 'delay' must have set values.", 2) - end - if type(func) == "string" then - if type(self) ~= "table" then - error(MAJOR..": ScheduleTimer(callback, delay, args...): 'self' - must be a table.", 2) - elseif not self[func] then - error(MAJOR..": ScheduleTimer(callback, delay, args...): Tried to register '"..func.."' as the callback, but it doesn't exist in the module.", 2) - end - end - return new(self, nil, func, delay, ...) -end - ---- Schedule a repeating timer. --- The timer will fire every `delay` seconds, until canceled. --- @param callback Callback function for the timer pulse (funcref or method name). --- @param delay Delay for the timer, in seconds. --- @param ... An optional, unlimited amount of arguments to pass to the callback function. --- @usage --- MyAddOn = LibStub("AceAddon-3.0"):NewAddon("MyAddOn", "AceTimer-3.0") --- --- function MyAddOn:OnEnable() --- self.timerCount = 0 --- self.testTimer = self:ScheduleRepeatingTimer("TimerFeedback", 5) --- end --- --- function MyAddOn:TimerFeedback() --- self.timerCount = self.timerCount + 1 --- print(("%d seconds passed"):format(5 * self.timerCount)) --- -- run 30 seconds in total --- if self.timerCount == 6 then --- self:CancelTimer(self.testTimer) --- end --- end -function AceTimer:ScheduleRepeatingTimer(func, delay, ...) - if not func or not delay then - error(MAJOR..": ScheduleRepeatingTimer(callback, delay, args...): 'callback' and 'delay' must have set values.", 2) - end - if type(func) == "string" then - if type(self) ~= "table" then - error(MAJOR..": ScheduleRepeatingTimer(callback, delay, args...): 'self' - must be a table.", 2) - elseif not self[func] then - error(MAJOR..": ScheduleRepeatingTimer(callback, delay, args...): Tried to register '"..func.."' as the callback, but it doesn't exist in the module.", 2) - end - end - return new(self, true, func, delay, ...) -end - ---- Cancels a timer with the given id, registered by the same addon object as used for `:ScheduleTimer` --- Both one-shot and repeating timers can be canceled with this function, as long as the `id` is valid --- and the timer has not fired yet or was canceled before. --- @param id The id of the timer, as returned by `:ScheduleTimer` or `:ScheduleRepeatingTimer` -function AceTimer:CancelTimer(id) - local timer = activeTimers[id] - - if not timer then - return false - else - timer.cancelled = true - activeTimers[id] = nil - return true - end -end - ---- Cancels all timers registered to the current addon object ('self') -function AceTimer:CancelAllTimers() - for k,v in next, activeTimers do - if v.object == self then - AceTimer.CancelTimer(self, k) - end - end -end - ---- Returns the time left for a timer with the given id, registered by the current addon object ('self'). --- This function will return 0 when the id is invalid. --- @param id The id of the timer, as returned by `:ScheduleTimer` or `:ScheduleRepeatingTimer` --- @return The time left on the timer. -function AceTimer:TimeLeft(id) - local timer = activeTimers[id] - if not timer then - return 0 - else - return timer.ends - GetTime() - end -end - - --- --------------------------------------------------------------------- --- Upgrading - --- Upgrade from old hash-bucket based timers to C_Timer.After timers. -if oldminor and oldminor < 10 then - -- disable old timer logic - AceTimer.frame:SetScript("OnUpdate", nil) - AceTimer.frame:SetScript("OnEvent", nil) - AceTimer.frame:UnregisterAllEvents() - -- convert timers - for object,timers in next, AceTimer.selfs do - for handle,timer in next, timers do - if type(timer) == "table" and timer.callback then - local newTimer - if timer.delay then - newTimer = AceTimer.ScheduleRepeatingTimer(timer.object, timer.callback, timer.delay, timer.arg) - else - newTimer = AceTimer.ScheduleTimer(timer.object, timer.callback, timer.when - GetTime(), timer.arg) - end - -- Use the old handle for old timers - activeTimers[newTimer] = nil - activeTimers[handle] = newTimer - newTimer.handle = handle - end - end - end - AceTimer.selfs = nil - AceTimer.hash = nil - AceTimer.debug = nil -elseif oldminor and oldminor < 17 then - -- Upgrade from old animation based timers to C_Timer.After timers. - AceTimer.inactiveTimers = nil - AceTimer.frame = nil - local oldTimers = AceTimer.activeTimers - -- Clear old timer table and update upvalue - AceTimer.activeTimers = {} - activeTimers = AceTimer.activeTimers - for handle, timer in next, oldTimers do - local newTimer - -- Stop the old timer animation - local duration, elapsed = timer:GetDuration(), timer:GetElapsed() - timer:GetParent():Stop() - if timer.looping then - newTimer = AceTimer.ScheduleRepeatingTimer(timer.object, timer.func, duration, unpack(timer.args, 1, timer.argsCount)) - else - newTimer = AceTimer.ScheduleTimer(timer.object, timer.func, duration - elapsed, unpack(timer.args, 1, timer.argsCount)) - end - -- Use the old handle for old timers - activeTimers[newTimer] = nil - activeTimers[handle] = newTimer - newTimer.handle = handle - end - - -- Migrate transitional handles - if oldminor < 13 and AceTimer.hashCompatTable then - for handle, id in next, AceTimer.hashCompatTable do - local t = activeTimers[id] - if t then - activeTimers[id] = nil - activeTimers[handle] = t - t.handle = handle - end - end - AceTimer.hashCompatTable = nil - end -end - --- --------------------------------------------------------------------- --- Embed handling - -AceTimer.embeds = AceTimer.embeds or {} - -local mixins = { - "ScheduleTimer", "ScheduleRepeatingTimer", - "CancelTimer", "CancelAllTimers", - "TimeLeft" -} - -function AceTimer:Embed(target) - AceTimer.embeds[target] = true - for _,v in next, mixins do - target[v] = AceTimer[v] - end - return target -end - --- AceTimer:OnEmbedDisable(target) --- target (object) - target object that AceTimer is embedded in. --- --- cancel all timers registered for the object -function AceTimer:OnEmbedDisable(target) - target:CancelAllTimers() -end - -for addon in next, AceTimer.embeds do - AceTimer:Embed(addon) -end diff --git a/Titan/libs/AceTimer-3.0/AceTimer-3.0.xml b/Titan/libs/AceTimer-3.0/AceTimer-3.0.xml deleted file mode 100755 index 1987d78..0000000 --- a/Titan/libs/AceTimer-3.0/AceTimer-3.0.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="AceTimer-3.0.lua"/> -</Ui> diff --git a/Titan/libs/Bindings.xml b/Titan/libs/Bindings.xml deleted file mode 100755 index 2134442..0000000 --- a/Titan/libs/Bindings.xml +++ /dev/null @@ -1,5 +0,0 @@ -<Bindings> - <Binding name="RELOADUI" description="Reloads the UI." header="ACE3" category="ADDONS"> - ReloadUI() - </Binding> -</Bindings> diff --git a/Titan/libs/CHANGES.txt b/Titan/libs/CHANGES.txt deleted file mode 100755 index db1f937..0000000 --- a/Titan/libs/CHANGES.txt +++ /dev/null @@ -1,93 +0,0 @@ ------------------------------------------------------------------------- -r1240 | nevcairiel | 2020-10-13 07:59:32 +0000 (Tue, 13 Oct 2020) | 1 line -Changed paths: - M /trunk/Ace3.toc - M /trunk/changelog.txt - -Update changelog and TOC ------------------------------------------------------------------------- -r1239 | nevcairiel | 2020-09-20 10:22:02 +0000 (Sun, 20 Sep 2020) | 1 line -Changed paths: - M /trunk/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua - -AceGUI-3.0: DropDown: Anchor all items to the dropdown frame instead of chaining anchors, fixes anchoring on WoW 9.0 with many items ------------------------------------------------------------------------- -r1238 | nevcairiel | 2020-08-28 16:18:42 +0000 (Fri, 28 Aug 2020) | 3 lines -Changed paths: - M /trunk/AceAddon-3.0/AceAddon-3.0.lua - -AceAddon-3.0: Blacklist more Blizzard addons from triggering Ace3 load events - -These addons can be loaded very early by UIParent, which causes issues with loading certain addons ------------------------------------------------------------------------- -r1237 | nevcairiel | 2020-07-17 22:50:38 +0000 (Fri, 17 Jul 2020) | 1 line -Changed paths: - M /trunk/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua - M /trunk/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua - M /trunk/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua - M /trunk/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua - M /trunk/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua - M /trunk/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua - M /trunk/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua - M /trunk/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua - M /trunk/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua - -Use BackdropTemplate in WoW 9.0 ------------------------------------------------------------------------- -r1236 | nevcairiel | 2020-04-16 07:36:45 +0000 (Thu, 16 Apr 2020) | 1 line -Changed paths: - M /trunk/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua - -AceGUI-3.0: DropDown: Initialize the widget with an empty item list (instead of nil), this allows AddItem to be used right away (Fixes #542) ------------------------------------------------------------------------- -r1235 | nevcairiel | 2020-04-15 10:27:55 +0000 (Wed, 15 Apr 2020) | 1 line -Changed paths: - M /trunk/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua - -Cleanup debug ------------------------------------------------------------------------- -r1234 | nevcairiel | 2020-04-15 10:14:35 +0000 (Wed, 15 Apr 2020) | 1 line -Changed paths: - M /trunk/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua - -AceGUI-3.0: TreeGroup: Remove pre-8.0 compat ------------------------------------------------------------------------- -r1233 | nevcairiel | 2020-04-15 10:09:47 +0000 (Wed, 15 Apr 2020) | 1 line -Changed paths: - M /trunk/AceGUI-3.0/widgets/AceGUIWidget-Label.lua - -AceGUI-3.0: Label: Refresh anchoring after changing the font (Fixes #540) ------------------------------------------------------------------------- -r1232 | nevcairiel | 2020-04-14 22:21:22 +0000 (Tue, 14 Apr 2020) | 1 line -Changed paths: - M /trunk/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua - -AceConfigDialog-3.0: Prevent a dialog refresh when a multiselect control is closed during release (Fixes #539) ------------------------------------------------------------------------- -r1231 | nevcairiel | 2020-04-14 22:20:36 +0000 (Tue, 14 Apr 2020) | 1 line -Changed paths: - M /trunk/AceGUI-3.0/AceGUI-3.0.lua - -AceGUI-3.0: Add a getter to allow callers to check if a widget is currently being released, which can be used as part of some callbacks to alter behavior ------------------------------------------------------------------------- -r1230 | funkydude | 2020-01-14 17:01:25 +0000 (Tue, 14 Jan 2020) | 1 line -Changed paths: - M /trunk/Ace3.toc - -bump toc ------------------------------------------------------------------------- -r1229 | funkydude | 2019-10-11 20:48:50 +0000 (Fri, 11 Oct 2019) | 1 line -Changed paths: - M /trunk/Ace3.toc - -bump toc ------------------------------------------------------------------------- -r1228 | nevcairiel | 2019-09-06 08:51:17 +0000 (Fri, 06 Sep 2019) | 3 lines -Changed paths: - M /trunk/AceGUI-3.0/AceGUI-3.0.lua - -AceGUI-3.0: Avoid re-entrance into the Release function - -This can happen if a frame is released in a callback fired in the release process, and may in some cases throw errors. ------------------------------------------------------------------------- - diff --git a/Titan/libs/CallbackHandler-1.0/CallbackHandler-1.0.lua b/Titan/libs/CallbackHandler-1.0/CallbackHandler-1.0.lua deleted file mode 100755 index 3bd4a37..0000000 --- a/Titan/libs/CallbackHandler-1.0/CallbackHandler-1.0.lua +++ /dev/null @@ -1,212 +0,0 @@ ---[[ $Id: CallbackHandler-1.0.lua 1186 2018-07-21 14:19:18Z nevcairiel $ ]] -local MAJOR, MINOR = "CallbackHandler-1.0", 7 -local CallbackHandler = LibStub:NewLibrary(MAJOR, MINOR) - -if not CallbackHandler then return end -- No upgrade needed - -local meta = {__index = function(tbl, key) tbl[key] = {} return tbl[key] end} - --- Lua APIs -local tconcat = table.concat -local assert, error, loadstring = assert, error, loadstring -local setmetatable, rawset, rawget = setmetatable, rawset, rawget -local next, select, pairs, type, tostring = next, select, pairs, type, tostring - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: geterrorhandler - -local xpcall = xpcall - -local function errorhandler(err) - return geterrorhandler()(err) -end - -local function Dispatch(handlers, ...) - local index, method = next(handlers) - if not method then return end - repeat - xpcall(method, errorhandler, ...) - index, method = next(handlers, index) - until not method -end - --------------------------------------------------------------------------- --- CallbackHandler:New --- --- target - target object to embed public APIs in --- RegisterName - name of the callback registration API, default "RegisterCallback" --- UnregisterName - name of the callback unregistration API, default "UnregisterCallback" --- UnregisterAllName - name of the API to unregister all callbacks, default "UnregisterAllCallbacks". false == don't publish this API. - -function CallbackHandler:New(target, RegisterName, UnregisterName, UnregisterAllName) - - RegisterName = RegisterName or "RegisterCallback" - UnregisterName = UnregisterName or "UnregisterCallback" - if UnregisterAllName==nil then -- false is used to indicate "don't want this method" - UnregisterAllName = "UnregisterAllCallbacks" - end - - -- we declare all objects and exported APIs inside this closure to quickly gain access - -- to e.g. function names, the "target" parameter, etc - - - -- Create the registry object - local events = setmetatable({}, meta) - local registry = { recurse=0, events=events } - - -- registry:Fire() - fires the given event/message into the registry - function registry:Fire(eventname, ...) - if not rawget(events, eventname) or not next(events[eventname]) then return end - local oldrecurse = registry.recurse - registry.recurse = oldrecurse + 1 - - Dispatch(events[eventname], eventname, ...) - - registry.recurse = oldrecurse - - if registry.insertQueue and oldrecurse==0 then - -- Something in one of our callbacks wanted to register more callbacks; they got queued - for eventname,callbacks in pairs(registry.insertQueue) do - local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. - for self,func in pairs(callbacks) do - events[eventname][self] = func - -- fire OnUsed callback? - if first and registry.OnUsed then - registry.OnUsed(registry, target, eventname) - first = nil - end - end - end - registry.insertQueue = nil - end - end - - -- Registration of a callback, handles: - -- self["method"], leads to self["method"](self, ...) - -- self with function ref, leads to functionref(...) - -- "addonId" (instead of self) with function ref, leads to functionref(...) - -- all with an optional arg, which, if present, gets passed as first argument (after self if present) - target[RegisterName] = function(self, eventname, method, ... --[[actually just a single arg]]) - if type(eventname) ~= "string" then - error("Usage: "..RegisterName.."(eventname, method[, arg]): 'eventname' - string expected.", 2) - end - - method = method or eventname - - local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. - - if type(method) ~= "string" and type(method) ~= "function" then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - string or function expected.", 2) - end - - local regfunc - - if type(method) == "string" then - -- self["method"] calling style - if type(self) ~= "table" then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): self was not a table?", 2) - elseif self==target then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): do not use Library:"..RegisterName.."(), use your own 'self'", 2) - elseif type(self[method]) ~= "function" then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - method '"..tostring(method).."' not found on self.", 2) - end - - if select("#",...)>=1 then -- this is not the same as testing for arg==nil! - local arg=select(1,...) - regfunc = function(...) self[method](self,arg,...) end - else - regfunc = function(...) self[method](self,...) end - end - else - -- function ref with self=object or self="addonId" or self=thread - if type(self)~="table" and type(self)~="string" and type(self)~="thread" then - error("Usage: "..RegisterName.."(self or \"addonId\", eventname, method): 'self or addonId': table or string or thread expected.", 2) - end - - if select("#",...)>=1 then -- this is not the same as testing for arg==nil! - local arg=select(1,...) - regfunc = function(...) method(arg,...) end - else - regfunc = method - end - end - - - if events[eventname][self] or registry.recurse<1 then - -- if registry.recurse<1 then - -- we're overwriting an existing entry, or not currently recursing. just set it. - events[eventname][self] = regfunc - -- fire OnUsed callback? - if registry.OnUsed and first then - registry.OnUsed(registry, target, eventname) - end - else - -- we're currently processing a callback in this registry, so delay the registration of this new entry! - -- yes, we're a bit wasteful on garbage, but this is a fringe case, so we're picking low implementation overhead over garbage efficiency - registry.insertQueue = registry.insertQueue or setmetatable({},meta) - registry.insertQueue[eventname][self] = regfunc - end - end - - -- Unregister a callback - target[UnregisterName] = function(self, eventname) - if not self or self==target then - error("Usage: "..UnregisterName.."(eventname): bad 'self'", 2) - end - if type(eventname) ~= "string" then - error("Usage: "..UnregisterName.."(eventname): 'eventname' - string expected.", 2) - end - if rawget(events, eventname) and events[eventname][self] then - events[eventname][self] = nil - -- Fire OnUnused callback? - if registry.OnUnused and not next(events[eventname]) then - registry.OnUnused(registry, target, eventname) - end - end - if registry.insertQueue and rawget(registry.insertQueue, eventname) and registry.insertQueue[eventname][self] then - registry.insertQueue[eventname][self] = nil - end - end - - -- OPTIONAL: Unregister all callbacks for given selfs/addonIds - if UnregisterAllName then - target[UnregisterAllName] = function(...) - if select("#",...)<1 then - error("Usage: "..UnregisterAllName.."([whatFor]): missing 'self' or \"addonId\" to unregister events for.", 2) - end - if select("#",...)==1 and ...==target then - error("Usage: "..UnregisterAllName.."([whatFor]): supply a meaningful 'self' or \"addonId\"", 2) - end - - - for i=1,select("#",...) do - local self = select(i,...) - if registry.insertQueue then - for eventname, callbacks in pairs(registry.insertQueue) do - if callbacks[self] then - callbacks[self] = nil - end - end - end - for eventname, callbacks in pairs(events) do - if callbacks[self] then - callbacks[self] = nil - -- Fire OnUnused callback? - if registry.OnUnused and not next(callbacks) then - registry.OnUnused(registry, target, eventname) - end - end - end - end - end - end - - return registry -end - - --- CallbackHandler purposefully does NOT do explicit embedding. Nor does it --- try to upgrade old implicit embeds since the system is selfcontained and --- relies on closures to work. - diff --git a/Titan/libs/CallbackHandler-1.0/CallbackHandler-1.0.xml b/Titan/libs/CallbackHandler-1.0/CallbackHandler-1.0.xml deleted file mode 100755 index a5b22a7..0000000 --- a/Titan/libs/CallbackHandler-1.0/CallbackHandler-1.0.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="CallbackHandler-1.0.lua"/> -</Ui> diff --git a/Titan/libs/LICENSE.txt b/Titan/libs/LICENSE.txt deleted file mode 100755 index ef0b614..0000000 --- a/Titan/libs/LICENSE.txt +++ /dev/null @@ -1,29 +0,0 @@ -Copyright (c) 2007, Ace3 Development Team - -All rights reserved. - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions are met: - - * Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. - * Redistributions in binary form must reproduce the above copyright notice, - this list of conditions and the following disclaimer in the documentation - and/or other materials provided with the distribution. - * Redistribution of a stand alone version is strictly prohibited without - prior written authorization from the Lead of the Ace3 Development Team. - * Neither the name of the Ace3 Development Team nor the names of its contributors - may be used to endorse or promote products derived from this software without - specific prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, -EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, -PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR -PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF -LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. \ No newline at end of file diff --git a/Titan/libs/LibDataBroker-1.1.lua b/Titan/libs/LibDataBroker-1.1.lua new file mode 100644 index 0000000..f47c0cd --- /dev/null +++ b/Titan/libs/LibDataBroker-1.1.lua @@ -0,0 +1,90 @@ + +assert(LibStub, "LibDataBroker-1.1 requires LibStub") +assert(LibStub:GetLibrary("CallbackHandler-1.0", true), "LibDataBroker-1.1 requires CallbackHandler-1.0") + +local lib, oldminor = LibStub:NewLibrary("LibDataBroker-1.1", 4) +if not lib then return end +oldminor = oldminor or 0 + + +lib.callbacks = lib.callbacks or LibStub:GetLibrary("CallbackHandler-1.0"):New(lib) +lib.attributestorage, lib.namestorage, lib.proxystorage = lib.attributestorage or {}, lib.namestorage or {}, lib.proxystorage or {} +local attributestorage, namestorage, callbacks = lib.attributestorage, lib.namestorage, lib.callbacks + +if oldminor < 2 then + lib.domt = { + __metatable = "access denied", + __index = function(self, key) return attributestorage[self] and attributestorage[self][key] end, + } +end + +if oldminor < 3 then + lib.domt.__newindex = function(self, key, value) + if not attributestorage[self] then attributestorage[self] = {} end + if attributestorage[self][key] == value then return end + attributestorage[self][key] = value + local name = namestorage[self] + if not name then return end + callbacks:Fire("LibDataBroker_AttributeChanged", name, key, value, self) + callbacks:Fire("LibDataBroker_AttributeChanged_"..name, name, key, value, self) + callbacks:Fire("LibDataBroker_AttributeChanged_"..name.."_"..key, name, key, value, self) + callbacks:Fire("LibDataBroker_AttributeChanged__"..key, name, key, value, self) + end +end + +if oldminor < 2 then + function lib:NewDataObject(name, dataobj) + if self.proxystorage[name] then return end + + if dataobj then + assert(type(dataobj) == "table", "Invalid dataobj, must be nil or a table") + self.attributestorage[dataobj] = {} + for i,v in pairs(dataobj) do + self.attributestorage[dataobj][i] = v + dataobj[i] = nil + end + end + dataobj = setmetatable(dataobj or {}, self.domt) + self.proxystorage[name], self.namestorage[dataobj] = dataobj, name + self.callbacks:Fire("LibDataBroker_DataObjectCreated", name, dataobj) + return dataobj + end +end + +if oldminor < 1 then + function lib:DataObjectIterator() + return pairs(self.proxystorage) + end + + function lib:GetDataObjectByName(dataobjectname) + return self.proxystorage[dataobjectname] + end + + function lib:GetNameByDataObject(dataobject) + return self.namestorage[dataobject] + end +end + +if oldminor < 4 then + local next = pairs(attributestorage) + function lib:pairs(dataobject_or_name) + local t = type(dataobject_or_name) + assert(t == "string" or t == "table", "Usage: ldb:pairs('dataobjectname') or ldb:pairs(dataobject)") + + local dataobj = self.proxystorage[dataobject_or_name] or dataobject_or_name + assert(attributestorage[dataobj], "Data object not found") + + return next, attributestorage[dataobj], nil + end + + local ipairs_iter = ipairs(attributestorage) + function lib:ipairs(dataobject_or_name) + local t = type(dataobject_or_name) + assert(t == "string" or t == "table", "Usage: ldb:ipairs('dataobjectname') or ldb:ipairs(dataobject)") + + local dataobj = self.proxystorage[dataobject_or_name] or dataobject_or_name + assert(attributestorage[dataobj], "Data object not found") + + return ipairs_iter, attributestorage[dataobj], 0 + end +end diff --git a/Titan/libs/LibQTip-1.0/CHANGES.txt b/Titan/libs/LibQTip-1.0/CHANGES.txt deleted file mode 100755 index 97e344c..0000000 --- a/Titan/libs/LibQTip-1.0/CHANGES.txt +++ /dev/null @@ -1,10 +0,0 @@ -lightweight tag 5f307596c9a7618e36d529b7af3c331e4808be9f 9.0.1.2 -Author: James D. Callahan III <darkenelf@gmail.com> -Date: Sun Oct 25 17:33:10 2020 -0500 - -commit 5f307596c9a7618e36d529b7af3c331e4808be9f -Author: James D. Callahan III <darkenelf@gmail.com> -Date: Sun Oct 25 17:33:10 2020 -0500 - - Update ToC Interface for the WoW 9.0.1 version. - diff --git a/Titan/libs/LibQTip-1.0/LICENSE.txt b/Titan/libs/LibQTip-1.0/LICENSE.txt deleted file mode 100755 index 54cdb47..0000000 --- a/Titan/libs/LibQTip-1.0/LICENSE.txt +++ /dev/null @@ -1,29 +0,0 @@ -Copyright (c) 2008, LibQTip Development Team - -All rights reserved. - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions are met: - - * Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. - * Redistributions in binary form must reproduce the above copyright notice, - this list of conditions and the following disclaimer in the documentation - and/or other materials provided with the distribution. - * Redistribution of a stand alone version is strictly prohibited without - prior written authorization from the Lead of the LibQTip Development Team. - * Neither the name of the LibQTip Development Team nor the names of its contributors - may be used to endorse or promote products derived from this software without - specific prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, -EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, -PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR -PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF -LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Titan/libs/LibQTip-1.0/LibQTip-1.0.lua b/Titan/libs/LibQTip-1.0/LibQTip-1.0.lua deleted file mode 100755 index 1a830d1..0000000 --- a/Titan/libs/LibQTip-1.0/LibQTip-1.0.lua +++ /dev/null @@ -1,1551 +0,0 @@ -local MAJOR = "LibQTip-1.0" -local MINOR = 48 -- Should be manually increased -local LibStub = _G.LibStub - -assert(LibStub, MAJOR .. " requires LibStub") - -local lib, oldMinor = LibStub:NewLibrary(MAJOR, MINOR) - -if not lib then - return -end -- No upgrade needed - ------------------------------------------------------------------------------- --- Upvalued globals ------------------------------------------------------------------------------- -local table = _G.table -local tinsert = table.insert -local tremove = table.remove -local wipe = table.wipe - -local error = error -local math = math -local min, max = math.min, math.max -local next = next -local pairs, ipairs = pairs, ipairs -local select = select -local setmetatable = setmetatable -local tonumber, tostring = tonumber, tostring -local type = type - -local CreateFrame = _G.CreateFrame -local GameTooltip = _G.GameTooltip -local UIParent = _G.UIParent - -local geterrorhandler = _G.geterrorhandler - ------------------------------------------------------------------------------- --- Tables and locals ------------------------------------------------------------------------------- -if BackdropTemplateMixin and oldMinor and (oldMinor < 48) and lib.frameMetatable then - -- mix new BackdropTemplateMixin into frame metatable - Mixin(lib.frameMetatable["__index"], BackdropTemplateMixin) -else - lib.frameMetatable = lib.frameMetatable or {__index = CreateFrame("Frame", nil, nil, BackdropTemplateMixin and "BackdropTemplate")} -end - -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.timerHeap = lib.timerHeap or {} -lib.tableHeap = lib.tableHeap or {} - -lib.onReleaseHandlers = lib.onReleaseHandlers 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 - -local highlightFrame = CreateFrame("Frame", nil, UIParent) -highlightFrame:SetFrameStrata("TOOLTIP") -highlightFrame:Hide() - -local DEFAULT_HIGHLIGHT_TEXTURE_PATH = [[Interface\QuestFrame\UI-QuestTitleHighlight]] - -local highlightTexture = highlightFrame:CreateTexture(nil, "OVERLAY") -highlightTexture:SetTexture(DEFAULT_HIGHLIGHT_TEXTURE_PATH) -highlightTexture:SetBlendMode("ADD") -highlightTexture:SetAllPoints(highlightFrame) - ------------------------------------------------------------------------------- --- 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 --- <pre>local tip = LibStub('LibQTip-1.0'):Acquire('MyFooBarTooltip', 5, "LEFT", "CENTER")</pre> -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() - 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 (for lines and columns) ------------------------------------------------------------------------------- -local frameHeap = lib.frameHeap - -local function AcquireFrame(parent) - local frame = tremove(frameHeap) or CreateFrame("Frame", nil, nil, BackdropTemplateMixin and "BackdropTemplate") - 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 - ------------------------------------------------------------------------------- --- Timer cache ------------------------------------------------------------------------------- -local timerHeap = lib.timerHeap - -local function AcquireTimer(parent) - local frame = tremove(timerHeap) or CreateFrame("Frame") - frame:SetParent(parent) - return frame -end - -local function ReleaseTimer(frame) - frame:Hide() - frame:SetParent(nil) - - ClearFrameScripts(frame) - - tinsert(timerHeap, frame) -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 newCellPrototype = setmetatable({}, cellBaseMetatable) - local newCellProvider = setmetatable({}, providerMetatable) - - newCellProvider.heap = {} - newCellProvider.cells = {} - newCellProvider.cellPrototype = newCellPrototype - newCellProvider.cellMetatable = {__index = newCellPrototype} - - return newCellProvider, newCellPrototype, 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(_G.GameTooltipText) -end - -function labelPrototype:SetupCell(tooltip, value, justification, font, leftPadding, rightPadding, maxWidth, minWidth, ...) - local fontString = self.fontString - local line = tooltip.lines[self._line] - - -- detatch fs from cell for size calculations - fontString:ClearAllPoints() - fontString:SetFontObject(font or (line.is_header and tooltip:GetHeaderFont() or tooltip:GetFont())) - fontString:SetJustifyH(justification) - fontString:SetText(tostring(value)) - - leftPadding = leftPadding or 0 - rightPadding = rightPadding or 0 - - local width = fontString:GetStringWidth() + leftPadding + rightPadding - - if maxWidth and minWidth and (maxWidth < minWidth) then - error("maximum width cannot be lower than minimum width: " .. tostring(maxWidth) .. " < " .. tostring(minWidth), 2) - end - - if maxWidth and (maxWidth < (leftPadding + rightPadding)) then - error("maximum width cannot be lower than the sum of paddings: " .. tostring(maxWidth) .. " < " .. tostring(leftPadding) .. " + " .. tostring(rightPadding), 2) - end - - if minWidth and width < minWidth then - width = minWidth - end - - if maxWidth and maxWidth < width then - width = maxWidth - end - - fontString:SetWidth(width - (leftPadding + rightPadding)) - -- Use GetHeight() instead of GetStringHeight() so lines which are longer than width will wrap. - local height = fontString:GetHeight() - - -- reanchor fs to cell - fontString:SetWidth(0) - fontString:SetPoint("TOPLEFT", self, "TOPLEFT", leftPadding, 0) - fontString:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -rightPadding, 0) - --~ fs:SetPoint("TOPRIGHT", self, "TOPRIGHT", -r_pad, 0) - - self._paddingL = leftPadding - self._paddingR = rightPadding - - return width, height -end - -function labelPrototype:getContentHeight() - local fontString = self.fontString - fontString:SetWidth(self:GetWidth() - (self._paddingL + self._paddingR)) - - local height = self.fontString:GetHeight() - fontString:SetWidth(0) - - return height -end - -function labelPrototype:GetPosition() - return self._line, self._column -end - ------------------------------------------------------------------------------- --- Tooltip cache ------------------------------------------------------------------------------- -local tooltipHeap = lib.tooltipHeap - --- Returns a tooltip -function AcquireTooltip() - local tooltip = tremove(tooltipHeap) - - if not tooltip then - tooltip = CreateFrame("Frame", nil, 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() - - local releaseHandler = lib.onReleaseHandlers[tooltip] - - if releaseHandler then - lib.onReleaseHandlers[tooltip] = nil - - local success, errorMessage = pcall(releaseHandler, tooltip) - - if not success then - geterrorhandler()(errorMessage) - end - elseif 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) - - highlightTexture:SetTexture(DEFAULT_HIGHLIGHT_TEXTURE_PATH) - highlightTexture:SetTexCoord(0, 1, 0, 1) - - --[===[@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) - if cell.fontString and cell.r then - cell.fontString:SetTextColor(cell.r, cell.g, cell.b, cell.a) - end - - cell._font = nil - cell._justification = nil - cell._colSpan = nil - cell._line = nil - cell._column = nil - - cell:Hide() - cell:ClearAllPoints() - cell:SetParent(nil) - cell:SetBackdrop(nil) - - ClearFrameScripts(cell) - - 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(tableInstance) - wipe(tableInstance) - tinsert(tableHeap, tableInstance) - --[===[@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 = _G.GameTooltipText - tooltip.headerFont = _G.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 BACKDROP_SLIDER_8_8 = BACKDROP_SLIDER_8_8 or { - bgFile = "Interface\\Buttons\\UI-SliderBar-Background", - edgeFile = "Interface\\Buttons\\UI-SliderBar-Border", - tile = true, - tileEdge = true, - tileSize = 8, - edgeSize = 8, - insets = { left = 3, right = 3, top = 6, bottom = 6 }, -}; - -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, BackdropTemplateMixin and "BackdropTemplate") - slider.scrollFrame = self.scrollFrame - - slider:SetOrientation("VERTICAL") - slider:SetPoint("TOPRIGHT", self, "TOPRIGHT", -TOOLTIP_PADDING, -TOOLTIP_PADDING) - slider:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -TOOLTIP_PADDING, TOOLTIP_PADDING) - slider:SetBackdrop(BACKDROP_SLIDER_8_8) - slider:SetThumbTexture([[Interface\Buttons\UI-SliderBar-Button-Vertical]]) - slider:SetMinMaxValues(0, 1) - slider:SetValueStep(1) - slider:SetWidth(12) - slider:SetScript("OnValueChanged", slider_OnValueChanged) - slider:SetValue(0) - - self.slider = slider - 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 _, 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 _, 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.height = height - tooltip.width = width - - tooltip:SetHeight(2 * TOOLTIP_PADDING + height) - tooltip:SetWidth(2 * TOOLTIP_PADDING + width) - - tooltip.scrollChild:SetHeight(height) - tooltip.scrollChild:SetWidth(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 - local h_margin = tooltip.cell_margin_h or CELL_MARGIN_H - - -- resize columns to make room for the colspans - while next(colspans) do - local maxNeedCols - 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 - - 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 columnCell = cells[i] - - if columnCell then - ReleaseCell(columnCell) - elseif columnCell == 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 = _G.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 - -function tipPrototype:SetCellTextColor(lineNum, colNum, r, g, b, a) - local line = self.lines[lineNum] - local column = self.columns[colNum] - - if not line or not column then - return - end - - local cell = self.lines[lineNum].cells[colNum] - - if cell then - if not cell.fontString then - error("cell's label provider did not assign a fontString field", 2) - end - - if not cell.r then - cell.r, cell.g, cell.b, cell.a = cell.fontString:GetTextColor() - end - - cell.fontString:SetTextColor(r or cell.r, g or cell.g, b or cell.b, a or cell.a) - end -end - -function tipPrototype:SetColumnTextColor(colNum, r, g, b, a) - if not self.columns[colNum] then - return - end - - for lineIndex = 1, #self.lines do - self:SetCellTextColor(lineIndex, colNum, r, g, b, a) - end -end - -function tipPrototype:SetLineTextColor(lineNum, r, g, b, a) - local line = self.lines[lineNum] - - if not line then - return - end - - for cellIndex = 1, #line.cells do - self:SetCellTextColor(lineNum, line.cells[cellIndex]._column, r, g, b, a) - end -end - -function tipPrototype:SetHighlightTexture(...) - return highlightTexture:SetTexture(...) -end - -function tipPrototype:SetHighlightTexCoord(...) - highlightTexture:SetTexCoord(...) -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 scripts = { - OnEnter = function(frame, ...) - highlightFrame:SetParent(frame) - highlightFrame:SetAllPoints(frame) - highlightFrame:Show() - - if frame._OnEnter_func then - frame:_OnEnter_func(frame._OnEnter_arg, ...) - end - end, - OnLeave = function(frame, ...) - highlightFrame:Hide() - highlightFrame:ClearAllPoints() - highlightFrame: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, releaseHandler) - local timerFrame = self.autoHideTimerFrame - delay = tonumber(delay) or 0 - - if releaseHandler then - if type(releaseHandler) ~= "function" then - error("releaseHandler must be a function", 2) - end - - lib.onReleaseHandlers[self] = releaseHandler - end - - if delay > 0 then - if not timerFrame then - timerFrame = AcquireTimer(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) - - ReleaseTimer(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 in pairs(activeTooltips) do - if not header then - print("Active tooltips:") - header = true - end - print("- " .. k) - end -end - -SLASH_LibQTip1 = "/qtip" -_G.SlashCmdList["LibQTip"] = PrintStats ---@end-debug@ diff --git a/Titan/libs/LibQTip-1.0/LibQTip-1.0.toc b/Titan/libs/LibQTip-1.0/LibQTip-1.0.toc deleted file mode 100755 index 1968beb..0000000 --- a/Titan/libs/LibQTip-1.0/LibQTip-1.0.toc +++ /dev/null @@ -1,14 +0,0 @@ -## Interface: 90001 -## Title: Lib: QTip-1.0 -## Notes: Library providing multi-column tooltips. -## Author: Torhal, Adirelle, Elkano, Tristanian -## Version: 9.0.1.2 -## LoadOnDemand: 1 -## X-Date: 2020-10-25T22:33:10Z -## X-Credits: Kaelten (input on initial design) -## X-Category: Library, Tooltip -## X-License: Ace3 BSD-like license -## X-Website: http://www.wowace.com/addons/libqtip-1-0/ - -LibStub\LibStub.lua -lib.xml diff --git a/Titan/libs/LibQTip-1.0/LibStub/LibStub.lua b/Titan/libs/LibQTip-1.0/LibStub/LibStub.lua deleted file mode 100755 index 7e7b76d..0000000 --- a/Titan/libs/LibQTip-1.0/LibStub/LibStub.lua +++ /dev/null @@ -1,51 +0,0 @@ --- $Id: LibStub.lua 103 2014-10-16 03:02:50Z mikk $ --- LibStub is a simple versioning stub meant for use in Libraries. http://www.wowace.com/addons/libstub/ for more info --- LibStub is hereby placed in the Public Domain --- Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel, joshborke -local LIBSTUB_MAJOR, LIBSTUB_MINOR = "LibStub", 2 -- NEVER MAKE THIS AN SVN REVISION! IT NEEDS TO BE USABLE IN ALL REPOS! -local LibStub = _G[LIBSTUB_MAJOR] - --- Check to see is this version of the stub is obsolete -if not LibStub or LibStub.minor < LIBSTUB_MINOR then - LibStub = LibStub or {libs = {}, minors = {} } - _G[LIBSTUB_MAJOR] = LibStub - LibStub.minor = LIBSTUB_MINOR - - -- LibStub:NewLibrary(major, minor) - -- major (string) - the major version of the library - -- minor (string or number ) - the minor version of the library - -- - -- returns nil if a newer or same version of the lib is already present - -- returns empty library object or old library object if upgrade is needed - function LibStub:NewLibrary(major, minor) - assert(type(major) == "string", "Bad argument #2 to `NewLibrary' (string expected)") - minor = assert(tonumber(strmatch(minor, "%d+")), "Minor version must either be a number or contain a number.") - - local oldminor = self.minors[major] - if oldminor and oldminor >= minor then return nil end - self.minors[major], self.libs[major] = minor, self.libs[major] or {} - return self.libs[major], oldminor - end - - -- LibStub:GetLibrary(major, [silent]) - -- major (string) - the major version of the library - -- silent (boolean) - if true, library is optional, silently return nil if its not found - -- - -- throws an error if the library can not be found (except silent is set) - -- returns the library object if found - function LibStub:GetLibrary(major, silent) - if not self.libs[major] and not silent then - error(("Cannot find a library instance of %q."):format(tostring(major)), 2) - end - return self.libs[major], self.minors[major] - end - - -- LibStub:IterateLibraries() - -- - -- Returns an iterator for the currently registered libraries - function LibStub:IterateLibraries() - return pairs(self.libs) - end - - setmetatable(LibStub, { __call = LibStub.GetLibrary }) -end diff --git a/Titan/libs/LibQTip-1.0/lib.xml b/Titan/libs/LibQTip-1.0/lib.xml deleted file mode 100755 index 81e11ca..0000000 --- a/Titan/libs/LibQTip-1.0/lib.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="LibQTip-1.0.lua"/> -</Ui> diff --git a/Titan/libs/LibSharedMedia-3.0/CHANGES.txt b/Titan/libs/LibSharedMedia-3.0/CHANGES.txt deleted file mode 100644 index bdfc4a9..0000000 --- a/Titan/libs/LibSharedMedia-3.0/CHANGES.txt +++ /dev/null @@ -1,29 +0,0 @@ ------------------------------------------------------------------------- -r115 | funkehdude | 2020-11-23 17:12:53 +0000 (Mon, 23 Nov 2020) | 1 line -Changed paths: - M /trunk/LibSharedMedia-3.0.toc - -bump toc ------------------------------------------------------------------------- -r114 | elkano | 2019-09-13 16:12:43 +0000 (Fri, 13 Sep 2019) | 2 lines -Changed paths: - M /trunk/LibSharedMedia-3.0/LibSharedMedia-3.0.lua - -fixes registering mp3 paths -closes #23 ------------------------------------------------------------------------- -r113 | elkano | 2019-07-14 17:20:43 +0000 (Sun, 14 Jul 2019) | 1 line -Changed paths: - M /trunk/LibSharedMedia-3.0/LibSharedMedia-3.0.lua - -readded pre-8.2 compatibility for classic client ------------------------------------------------------------------------- -r112 | elkano | 2019-07-11 16:45:13 +0000 (Thu, 11 Jul 2019) | 3 lines -Changed paths: - M /trunk/LibSharedMedia-3.0/LibSharedMedia-3.0.lua - -- removed pre 8.2 compat code -- BACKGROUND, BORDER, STATUSBAR and SOUND string values are meant for file paths with 8.2 limiting file access for such media to the interface folder, paths must now start with "interface" to be registered; numeric IDs for files are fine, too -- added the solid background as option for statusbar, too ------------------------------------------------------------------------- - diff --git a/Titan/libs/LibSharedMedia-3.0/CallbackHandler-1.0/CallbackHandler-1.0.lua b/Titan/libs/LibSharedMedia-3.0/CallbackHandler-1.0/CallbackHandler-1.0.lua deleted file mode 100755 index 3bd4a37..0000000 --- a/Titan/libs/LibSharedMedia-3.0/CallbackHandler-1.0/CallbackHandler-1.0.lua +++ /dev/null @@ -1,212 +0,0 @@ ---[[ $Id: CallbackHandler-1.0.lua 1186 2018-07-21 14:19:18Z nevcairiel $ ]] -local MAJOR, MINOR = "CallbackHandler-1.0", 7 -local CallbackHandler = LibStub:NewLibrary(MAJOR, MINOR) - -if not CallbackHandler then return end -- No upgrade needed - -local meta = {__index = function(tbl, key) tbl[key] = {} return tbl[key] end} - --- Lua APIs -local tconcat = table.concat -local assert, error, loadstring = assert, error, loadstring -local setmetatable, rawset, rawget = setmetatable, rawset, rawget -local next, select, pairs, type, tostring = next, select, pairs, type, tostring - --- Global vars/functions that we don't upvalue since they might get hooked, or upgraded --- List them here for Mikk's FindGlobals script --- GLOBALS: geterrorhandler - -local xpcall = xpcall - -local function errorhandler(err) - return geterrorhandler()(err) -end - -local function Dispatch(handlers, ...) - local index, method = next(handlers) - if not method then return end - repeat - xpcall(method, errorhandler, ...) - index, method = next(handlers, index) - until not method -end - --------------------------------------------------------------------------- --- CallbackHandler:New --- --- target - target object to embed public APIs in --- RegisterName - name of the callback registration API, default "RegisterCallback" --- UnregisterName - name of the callback unregistration API, default "UnregisterCallback" --- UnregisterAllName - name of the API to unregister all callbacks, default "UnregisterAllCallbacks". false == don't publish this API. - -function CallbackHandler:New(target, RegisterName, UnregisterName, UnregisterAllName) - - RegisterName = RegisterName or "RegisterCallback" - UnregisterName = UnregisterName or "UnregisterCallback" - if UnregisterAllName==nil then -- false is used to indicate "don't want this method" - UnregisterAllName = "UnregisterAllCallbacks" - end - - -- we declare all objects and exported APIs inside this closure to quickly gain access - -- to e.g. function names, the "target" parameter, etc - - - -- Create the registry object - local events = setmetatable({}, meta) - local registry = { recurse=0, events=events } - - -- registry:Fire() - fires the given event/message into the registry - function registry:Fire(eventname, ...) - if not rawget(events, eventname) or not next(events[eventname]) then return end - local oldrecurse = registry.recurse - registry.recurse = oldrecurse + 1 - - Dispatch(events[eventname], eventname, ...) - - registry.recurse = oldrecurse - - if registry.insertQueue and oldrecurse==0 then - -- Something in one of our callbacks wanted to register more callbacks; they got queued - for eventname,callbacks in pairs(registry.insertQueue) do - local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. - for self,func in pairs(callbacks) do - events[eventname][self] = func - -- fire OnUsed callback? - if first and registry.OnUsed then - registry.OnUsed(registry, target, eventname) - first = nil - end - end - end - registry.insertQueue = nil - end - end - - -- Registration of a callback, handles: - -- self["method"], leads to self["method"](self, ...) - -- self with function ref, leads to functionref(...) - -- "addonId" (instead of self) with function ref, leads to functionref(...) - -- all with an optional arg, which, if present, gets passed as first argument (after self if present) - target[RegisterName] = function(self, eventname, method, ... --[[actually just a single arg]]) - if type(eventname) ~= "string" then - error("Usage: "..RegisterName.."(eventname, method[, arg]): 'eventname' - string expected.", 2) - end - - method = method or eventname - - local first = not rawget(events, eventname) or not next(events[eventname]) -- test for empty before. not test for one member after. that one member may have been overwritten. - - if type(method) ~= "string" and type(method) ~= "function" then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - string or function expected.", 2) - end - - local regfunc - - if type(method) == "string" then - -- self["method"] calling style - if type(self) ~= "table" then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): self was not a table?", 2) - elseif self==target then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): do not use Library:"..RegisterName.."(), use your own 'self'", 2) - elseif type(self[method]) ~= "function" then - error("Usage: "..RegisterName.."(\"eventname\", \"methodname\"): 'methodname' - method '"..tostring(method).."' not found on self.", 2) - end - - if select("#",...)>=1 then -- this is not the same as testing for arg==nil! - local arg=select(1,...) - regfunc = function(...) self[method](self,arg,...) end - else - regfunc = function(...) self[method](self,...) end - end - else - -- function ref with self=object or self="addonId" or self=thread - if type(self)~="table" and type(self)~="string" and type(self)~="thread" then - error("Usage: "..RegisterName.."(self or \"addonId\", eventname, method): 'self or addonId': table or string or thread expected.", 2) - end - - if select("#",...)>=1 then -- this is not the same as testing for arg==nil! - local arg=select(1,...) - regfunc = function(...) method(arg,...) end - else - regfunc = method - end - end - - - if events[eventname][self] or registry.recurse<1 then - -- if registry.recurse<1 then - -- we're overwriting an existing entry, or not currently recursing. just set it. - events[eventname][self] = regfunc - -- fire OnUsed callback? - if registry.OnUsed and first then - registry.OnUsed(registry, target, eventname) - end - else - -- we're currently processing a callback in this registry, so delay the registration of this new entry! - -- yes, we're a bit wasteful on garbage, but this is a fringe case, so we're picking low implementation overhead over garbage efficiency - registry.insertQueue = registry.insertQueue or setmetatable({},meta) - registry.insertQueue[eventname][self] = regfunc - end - end - - -- Unregister a callback - target[UnregisterName] = function(self, eventname) - if not self or self==target then - error("Usage: "..UnregisterName.."(eventname): bad 'self'", 2) - end - if type(eventname) ~= "string" then - error("Usage: "..UnregisterName.."(eventname): 'eventname' - string expected.", 2) - end - if rawget(events, eventname) and events[eventname][self] then - events[eventname][self] = nil - -- Fire OnUnused callback? - if registry.OnUnused and not next(events[eventname]) then - registry.OnUnused(registry, target, eventname) - end - end - if registry.insertQueue and rawget(registry.insertQueue, eventname) and registry.insertQueue[eventname][self] then - registry.insertQueue[eventname][self] = nil - end - end - - -- OPTIONAL: Unregister all callbacks for given selfs/addonIds - if UnregisterAllName then - target[UnregisterAllName] = function(...) - if select("#",...)<1 then - error("Usage: "..UnregisterAllName.."([whatFor]): missing 'self' or \"addonId\" to unregister events for.", 2) - end - if select("#",...)==1 and ...==target then - error("Usage: "..UnregisterAllName.."([whatFor]): supply a meaningful 'self' or \"addonId\"", 2) - end - - - for i=1,select("#",...) do - local self = select(i,...) - if registry.insertQueue then - for eventname, callbacks in pairs(registry.insertQueue) do - if callbacks[self] then - callbacks[self] = nil - end - end - end - for eventname, callbacks in pairs(events) do - if callbacks[self] then - callbacks[self] = nil - -- Fire OnUnused callback? - if registry.OnUnused and not next(callbacks) then - registry.OnUnused(registry, target, eventname) - end - end - end - end - end - end - - return registry -end - - --- CallbackHandler purposefully does NOT do explicit embedding. Nor does it --- try to upgrade old implicit embeds since the system is selfcontained and --- relies on closures to work. - diff --git a/Titan/libs/LibSharedMedia-3.0/LibSharedMedia-3.0.toc b/Titan/libs/LibSharedMedia-3.0/LibSharedMedia-3.0.toc deleted file mode 100755 index 142c691..0000000 --- a/Titan/libs/LibSharedMedia-3.0/LibSharedMedia-3.0.toc +++ /dev/null @@ -1,18 +0,0 @@ -## Interface: 90002 -## LoadOnDemand: 1 - -## Title: Lib: SharedMedia-3.0 -## Notes: Shared handling of media data (fonts, sounds, textures, ...) between addons. -## Author: Elkano -## Version: 3.0-115 -## X-Website: http://www.wowace.com/projects/libsharedmedia-3-0/ -## X-Category: Library - -## X-Revision: 115 -## X-Date: 2020-11-23T17:12:53Z - -LibStub\LibStub.lua -CallbackHandler-1.0\CallbackHandler-1.0.lua - -LibSharedMedia-3.0\lib.xml - diff --git a/Titan/libs/LibSharedMedia-3.0/LibSharedMedia-3.0/LibSharedMedia-3.0.lua b/Titan/libs/LibSharedMedia-3.0/LibSharedMedia-3.0/LibSharedMedia-3.0.lua deleted file mode 100755 index 1d22125..0000000 --- a/Titan/libs/LibSharedMedia-3.0/LibSharedMedia-3.0/LibSharedMedia-3.0.lua +++ /dev/null @@ -1,300 +0,0 @@ ---[[ -Name: LibSharedMedia-3.0 -Revision: $Revision: 114 $ -Author: Elkano (elkano@gmx.de) -Inspired By: SurfaceLib by Haste/Otravi (troeks@gmail.com) -Website: http://www.wowace.com/projects/libsharedmedia-3-0/ -Description: Shared handling of media data (fonts, sounds, textures, ...) between addons. -Dependencies: LibStub, CallbackHandler-1.0 -License: LGPL v2.1 -]] - -local MAJOR, MINOR = "LibSharedMedia-3.0", 8020003 -- 8.2.0 v3 / increase manually on changes -local lib = LibStub:NewLibrary(MAJOR, MINOR) - -if not lib then return end - -local _G = getfenv(0) - -local pairs = _G.pairs -local type = _G.type - -local band = _G.bit.band -local table_sort = _G.table.sort - -local RESTRICTED_FILE_ACCESS = WOW_PROJECT_ID == WOW_PROJECT_MAINLINE -- starting with 8.2, some rules for file access have changed; classic still uses the old way - -local locale = GetLocale() -local locale_is_western -local LOCALE_MASK = 0 -lib.LOCALE_BIT_koKR = 1 -lib.LOCALE_BIT_ruRU = 2 -lib.LOCALE_BIT_zhCN = 4 -lib.LOCALE_BIT_zhTW = 8 -lib.LOCALE_BIT_western = 128 - -local CallbackHandler = LibStub:GetLibrary("CallbackHandler-1.0") - -lib.callbacks = lib.callbacks or CallbackHandler:New(lib) - -lib.DefaultMedia = lib.DefaultMedia or {} -lib.MediaList = lib.MediaList or {} -lib.MediaTable = lib.MediaTable or {} -lib.MediaType = lib.MediaType or {} -lib.OverrideMedia = lib.OverrideMedia or {} - -local defaultMedia = lib.DefaultMedia -local mediaList = lib.MediaList -local mediaTable = lib.MediaTable -local overrideMedia = lib.OverrideMedia - - --- create mediatype constants -lib.MediaType.BACKGROUND = "background" -- background textures -lib.MediaType.BORDER = "border" -- border textures -lib.MediaType.FONT = "font" -- fonts -lib.MediaType.STATUSBAR = "statusbar" -- statusbar textures -lib.MediaType.SOUND = "sound" -- sound files - --- populate lib with default Blizzard data --- BACKGROUND -if not lib.MediaTable.background then lib.MediaTable.background = {} end -lib.MediaTable.background["None"] = [[]] -lib.MediaTable.background["Blizzard Collections Background"] = [[Interface\Collections\CollectionsBackgroundTile]] -lib.MediaTable.background["Blizzard Dialog Background"] = [[Interface\DialogFrame\UI-DialogBox-Background]] -lib.MediaTable.background["Blizzard Dialog Background Dark"] = [[Interface\DialogFrame\UI-DialogBox-Background-Dark]] -lib.MediaTable.background["Blizzard Dialog Background Gold"] = [[Interface\DialogFrame\UI-DialogBox-Gold-Background]] -lib.MediaTable.background["Blizzard Garrison Background"] = [[Interface\Garrison\GarrisonUIBackground]] -lib.MediaTable.background["Blizzard Garrison Background 2"] = [[Interface\Garrison\GarrisonUIBackground2]] -lib.MediaTable.background["Blizzard Garrison Background 3"] = [[Interface\Garrison\GarrisonMissionUIInfoBoxBackgroundTile]] -lib.MediaTable.background["Blizzard Low Health"] = [[Interface\FullScreenTextures\LowHealth]] -lib.MediaTable.background["Blizzard Marble"] = [[Interface\FrameGeneral\UI-Background-Marble]] -lib.MediaTable.background["Blizzard Out of Control"] = [[Interface\FullScreenTextures\OutOfControl]] -lib.MediaTable.background["Blizzard Parchment"] = [[Interface\AchievementFrame\UI-Achievement-Parchment-Horizontal]] -lib.MediaTable.background["Blizzard Parchment 2"] = [[Interface\AchievementFrame\UI-GuildAchievement-Parchment-Horizontal]] -lib.MediaTable.background["Blizzard Rock"] = [[Interface\FrameGeneral\UI-Background-Rock]] -lib.MediaTable.background["Blizzard Tabard Background"] = [[Interface\TabardFrame\TabardFrameBackground]] -lib.MediaTable.background["Blizzard Tooltip"] = [[Interface\Tooltips\UI-Tooltip-Background]] -lib.MediaTable.background["Solid"] = [[Interface\Buttons\WHITE8X8]] -lib.DefaultMedia.background = "None" - --- BORDER -if not lib.MediaTable.border then lib.MediaTable.border = {} end -lib.MediaTable.border["None"] = [[]] -lib.MediaTable.border["Blizzard Achievement Wood"] = [[Interface\AchievementFrame\UI-Achievement-WoodBorder]] -lib.MediaTable.border["Blizzard Chat Bubble"] = [[Interface\Tooltips\ChatBubble-Backdrop]] -lib.MediaTable.border["Blizzard Dialog"] = [[Interface\DialogFrame\UI-DialogBox-Border]] -lib.MediaTable.border["Blizzard Dialog Gold"] = [[Interface\DialogFrame\UI-DialogBox-Gold-Border]] -lib.MediaTable.border["Blizzard Party"] = [[Interface\CHARACTERFRAME\UI-Party-Border]] -lib.MediaTable.border["Blizzard Tooltip"] = [[Interface\Tooltips\UI-Tooltip-Border]] -lib.DefaultMedia.border = "None" - --- FONT -if not lib.MediaTable.font then lib.MediaTable.font = {} end -local SML_MT_font = lib.MediaTable.font ---[[ -All font files are currently in all clients, the following table depicts which font supports which charset as of 5.0.4 -Fonts were checked using langcover.pl from DejaVu fonts (http://sourceforge.net/projects/dejavu/) and FontForge (http://fontforge.org/) -latin means check for: de, en, es, fr, it, pt - -file name latin koKR ruRU zhCN zhTW -2002.ttf 2002 X X X - - -2002B.ttf 2002 Bold X X X - - -ARHei.ttf AR CrystalzcuheiGBK Demibold X - X X X -ARIALN.TTF Arial Narrow X - X - - -ARKai_C.ttf AR ZhongkaiGBK Medium (Combat) X - X X X -ARKai_T.ttf AR ZhongkaiGBK Medium X - X X X -bHEI00M.ttf AR Heiti2 Medium B5 - - - - X -bHEI01B.ttf AR Heiti2 Bold B5 - - - - X -bKAI00M.ttf AR Kaiti Medium B5 - - - - X -bLEI00D.ttf AR Leisu Demi B5 - - - - X -FRIZQT__.TTF Friz Quadrata TT X - - - - -FRIZQT___CYR.TTF FrizQuadrataCTT x - X - - -K_Damage.TTF YDIWingsM - X X - - -K_Pagetext.TTF MoK X X X - - -MORPHEUS.TTF Morpheus X - - - - -MORPHEUS_CYR.TTF Morpheus X - X - - -NIM_____.ttf Nimrod MT X - X - - -SKURRI.TTF Skurri X - - - - -SKURRI_CYR.TTF Skurri X - X - - - -WARNING: Although FRIZQT___CYR is available on western clients, it doesn't support special European characters e.g. é, ï, ö -Due to this, we cannot use it as a replacement for FRIZQT__.TTF -]] - -if locale == "koKR" then - LOCALE_MASK = lib.LOCALE_BIT_koKR --- - SML_MT_font["굵은 글꼴"] = [[Fonts\2002B.TTF]] - SML_MT_font["기본 글꼴"] = [[Fonts\2002.TTF]] - SML_MT_font["데미지 글꼴"] = [[Fonts\K_Damage.TTF]] - SML_MT_font["퀘스트 글꼴"] = [[Fonts\K_Pagetext.TTF]] --- - lib.DefaultMedia["font"] = "기본 글꼴" -- someone from koKR please adjust if needed --- -elseif locale == "zhCN" then - LOCALE_MASK = lib.LOCALE_BIT_zhCN --- - SML_MT_font["伤害数字"] = [[Fonts\ARKai_C.ttf]] - SML_MT_font["默认"] = [[Fonts\ARKai_T.ttf]] - SML_MT_font["聊天"] = [[Fonts\ARHei.ttf]] --- - lib.DefaultMedia["font"] = "默认" -- someone from zhCN please adjust if needed --- -elseif locale == "zhTW" then - LOCALE_MASK = lib.LOCALE_BIT_zhTW --- - SML_MT_font["提示訊息"] = [[Fonts\bHEI00M.ttf]] - SML_MT_font["聊天"] = [[Fonts\bHEI01B.ttf]] - SML_MT_font["傷害數字"] = [[Fonts\bKAI00M.ttf]] - SML_MT_font["預設"] = [[Fonts\bLEI00D.ttf]] --- - lib.DefaultMedia["font"] = "預設" -- someone from zhTW please adjust if needed - -elseif locale == "ruRU" then - LOCALE_MASK = lib.LOCALE_BIT_ruRU --- - SML_MT_font["2002"] = [[Fonts\2002.TTF]] - SML_MT_font["2002 Bold"] = [[Fonts\2002B.TTF]] - SML_MT_font["AR CrystalzcuheiGBK Demibold"] = [[Fonts\ARHei.TTF]] - SML_MT_font["AR ZhongkaiGBK Medium (Combat)"] = [[Fonts\ARKai_C.TTF]] - SML_MT_font["AR ZhongkaiGBK Medium"] = [[Fonts\ARKai_T.TTF]] - SML_MT_font["Arial Narrow"] = [[Fonts\ARIALN.TTF]] - SML_MT_font["Friz Quadrata TT"] = [[Fonts\FRIZQT___CYR.TTF]] - SML_MT_font["MoK"] = [[Fonts\K_Pagetext.TTF]] - SML_MT_font["Morpheus"] = [[Fonts\MORPHEUS_CYR.TTF]] - SML_MT_font["Nimrod MT"] = [[Fonts\NIM_____.ttf]] - SML_MT_font["Skurri"] = [[Fonts\SKURRI_CYR.TTF]] --- - lib.DefaultMedia.font = "Friz Quadrata TT" --- -else - LOCALE_MASK = lib.LOCALE_BIT_western - locale_is_western = true --- - SML_MT_font["2002"] = [[Fonts\2002.TTF]] - SML_MT_font["2002 Bold"] = [[Fonts\2002B.TTF]] - SML_MT_font["AR CrystalzcuheiGBK Demibold"] = [[Fonts\ARHei.TTF]] - SML_MT_font["AR ZhongkaiGBK Medium (Combat)"] = [[Fonts\ARKai_C.TTF]] - SML_MT_font["AR ZhongkaiGBK Medium"] = [[Fonts\ARKai_T.TTF]] - SML_MT_font["Arial Narrow"] = [[Fonts\ARIALN.TTF]] - SML_MT_font["Friz Quadrata TT"] = [[Fonts\FRIZQT__.TTF]] - SML_MT_font["MoK"] = [[Fonts\K_Pagetext.TTF]] - SML_MT_font["Morpheus"] = [[Fonts\MORPHEUS_CYR.TTF]] - SML_MT_font["Nimrod MT"] = [[Fonts\NIM_____.ttf]] - SML_MT_font["Skurri"] = [[Fonts\SKURRI_CYR.TTF]] --- - lib.DefaultMedia.font = "Friz Quadrata TT" --- -end - --- STATUSBAR -if not lib.MediaTable.statusbar then lib.MediaTable.statusbar = {} end -lib.MediaTable.statusbar["Blizzard"] = [[Interface\TargetingFrame\UI-StatusBar]] -lib.MediaTable.statusbar["Blizzard Character Skills Bar"] = [[Interface\PaperDollInfoFrame\UI-Character-Skills-Bar]] -lib.MediaTable.statusbar["Blizzard Raid Bar"] = [[Interface\RaidFrame\Raid-Bar-Hp-Fill]] -lib.MediaTable.statusbar["Solid"] = [[Interface\Buttons\WHITE8X8]] -lib.DefaultMedia.statusbar = "Blizzard" - --- SOUND -if not lib.MediaTable.sound then lib.MediaTable.sound = {} end -lib.MediaTable.sound["None"] = RESTRICTED_FILE_ACCESS and 1 or [[Interface\Quiet.ogg]] -- Relies on the fact that PlaySound[File] doesn't error on these values. -lib.DefaultMedia.sound = "None" - -local function rebuildMediaList(mediatype) - local mtable = mediaTable[mediatype] - if not mtable then return end - if not mediaList[mediatype] then mediaList[mediatype] = {} end - local mlist = mediaList[mediatype] - -- list can only get larger, so simply overwrite it - local i = 0 - for k in pairs(mtable) do - i = i + 1 - mlist[i] = k - end - table_sort(mlist) -end - -function lib:Register(mediatype, key, data, langmask) - if type(mediatype) ~= "string" then - error(MAJOR..":Register(mediatype, key, data, langmask) - mediatype must be string, got "..type(mediatype)) - end - if type(key) ~= "string" then - error(MAJOR..":Register(mediatype, key, data, langmask) - key must be string, got "..type(key)) - end - mediatype = mediatype:lower() - if mediatype == lib.MediaType.FONT and ((langmask and band(langmask, LOCALE_MASK) == 0) or not (langmask or locale_is_western)) then - -- ignore fonts that aren't flagged as supporting local glyphs on non-western clients - return false - end - if type(data) == "string" and (mediatype == lib.MediaType.BACKGROUND or mediatype == lib.MediaType.BORDER or mediatype == lib.MediaType.STATUSBAR or mediatype == lib.MediaType.SOUND) then - local path = data:lower() - if RESTRICTED_FILE_ACCESS and not path:find("^interface") then - -- files accessed via path only allowed from interface folder - return false - end - if mediatype == lib.MediaType.SOUND and not (path:find(".ogg", nil, true) or path:find(".mp3", nil, true)) then - -- Only ogg and mp3 are valid sounds. - return false - end - end - if not mediaTable[mediatype] then mediaTable[mediatype] = {} end - local mtable = mediaTable[mediatype] - if mtable[key] then return false end - - mtable[key] = data - rebuildMediaList(mediatype) - self.callbacks:Fire("LibSharedMedia_Registered", mediatype, key) - return true -end - -function lib:Fetch(mediatype, key, noDefault) - local mtt = mediaTable[mediatype] - local overridekey = overrideMedia[mediatype] - local result = mtt and ((overridekey and mtt[overridekey] or mtt[key]) or (not noDefault and defaultMedia[mediatype] and mtt[defaultMedia[mediatype]])) or nil - return result ~= "" and result or nil -end - -function lib:IsValid(mediatype, key) - return mediaTable[mediatype] and (not key or mediaTable[mediatype][key]) and true or false -end - -function lib:HashTable(mediatype) - return mediaTable[mediatype] -end - -function lib:List(mediatype) - if not mediaTable[mediatype] then - return nil - end - if not mediaList[mediatype] then - rebuildMediaList(mediatype) - end - return mediaList[mediatype] -end - -function lib:GetGlobal(mediatype) - return overrideMedia[mediatype] -end - -function lib:SetGlobal(mediatype, key) - if not mediaTable[mediatype] then - return false - end - overrideMedia[mediatype] = (key and mediaTable[mediatype][key]) and key or nil - self.callbacks:Fire("LibSharedMedia_SetGlobal", mediatype, overrideMedia[mediatype]) - return true -end - -function lib:GetDefault(mediatype) - return defaultMedia[mediatype] -end - -function lib:SetDefault(mediatype, key) - if mediaTable[mediatype] and mediaTable[mediatype][key] and not defaultMedia[mediatype] then - defaultMedia[mediatype] = key - return true - else - return false - end -end diff --git a/Titan/libs/LibSharedMedia-3.0/LibSharedMedia-3.0/lib.xml b/Titan/libs/LibSharedMedia-3.0/LibSharedMedia-3.0/lib.xml deleted file mode 100755 index 7313228..0000000 --- a/Titan/libs/LibSharedMedia-3.0/LibSharedMedia-3.0/lib.xml +++ /dev/null @@ -1,4 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="LibSharedMedia-3.0.lua" /> -</Ui> diff --git a/Titan/libs/LibSharedMedia-3.0/LibStub/LibStub.lua b/Titan/libs/LibSharedMedia-3.0/LibStub/LibStub.lua deleted file mode 100755 index f5fc919..0000000 --- a/Titan/libs/LibSharedMedia-3.0/LibStub/LibStub.lua +++ /dev/null @@ -1,51 +0,0 @@ --- $Id: LibStub.lua 76 2007-09-03 01:50:17Z mikk $ --- LibStub is a simple versioning stub meant for use in Libraries. http://www.wowace.com/wiki/LibStub for more info --- LibStub is hereby placed in the Public Domain --- Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel, joshborke -local LIBSTUB_MAJOR, LIBSTUB_MINOR = "LibStub", 2 -- NEVER MAKE THIS AN SVN REVISION! IT NEEDS TO BE USABLE IN ALL REPOS! -local LibStub = _G[LIBSTUB_MAJOR] - --- Check to see is this version of the stub is obsolete -if not LibStub or LibStub.minor < LIBSTUB_MINOR then - LibStub = LibStub or {libs = {}, minors = {} } - _G[LIBSTUB_MAJOR] = LibStub - LibStub.minor = LIBSTUB_MINOR - - -- LibStub:NewLibrary(major, minor) - -- major (string) - the major version of the library - -- minor (string or number ) - the minor version of the library - -- - -- returns nil if a newer or same version of the lib is already present - -- returns empty library object or old library object if upgrade is needed - function LibStub:NewLibrary(major, minor) - assert(type(major) == "string", "Bad argument #2 to `NewLibrary' (string expected)") - minor = assert(tonumber(strmatch(minor, "%d+")), "Minor version must either be a number or contain a number.") - - local oldminor = self.minors[major] - if oldminor and oldminor >= minor then return nil end - self.minors[major], self.libs[major] = minor, self.libs[major] or {} - return self.libs[major], oldminor - end - - -- LibStub:GetLibrary(major, [silent]) - -- major (string) - the major version of the library - -- silent (boolean) - if true, library is optional, silently return nil if its not found - -- - -- throws an error if the library can not be found (except silent is set) - -- returns the library object if found - function LibStub:GetLibrary(major, silent) - if not self.libs[major] and not silent then - error(("Cannot find a library instance of %q."):format(tostring(major)), 2) - end - return self.libs[major], self.minors[major] - end - - -- LibStub:IterateLibraries() - -- - -- Returns an iterator for the currently registered libraries - function LibStub:IterateLibraries() - return pairs(self.libs) - end - - setmetatable(LibStub, { __call = LibStub.GetLibrary }) -end diff --git a/Titan/libs/LibSharedMedia-3.0/lib.xml b/Titan/libs/LibSharedMedia-3.0/lib.xml deleted file mode 100755 index fd1c0cd..0000000 --- a/Titan/libs/LibSharedMedia-3.0/lib.xml +++ /dev/null @@ -1,5 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Include file="LibSharedMedia-3.0\lib.xml"/> -</Ui> - diff --git a/Titan/libs/LibStub/LibStub.lua b/Titan/libs/LibStub/LibStub.lua deleted file mode 100755 index cfc97de..0000000 --- a/Titan/libs/LibStub/LibStub.lua +++ /dev/null @@ -1,30 +0,0 @@ --- LibStub is a simple versioning stub meant for use in Libraries. http://www.wowace.com/wiki/LibStub for more info --- LibStub is hereby placed in the Public Domain Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel, joshborke -local LIBSTUB_MAJOR, LIBSTUB_MINOR = "LibStub", 2 -- NEVER MAKE THIS AN SVN REVISION! IT NEEDS TO BE USABLE IN ALL REPOS! -local LibStub = _G[LIBSTUB_MAJOR] - -if not LibStub or LibStub.minor < LIBSTUB_MINOR then - LibStub = LibStub or {libs = {}, minors = {} } - _G[LIBSTUB_MAJOR] = LibStub - LibStub.minor = LIBSTUB_MINOR - - function LibStub:NewLibrary(major, minor) - assert(type(major) == "string", "Bad argument #2 to `NewLibrary' (string expected)") - minor = assert(tonumber(strmatch(minor, "%d+")), "Minor version must either be a number or contain a number.") - - local oldminor = self.minors[major] - if oldminor and oldminor >= minor then return nil end - self.minors[major], self.libs[major] = minor, self.libs[major] or {} - return self.libs[major], oldminor - end - - function LibStub:GetLibrary(major, silent) - if not self.libs[major] and not silent then - error(("Cannot find a library instance of %q."):format(tostring(major)), 2) - end - return self.libs[major], self.minors[major] - end - - function LibStub:IterateLibraries() return pairs(self.libs) end - setmetatable(LibStub, { __call = LibStub.GetLibrary }) -end diff --git a/Titan/libs/_Titan_Lib_Notes.txt b/Titan/libs/_Titan_Lib_Notes.txt deleted file mode 100644 index 67e7da5..0000000 --- a/Titan/libs/_Titan_Lib_Notes.txt +++ /dev/null @@ -1,8 +0,0 @@ -*** 2021-02-10 *** -* Ace3 removed : !LibUIDropDownMenu : https://www.wowace.com/projects/libuidropdownmenu -*** 2020-12-02 *** -* Ace3 release is used -* Added : -- !LibUIDropDownMenu : https://www.wowace.com/projects/libuidropdownmenu -- AceGUI-3.0-SharedMediaWidgets : https://www.wowace.com/projects/ace-gui-3-0-shared-media-widgets -- LibSharedMedia-3.0 : https://www.wowace.com/projects/libsharedmedia-3-0 diff --git a/Titan/libs/changelog.txt b/Titan/libs/changelog.txt deleted file mode 100755 index d9a75ff..0000000 --- a/Titan/libs/changelog.txt +++ /dev/null @@ -1,435 +0,0 @@ -Ace3 Release - Revision r1241 (October 13th, 2020) --------------------------------------------------- -- AceAddon-3.0: Suppress more Blizzard addon load events from activating Ace3 addons "too early", causing loading issues. -- AceGUI-3.0: Updated for Backdrop changes in WoW 9.0 -- AceGUI-3.0: Re-structured widget releasing to avoid recursive release in some circumstances -- AceGUI-3.0: Label: Anchors are being refreshed when the font is changed (Ticket #540) -- AceGUI-3.0: Dropdown: Initialize the widget with an empty list so that AddItem can be used on a fresh dropdown (Ticket #542) - -Ace3 Release - Revision r1227 (August 12th, 2019) -------------------------------------------------- -- AceConfigDialog-3.0: Fixed an issue with a missing template on WoW Classic (Ticket #517) - -Ace3 Release - Revision r1224 (August 1st, 2019) ------------------------------------------------- -- AceConfigDialog-3.0: Replace use of StaticPopup with a custom frame to minimize taint -- AceGUI-3.0: Ensure the OnLeave callback on various widgets still fires when its being released while visible (Ticket #505) -- AceGUI-3.0: Various fixes for anchoring problems in WoW 8.2 (Ticket #512, and other reports) - -Ace3 Release - Revision r1214 (June 26th, 2019) ------------------------------------------------ -- AceConfigDialog-3.0: Exposed "select" type sorting control through a new "sorting" config table member -- AceConfigDialog-3.0: Clear existing anchors on the GameTooltip before re-anchoring it for 8.2 compatibility -- AceConfigDialog-3.0: Improved options table sorting algorithm to produce a stable result in certain edge cases (Ticket #501) -- AceConfigRegistry-3.0: Added missing custom controls entries for all types added in the last release (Ticket #494) -- AceGUI-3.0: ColorPicker: Removed usage of Show/HideUIPanel for WoW 8.2 compatibiliy -- AceGUI-3.0: DropDown: Improved dropdown sorting algorithm to support tables with mixed string and numeric keys - -Ace3 Release - Revision r1200 (January 24th, 2019) --------------------------------------------------- -- Cleanup for WoW 8.0 improvements -- AceGUI-3.0: Worked around various quirks in the WoW 8.0/8.1 API -- AceGUI-3.0: ColorPicker: Store references to the background/checkers textures (Ticket #473) -- AceConfigDialog-3.0: Allow custom controls for almost all option types (Ticket #475) - -Ace3 Release - Revision r1182 (July 17th, 2018) ------------------------------------------------ -- AceComm-3.0: Support numeric targets for custom channels (Ticket #419) -- AceComm-3.0/ChatThrottleLib: Updated for WoW 8.0 API changes -- AceConfig-3.0: Allow number values for the "width" parameter, which acts as a multiplier of the default width -- AceConfigDialog-3.0: Enable iconCoords for the main level of a tree group (Ticket #417) -- AceGUI-3.0: Implement a Table Layout (#442) -- AceGUI-3.0: EditBox: Only try to handle dragging if a valid object is being dragged into the text box -- AceGUI-3.0: Various fixes and work-arounds for WoW 8.0 changes - -Ace3 Release - Revision r1166 (August 29th, 2017) -------------------------------------------------- -- Updated any use of PlaySound to the new numeric constants (Fix for WoW 7.3) -- AceConfigDialog-3.0: implement fallback validation feedback in a StaticPopup (Ticket #2) - -Ace3 Release - Revision r1158 (March 28th, 2017) ------------------------------------------------- -- AceGUI-3.0: Fire OnShow events from Frame and Windows containers (Ticket #396) -- AceGUI-3.0: Add SetJustifyV/H API to the Label/InteractiveLabel widgets (Ticket #397) - -Ace3 Release - Revision r1151 (July 18th, 2016) ------------------------------------------------ -- AceConfig-3.0: Allow specifying images using the numeric fileID (Ticket #389) -- AceGUI-3.0: Use SetColorTexture in WoW 7.0 -- AceGUI-3.0: Expose the HighlightText API for EditBox and MultiLineEditBox Widgets (Ticket #378) -- AceGUI-3.0: Keybinding: Support MouseWheel Up/Down bindings (Ticket #372) -- AceGUI-3.0: TreeGroup: Refresh the tree in an OnUpdate once after Acquire, not only after creation (Fixes missing tree in WoW 7.0) -- AceSerializer-3.0: Create consistent tokens for infinity, independent of the clients platform - -Ace3 Release - Revision r1134 (June 23rd, 2015) ------------------------------------------------ -- AceGUI-3.0: TreeGroup: Prevent Word Wrap in tree elements - -Ace3 Release - Revision r1128 (February 24th, 2015) ---------------------------------------------------- -- AceGUI-3.0: Fixed an error in GameTooltip handling causing wrong formatting in some cases - -Ace3 Release - Revision r1122 (October 14th, 2014) --------------------------------------------------- -- AceDB-3.0: Now using the GetCurrentRegion() API to determine region-based profile keys (fix for WoW 6.0) -- AceComm-3.0: Update ChatThrottleLib to v23 -- AceConfigDialog-3.0: Show a more meaningful title on Blizzard Options Groups (Ticket #353) -- AceGUI-3.0: ColorPicker: Frame Level is automatically increased to ensure the color picker frame is above the option panel -- AceGUI-3.0: DropDown: Properly disable all clickable areas when the dropdown is disabled (Ticket #360) -- AceHook-3.0: Always use HookScript when hooking scripts in a secure fashion (Ticket #338) -- AceTimer-3.0: New timer implementation based on C_Timer.After - -Ace3 Release - Revision r1109 (February 19th, 2014) ---------------------------------------------------- -- AceComm-3.0: Ambiguate addon comm messages to restore behavior to be identical to pre-5.4.7 -- AceConfigRegistry-3.0: Added an option to skip options table validation on registering - -Ace3 Release - Revision r1104 (October 31st, 2013) --------------------------------------------------- -- AceGUI-3.0: Flow Layout: Added a safeguard to prevent an infinite loop in the layout engine -- AceGUI-3.0: DropDown: Adjust its style slightly to closer resemble the Blizzard DropDown Widget -- AceGUI-3.0: DropDown: API enhancements to specify the width of the pullout and be notified when its opened - -Ace3 Release - Revision r1098 (September 13th, 2013) ----------------------------------------------------- -- AceDB-3.0: Switch characters to the default profile if their active profile is deleted (Ticket #324) -- AceConfigDialog-3.0: Try to prevent static popup taint (Ticket #322) -- AceGUI-3.0: Button: Add a new "Auto Width" option (Ticket #310) -- AceGUI-3.0: DropDown: Make the entire DropDown widget clickable (Ticket #339) -- AceGUI-3.0: EditBox: Allow dragging macros to the editbox (which will then contain the macros name) (Ticket #337) -- AceGUI-3.0: Slider: Add a workaround for the broken slider steps in WoW 5.4 (Ticket #346) -- AceGUI-3.0: TreeGroup: Fix an issue introduced by 5.4 broken scrollbars (Ticket #345) -- AceHook-3.0: Allow hooking of AnimationGroup scripts (Ticket #314) - -Ace3 Release - Revision r1086 (May 21st, 2013) ----------------------------------------------- -- AceAddon-3.0: Improved behavior when loading modules during game startup, ensures proper loading order - -Ace3 Release - Revision r1083 (March 4th, 2013) ------------------------------------------------ -- AceTimer-3.0: Fixed an issue that caused the parameter list passed to the callback to be cut off at nil values -- AceGUI-3.0: InlineGroup: The title attribute is properly reset for recycled objects - -Ace3 Release - Revision r1078 (February 10th, 2013) ---------------------------------------------------- -- AceTimer-3.0: Re-write based on AnimationTimers -- AceHook-3.0: Improved checks/error messages when trying to hook a script on a "nil" frame -- AceDBOptions-3.0: Added Italian locale -- AceGUI-3.0: BlizOptionsGroup: Fixed the "default" button callback -- AceGUI-3.0: Colorpicker: The colorpicker is now clamped to the screen - -Ace3 Release - Revision r1061 (August 27th, 2012) -------------------------------------------------- -- AceConfigDialog-3.0: Try to avoid potential taints in static popup dialogs -- AceConfigDialog-3.0: Sort multiselects with "radio" style -- AceGUI-3.0: Support for WoW 5.0 -- AceGUI-3.0: MultiLineEditBox: Support shift-click'ing items/spells/etc. into the editbox -- AceGUI-3.0: Label: Fix text alignment (Ticket #301) -- AceGUI-3.0: Checkbox: Description text on a disable checkbox should look disabled (Ticket #304) -- AceGUI-3.0: Keybinding: Ensure the Keybinding popup is on the top level (Ticket #305) - -Ace3 Release - Revision r1041 (November 29th, 2011) ---------------------------------------------------- -- AceDB-3.0: Added locale and factionrealmregion profile keys -- AceSerializer-3.0: Removed support for NaN, as WoW 4.3 does no longer allow it. -- AceGUI-3.0: Frame: Add :EnableResize (Ticket #214) - -Ace3 Release - Revision r1032 (June 29th, 2011) ------------------------------------------------ -- AceTab-3.0: Improvements to Match handling (Ticket #255 and #256) -- AceGUI-3.0: DropDown layout fix with hidden labels (Ticket #234) - -Ace3 Release - Revision r1025 (April 27th, 2011) ------------------------------------------------- -- AceComm-3.0: Updated for 4.1 changes - now handles RegisterAddonMessagePrefix internally for you. -- AceGUI-3.0: TabGroup: Fixed width of tabs in 4.1(Ticket #243) - -Ace3 Release - Revision r1009 (February 9th, 2011) --------------------------------------------------- -- AceLocale-3.0: Fix erronous assumption that the default locale is always the first to be registered for the :NewLocale() "silent" flag. The flag must now be set on the FIRST locale to be registered. -- AceLocale-3.0: The :NewLocale() "silent" flag may now be set to the string "raw", meaning nils are returned for unknown translations. -- AceGUI-3.0: Fix the disabled state of Icon widgets -- AceGUI-3.0: The header of the Frame widget now dynamically changes size to fit the text (Ticket #171) -- AceGUI-3.0: Its now possible to define a custom order the elements in a dropdown widget -- AceGUI-3.0: Improved widget focus behaviour across the board (Ticket #192, #193) -- AceGUI-3.0: Fixed a bug that made it impossible to block the tree widget from being user resizable (Ticket #163) -- AceGUI-3.0: Fixed a bug that caused TreeGroups to become unresponsive under certain conditions (Ticket #189, #202) -- AceGUI-3.0: Enhanced the DropDown widget to allow it to be reused more easily. -- AceConfigDialog-3.0: Select Groups now have the proper order in the dropdown (Ticket #184) -- AceConfigDialog-3.0: Implemented "radio" style select boxes (Ticket #149) - -Ace3 Release - Revision r981 (October 27th, 2010) -------------------------------------------------- -- AceAddon-3.0: Fixed a library upgrading issue -- AceAddon-3.0: Modules are now enabled in loading order -- AceGUI-3.0: Keybinding: The widget will no longer steal keybindings even when inactive (Ticket #169) -- AceGUI-3.0: EditBox: Fixed spell drag'n'drop - - -Ace3 Release - Revision r971 (October 12th, 2010) -------------------------------------------------- -- Small fixes and adjustments for the 4.0 Content Patch. -- AceGUI-3.0: ScrollFrame: Allow for a small margin of error when determining if the scroll bar should be shown. -- AceGUI-3.0: Added new widget APIs: GetText for EditBox and DisableButton for MultiLineEditBox - -Ace3 Release - Revision r960 (July 20th, 2010) ----------------------------------------------- -- AceGUI-3.0: Label: Reset Image Size and TexCoords on Acquire (Ticket #110) -- AceGUI-3.0: CheckBox: Re-apply the disabled state after setting a value, so the visuals are correct in either case. (Ticket #107) -- AceGUI-3.0: Icon: Fix the vertical size. It'll now properly scale with the image size, and not be fixed to about 110px. (Ticket #104) -- AceGUI-3.0: External Containers (Frame, Window) should always start in a visible state. (Ticket #121) -- AceGUI-3.0: Added Blizzard sounds to widgets (Ticket #120) -- AceGUI-3.0: CheckBox: check for self.desc:GetText() being nil as well as "" to prevent setting the wrong height on the checkbox causing bouncing checkboxes. -- AceGUI-3.0: Rewrite of the MultiLineEditBox (Ticket #68) -- AceGUI-3.0: CheckBox: Fix alignment of the text in OnMouseDown when an image is set. (Ticket #142) -- AceGUI-3.0: Add SetMaxLetters APIs to EB and MLEB (Ticket #135) -- AceGUI-3.0: Frame: Add events for OnEnter/OnLeave of the statusbar (Ticket #139) -- AceGUI-3.0: Major cleanups and refactoring in nearly all widgets and containers. -- AceConfigDialog-3.0: Always obey the min/max values on range-type widgets (Ticket #114) -- AceConfigDialog-3.0: Pass iconCoords set on groups in the options table to the tree widget (Ticket #111) -- AceConfigDialog-3.0: Implement "softMin" and "softMax", allowing for a UI-specific minimum/maximum for range controls, while allowing manual input of values in the old min/max range. (Ticket #123) -- AceConfigDialog-3.0: Don't close frames in CloseAll that are being opened after the CloseAll event was dispatched. (Ticket #132). -- AceSerializer-3.0: Fix encoding & decoding of \030. (Ticket #115) -- AceDB-3.0: Remove empty sections on logout, keeping the SV clean of more useless informations. -- AceDBOptions-3.0.lua: Fix a string typo (Ticket #141) - -Ace3 Release - Revision r907 (December 16th, 2009) ---------------------------------------------------- -- AceGUI-3.0: Frame: Properly save the width in the status table. -- AceConfigCmd-3.0: Properly handle help output of inline groups with a different handler. (Ticket #101) -- AceConfigDialog-3.0: Don't bail out and error when a dialogControl was invalid, instead show the error and fallback to the default control for that type. -- AceConfigDialog-3.0: Fix a hickup with the OnUpdate script not getting upgraded properly in some situations. - -Ace3 Release - Revision r900 (December 8th, 2009) --------------------------------------------------- -- AceGUI-3.0: Alot of visual fixes regarding margins and general widget styles. -- AceGUI-3.0: Ability to accept links for EditBox Widget (Ticket #21) -- AceGUI-3.0: ScrollFrame: Hide the scrollbar when there is no overflowing content, and allow the Layout functions to use that space for widgets. -- AceGUI-3.0: DropDown: Added a GetValue() API to the Widget (Ticket #69) -- AceGUI-3.0: Button: Pass the arguments of the OnClick handler to the OnClick callback (Ticket #57) -- AceGUI-3.0: add a Window container, basically a plain window with close button -- AceGUI-3.0: Add support for inline descriptions to the checkbox widget. -- AceGUI-3.0: Added an API to the Window container to disable the user-resizing of the same. (Ticket #80) -- AceGUI-3.0: TreeGroup: Allow iconCoords to be passed for the tree elements. (Ticket #59) -- AceGUI-3.0: Slider: Add a more visible backdrop/border around the manual input area (Ticket #98, #46) -- AceGUI-3.0: Allow displaying a image in front of the checkbox label. (Ticket #82) -- AceConfig-3.0: Added an experimental "descStyle" member to all option table nodes that allows you to control the way the description is presented. - Supported values are "tooltip" for the old behaviour, and "inline" for a inline display of the description, pending support in AceGUI-3.0 widgets. -- AceConfigCmd-3.0: Properly parse functions and methods supplied for the "hidden" option table member. (Ticket #96) -- AceConfigDialog-3.0: Fix the unpacking of the basepath arguments when internally calling :Open (Ticket #90) -- AceConfigDialog-3.0: Properly refresh BlizOptions Windows which are registered with a path on NotifyChange. (Ticket #93) -- AceConfigDialog-3.0: Allow image/imageCoords on toogle elements (Note that the width/height of the image on the toggle cannot be changed) (Ticket #82) -- AceConfigDialog-3.0: Pass the groups "name" tag to DropDownGroups as the title. (Ticket #79) -- AceDB-3.0: Remove the metatable from the DB before removing defaults, so we don't accidentally invoke it in the process. (Ticket #66) -- AceDB-3.0: Don't save the profileKeys for namespaces, since we use the profile of the parent DB anyway. This will cut down on SV complexity when using alot of namespaces. -- AceDB-3.0: Don't fire the OnProfileReset callback when copying a profile. -- AceDBOptions-3.0: Show the current profile on the dialog. (Ticket #56) -- AceComm-3.0: Add callbacks for message chunks going out the wire (via CTL). Useful for displaying progress for very large messages. -- AceConsole-3.0: Add :Printf() so you don't have to do Print(format()) - -Ace3 Beta - Revision 820 (August 7th, 2009) --------------------------------------------- -- AceComm-3.0: Updated ChatThrottleLib to v21 -- AceGUI-3.0: Fixed a glitch in the TabGroup code that caused tabs to be unresponsive under rare conditions. (Ticket #38) -- AceGUI-3.0: Consistent "disabled" behaviour of all widgets. (Ticket #47) -- AceGUI-3.0: Changed the way widgets are handled on release to avoid a crash in the game client. (Ticket #49) -- AceGUI-3.0: Fixed a glitch in the button graphics. (Ticket #58) -- AceGUI-3.0: Localized the "Close" Text on the Frame widget. - -Ace3 Beta - Revision 803 (April 14th, 2009) --------------------------------------------- -- AceConfig-3.0: Allow spaces in the keys of config tables. Spaces will be changed on the fly to underscores in AceConfigCmd-3.0 - there is no collision check in place, yet. -- AceConfig-3.0: Support a "fontSize" attribute to the description type. Possible values are "small" (default), "medium" and "large". -- AceConfigDialog-3.0: Fixed an error that would occur when calling InterfaceOptionsFrame_OpenToCategory from within an event handler in a Blizzard Options integrated frame. (Ticket #33) -- AceConfigDialog-3.0: The "execute" type does now recognize the "image" attributes, and will display a clickable icon instead of the button when an image is supplied. (Ticket #35) -- AceConfigDialog-3.0: Pass icons defined in the option table to the TreeGroup widget (Ticket #20) -- AceConfigDialog-3.0: Fixed a bug that caused an empty group widget to be drawn if all groups were hidden. -- AceConfigCmd-3.0: Improved the behaviour of select and multiselect elements. (Ticket #26) -- AceDB-3.0: Add a GetNamespace function to the DB Objects which returns an existing namespace from the DB object. -- AceGUI-3.0 Slider Widget: Properly show percentage values as min/max if isPercent is true. (Ticket #32) -- AceGUI-3.0: Fixed an error in the TreeGroup Widget that caused execution to stop if no name was provided. -- AceGUI-3.0: Fixed the behaviour of the MultiLineEditbox Widget (Accept button not clickable). (Ticket #28) -- AceGUI-3.0: TabGroup: Set a maximum width for tabs based on the size of the widget. (Ticket #34) -- AceGUI-3.0: Added a new InteractiveLabel with OnEnter/OnLeave/OnClick callbacks and a highlight texture -- AceGUI-3.0: Add SetFont and SetFontObject functions to the Label widget (and the new InteractiveLabel) -- AceGUI-3.0: Support icons in the TreeGroup display. (Ticket #20) -- AceGUI-3.0: Added a new :SetRelativeWidth Widget-API that allows you to set the width of widgets relative to their container. -- AceGUI-3.0: Alot of fixes, tweaks and consistency changes. - -Ace3 Beta - Revision 741 (Feb 15th, 2009) --------------------------------------------- -- AceDBOptions-3.0: Disable the "Copy From" and "Delete" dropdowns if there are no profiles to choose from. (Ticket #19) -- AceGUI-3.0: Improve TabGroup visual style - only stretch them to the full width if they would use more then 75% of the exisiting space. -- AceGUI-3.0: Added a third optional argument to <container>:AddChild() to specify the position for the new widget. (Ticket #22) -- AceConfigCmd-3.0: Improve help output when viewing groups. -- AceConfigDialog-3.0: Refresh the Options Panel after a confirmation is canceled to reset the value to its previous value. (Ticket #23) -- AceDB-3.0: Fix a data inconsistency when using false as a table key. (Ticket #25) - -Ace3 Beta - Revision 722 (Jan 4th, 2009) --------------------------------------------- -- AceHook-3.0: Fix :SecureHookScript to not fail on previously empty scripts since frame:HookScript does nothing at all in that case. (Ticket #16) -- AceLocale-3.0: Implement 'silent' option for :NewLocale to disable the warnings on unknown entrys (Ticket #18) -- AceTimer-3.0: Implement :TimeLeft(handle) function (Ticket #10) -- AceGUI-3.0: Fix TabGroup tab resizing to be consistent -- AceGUI-3.0: Fixed EditBox alignment when the label is disabled (Ticket #13) -- AceDB-3.0: Implement OnProfileShutdown callback (Ticket #7) -- AceDBOptions-3.0: Updated esES and ruRU locale - -Ace3 Beta - Revision 706 (Oct 18th, 2008) --------------------------------------------- -- First Beta release after WoWAce move -- Removed WoW 2.4.x compat layer -- AceGUI-3.0: Fix disabling of the Multiline Editbox -- AceGUI-3.0: Improvements to the Keybinding Widget - -Ace3 Beta - Revision 81437 (Sept 6th, 2008) --------------------------------------------- -- AceConfigDialog-3.0: the confirm callback will now receive the new value that is being set (same signature as the validate callback) -- AceConfigDialog-3.0: :Close and :CloseAll are now safe to call from within callbacks. -- AceGUI-3.0: Added new methods to the widget base table, see ACE-205 for full reference -- AceGUI-3.0: Various fixes to Widgets and recycling process -- Now compatible with WoW 3.0 (compat layer is to be removed upon 3.0 release) - - -Ace3 Beta - Revision 76325 (June 9th, 2008) --------------------------------------------- -- AceGUI-3.0: Finish Multiselect support for the Dropdown widget (nargiddley) -- AceGUI-3.0: Re-write TabGroup layouting (nargiddley) -- AceGUI-3.0: TreeGroup: Add :EnableButtonTooltips(enable) to make the default tooltips on the tree optional, enabled by default. (nargiddley) -- AceGUI-3.0: TabGroup: Add OnTabEnter and OnTabLeave Callbacks (nargiddley) -- AceConfigDialog-3.0: Add :SelectGroup(appName, ...) - Selects the group given by the path specified then refreshes open windows. (nargiddley) -- AceConfigDialog-3.0: :Open now accepts an optional path, when given will open the window with only the given group and its children visible (nargiddley) -- AceConfigDialog-3.0: :AddToBlizOptions now accepts an optional path, this will add the config page to display the specified group and its children only. (nargiddley) -- AceConfigDialog-3.0: ACE-189: allow multiselect to be shown as a dropdown by setting dialogControl = "Dropdown" (nargiddley) -- AceConfigDialog-3.0: Add Custom tooltips to the TreeGroup and TabGroup, shows both name and desc for the group. (nargiddley) -- AceConfigCmd-3.0: ACE-195: Remove unneeded references to .confirm, will no longer error when .confirm is a boolean (nargiddley) -- AceAddon-3.0: Allow for an optional first argument to NewAddon to be a table to be used as the base for the addon. (ammo) - -Ace3 Beta - Revision 74633 (May 19th, 2008) --------------------------------------------- -- AceTimer-3.0: ACE-173: don't error on nil handle for CancelTimer(), just bail out early. (ammo) -- AceGUI-3.0: ACE-161, ACE-180, ACE-181: New and improved DropDown widget (originally coded by Borlox) (nargiddley,nevcairiel) -- AceGUI-3.0: AceGUI will call OnWidthSet and OnHeightSet as frames resize (nargiddley) -- AceGUI-3.0: TabGroup: Use OptionsFrameTabButtonTemplate for tabs (nargiddley) -- AceGUI-3.0: TabGroup: Tabs now span multiple lines when there are too many to fit in the width of the frame (nargiddley) -- AceGUI-3.0: TreeGroup: Tree is now sizable by dragging, orig patch by yssaril (nargiddley) -- AceGUI-3.0: Flow layout will now reduce widgets width to fit rather than leaving them sticking out the side of container widgets (nargiddley) -- AceGUI-3.0: Dropdowns will no longer be left open in the background when the frame is clicked or other widgets are activated (nargiddley) -- AceGUI-3.0: ACE-159: Rename Release to OnRelease and Acquire to OnAcquire for widgets. (nargiddley) -- AceGUI-3.0: ACE-171: add IsVisible and IsShown methods to the widget metatable (nargiddley) -- AceGUI-3.0: ACE-164: add tooltips to tree to show full text of childs that got clipped (ammo) -- AceGUI-3.0: ACE-174: make buttons in AceGUI-3.0 locale independant (ammo) -- AceGUI-3.0: ACE-166: fix treegroup visual bug (ammo) -- AceGUI-3.0: ACE-184: make numeric entry for slider more intuitive (ammo) -- AceConfigCmd-3.0: ACE-172 - ignore description in cmd (ammo) -- AceConsole-3.0: nolonger check for existance of slashcommands, overwrite where needed. Last one wins, this enables AddonLoader to X-LoadOn-Slash and override the slashcommand from AddonLoader slashcommand with an Ace3 one. (Ammo) - -Ace3 Beta - Revision 69509 (April 13th, 2008) ---------------------------------------------- -- AceComm-3.0: turn off error messages when receiving invalid multi-part messages (its happening on login etc) (nevcairiel) -- AceDBOptions-3.0: shorten info text at top to prevent scrollbars. (nevcairiel) -- AceHook-3.0: ACE-162: fix unhooking of objects that were not actually hooked (nevcairiel) -- AceDB-3.0: fire the DB callbacks after the namespaces changed their profile as well (nevcairiel) -- AceDB-3.0: namespaces can now be individually reset using :ResetProfile() on the namespace directly (nevcairiel) -- AceDB-3.0: added a optional argument to :ResetProfile to not populate the reset to all namespaces (so the main profile can reset individually without reseting all namespaces too) (nevcairiel) - -Ace3 Beta - Revision 66329 (March 27th, 2008) ---------------------------------------------- -- Overall 2.4 clean ups - removing 2.4 checks and work arounds (nevcairiel) -- AceBucket-3.0: clear the timer reference when unregistering a bucket to prevent a error when unregistering a bucket that was never fired (nevcairiel) -- AceAddon-3.0: Bugfix when enabling/disabling modules from the parents OnEnable after disabling / enabling the parent addon. (ammo) -- AceGUI-3.0: Don't parent the BlizOptionsGroup widget to UIParent and Hide it by default. Fixes stray controls on the screen. (nargiddley) -- AceConfigDialog-3.0: Config windows without a default size won't incorrectly get a default size from a previously open window. (nargiddley) -- AceDBOptions-3.0: added zhCN and zhTW locale (nevcairiel) - -Ace3 Beta - Revision 65665 (March 25th, 2008) ---------------------------------------------- -- AceGUI-3.0: ACE-139: Changed all Widgets to resemble the Blizzard 2.4 Options Style (nevcairiel) -- AceGUI-3.0: Fixed "List"-Layout not reporting new width to "fill"-mode widgets (mikk) -- AceGUI-3.0: added :SetColor to the Label widget (nevcairiel) -- AceGUI-3.0: ACE-132: ColorPicker: added checkers texture for better alpha channel display, and fixed "white"-texture bug (nevcairiel,nargiddley,ammo) -- AceConfig-3.0: ACE-113: Added uiName, uiType, handler, option, type to the info table (nevcairiel,nargiddley) -- AceConfigDialog-3.0: ACE-139: Adjusted for 2.4 options panels (nevcairiel) -- AceConfigDialog-3.0: Use "width" parameter for the description widget (if present) (nevcairiel) -- AceConfigDialog-3.0: ACE-135: Add support for specifying a rowcount for multiline editboxes (nargiddley) -- AceConfigDialog-3.0: :AddToBlizOptions will return the frame registered so you can use it in InterfaceOptionsFrame_OpenToFrame (nevcairiel) -- AceConfigCmd-3.0: handle "hidden" in help-output (nevcairiel) -- AceHook-3.0: fix unhooking of secure hooks (nevcairiel) -- AceDBOptions-3.0: add optional argument to GetOptionsTable(db[, noDefaultProfiles]) - if set to true will not show the default profiles in the profile selection (nevcairiel) -- AceDBOptions-3.0: added koKR locale (nevcairiel) -- Ace3 Standalone: Removed the "Ace3" Category from the 2.4 options panel (nevcairiel) - -Ace3 Beta - Revision 64176 (March 10th, 2008) ---------------------------------------------- -- AceGUI-3.0: Improve Alpha handling for the ColorPicker widget, ColorPicker widget closes the ColorPickerFrame before opening to prevent values getting carried over (nargiddley) -- AceGUI-3.0: The Slider widget will only react to the mousewheel after it has been clicked (anywhere including the label) to prevent accidental changes to the value when trying to scroll the container it is in (nargiddley) -- AceGUI-3.0: The TreeGroup widget is scrollable with the mousewheel (nargiddley) -- AceGUI-3.0: ACE-154: Fix frame levels in more cases to prevent widgets ending up behind their containers (nargiddley) -- AceConfigDialog: Color picker obeys hasAlpha on the color type (nargiddley) -- AceConfigDialog-3.0: ACE-155: Make sure that the selected group is type='group' when checking if it exists (nargiddley) -- AceDBOptions-3.0: added frFR locale (nevcairiel) - -Ace3 Beta - Revision 63886 (March 8th, 2008) ---------------------------------------------- -- AceDBOptions-3.0: new library to provide a Ace3Options table to control the AceDB-3.0 profiles (nevcairiel) -- AceDB-3.0: add "silent" option to DeleteProfile and CopyProfile when we deal with namespaces (nevcairiel) -- AceDB-3.0: implement library upgrade path (nevcairiel) -- AceDB-3.0: ACE-146: fix problem with non-table values overruling ['*']-type defaults (nevcairiel) -- AceConsole-3.0: treat |T|t texture links similar to |H|h|h links. (ammo) -- AceGUI-3.0: Use Blizzard Templates for the EditBox and DropDown widget (nevcairiel) -- AceBucket-3.0: ACE-150: callback is now optional, if not supplied will use the eventname as method name (only possible if one event is supplied, and not a event table) (nevcairiel) -- tests: adjust tests for AceGUI and AceConsole changes (nevcairiel) - -Ace3 Beta - Revision 63220 (Feb 29th, 2008) ---------------------------------------------- -- AceTimer-3.0: CancelAllTimers() now cancels silent (elkano) -- AceConfigDialog: Add :SetDefaultSize(appName, width, height), sets the size the dialog will open to. Does not effect already open windows. (nargiddley) -- AceConfigDialog: Fix typo in type check for range values (nargiddley) -- AceGUI: ColorPicker widget will correctly fire OnValueChanged for the cancel event of the colorpicker popup. Reset ColorPicker's color on Acquire. (nargiddley) -- AceGUI: Fix Spelling of Aquire -> Acquire for widgets, all custom widgets will need to be updated. A warning will be printed for widgets not upgraded yet. (nargiddley) -- AceConfigCmd-3.0: add simple coloring to slashcommand output. (ammo) -- AceConsole-3.0: add some color to :Print (ammo) -- AceAddon-3.0: set error level on library embedding to point to the :NewAddon call (nevcairiel) - -Ace3 Beta - Revision 62182 (Feb 20th, 2008) ---------------------------------------------- -- Ace3 StandAlone: Add a page to the Blizzard 2.4 Interface Options with icons to open dialogs for configs registered when installed standalone (nargiddley) -- AceConfigDialog: type = 'description' now uses the fields image and imageCoords instead of icon and iconCoords, add imageWidth and imageHeight (nargiddley) -- AceConfigDialog: Add :AddToBlizzardOptions(appName, name), this will add the specified config to the Blizzard Options pane new in 2.4. This will only be available if running on the 2.4 PTR (nargiddley) -- AceDB: fix GetProfiles() when setting the same profile twice (nevcairiel) -- AceDB: bail out of :SetProfile early when trying to set to the same profile (nevcairiel) -- AceDB: add nil checks to metatable handling (nevcairiel) -- AceDB: clear tables that are empty after defaults removal (nevcairiel) -- AceGUI: Fix a couple of layout bugs causing the width of groups to be wrong (nargiddley) -- AceGUI: Add Icon widget (nargiddley) -- AceGUI: Allow room for the border in the BlizOptionsGroup widget (nargiddley) -- AceGUI: Button and Keybinding use UIPanelButtonTemplate2 (nargiddley) -- AceConsole-3.0: Fix bug where no table for [self] was created when registering weak commands (ammo) -- AceTimer-3.0: add missing :OnEmbedDisable (ammo) -- AceAddon-3.0: added :GetName() that will always return the "real" name of a addon or module object without any prefixes (nevcairiel) - -Ace3 Beta - Revision 60697 (Feb 9th, 2008) ---------------------------------------------- -- CallbackHandler-1.0: remove unnecessary table creation if a event is fired thats not registered (nevcairiel) -- AceAddon-3.0: fixed a bug with recursive addon loading (nevcairiel) -- AceGUI: Update TabGroup's tablist format, tabs are selected by value not index (nargiddley) -- AceGUI: Add MultiLineEditBox widget (nargiddley, originally by bam) -- AceGUI: Small fix to the flow layout preventing controls overlapping in some cases (nargiddley) -- AceConfigDialog: Implement control and dialogControl for types 'input' and 'select' (nargiddley) -- AceConfigDialog: Add support for multiline = true on type = 'input' (nargiddley) -- AceConfigDialog: Fix an error when all groups are hidden in a group with childGroups = 'select' (nargiddley) -- AceConfigDialog: type = 'description' will now show .icon as an image with its text (nargiddley) -- AceConfigDialog: multiline inputs are no longer forced to width = "full" (nargiddley) -- AceConfigDialog: bug fix when loading without AceConsole present (nevcairiel) - -Ace3 Beta - Revision 60545 (Feb 7th, 2008) ---------------------------------------------- -- AceGUI: SetToplevel(true) for the Frame widget, multiple open windows should play nice together now (nargiddley) -- AceGUI: Move Frames to the FULLSCREEN_DIALOG strata (nargiddley) -- AceGUI: Dropdown, Editbox and Keybinding labels grey out when disabled (nargiddley) -- AceGUI: Add OnClick callback to the TreeGroup widget (nargiddley) -- AceConfigDialog: Confirm popups will be above the config window (nargiddley) - -Ace3 Beta - Revision 60163 (Feb 3rd, 2008) ---------------------------------------------- -- Initial Beta release