diff --git a/EavesDrop.lua b/EavesDrop.lua
index ec16338..5ee50e1 100644
--- a/EavesDrop.lua
+++ b/EavesDrop.lua
@@ -6,10 +6,11 @@
from Andalia`s SideCombatLog and CombatChat.
Notes: Code comments coming at a later time.
- ****************************************************************]]
+ ****************************************************************]]
EavesDrop = LibStub("AceAddon-3.0"):NewAddon("EavesDrop", "AceEvent-3.0", "AceConsole-3.0", "AceTimer-3.0")
-local EavesDrop = EavesDrop
+
+-- local EavesDrop = EavesDrop
local db
local L = LibStub("AceLocale-3.0"):GetLocale("EavesDrop", true)
@@ -19,14 +20,14 @@ local OUTGOING = 1
local INCOMING = -1
local MISC = 3
-local critchar = "*"
+local critchar = "*"
local deathchar = "†"
local crushchar = "^"
local glancechar = "~"
local newhigh = "|cffffff00!|r"
local arrEventData = {}
-local arrEventFrames = {}
+local arrEventFrames = {}
local frameSize = 21
local arrSize = 10
local arrDisplaySize = 20
@@ -41,7 +42,7 @@ local timeStart = 0
local curTime = 0
local lastTime = 0
---LUA calls
+-- LUA calls
local _G = _G
local tonumber = tonumber
local strsub = strsub
@@ -51,67 +52,67 @@ local gsub = gsub
local tremove = tremove
local tinsert = tinsert
local function string_nil(val)
- if val then
- return val
- else
- return UNKNOWN
- end
+ if val then
+ return val
+ else
+ return UNKNOWN
+ end
end
---API calls
+-- API calls
local UnitName = UnitName
local UnitXP = UnitXP
local GetSpellInfo = GetSpellInfo
local GetTime = GetTime
local InCombatLockdown = InCombatLockdown
---Combat log locals
+-- Combat log locals
local pxp = UnitXP("player")
-local skillmsg = gsub(gsub(gsub(SKILL_RANK_UP, '%d%$', ''), '%%s', '(.+)'), '%%d', '(%%d+)')
+local skillmsg = gsub(gsub(gsub(SKILL_RANK_UP, '%d%$', ''), '%%s', '(.+)'),
+ '%%d', '(%%d+)')
local CombatLog_Object_IsA = CombatLog_Object_IsA
local Blizzard_CombatLog_CurrentSettings
local COMBATLOG_OBJECT_NONE = COMBATLOG_OBJECT_NONE
local COMBATLOG_FILTER_MINE = COMBATLOG_FILTER_MINE
local COMBATLOG_FILTER_MY_PET = COMBATLOG_FILTER_MY_PET
-local COMBATLOG_FILTER_HOSTILE = bit.bor(
- COMBATLOG_FILTER_HOSTILE_PLAYERS,
- COMBATLOG_FILTER_HOSTILE_UNITS)
+local COMBATLOG_FILTER_HOSTILE = bit.bor(COMBATLOG_FILTER_HOSTILE_PLAYERS,
+ COMBATLOG_FILTER_HOSTILE_UNITS)
local COMBAT_EVENTS = {
- ["SWING_DAMAGE"] = "DAMAGE",
- ["RANGE_DAMAGE"] = "DAMAGE",
- ["SPELL_DAMAGE"] = "DAMAGE",
- ["SPELL_PERIODIC_DAMAGE"] = "DAMAGE",
- ["ENVIRONMENTAL_DAMAGE"] = "DAMAGE",
- ["DAMAGE_SHIELD"] = "DAMAGE",
- ["DAMAGE_SPLIT"] = "DAMAGE",
- ["SPELL_HEAL"] = "HEAL",
- ["SPELL_PERIODIC_HEAL"] = "HEAL",
- ["SWING_MISSED"] = "MISS",
- ["RANGE_MISSED"] = "MISS",
- ["SPELL_MISSED"] = "MISS",
- ["SPELL_PERIODIC_MISSED"] = "MISS",
- ["DAMAGE_SHIELD_MISSED"] = "MISS",
- ["SPELL_DRAIN"] = "DRAIN",
- ["SPELL_LEECH"] = "DRAIN",
- ["SPELL_PERIODIC_DRAIN"] = "DRAIN",
- ["SPELL_PERIODIC_LEECH"] = "DRAIN",
- ["SPELL_ENERGIZE"] = "POWER",
- ["SPELL_PERIODIC_ENERGIZE"] = "POWER",
- ["PARTY_KILL"] = "DEATH",
- ["UNIT_DIED"] = "DEATH",
- ["UNIT_DESTROYED"] = "DEATH",
+ ["SWING_DAMAGE"] = "DAMAGE",
+ ["RANGE_DAMAGE"] = "DAMAGE",
+ ["SPELL_DAMAGE"] = "DAMAGE",
+ ["SPELL_PERIODIC_DAMAGE"] = "DAMAGE",
+ ["ENVIRONMENTAL_DAMAGE"] = "DAMAGE",
+ ["DAMAGE_SHIELD"] = "DAMAGE",
+ ["DAMAGE_SPLIT"] = "DAMAGE",
+ ["SPELL_HEAL"] = "HEAL",
+ ["SPELL_PERIODIC_HEAL"] = "HEAL",
+ ["SWING_MISSED"] = "MISS",
+ ["RANGE_MISSED"] = "MISS",
+ ["SPELL_MISSED"] = "MISS",
+ ["SPELL_PERIODIC_MISSED"] = "MISS",
+ ["DAMAGE_SHIELD_MISSED"] = "MISS",
+ ["SPELL_DRAIN"] = "DRAIN",
+ ["SPELL_LEECH"] = "DRAIN",
+ ["SPELL_PERIODIC_DRAIN"] = "DRAIN",
+ ["SPELL_PERIODIC_LEECH"] = "DRAIN",
+ ["SPELL_ENERGIZE"] = "POWER",
+ ["SPELL_PERIODIC_ENERGIZE"] = "POWER",
+ ["PARTY_KILL"] = "DEATH",
+ ["UNIT_DIED"] = "DEATH",
+ ["UNIT_DESTROYED"] = "DEATH"
}
local SCHOOL_STRINGS = {
- [SCHOOL_MASK_PHYSICAL] = SPELL_SCHOOL0_CAP,
- [SCHOOL_MASK_HOLY] = SPELL_SCHOOL1_CAP,
- [SCHOOL_MASK_FIRE] = SPELL_SCHOOL2_CAP,
- [SCHOOL_MASK_NATURE] = SPELL_SCHOOL3_CAP,
- [SCHOOL_MASK_FROST] = SPELL_SCHOOL4_CAP,
- [SCHOOL_MASK_SHADOW] = SPELL_SCHOOL5_CAP,
- [SCHOOL_MASK_ARCANE] = SPELL_SCHOOL6_CAP,
+ [STRING_SCHOOL_PHYSICAL] = SPELL_SCHOOL0_CAP,
+ [STRING_SCHOOL_HOLY] = SPELL_SCHOOL1_CAP,
+ [STRING_SCHOOL_FIRE] = SPELL_SCHOOL2_CAP,
+ [STRING_SCHOOL_NATURE] = SPELL_SCHOOL3_CAP,
+ [STRING_SCHOOL_FROST] = SPELL_SCHOOL4_CAP,
+ [STRING_SCHOOL_SHADOW] = SPELL_SCHOOL5_CAP,
+ [STRING_SCHOOL_ARCANE] = SPELL_SCHOOL6_CAP
}
--[[local POWER_STRINGS = {
@@ -135,937 +136,1045 @@ local SCHOOL_STRINGS = {
[SPELL_POWER_PAIN] = PAIN,
}]]
---set table default size sense table.insert no longer does
-for i=1, arrMaxSize do
- arrEventData[i] = {}
-end
+-- set table default size sense table.insert no longer does
+for i = 1, arrMaxSize do arrEventData[i] = {} end
local function convertRGBtoHEXString(color, text)
- return string_format("|cFF%02x%02x%02x%s|r", ceil(color.r * 255), ceil(color.g * 255), ceil(color.b * 255), text)
+ return string_format("|cFF%02x%02x%02x%s|r", ceil(color.r * 255),
+ ceil(color.g * 255), ceil(color.b * 255), text)
end
local function shortenValue(value)
- if value >= 10000000 then
- value = string_format("%.1fm", value / 1000000)
- elseif value >= 1000000 then
- value = string_format("%.2fm",value / 1000000)
- elseif value >= 100000 then
- value = string_format("%.0fk",value / 1000)
- elseif value >= 10000 then
- value = string_format("%.1fk",value / 1000)
- end
- return value
+ if value >= 10000000 then
+ value = string_format("%.1fm", value / 1000000)
+ elseif value >= 1000000 then
+ value = string_format("%.2fm", value / 1000000)
+ elseif value >= 100000 then
+ value = string_format("%.0fk", value / 1000)
+ elseif value >= 10000 then
+ value = string_format("%.1fk", value / 1000)
+ end
+ return value
end
local function round(num, idp)
- return tonumber(string_format("%." .. (idp or 0) .. "f", num))
+ return tonumber(string_format("%." .. (idp or 0) .. "f", num))
end
local function cleanstring(s)
- s = gsub(s, "|r", "")
- s = gsub(s, "|c........", "")
- s = gsub(s, "|Hunit:%a+%-[^|]+|h", "")
- s = gsub(s, "|Haction:([%w_*]*)|h", "")
- s = gsub(s, "|Hitem:(%d+)|h", "")
- s = gsub(s, "|Hicon:%d+:dest|h", "")
- s = gsub(s, "|Hicon:%d+:source|h", "")
- s = gsub(s, "|Hspell:%d+:%d+:([%w_*]*)|h", "")
- s = gsub(s, "|TInterface.TargetingFrame.UI.RaidTargetingIcon.%d.blp:0|t", "")
- s = gsub(s, "|h", "")
- s = gsub(s, "\n", ", ")
- s = gsub(s, "\124", "\124\124")
- s=s:gsub("[\r\n]+"," ")
- return s
+ s = gsub(s, "|r", "")
+ s = gsub(s, "|c........", "")
+ s = gsub(s, "|Hunit:%a+%-[^|]+|h", "")
+ s = gsub(s, "|Haction:([%w_*]*)|h", "")
+ s = gsub(s, "|Hitem:(%d+)|h", "")
+ s = gsub(s, "|Hicon:%d+:dest|h", "")
+ s = gsub(s, "|Hicon:%d+:source|h", "")
+ s = gsub(s, "|Hspell:%d+:%d+:([%w_*]*)|h", "")
+ s =
+ gsub(s, "|TInterface.TargetingFrame.UI.RaidTargetingIcon.%d.blp:0|t", "")
+ s = gsub(s, "|h", "")
+ s = gsub(s, "\n", ", ")
+ s = gsub(s, "\124", "\124\124")
+ s = s:gsub("[\r\n]+", " ")
+ return s
end
local function clearSummary()
- totDamageIn = 0
- totDamageOut = 0
- totHealingIn = 0
- totHealingOut = 0
+ totDamageIn = 0
+ totDamageOut = 0
+ totHealingIn = 0
+ totHealingOut = 0
end
---Main Functions
+-- Main Functions
function EavesDrop:OnInitialize()
- --setup table for display frame objects
- for i=1, arrDisplaySize do
- arrEventFrames[i] = {}
- arrEventFrames[i].frame = _G[string_format("EavesDropEvent%d", i)]
- arrEventFrames[i].text = _G[string_format("EavesDropEvent%dEventText", i)]
- arrEventFrames[i].intexture = _G[string_format("EavesDropEvent%dIncomingTexture", i)]
- arrEventFrames[i].intextureframe = _G[string_format("EavesDropEvent%dIncoming", i)]
- arrEventFrames[i].outtexture = _G[string_format("EavesDropEvent%dOutgoingTexture", i)]
- arrEventFrames[i].outtextureframe = _G[string_format("EavesDropEvent%dOutgoing", i)]
- end
-
- self.db = LibStub("AceDB-3.0"):New("EavesDropDB", self:GetDefaultConfig())
- self.chardb = LibStub("AceDB-3.0"):New("EavesDropStatsDB", {profile = {[OUTGOING] = {},[INCOMING] = {}}})
-
- self:SetupOptions()
+ -- setup table for display frame objects
+ for i = 1, arrDisplaySize do
+ arrEventFrames[i] = {}
+ arrEventFrames[i].frame = _G[string_format("EavesDropEvent%d", i)]
+ arrEventFrames[i].text =_G[string_format("EavesDropEvent%dEventText", i)]
+ arrEventFrames[i].intexture = _G[string_format("EavesDropEvent%dIncomingTexture", i)]
+ arrEventFrames[i].intextureframe = _G[string_format("EavesDropEvent%dIncoming", i)]
+ arrEventFrames[i].outtexture = _G[string_format("EavesDropEvent%dOutgoingTexture", i)]
+ arrEventFrames[i].outtextureframe = _G[string_format("EavesDropEvent%dOutgoing", i)]
+ end
- --callbacks for profile changes
- self.db.RegisterCallback(self, "OnProfileChanged", "UpdateFrame")
- self.db.RegisterCallback(self, "OnProfileCopied", "UpdateFrame")
- self.db.RegisterCallback(self, "OnProfileReset", "UpdateFrame")
+ self.db = LibStub("AceDB-3.0"):New("EavesDropDB", self:GetDefaultConfig())
+ self.chardb = LibStub("AceDB-3.0"):New("EavesDropStatsDB", {
+ profile = {[OUTGOING] = {}, [INCOMING] = {}}
+ })
+
+ self:SetupOptions()
- --local the profile table
- db = self.db.profile
+ -- callbacks for profile changes
+ self.db.RegisterCallback(self, "OnProfileChanged", "UpdateFrame")
+ self.db.RegisterCallback(self, "OnProfileCopied", "UpdateFrame")
+ self.db.RegisterCallback(self, "OnProfileReset", "UpdateFrame")
- self:PerformDisplayOptions()
+ -- local the profile table
+ db = self.db.profile
+ self:PerformDisplayOptions()
- self:RegisterEvent("ADDON_LOADED", self.SetFonts)
+ self:RegisterEvent("ADDON_LOADED", self.SetFonts)
end
function EavesDrop:OnEnable()
- self:RegisterEvent("PLAYER_DEAD")
- self:UpdateExpEvents()
- self:UpdateRepHonorEvents()
- self:UpdateCombatEvents()
- self:UpdateBuffEvents()
- self:UpdateBuffFadeEvents()
- self:UpdateSkillEvents()
-
- self:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED","CombatEvent")
-
- --show frame
- EavesDropFrame:Show()
- if (db["FADEFRAME"]) then
- self:HideFrame()
- end
+ self:RegisterEvent("PLAYER_DEAD")
+ self:UpdateExpEvents()
+ self:UpdateRepHonorEvents()
+ self:UpdateCombatEvents()
+ self:UpdateBuffEvents()
+ self:UpdateBuffFadeEvents()
+ self:UpdateSkillEvents()
+
+ self:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED", "CombatEvent")
+
+ -- show frame
+ EavesDropFrame:Show()
+ if (db["FADEFRAME"]) then self:HideFrame() end
end
function EavesDrop:OnDisable()
- self:UnregisterAllEvents()
- EavesDropFrame:Hide()
+ self:UnregisterAllEvents()
+ EavesDropFrame:Hide()
end
function EavesDrop:UpdateCombatEvents()
- if (db["COMBAT"] == true) then
- self:RegisterEvent("PLAYER_REGEN_DISABLED")
- self:RegisterEvent("PLAYER_REGEN_ENABLED")
- else
- self:UnregisterEvent("PLAYER_REGEN_DISABLED")
- self:UnregisterEvent("PLAYER_REGEN_ENABLED")
- end
+ if (db["COMBAT"] == true) then
+ self:RegisterEvent("PLAYER_REGEN_DISABLED")
+ self:RegisterEvent("PLAYER_REGEN_ENABLED")
+ else
+ self:UnregisterEvent("PLAYER_REGEN_DISABLED")
+ self:UnregisterEvent("PLAYER_REGEN_ENABLED")
+ end
end
function EavesDrop:UpdateExpEvents()
- if (db["EXP"] == true) then
- self:RegisterEvent("PLAYER_XP_UPDATE")
- else
- self:UnregisterEvent("PLAYER_XP_UPDATE")
- end
+ if (db["EXP"] == true) then
+ self:RegisterEvent("PLAYER_XP_UPDATE")
+ else
+ self:UnregisterEvent("PLAYER_XP_UPDATE")
+ end
end
function EavesDrop:UpdateRepHonorEvents()
- if (db["REP"] or db["HONOR"]) then
- self:RegisterEvent("COMBAT_TEXT_UPDATE")
- else
- self:UnregisterEvent("COMBAT_TEXT_UPDATE")
- end
+ if (db["REP"] or db["HONOR"]) then
+ self:RegisterEvent("COMBAT_TEXT_UPDATE")
+ else
+ self:UnregisterEvent("COMBAT_TEXT_UPDATE")
+ end
end
function EavesDrop:UpdateBuffEvents()
- if (db["DEBUFF"] == true or db["BUFF"] == true) then
- COMBAT_EVENTS["SPELL_AURA_APPLIED"] = "BUFF"
- COMBAT_EVENTS["SPELL_PERIODIC_AURA_APPLIED"] = "BUFF"
- COMBAT_EVENTS["SPELL_AURA_APPLIED_DOSE"] = "BUFF"
- COMBAT_EVENTS["SPELL_PERIODIC_AURA_APPLIED_DOSE"] = "BUFF"
- COMBAT_EVENTS["ENCHANT_APPLIED"] = "ENCHANT_APPLIED"
- else
- COMBAT_EVENTS["SPELL_AURA_APPLIED"] = nil
- COMBAT_EVENTS["SPELL_PERIODIC_AURA_APPLIED"] = nil
- COMBAT_EVENTS["SPELL_AURA_APPLIED_DOSE"] = nil
- COMBAT_EVENTS["SPELL_PERIODIC_AURA_APPLIED_DOSE"] = nil
- COMBAT_EVENTS["ENCHANT_APPLIED"] = nil
- end
+ if (db["DEBUFF"] == true or db["BUFF"] == true) then
+ COMBAT_EVENTS["SPELL_AURA_APPLIED"] = "BUFF"
+ COMBAT_EVENTS["SPELL_PERIODIC_AURA_APPLIED"] = "BUFF"
+ COMBAT_EVENTS["SPELL_AURA_APPLIED_DOSE"] = "BUFF"
+ COMBAT_EVENTS["SPELL_PERIODIC_AURA_APPLIED_DOSE"] = "BUFF"
+ COMBAT_EVENTS["ENCHANT_APPLIED"] = "ENCHANT_APPLIED"
+ else
+ COMBAT_EVENTS["SPELL_AURA_APPLIED"] = nil
+ COMBAT_EVENTS["SPELL_PERIODIC_AURA_APPLIED"] = nil
+ COMBAT_EVENTS["SPELL_AURA_APPLIED_DOSE"] = nil
+ COMBAT_EVENTS["SPELL_PERIODIC_AURA_APPLIED_DOSE"] = nil
+ COMBAT_EVENTS["ENCHANT_APPLIED"] = nil
+ end
end
function EavesDrop:UpdateBuffFadeEvents()
- if (db["DEBUFFFADE"] == true or db["BUFFFADE"] == true) then
- COMBAT_EVENTS["SPELL_AURA_REMOVED"] = "FADE"
- COMBAT_EVENTS["SPELL_PERIODIC_AURA_REMOVED"] = "FADE"
- COMBAT_EVENTS["SPELL_AURA_REMOVED_DOSE"] = "FADE"
- COMBAT_EVENTS["SPELL_PERIODIC_AURA_REMOVED_DOSE"] = "FADE"
- COMBAT_EVENTS["ENCHANT_REMOVED"] = "ENCHANT_REMOVED"
- else
- COMBAT_EVENTS["SPELL_AURA_REMOVED"] = nil
- COMBAT_EVENTS["SPELL_PERIODIC_AURA_REMOVED"] = nil
- COMBAT_EVENTS["SPELL_AURA_REMOVED_DOSE"] = nil
- COMBAT_EVENTS["SPELL_PERIODIC_AURA_REMOVED_DOSE"] = nil
- COMBAT_EVENTS["ENCHANT_REMOVED"] = nil
- end
+ if (db["DEBUFFFADE"] == true or db["BUFFFADE"] == true) then
+ COMBAT_EVENTS["SPELL_AURA_REMOVED"] = "FADE"
+ COMBAT_EVENTS["SPELL_PERIODIC_AURA_REMOVED"] = "FADE"
+ COMBAT_EVENTS["SPELL_AURA_REMOVED_DOSE"] = "FADE"
+ COMBAT_EVENTS["SPELL_PERIODIC_AURA_REMOVED_DOSE"] = "FADE"
+ COMBAT_EVENTS["ENCHANT_REMOVED"] = "ENCHANT_REMOVED"
+ else
+ COMBAT_EVENTS["SPELL_AURA_REMOVED"] = nil
+ COMBAT_EVENTS["SPELL_PERIODIC_AURA_REMOVED"] = nil
+ COMBAT_EVENTS["SPELL_AURA_REMOVED_DOSE"] = nil
+ COMBAT_EVENTS["SPELL_PERIODIC_AURA_REMOVED_DOSE"] = nil
+ COMBAT_EVENTS["ENCHANT_REMOVED"] = nil
+ end
end
function EavesDrop:UpdateSkillEvents()
- if (db["SKILL"] == true) then
- self:RegisterEvent("CHAT_MSG_SKILL")
- else
- self:UnregisterEvent("CHAT_MSG_SKILL")
- end
+ if (db["SKILL"] == true) then
+ self:RegisterEvent("CHAT_MSG_SKILL")
+ else
+ self:UnregisterEvent("CHAT_MSG_SKILL")
+ end
end
----------------------
---Reset everything to default
+-- Reset everything to default
function EavesDrop:UpdateFrame()
- --local the profile table
- db = self.db.profile
- self:UpdateExpEvents()
- self:UpdateRepHonorEvents()
- self:UpdateCombatEvents()
- self:UpdateBuffEvents()
- self:UpdateBuffFadeEvents()
- self:UpdateSkillEvents()
- self:PerformDisplayOptions()
- self:UpdateEvents()
+ -- local the profile table
+ db = self.db.profile
+ self:UpdateExpEvents()
+ self:UpdateRepHonorEvents()
+ self:UpdateCombatEvents()
+ self:UpdateBuffEvents()
+ self:UpdateBuffFadeEvents()
+ self:UpdateSkillEvents()
+ self:PerformDisplayOptions()
+ self:UpdateEvents()
end
function EavesDrop:PerformDisplayOptions()
- --set size
- arrSize = db["NUMLINES"]
- frameSize = db["LINEHEIGHT"] + 1
- local totalh = (frameSize * arrSize) + 50
- local totalw = (db["LINEHEIGHT"] * 2) + db["LINEWIDTH"]
- EavesDropFrame:SetHeight(totalh)
- EavesDropFrame:SetWidth(totalw)
- --update look of frame
- local r,g,b,a = db["FRAME"].r, db["FRAME"].g, db["FRAME"].b, db["FRAME"].a
- --main frame
- EavesDropFrame:SetBackdropColor(r, g, b, a)
- EavesDropTopBar:SetGradientAlpha("VERTICAL", r*.1, g*.1, b*.1, 0, r*.2, g*.2, b*.2, a)
- EavesDropBottomBar:SetGradientAlpha("VERTICAL", r*.2, g*.2, b*.2, a, r*.1, g*.1, b*.1, 0)
- EavesDropTopBar:SetWidth(totalw-10)
- EavesDropBottomBar:SetWidth(totalw-10)
- r,g,b,a = db["BORDER"].r, db["BORDER"].g, db["BORDER"].b, db["BORDER"].a
- EavesDropFrame:SetBackdropBorderColor(r, g, b, a)
- EavesDropFrame:EnableMouse(not db["LOCKED"])
- --tooltips
- EavesDropTab.tooltipText = L["TabTip"]
- if (db["SCROLLBUTTON"]) then
- EavesDropFrameDownButton:Hide()
- EavesDropFrameUpButton:Hide()
- else
- EavesDropFrameDownButton.tooltipText = L["DownTip"]
- EavesDropFrameUpButton.tooltipText = L["UpTip"]
- self:UpdateScrollButtons()
- end
- self.ToolTipAnchor = "ANCHOR_"..strupper(db["TOOLTIPSANCHOR"])
- --labels
- r,g,b,a = db["LABELC"].r, db["LABELC"].g, db["LABELC"].b, db["LABELC"].a
- if (db["FLIP"] == true) then
- EavesDropFramePlayerText:SetText(L["TargetLabel"])
- EavesDropFrameTargetText:SetText(L["PlayerLabel"])
- else
- EavesDropFramePlayerText:SetText(L["PlayerLabel"])
- EavesDropFrameTargetText:SetText(L["TargetLabel"])
- end
- EavesDropFramePlayerText:SetTextColor(r,g,b,a)
- EavesDropFrameTargetText:SetTextColor(r,g,b,a)
- --fonts
- self:SetFonts()
- --tab
- if (db["HIDETAB"] == true) then
- EavesDropTab:Hide()
- else
- EavesDropTab:Show()
- end
- --position frame (have to schedule cause UI scale is still 1 for some reason during init)
- self:ScheduleTimer("PlaceFrame", .1, self)
-
- self:ResetEvents()
- self:SetupHistory()
-
- if (db["FADEFRAME"]) then
- self:HideFrame()
- else
- self:ShowFrame()
- end
+ -- set size
+ arrSize = db["NUMLINES"]
+ frameSize = db["LINEHEIGHT"] + 1
+ local totalh = (frameSize * arrSize) + 50
+ local totalw = (db["LINEHEIGHT"] * 2) + db["LINEWIDTH"]
+
+ -- FRAME SIZING
+ EavesDropFrame:SetHeight(totalh)
+ EavesDropFrame:SetWidth(totalw)
+
+ -- BACKGROUND APPEARANCE
+ local color = db["FRAME"]
+ local r, g, b, a = color.r, color.g, color.b, color.a
+
+ EavesDropBackground:SetHeight(totalh)
+ EavesDropBackground:SetWidth(totalw)
+
+ -- TODO?
+ local frameColor = CreateColor(r, g, b, a)
+ EavesDropBackground:SetGradient("VERTICAL", frameColor, frameColor)
+
+ -- BORDER CONFIG
+ color = db["BORDER"]
+ r, g, b, a = color.r, color.g, color.b, color.a
+
+ EavesDropTopBar:SetWidth(totalw)
+ EavesDropBottomBar:SetWidth(totalw)
+
+ -- TODO?
+ local outerColor = CreateColor(r * .1, g * .1, b * .1, 0)
+ local innerColor = CreateColor(r * .2, g * .2, b * .2, a)
+ EavesDropTopBar:SetGradient("VERTICAL", outerColor, innerColor)
+ EavesDropBottomBar:SetGradient("VERTICAL", innerColor, outerColor)
+
+
+ EavesDropFrame:EnableMouse(not db["LOCKED"])
+ -- tooltips
+ EavesDropTab.tooltipText = L["TabTip"]
+ if (db["SCROLLBUTTON"]) then
+ EavesDropFrameDownButton:Hide()
+ EavesDropFrameUpButton:Hide()
+ else
+ EavesDropFrameDownButton.tooltipText = L["DownTip"]
+ EavesDropFrameUpButton.tooltipText = L["UpTip"]
+ self:UpdateScrollButtons()
+ end
+ self.ToolTipAnchor = "ANCHOR_" .. strupper(db["TOOLTIPSANCHOR"])
+ -- labels
+ r, g, b, a = db["LABELC"].r, db["LABELC"].g, db["LABELC"].b, db["LABELC"].a
+ if (db["FLIP"] == true) then
+ EavesDropFramePlayerText:SetText(L["TargetLabel"])
+ EavesDropFrameTargetText:SetText(L["PlayerLabel"])
+ else
+ EavesDropFramePlayerText:SetText(L["PlayerLabel"])
+ EavesDropFrameTargetText:SetText(L["TargetLabel"])
+ end
+ EavesDropFramePlayerText:SetTextColor(r, g, b, a)
+ EavesDropFrameTargetText:SetTextColor(r, g, b, a)
+ -- fonts
+ self:SetFonts()
+ -- tab
+ if (db["HIDETAB"] == true) then
+ EavesDropTab:Hide()
+ else
+ EavesDropTab:Show()
+ end
+ -- position frame (have to schedule cause UI scale is still 1 for some reason during init)
+ self:ScheduleTimer("PlaceFrame", .1, self)
+
+ self:ResetEvents()
+ self:SetupHistory()
+
+ if (db["FADEFRAME"]) then
+ self:HideFrame()
+ else
+ self:ShowFrame()
+ end
end
function EavesDrop:SetFonts()
- EavesDropFontNormal:SetFont(media:Fetch("font", db["FONT"]), db["TEXTSIZE"])
- EavesDropFontNormalSmall:SetFont(media:Fetch("font", db["FONT"]), db["TEXTSIZE"])
+ local requestedFont = media:Fetch("font", db["FONT"])
+
+ -- -- TODO
+ -- EavesDropFontNormal:SetFont(requestedFont, db["TEXTSIZE"])
+ -- EavesDropFontNormalSmall:SetFont(requestedFont, db["TEXTSIZE"])
end
function EavesDrop:PlaceFrame()
- local frame, x, y = EavesDropFrame, db.x, db.y
- frame:ClearAllPoints()
- if x==0 and y==0 then
- frame:SetPoint("CENTER", UIParent, "CENTER")
- else
- local es = frame:GetEffectiveScale()
- frame:SetPoint("TOPLEFT", UIParent, "CENTER", x/es, y/es)
- end
+ local frame, x, y = EavesDropFrame, db.x, db.y
+ frame:ClearAllPoints()
+ if x == 0 and y == 0 then
+ frame:SetPoint("CENTER", UIParent, "CENTER")
+ else
+ local es = frame:GetEffectiveScale()
+ frame:SetPoint("TOPLEFT", UIParent, "CENTER", x / es, y / es)
+ end
end
-function EavesDrop:HideFrame()
- EavesDropFrame:SetAlpha(0)
-end
+function EavesDrop:HideFrame() EavesDropFrame:SetAlpha(0) end
function EavesDrop:ShowFrame()
- EavesDropFrame:SetAlpha(1)
- EavesDropTab:SetAlpha(0)
+ EavesDropFrame:SetAlpha(1)
+ EavesDropTab:SetAlpha(0)
end
function EavesDrop:CombatEvent()
- local timestamp, event, hideCaster, sourceGUID, sourceName, sourceFlags, sourceFlags2, destGUID, destName, destFlags, destFlags2, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12 = CombatLogGetCurrentEventInfo()
- local etype = COMBAT_EVENTS[event]
- if not etype then return end
-
- if not Blizzard_CombatLog_CurrentSettings then
- Blizzard_CombatLog_CurrentSettings = Blizzard_CombatLog_Filters.filters[Blizzard_CombatLog_Filters.currentFilter]
- end
-
- --check for reflect damage
- if event == "SPELL_DAMAGE" and sourceName == destName and CombatLog_Object_IsA(destFlags, COMBATLOG_FILTER_HOSTILE) then
- self:ParseReflect(timestamp, event, hideCaster, sourceGUID, sourceName, sourceFlags, sourceFlags2, destGUID, destName, destFlags, destFlags2, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12)
- return
- end
-
- local toPlayer, fromPlayer, toPet, fromPet
- if (sourceName and not CombatLog_Object_IsA(sourceFlags, COMBATLOG_OBJECT_NONE) ) then
- fromPlayer = CombatLog_Object_IsA(sourceFlags, COMBATLOG_FILTER_MINE)
- fromPet = CombatLog_Object_IsA(sourceFlags, COMBATLOG_FILTER_MY_PET)
- end
- if (destName and not CombatLog_Object_IsA(destFlags, COMBATLOG_OBJECT_NONE) ) then
- toPlayer = CombatLog_Object_IsA(destFlags, COMBATLOG_FILTER_MINE)
- toPet = CombatLog_Object_IsA(destFlags, COMBATLOG_FILTER_MY_PET)
- end
-
- if not fromPlayer and not toPlayer and not fromPet and not toPet then return end
- if (not fromPlayer and not toPlayer) and (toPet or fromPet) and not db["PET"] then return end
-
- local amount, overDamage, school, resisted, blocked, absorbed, critical, glancing, crushing
- local spellId, spellName, spellSchool, missType, powerType, extraAmount, environmentalType, overHeal
- local text, texture, message, inout, color
-
- --defaults
- if toPet or fromPet then texture = "pet" end
- if toPlayer or toPet then inout = INCOMING end
- if fromPlayer or fromPet then inout = OUTGOING end
- if toPet then color = db["PETI"] end
- if fromPet then color = db["PETO"] end
-
- --get combat log message (for tooltip)
- message = CombatLog_OnEvent(Blizzard_CombatLog_CurrentSettings, timestamp, event, hideCaster, sourceGUID, sourceName, sourceFlags, sourceFlags2, destGUID, destName, destFlags, destFlags2, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12)
-
-
- ------------damage----------------
- if etype == "DAMAGE" then
- local intype, outtype
- if event == "SWING_DAMAGE" then
- amount, overDamage, school, resisted, blocked, absorbed, critical, glancing, crushing = a1, a2, a3, a4, a5, a6, a7, a8, a9
- if school == SCHOOL_MASK_PHYSICAL then
- outtype, intype = "TMELEE", "PHIT"
- else
- outtype, intype = "TSPELL", "PSPELL"
- end
- elseif event == "RANGE_DAMAGE" then
- spellId, spellName, spellSchool, amount, overDamage, school, resisted, blocked, absorbed, critical, glancing, crushing = a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12
- if school == SCHOOL_MASK_PHYSICAL then
- outtype, intype = "TMELEE", "PHIT"
- else
- outtype, intype = "TSPELL", "PSPELL"
- end
- elseif event == "ENVIRONMENTAL_DAMAGE" then
- environmentalType, amount, overDamage, school, resisted, blocked, absorbed, critical, glancing, crushing = a1, a2, a3, a4, a5, a6, a7, a8, a9, a10
- outtype, intype = "TSPELL", "PSPELL"
- else
- spellId, spellName, spellSchool, amount, overDamage, school, resisted, blocked, absorbed, critical, glancing, crushing = a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12
- texture = select(3, GetSpellInfo(spellId))
- outtype, intype = "TSPELL", "PSPELL"
+ local timestamp, event, hideCaster, sourceGUID, sourceName, sourceFlags,
+ sourceFlags2, destGUID, destName, destFlags, destFlags2, a1, a2, a3,
+ a4, a5, a6, a7, a8, a9, a10, a11, a12 = CombatLogGetCurrentEventInfo()
+ local etype = COMBAT_EVENTS[event]
+ if not etype then return end
+
+ if not Blizzard_CombatLog_CurrentSettings then
+ Blizzard_CombatLog_CurrentSettings =
+ Blizzard_CombatLog_Filters.filters[Blizzard_CombatLog_Filters.currentFilter]
end
- text = tostring(shortenValue(amount))
-
- if (critical) then text = critchar..text..critchar end
- if (crushing) then text = crushchar..text..crushchar end
- if (glancing) then text = glancechar..text..glancechar end
- if (resisted) then text = string_format("%s (%d)", text, shortenValue(resisted)) end
- if (blocked) then text = string_format("%s (%d)", text, shortenValue(blocked)) end
- if (absorbed) then text = string_format("%s (%d)", text, shortenValue(absorbed))end
-
- if fromPlayer then
- if (self:TrackStat(inout, "hit", spellName, texture, SCHOOL_STRINGS[school], amount, critical, message)) then
- text = newhigh..text..newhigh
- end
- --fix colors for self physical
- if school == SCHOOL_MASK_PHYSICAL then school = 0 end
- color = self:SpellColor(db[outtype], SCHOOL_STRINGS[school])
- totDamageOut = totDamageOut + amount
- elseif toPlayer then
- if (self:TrackStat(inout, "hit", spellName, texture, SCHOOL_STRINGS[school], amount, critical, message)) then
- text = newhigh..text..newhigh
- end
- color = self:SpellColor(db[intype], SCHOOL_STRINGS[school])
- text = "-"..text
- totDamageIn = totDamageIn + amount
- elseif toPet then
- text = "-"..text
- end
- self:DisplayEvent(inout, text, texture, color, message, spellName)
- ------------buff/debuff gain----------------
- elseif etype == "BUFF" then
- spellId, spellName, spellSchool, auraType, amount = a1, a2, a3, a4, a5
- texture = select(3, GetSpellInfo(spellId))
- if toPlayer and db[auraType] then
- self:DisplayEvent(INCOMING, self:ShortenString(spellName).." "..L["Gained"], texture, db["P"..auraType], message, spellName)
- else return
- end
- ------------buff/debuff lose----------------
- elseif etype == "FADE" then
- spellId, spellName, spellSchool, auraType, amount = a1, a2, a3, a4, a5
- texture = select(3, GetSpellInfo(spellId))
- if toPlayer and db[auraType.."FADE"] then
- self:DisplayEvent(INCOMING, self:ShortenString(spellName).." "..L["Fades"], texture, db["P"..auraType], message, spellName)
- else return
- end
- ------------heals----------------
- elseif etype == "HEAL" then
- spellId, spellName, spellSchool, amount, overHeal, absorbed, critical = a1, a2, a3, a4, a5, a6, a7
- text = tostring(shortenValue(amount))
- texture = select(3, GetSpellInfo(spellId))
-
- if toPlayer then
- totHealingIn = totHealingIn + amount
- if (amount < db["HFILTER"]) then return end
- if (db["OVERHEAL"]) and overHeal > 0 then text = string_format("%d {%d}", shortenValue(amount-overHeal), shortenValue(overHeal)) end
- if (critical) then text = critchar..text..critchar end
- if (db["HEALERID"] == true and not fromPlayer) then text = text.." ("..sourceName..")" end
- color = db["PHEAL"]
- if (self:TrackStat(inout, "heal", spellName, texture, SCHOOL_STRINGS[spellSchool], amount, critical, message)) then
- text = newhigh..text..newhigh
- end
- text = "+"..text
- elseif fromPlayer then
- totHealingOut = totHealingOut + amount
- if (amount < db["HFILTER"]) then return end
- if (db["OVERHEAL"]) and overHeal > 0 then text = string_format("%d {%d}", shortenValue(amount-overHeal), shortenValue(overHeal)) end
- if (critical) then text = critchar..text..critchar end
- color = db["THEAL"]
- if (self:TrackStat(inout, "heal", spellName, texture, SCHOOL_STRINGS[spellSchool], amount, critical, message)) then
- text = newhigh..text..newhigh
- end
- text = "+"..text
- if (db["HEALERID"] == true) then text = destName..": "..text end
- end
- self:DisplayEvent(inout, text, texture, color, message, spellName)
- ------------misses----------------
- elseif etype == "MISS" then
- local tcolor
- if event == "SWING_MISSED" or event == "RANGE_MISSED" then
- missType = a1
- tcolor = "TMELEE"
- else
- spellId, spellName, spellSchool, missType = a1, a2, a3, a4
- texture = select(3, GetSpellInfo(spellId))
- tcolor = "TSPELL"
+
+ -- check for reflect damage
+ if event == "SPELL_DAMAGE" and sourceName == destName and
+ CombatLog_Object_IsA(destFlags, COMBATLOG_FILTER_HOSTILE) then
+ self:ParseReflect(timestamp, event, hideCaster, sourceGUID, sourceName,
+ sourceFlags, sourceFlags2, destGUID, destName,
+ destFlags, destFlags2, a1, a2, a3, a4, a5, a6, a7, a8,
+ a9, a10, a11, a12)
+ return
end
- text = _G[missType]
- if fromPlayer then
- color = db[tcolor]
- elseif toPlayer then
- if missType == "REFLECT" then
- self:SetReflect(sourceName, spellName)
- end
- color = db["PMISS"]
+
+ local toPlayer, fromPlayer, toPet, fromPet
+ if (sourceName and
+ not CombatLog_Object_IsA(sourceFlags, COMBATLOG_OBJECT_NONE)) then
+ fromPlayer = CombatLog_Object_IsA(sourceFlags, COMBATLOG_FILTER_MINE)
+ fromPet = CombatLog_Object_IsA(sourceFlags, COMBATLOG_FILTER_MY_PET)
end
- self:DisplayEvent(inout, text, texture, color, message, spellName)
- ------------leech and drains----------------
- elseif etype == "DRAIN" then
- if (db["GAINS"]) then
- spellId, spellName, spellSchool, amount, powerType, extraAmount = a1, a2, a3, a4, a5, a6
- texture = select(3, GetSpellInfo(spellId))
- if toPlayer then
- text = string_format("-%d %s", amount, string_nil(""))
- color = db["PGAIN"]
- elseif fromPlayer and extraAmount then
- if (extraAmount < db["MFILTER"]) then return end
- text = string_format("+%d %s", extraAmount, string_nil(""))
- color = db["PGAIN"]
- elseif fromPlayer then
- return
- --for showing your drain damage
- --text = string_format("%d %s", amount, string_nil(""))
- --color = db["TSPELL"]
- end
- self:DisplayEvent(inout, text, texture, color, message, spellName)
+ if (destName and not CombatLog_Object_IsA(destFlags, COMBATLOG_OBJECT_NONE)) then
+ toPlayer = CombatLog_Object_IsA(destFlags, COMBATLOG_FILTER_MINE)
+ toPet = CombatLog_Object_IsA(destFlags, COMBATLOG_FILTER_MY_PET)
end
- ------------power gains----------------
- elseif etype == "POWER" then
- if (db["GAINS"]) then
- spellId, spellName, spellSchool, amount, powerType = a1, a2, a3, a4, a5
- texture = select(3, GetSpellInfo(spellId))
- if toPlayer then
- if (amount < db["MFILTER"]) then return end
- color = db["PGAIN"]
- elseif not toPet then
+
+ if not fromPlayer and not toPlayer and not fromPet and not toPet then
return
- end
- text = string_format("+%d %s", amount, string_nil(""))
- self:DisplayEvent(inout, text, texture, color, message, spellName)
end
- ------------deaths----------------
- elseif etype == "DEATH" then
- if fromPlayer then
- text = deathchar..destName..deathchar
- self:DisplayEvent(MISC, text, texture, db["DEATH"], message, spellName)
- else return
+ if (not fromPlayer and not toPlayer) and (toPet or fromPet) and
+ not db["PET"] then return end
+
+ local amount, overDamage, school, resisted, blocked, absorbed, critical,
+ glancing, crushing
+ local spellId, spellName, spellSchool, missType, powerType, extraAmount,
+ environmentalType, overHeal
+ local text, texture, message, inout, color
+
+ -- defaults
+ if toPet or fromPet then texture = "pet" end
+ if toPlayer or toPet then inout = INCOMING end
+ if fromPlayer or fromPet then inout = OUTGOING end
+ if toPet then color = db["PETI"] end
+ if fromPet then color = db["PETO"] end
+
+ -- get combat log message (for tooltip)
+ message = CombatLog_OnEvent(Blizzard_CombatLog_CurrentSettings, timestamp,
+ event, hideCaster, sourceGUID, sourceName,
+ sourceFlags, sourceFlags2, destGUID, destName,
+ destFlags, destFlags2, a1, a2, a3, a4, a5, a6,
+ a7, a8, a9, a10, a11, a12)
+
+ ------------damage----------------
+ if etype == "DAMAGE" then
+ local intype, outtype
+ if event == "SWING_DAMAGE" then
+ amount, overDamage, school, resisted, blocked, absorbed, critical, glancing, crushing =
+ a1, a2, a3, a4, a5, a6, a7, a8, a9
+ if school == SCHOOL_MASK_PHYSICAL then
+ outtype, intype = "TMELEE", "PHIT"
+ else
+ outtype, intype = "TSPELL", "PSPELL"
+ end
+ elseif event == "RANGE_DAMAGE" then
+ spellId, spellName, spellSchool, amount, overDamage, school, resisted, blocked, absorbed, critical, glancing, crushing =
+ a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12
+ if school == SCHOOL_MASK_PHYSICAL then
+ outtype, intype = "TMELEE", "PHIT"
+ else
+ outtype, intype = "TSPELL", "PSPELL"
+ end
+ elseif event == "ENVIRONMENTAL_DAMAGE" then
+ environmentalType, amount, overDamage, school, resisted, blocked, absorbed, critical, glancing, crushing =
+ a1, a2, a3, a4, a5, a6, a7, a8, a9, a10
+ outtype, intype = "TSPELL", "PSPELL"
+ else
+ spellId, spellName, spellSchool, amount, overDamage, school, resisted, blocked, absorbed, critical, glancing, crushing =
+ a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12
+ texture = select(3, GetSpellInfo(spellId))
+ outtype, intype = "TSPELL", "PSPELL"
+ end
+ text = tostring(shortenValue(amount))
+
+ if (critical) then text = critchar .. text .. critchar end
+ if (crushing) then text = crushchar .. text .. crushchar end
+ if (glancing) then text = glancechar .. text .. glancechar end
+ if (resisted) then
+ text = string_format("%s (%d)", text, shortenValue(resisted))
+ end
+ if (blocked) then
+ text = string_format("%s (%d)", text, shortenValue(blocked))
+ end
+ if (absorbed) then
+ text = string_format("%s (%d)", text, shortenValue(absorbed))
+ end
+
+ if fromPlayer then
+ if (self:TrackStat(inout, "hit", spellName, texture, SCHOOL_STRINGS[school], amount, critical, message)) then
+ text = newhigh .. text .. newhigh
+ end
+ -- fix colors for self physical
+ if school == SCHOOL_MASK_PHYSICAL then school = 0 end
+ color = self:SpellColor(db[outtype], SCHOOL_STRINGS[school])
+ totDamageOut = totDamageOut + amount
+ elseif toPlayer then
+ if (self:TrackStat(inout, "hit", spellName, texture, SCHOOL_STRINGS[school], amount, critical, message)) then
+ text = newhigh .. text .. newhigh
+ end
+ color = self:SpellColor(db[intype], SCHOOL_STRINGS[school])
+ text = "-" .. text
+ totDamageIn = totDamageIn + amount
+ elseif toPet then
+ text = "-" .. text
+ end
+ self:DisplayEvent(inout, text, texture, color, message, spellName)
+ ------------buff/debuff gain----------------
+ elseif etype == "BUFF" then
+ spellId, spellName, spellSchool, auraType, amount = a1, a2, a3, a4, a5
+ texture = select(3, GetSpellInfo(spellId))
+ if toPlayer and db[auraType] then
+
+ local gained = L["Gained"]
+ local entryText = self:ShortenString(spellName) .. " " .. gained
+ local hoverText = spellName .. " " .. gained
+
+ self:DisplayEvent(INCOMING, entryText, texture, db["P" .. auraType],
+ message, hoverText)
+ else
+ return
+ end
+ ------------buff/debuff lose----------------
+ elseif etype == "FADE" then
+ spellId, spellName, spellSchool, auraType, amount = a1, a2, a3, a4, a5
+ texture = select(3, GetSpellInfo(spellId))
+ if toPlayer and db[auraType .. "FADE"] then
+
+ local fades = L["Fades"]
+ local entryText = self:ShortenString(spellName) .. " " .. fades
+ local hoverText = spellName .. " " .. fades
+
+ self:DisplayEvent(INCOMING, entryText, texture, db["P" .. auraType],
+ message, hoverText)
+ else
+ return
+ end
+ ------------heals----------------
+ elseif etype == "HEAL" then
+ spellId, spellName, spellSchool, amount, overHeal, absorbed, critical =
+ a1, a2, a3, a4, a5, a6, a7
+ text = tostring(shortenValue(amount))
+ texture = select(3, GetSpellInfo(spellId))
+
+ if toPlayer then
+ totHealingIn = totHealingIn + amount
+ if (amount < db["HFILTER"]) then return end
+ if (db["OVERHEAL"]) and overHeal > 0 then
+ text = string_format("%d {%d}", shortenValue(amount - overHeal), shortenValue(overHeal))
+ end
+ if (critical) then text = critchar .. text .. critchar end
+ if (db["HEALERID"] == true and not fromPlayer) then
+ text = text .. " (" .. sourceName .. ")"
+ end
+ color = db["PHEAL"]
+ if (self:TrackStat(inout, "heal", spellName, texture, SCHOOL_STRINGS[spellSchool], amount, critical, message)) then
+ text = newhigh .. text .. newhigh
+ end
+ text = "+" .. text
+ elseif fromPlayer then
+ totHealingOut = totHealingOut + amount
+ if (amount < db["HFILTER"]) then return end
+ if (db["OVERHEAL"]) and overHeal > 0 then
+ text = string_format("%d {%d}", shortenValue(amount - overHeal), shortenValue(overHeal))
+ end
+ if (critical) then text = critchar .. text .. critchar end
+ color = db["THEAL"]
+ if (self:TrackStat(inout, "heal", spellName, texture, SCHOOL_STRINGS[spellSchool], amount, critical, message)) then
+ text = newhigh .. text .. newhigh
+ end
+ text = "+" .. text
+ if (db["HEALERID"] == true) then
+ text = destName .. ": " .. text
+ end
+ end
+ self:DisplayEvent(inout, text, texture, color, message, spellName)
+ ------------misses----------------
+ elseif etype == "MISS" then
+ local tcolor
+ if event == "SWING_MISSED" or event == "RANGE_MISSED" then
+ missType = a1
+ tcolor = "TMELEE"
+ else
+ spellId, spellName, spellSchool, missType = a1, a2, a3, a4
+ texture = select(3, GetSpellInfo(spellId))
+ tcolor = "TSPELL"
+ end
+ text = _G[missType]
+ if fromPlayer then
+ color = db[tcolor]
+ elseif toPlayer then
+ if missType == "REFLECT" then
+ self:SetReflect(sourceName, spellName)
+ end
+ color = db["PMISS"]
+ end
+ self:DisplayEvent(inout, text, texture, color, message, spellName)
+ ------------leech and drains----------------
+ elseif etype == "DRAIN" then
+ if (db["GAINS"]) then
+ spellId, spellName, spellSchool, amount, powerType, extraAmount =
+ a1, a2, a3, a4, a5, a6
+ texture = select(3, GetSpellInfo(spellId))
+ if toPlayer then
+ text = string_format("-%d %s", amount, string_nil(""))
+ color = db["PGAIN"]
+ elseif fromPlayer and extraAmount then
+ if (extraAmount < db["MFILTER"]) then return end
+ text = string_format("+%d %s", extraAmount, string_nil(""))
+ color = db["PGAIN"]
+ elseif fromPlayer then
+ return
+ -- for showing your drain damage
+ -- text = string_format("%d %s", amount, string_nil(""))
+ -- color = db["TSPELL"]
+ end
+ self:DisplayEvent(inout, text, texture, color, message, spellName)
+ end
+ ------------power gains----------------
+ elseif etype == "POWER" then
+ if (db["GAINS"]) then
+ spellId, spellName, spellSchool, amount, powerType = a1, a2, a3, a4,
+ a5
+ texture = select(3, GetSpellInfo(spellId))
+ if toPlayer then
+ if (amount < db["MFILTER"]) then return end
+ color = db["PGAIN"]
+ elseif not toPet then
+ return
+ end
+ text = string_format("+%d %s", amount, string_nil(""))
+ self:DisplayEvent(inout, text, texture, color, message, spellName)
+ end
+ ------------deaths----------------
+ elseif etype == "DEATH" then
+ if fromPlayer then
+ text = deathchar .. destName .. deathchar
+ self:DisplayEvent(MISC, text, texture, db["DEATH"], message,
+ spellName)
+ else
+ return
+ end
+ ------------enchants----------------
+ elseif etype == "ENCHANT_APPLIED" then
+ spellName = a1
+ self:DisplayEvent(INCOMING, self:ShortenString(spellName), texture,
+ db["PBUFF"], message, spellName)
+ elseif etype == "ENCHANT_REMOVED" then
+ spellName = a1
+ self:DisplayEvent(INCOMING,
+ self:ShortenString(spellName) .. " " .. L["Fades"],
+ texture, db["PBUFF"], message, spellName)
+ -------------anything else-------------
+ -- else
+ -- self:Print(event, sourceName, destName)
end
- ------------enchants----------------
- elseif etype == "ENCHANT_APPLIED" then
- spellName = a1
- self:DisplayEvent(INCOMING, self:ShortenString(spellName), texture, db["PBUFF"], message, spellName)
- elseif etype == "ENCHANT_REMOVED" then
- spellName = a1
- self:DisplayEvent(INCOMING, self:ShortenString(spellName).." "..L["Fades"], texture, db["PBUFF"], message, spellName)
- -------------anything else-------------
- --else
- --self:Print(event, sourceName, destName)
- end
end
function EavesDrop:PLAYER_XP_UPDATE()
- local xp = UnitXP("player")
- local xpgained = xp - pxp
- self:DisplayEvent(MISC, string_format("+%d (%s)", shortenValue(xpgained), XP), nil, db["EXPC"], nil)
- pxp = xp
+ local xp = UnitXP("player")
+ local xpgained = xp - pxp
+ self:DisplayEvent(MISC,
+ string_format("+%d (%s)", shortenValue(xpgained), XP),
+ nil, db["EXPC"], nil)
+ pxp = xp
end
function EavesDrop:COMBAT_TEXT_UPDATE(event, larg1, larg2, larg3)
- if larg1=="FACTION" then
- local sign = "+"
- if larg2 == nil then
- larg2 = 0
- end
- if larg3 == nil then
- larg3 = 0
- sign = ""
- end
- if (tonumber(larg3) < 0) then sign = "" end
- self:DisplayEvent(MISC, string_format("%s%d (%s)", sign, larg3, larg2), nil, db["REPC"], nil)
- elseif larg1=="HONOR_GAINED" then
- self:DisplayEvent(MISC, string_format("+%d (%s)", larg2, HONOR) , nil, db["HONORC"], nil)
- end
+ if larg1 == "FACTION" then
+ local sign = "+"
+ if larg2 == nil then larg2 = 0 end
+ if larg3 == nil then
+ larg3 = 0
+ sign = ""
+ end
+ if (tonumber(larg3) < 0) then sign = "" end
+ self:DisplayEvent(MISC, string_format("%s%d (%s)", sign, larg3, larg2),
+ nil, db["REPC"], nil)
+ elseif larg1 == "HONOR_GAINED" then
+ self:DisplayEvent(MISC, string_format("+%d (%s)", larg2, HONOR), nil,
+ db["HONORC"], nil)
+ end
end
function EavesDrop:PLAYER_REGEN_DISABLED()
- pxp = UnitXP("player")
- timeStart = GetTime()
- clearSummary()
- self:DisplayEvent(MISC, L["StartCombat"], nil, db["MISC"])
- --stop on update, since in combat
- self:StopOnUpdate()
- --show frame, if its hidden
- self:ShowFrame()
- --flag all as being shown, so buttons appear
- allShown = true
+ pxp = UnitXP("player")
+ timeStart = GetTime()
+ clearSummary()
+ self:DisplayEvent(MISC, L["StartCombat"], nil, db["MISC"])
+ -- stop on update, since in combat
+ self:StopOnUpdate()
+ -- show frame, if its hidden
+ self:ShowFrame()
+ -- flag all as being shown, so buttons appear
+ allShown = true
end
function EavesDrop:PLAYER_REGEN_ENABLED()
- self:DisplayEvent(MISC, L["EndCombat"], nil, db["MISC"])
- if (db["SUMMARY"] == true) then
- local duration = round(GetTime() - timeStart, 1)
- local DPS = round(totDamageOut/duration,1) or 0
- local HPS = round(totHealingOut/duration,1) or 0
- local IDPS = round(totDamageIn/duration,1) or 0
- local IHPS = round(totHealingIn/duration,1) or 0
- local strSummary = convertRGBtoHEXString(db["MISC"], duration.." "..L["IncombatSummary"]).."\n"..
- convertRGBtoHEXString(db["PHIT"], L["IncomingDamge"]..": "..totDamageIn.." ("..IDPS..")").."\n"..
- convertRGBtoHEXString(db["PHEAL"], L["IncomingHeals"]..": "..totHealingIn.." ("..IHPS..")").."\n"..
- convertRGBtoHEXString(db["THEAL"], L["OutgoingHeals"]..": "..totHealingOut.." ("..HPS..")").."\n"..
- convertRGBtoHEXString(db["TSPELL"], L["OutgoingDamage"]..": "..totDamageOut.." ("..DPS..")")
-
- self:DisplayEvent(MISC,
- convertRGBtoHEXString(db["PHIT"], shortenValue(totDamageIn)).." | "..
- convertRGBtoHEXString(db["PHEAL"], shortenValue(totHealingIn)).." | "..
- convertRGBtoHEXString(db["THEAL"], shortenValue(totHealingOut)).." | "..
- convertRGBtoHEXString(db["TSPELL"], shortenValue(totDamageOut)),
- nil, db["MISC"], strSummary)
- end
- clearSummary()
- --since out of combat, try and start onupdate to count down frames
- self:StartOnUpdate()
+ self:DisplayEvent(MISC, L["EndCombat"], nil, db["MISC"])
+ if (db["SUMMARY"] == true) then
+ local duration = round(GetTime() - timeStart, 1)
+ local DPS = round(totDamageOut / duration, 1) or 0
+ local HPS = round(totHealingOut / duration, 1) or 0
+ local IDPS = round(totDamageIn / duration, 1) or 0
+ local IHPS = round(totHealingIn / duration, 1) or 0
+ local strSummary = convertRGBtoHEXString(db["MISC"], duration .. " " ..
+ L["IncombatSummary"]) ..
+ "\n" ..
+ convertRGBtoHEXString(db["PHIT"],
+ L["IncomingDamge"] .. ": " ..
+ totDamageIn .. " (" ..
+ IDPS .. ")") .. "\n" ..
+ convertRGBtoHEXString(db["PHEAL"],
+ L["IncomingHeals"] .. ": " ..
+ totHealingIn .. " (" ..
+ IHPS .. ")") .. "\n" ..
+ convertRGBtoHEXString(db["THEAL"],
+ L["OutgoingHeals"] .. ": " ..
+ totHealingOut .. " (" ..
+ HPS .. ")") .. "\n" ..
+ convertRGBtoHEXString(db["TSPELL"],
+ L["OutgoingDamage"] .. ": " ..
+ totDamageOut .. " (" ..
+ DPS .. ")")
+
+ self:DisplayEvent(MISC,
+ convertRGBtoHEXString(db["PHIT"],
+ shortenValue(totDamageIn)) ..
+ " | " ..
+ convertRGBtoHEXString(db["PHEAL"],
+ shortenValue(totHealingIn)) ..
+ " | " ..
+ convertRGBtoHEXString(db["THEAL"],
+ shortenValue(totHealingOut)) ..
+ " | " ..
+ convertRGBtoHEXString(db["TSPELL"],
+ shortenValue(totDamageOut)),
+ nil, db["MISC"], strSummary)
+ end
+ clearSummary()
+ -- since out of combat, try and start onupdate to count down frames
+ self:StartOnUpdate()
end
function EavesDrop:PLAYER_DEAD()
- self:DisplayEvent(MISC, deathchar..UnitName("player")..deathchar, nil, db["DEATH"])
+ self:DisplayEvent(MISC, deathchar .. UnitName("player") .. deathchar, nil,
+ db["DEATH"])
end
function EavesDrop:CHAT_MSG_SKILL(event, larg1)
- local skill, rank = string_match(larg1, skillmsg)
- if skill then
- self:DisplayEvent(MISC, string_format("%s: %d", skill, rank), nil, db["SKILLC"], larg1)
- end
+ local skill, rank = string_match(larg1, skillmsg)
+ if skill then
+ self:DisplayEvent(MISC, string_format("%s: %d", skill, rank), nil,
+ db["SKILLC"], larg1)
+ end
end
local tempcolor = {r = 1, g = 1, b = 1}
-function EavesDrop:DisplayEvent(type, text, texture, color, message, spellname)
- --remove oldest table and create new display event
- local pEvent = tremove(arrEventData, 1)
- local tooltiptext = message
- if (db["FLIP"] == true) then type = type * -1 end
- pEvent.type = type
- pEvent.text = text
- pEvent.texture = texture
- pEvent.color = color or tempcolor
-
- -- Messages probably already have a timestamp, so let's clear that up
- if (db["TIMESTAMP"] == true and message) then
-
- -- Check if we have a timestamp here and remove to use our own
- local timecutoff = string.find(message, '> ')
+function EavesDrop:DisplayEvent(type, entryText, texture, color, message, hoverText)
+ -- remove oldest table and create new display event
+ local pEvent = tremove(arrEventData, 1)
+ local tooltiptext = message
+ if (db["FLIP"] == true) then type = type * -1 end
+ pEvent.type = type
+ pEvent.text = entryText
+ pEvent.texture = texture
+ pEvent.color = color or tempcolor
- -- If we did, skip those two characters "> "
- if timecutoff then
- message = strsub(message, timecutoff + 2)
- end
+ -- Messages probably already have a timestamp, so let's clear that up
+ if (db["TIMESTAMP"] == true and message) then
- pEvent.tooltipText = string_format('|cffffffff%s\n%s', date('%I:%M:%S'), message)
-
- elseif (db["TIMESTAMP"] == true and text) then
- pEvent.tooltipText = string_format('|cffffffff%s|r\n%s', date('%I:%M:%S'), text)
-
- elseif (db["TIMESTAMP"] == true) then
- pEvent.tooltipText = string_format('|cffffffff%s|r\n%s', date('%I:%M:%S'), tooltiptext or '')
-
- elseif spellname then
- pEvent.tooltipText = spellname
-
- else
- pEvent.tooltipText = tooltiptext
-
- end
- tinsert(arrEventData, arrMaxSize, pEvent)
- self:UpdateEvents()
+ -- Check if we have a timestamp here and remove to use our own
+ local timecutoff = string.find(message, '> ')
+
+ -- If we did, skip those two characters "> "
+ if timecutoff then message = strsub(message, timecutoff + 2) end
+
+ pEvent.tooltipText = string_format('|cffffffff%s\n%s', date('%I:%M:%S'), message)
+
+ elseif (db["TIMESTAMP"] == true and hoverText) then
+ pEvent.tooltipText = string_format('|cffffffff%s|r\n%s',
+ date('%I:%M:%S'), hoverText)
+
+ elseif (db["TIMESTAMP"] == true and entryText) then
+ pEvent.tooltipText = string_format('|cffffffff%s|r\n%s',
+ date('%I:%M:%S'), entryText)
+
+ elseif (db["TIMESTAMP"] == true) then
+ pEvent.tooltipText = string_format('|cffffffff%s|r\n%s',
+ date('%I:%M:%S'), tooltiptext or '')
+
+ elseif hoverText then
+ pEvent.tooltipText = hoverText
+
+ else
+ pEvent.tooltipText = tooltiptext
+
+ end
+ tinsert(arrEventData, arrMaxSize, pEvent)
+ self:UpdateEvents()
end
function EavesDrop:UpdateEvents()
- local key, value
- local frame, text, intexture, outexture
- local start, finish
- local delay = db["FADETIME"] + (4 * arrSize)
- start = arrMaxSize-scroll
- finish = arrMaxSize-arrSize+1-scroll
- for i=start,finish,-1 do
- value = arrEventData[i]
- key = i - (arrMaxSize-arrSize) + scroll
- frame = arrEventFrames[key].frame
- text = arrEventFrames[key].text
- intexture = arrEventFrames[key].intexture
- outtexture = arrEventFrames[key].outtexture
- if (not value.text) then
- text:SetText(nil)
- intexture:SetTexture(nil)
- outtexture:SetTexture(nil)
- frame.delay = 0
- frame.alpha = 0
- frame.tooltipText = nil
- frame:Hide()
- else
- if (value.type == INCOMING) then
- text:SetJustifyH("LEFT")
- text:SetWidth(db["LINEWIDTH"]-20)
- text:SetPoint("LEFT", intexture, "RIGHT", 5, 0)
- intexture:SetTexCoord(.1,.9,.1,.9)
- outtexture:SetTexture(nil)
- if value.texture == "pet" then
- SetPortraitTexture(intexture, value.texture)
+ local key, value
+ local frame, text, intexture, outexture
+ local start, finish
+ local delay = db["FADETIME"] + (4 * arrSize)
+ start = arrMaxSize - scroll
+ finish = arrMaxSize - arrSize + 1 - scroll
+ for i = start, finish, -1 do
+ value = arrEventData[i]
+ key = i - (arrMaxSize - arrSize) + scroll
+ frame = arrEventFrames[key].frame
+ text = arrEventFrames[key].text
+ intexture = arrEventFrames[key].intexture
+ outtexture = arrEventFrames[key].outtexture
+ if (not value.text) then
+ text:SetText(nil)
+ intexture:SetTexture(nil)
+ outtexture:SetTexture(nil)
+ frame.delay = 0
+ frame.alpha = 0
+ frame.tooltipText = nil
+ frame:Hide()
else
- intexture:SetTexture(value.texture)
+ if (value.type == INCOMING) then
+ text:SetJustifyH("LEFT")
+ text:SetWidth(db["LINEWIDTH"] - 20)
+ text:SetPoint("LEFT", intexture, "RIGHT", 5, 0)
+ intexture:SetTexCoord(.1, .9, .1, .9)
+ outtexture:SetTexture(nil)
+ if value.texture == "pet" then
+ SetPortraitTexture(intexture, value.texture)
+ else
+ intexture:SetTexture(value.texture)
+ end
+ elseif (value.type == OUTGOING) then
+ text:SetJustifyH("RIGHT")
+ text:SetWidth(db["LINEWIDTH"] - 20)
+ text:SetPoint("LEFT", intexture, "RIGHT", 5, 0)
+ intexture:SetTexture(nil)
+ outtexture:SetTexCoord(.1, .9, .1, .9)
+ if value.texture == "pet" then
+ SetPortraitTexture(outtexture, value.texture)
+ else
+ outtexture:SetTexture(value.texture)
+ end
+ else
+ text:SetJustifyH("CENTER")
+ text:SetWidth((db["LINEHEIGHT"] * 2) + (db["LINEWIDTH"] - 10))
+ text:SetPoint("LEFT", intexture, "LEFT", 0, 0)
+ intexture:SetTexture(nil)
+ outtexture:SetTexture(nil)
+ end
+ text:SetText(value.text)
+ text:SetTextColor(value.color.r, value.color.g, value.color.b)
+ frame.delay = delay
+ frame.alpha = 1
+ if (db["TOOLTIPS"] == true) then
+ frame.tooltipText = value.tooltipText
+ else
+ frame.tooltipText = nil
+ end
+ frame:Show()
+ frame:SetAlpha(frame.alpha)
end
- elseif (value.type == OUTGOING) then
- text:SetJustifyH("RIGHT")
- text:SetWidth(db["LINEWIDTH"]-20)
- text:SetPoint("LEFT", intexture, "RIGHT", 5, 0)
- intexture:SetTexture(nil)
- outtexture:SetTexCoord(.1,.9,.1,.9)
- if value.texture == "pet" then
- SetPortraitTexture(outtexture, value.texture)
+ delay = delay - 4
+ -- set clickthru
+ if (frame.tooltipText) then
+ frame:EnableMouse(true)
else
- outtexture:SetTexture(value.texture)
+ frame:EnableMouse(false)
end
- else
- text:SetJustifyH("CENTER")
- text:SetWidth((db["LINEHEIGHT"] * 2) + (db["LINEWIDTH"]-10))
- text:SetPoint("LEFT", intexture, "LEFT", 0, 0)
- intexture:SetTexture(nil)
- outtexture:SetTexture(nil)
- end
- text:SetText(value.text)
- text:SetTextColor(value.color.r, value.color.g, value.color.b)
- frame.delay = delay
- frame.alpha = 1
- if (db["TOOLTIPS"] == true) then
- frame.tooltipText = value.tooltipText
- else
- frame.tooltipText = nil
- end
- frame:Show()
- frame:SetAlpha(frame.alpha)
end
- delay = delay - 4
- --set clickthru
- if (frame.tooltipText) then
- frame:EnableMouse(true)
- else
- frame:EnableMouse(false)
- end
- end
- --Update scrolls
- self:UpdateScrollButtons()
- --try to start up onUpdate. if in combat it won't start.
- self:StartOnUpdate()
+ -- Update scrolls
+ self:UpdateScrollButtons()
+ -- try to start up onUpdate. if in combat it won't start.
+ self:StartOnUpdate()
end
function EavesDrop:StartOnUpdate()
- --only start on update if not in combat, and not already started.
- if not InCombatLockdown() and not self.OnUpdateStarted then
- lastTime = GetTime()
- self.OnUpdateStarted = self:ScheduleRepeatingTimer("OnUpdate", .2, self)
- end
+ -- only start on update if not in combat, and not already started.
+ if not InCombatLockdown() and not self.OnUpdateStarted then
+ lastTime = GetTime()
+ self.OnUpdateStarted = self:ScheduleRepeatingTimer("OnUpdate", .2, self)
+ end
end
function EavesDrop:StopOnUpdate()
- self:CancelTimer(self.OnUpdateStarted, true)
- self.OnUpdateStarted = nil
+ self:CancelTimer(self.OnUpdateStarted, true)
+ self.OnUpdateStarted = nil
end
function EavesDrop:ResetEvents()
- local frame, text, intexture, outexture
- for i=1,arrDisplaySize do
- frame = arrEventFrames[i].frame
- text = arrEventFrames[i].text
- intexture = arrEventFrames[i].intextureframe
- outtexture = arrEventFrames[i].outtextureframe
- frame.delay = 0
- frame.alpha = 0
- frame.tooltipText = nil
- frame:SetHeight(db["LINEHEIGHT"] + 1)
- frame:SetWidth((db["LINEHEIGHT"] * 2) + db["LINEWIDTH"])
- frame:Hide()
- text:SetHeight(db["LINEHEIGHT"])
- intexture:SetHeight(db["LINEHEIGHT"])
- intexture:SetWidth(db["LINEHEIGHT"])
- intexture:SetPoint("LEFT", frame, "RIGHT", 5, 0)
- outtexture:SetHeight(db["LINEHEIGHT"])
- outtexture:SetWidth(db["LINEHEIGHT"])
- end
+ local frame, text, intexture, outexture
+ for i = 1, arrDisplaySize do
+ frame = arrEventFrames[i].frame
+ text = arrEventFrames[i].text
+ intexture = arrEventFrames[i].intextureframe
+ outtexture = arrEventFrames[i].outtextureframe
+ frame.delay = 0
+ frame.alpha = 0
+ frame.tooltipText = nil
+ frame:SetHeight(db["LINEHEIGHT"] + 1)
+ frame:SetWidth((db["LINEHEIGHT"] * 2) + db["LINEWIDTH"])
+ frame:Hide()
+ text:SetHeight(db["LINEHEIGHT"])
+ intexture:SetHeight(db["LINEHEIGHT"])
+ intexture:SetWidth(db["LINEHEIGHT"])
+ intexture:SetPoint("LEFT", frame, "RIGHT", 5, 0)
+ outtexture:SetHeight(db["LINEHEIGHT"])
+ outtexture:SetWidth(db["LINEHEIGHT"])
+ end
end
function EavesDrop:OnUpdate()
- local frame
- local count = 0
- curTime = GetTime()
- elapsed = curTime - lastTime
- lastTime = curTime
- for i=1,arrSize do
- frame = arrEventFrames[i].frame
- if (frame:IsShown()) then
- count = count + 1
- frame.delay = frame.delay - elapsed
- if frame.delay <= 0 then
- frame.alpha = frame.alpha - .2
- frame:SetAlpha(frame.alpha)
- end
- if (frame.alpha <= 0) then
- frame:Hide()
- EavesDropFrameUpButton:Hide()
- count = count - 1
- end
+ local frame
+ local count = 0
+ curTime = GetTime()
+ elapsed = curTime - lastTime
+ lastTime = curTime
+ for i = 1, arrSize do
+ frame = arrEventFrames[i].frame
+ if (frame:IsShown()) then
+ count = count + 1
+ frame.delay = frame.delay - elapsed
+ if frame.delay <= 0 then
+ frame.alpha = frame.alpha - .2
+ -- frame:SetAlpha(frame.alpha)
+ end
+ if (frame.alpha <= 0) then
+ frame:Hide()
+ EavesDropFrameUpButton:Hide()
+ count = count - 1
+ end
+ end
end
- end
- if (count == arrSize) then
- allShown = true
- else
- allShown = false
- end
- --if none are active, stop onUpdate
- if (count == 0) then
- self:StopOnUpdate()
- end
- --hide frame when none active
- if (db["FADEFRAME"]) then
- if ((count == 0) and (scroll==0)) then
- self:HideFrame()
+ if (count == arrSize) then
+ allShown = true
else
- self:ShowFrame()
+ allShown = false
+ end
+ -- if none are active, stop onUpdate
+ if (count == 0) then self:StopOnUpdate() end
+ -- hide frame when none active
+ if (db["FADEFRAME"]) then
+ if ((count == 0) and (scroll == 0)) then
+ self:HideFrame()
+ else
+ self:ShowFrame()
+ end
end
- end
end
function EavesDrop:Scroll(this, dir)
- local self = EavesDrop
- if dir > 0 then
- if IsShiftKeyDown() then
- self:ScrollToTop()
- elseif IsControlKeyDown() then
- self:FindCombatUp()
- else
- self:ScrollUp()
- end
- elseif dir < 0 then
- if IsShiftKeyDown() then
- self:ScrollToBottom()
- elseif IsControlKeyDown() then
- self:FindCombatDown()
- else
- self:ScrollDown()
+ local self = EavesDrop
+ if dir > 0 then
+ if IsShiftKeyDown() then
+ self:ScrollToTop()
+ elseif IsControlKeyDown() then
+ self:FindCombatUp()
+ else
+ self:ScrollUp()
+ end
+ elseif dir < 0 then
+ if IsShiftKeyDown() then
+ self:ScrollToBottom()
+ elseif IsControlKeyDown() then
+ self:FindCombatDown()
+ else
+ self:ScrollDown()
+ end
end
- end
end
function EavesDrop:FindCombatUp()
- for i=arrMaxSize-scroll-arrSize, 1, -1 do
- if arrEventData[i].text and arrEventData[i].text == L["StartCombat"] then
- scroll = arrMaxSize-i-arrSize+1
- self:UpdateScrollButtons()
- self:UpdateEvents()
- return
+ for i = arrMaxSize - scroll - arrSize, 1, -1 do
+ if arrEventData[i].text and arrEventData[i].text == L["StartCombat"] then
+ scroll = arrMaxSize - i - arrSize + 1
+ self:UpdateScrollButtons()
+ self:UpdateEvents()
+ return
+ end
end
- end
end
function EavesDrop:FindCombatDown()
- for i=arrMaxSize-scroll+1,arrMaxSize do
- if arrEventData[i].text and arrEventData[i].text == L["EndCombat"] then
- scroll = arrMaxSize-i
- self:UpdateScrollButtons()
- self:UpdateEvents()
- return
+ for i = arrMaxSize - scroll + 1, arrMaxSize do
+ if arrEventData[i].text and arrEventData[i].text == L["EndCombat"] then
+ scroll = arrMaxSize - i
+ self:UpdateScrollButtons()
+ self:UpdateEvents()
+ return
+ end
end
- end
end
function EavesDrop:ScrollToTop()
- scroll = arrMaxSize-arrSize
- self:UpdateScrollButtons()
- self:UpdateEvents()
+ scroll = arrMaxSize - arrSize
+ self:UpdateScrollButtons()
+ self:UpdateEvents()
end
function EavesDrop:ScrollToBottom()
- scroll = 0
- self:UpdateScrollButtons()
- self:UpdateEvents()
+ scroll = 0
+ self:UpdateScrollButtons()
+ self:UpdateEvents()
end
function EavesDrop:ScrollUp()
- scroll = scroll + 1
- if (scroll > (arrMaxSize-arrSize)) then
- scroll = arrMaxSize-arrSize
- end
- self:UpdateScrollButtons()
- self:UpdateEvents()
+ scroll = scroll + 1
+ if (scroll > (arrMaxSize - arrSize)) then scroll = arrMaxSize - arrSize end
+ self:UpdateScrollButtons()
+ self:UpdateEvents()
end
function EavesDrop:ScrollDown()
- scroll = scroll - 1
- if (scroll < 0) then
- scroll = 0
- end
- self:UpdateScrollButtons()
- self:UpdateEvents()
+ scroll = scroll - 1
+ if (scroll < 0) then scroll = 0 end
+ self:UpdateScrollButtons()
+ self:UpdateEvents()
end
function EavesDrop:UpdateScrollButtons()
- if ( not db["SCROLLBUTTON"]) then
-
- if (scroll > 0) then
- EavesDropFrameDownButton:Show()
- if (scroll == arrMaxSize-arrSize) then
- EavesDropFrameUpButton:Hide()
- else
- EavesDropFrameUpButton:Show()
- end
- else
- EavesDropFrameDownButton:Hide()
- if (not allShown) then
- EavesDropFrameUpButton:Hide()
- else
- EavesDropFrameUpButton:Show()
- end
+ if (not db["SCROLLBUTTON"]) then
+
+ if (scroll > 0) then
+ EavesDropFrameDownButton:Show()
+ if (scroll == arrMaxSize - arrSize) then
+ EavesDropFrameUpButton:Hide()
+ else
+ EavesDropFrameUpButton:Show()
+ end
+ else
+ EavesDropFrameDownButton:Hide()
+ if (not allShown) then
+ EavesDropFrameUpButton:Hide()
+ else
+ EavesDropFrameUpButton:Show()
+ end
+ end
end
- end
end
function EavesDrop:SpellColor(option, type)
- if (db["SPELLCOLOR"] == true) then
- return db[type] or option
- else
- return option
- end
+ if (db["SPELLCOLOR"] == true) then
+ return db[type] or option
+ else
+ return option
+ end
end
-------------------------
---Set last reflection
-function EavesDrop:ParseReflect(timestamp, event, hideCaster, sourceGUID, sourceName, sourceFlags, sourceFlags2, destGUID, destName, destFlags, destFlags2, ...)
- local spellId, spellName, spellSchool, amount, school, resisted, blocked, absorbed, critical, glancing, crushing = ...
- local texture = select(3, GetSpellInfo(spellId))
- local text = amount
- local messsage = CombatLog_OnEvent(Blizzard_CombatLog_CurrentSettings, timestamp, event, hideCaster, sourceGUID, sourceName, sourceFlags, sourceFlags2, destGUID, destName, destFlags, destFlags2, ...)
-
- --reflected events
- if (self.ReflectTarget == sourceName and sourceName == destName and self.ReflectSkill == spellName) then
- local text = string_format("%s: %d", REFLECT, shortenValue(amount))
- if (critical) then text = critchar..text..critchar end
- self:DisplayEvent(OUTGOING, text, texture, self:SpellColor(db["TSPELL"], SCHOOL_STRINGS[school]), messsage, spellName)
- self:ClearReflect()
- end
+-- Set last reflection
+function EavesDrop:ParseReflect(timestamp, event, hideCaster, sourceGUID,
+ sourceName, sourceFlags, sourceFlags2, destGUID,
+ destName, destFlags, destFlags2, ...)
+ local spellId, spellName, spellSchool, amount, school, resisted, blocked,
+ absorbed, critical, glancing, crushing = ...
+ local texture = select(3, GetSpellInfo(spellId))
+ local text = amount
+ local messsage = CombatLog_OnEvent(Blizzard_CombatLog_CurrentSettings,
+ timestamp, event, hideCaster, sourceGUID,
+ sourceName, sourceFlags, sourceFlags2,
+ destGUID, destName, destFlags,
+ destFlags2, ...)
+
+ -- reflected events
+ if (self.ReflectTarget == sourceName and sourceName == destName and
+ self.ReflectSkill == spellName) then
+ local text = string_format("%s: %d", REFLECT, shortenValue(amount))
+ if (critical) then text = critchar .. text .. critchar end
+ self:DisplayEvent(OUTGOING, text, texture,
+ self:SpellColor(db["TSPELL"], SCHOOL_STRINGS[school]),
+ messsage, spellName)
+ self:ClearReflect()
+ end
end
-------------------------
---Set last reflection
+-- Set last reflection
function EavesDrop:SetReflect(target, skill)
- self.ReflectTarget = target
- self.ReflectSkill = skill
- --clear reflection after 3 seconds.
- self:ScheduleTimer(self.ClearReflect, 3, self)
+ self.ReflectTarget = target
+ self.ReflectSkill = skill
+ -- clear reflection after 3 seconds.
+ self:ScheduleTimer(self.ClearReflect, 3, self)
end
-------------------------
---Clear last reflection
+-- Clear last reflection
function EavesDrop:ClearReflect()
- self.ReflectTarget = nil
- self.ReflectSkill = nil
+ self.ReflectTarget = nil
+ self.ReflectSkill = nil
end
------------------------------
---Shorten a spell/buff
function EavesDrop:ShortenString(strString)
- if (db["TRUNCATETYPE"] ~= "0") and strlen(strString) > db["TRUNCATESIZE"] then
- if (db["TRUNCATETYPE"] == "1") then
- return strsub(strString, 1, db["TRUNCATESIZE"]).."..."
- elseif (db["TRUNCATETYPE"] == "2") then
- return gsub(gsub(gsub(strString," of ","O"),"%s",""), "(%u)%l*", "%1")
+ if (db["TRUNCATETYPE"] ~= "0") and strlen(strString) > db["TRUNCATESIZE"] then
+ if (db["TRUNCATETYPE"] == "1") then
+ return strsub(strString, 1, db["TRUNCATESIZE"]) .. "..."
+ elseif (db["TRUNCATETYPE"] == "2") then
+ return gsub(gsub(gsub(strString, " of ", "O"), "%s", ""), "(%u)%l*",
+ "%1")
+ end
+ else
+ return strString
end
- else
- return strString
- end
end
------------------------------
---Send Text to the editbox
function EavesDrop:SendToChat(text)
- local tmptext = cleanstring(text)
- if tmptext == "" then return end
- local edit_box = _G.ChatEdit_ChooseBoxForSend()
- if edit_box:IsShown() then
- edit_box:Insert(tmptext)
- else
- _G.ChatEdit_ActivateChat(edit_box)
- edit_box:Insert(tmptext)
- end
+ local tmptext = cleanstring(text)
+ if tmptext == "" then return end
+ local edit_box = _G.ChatEdit_ChooseBoxForSend()
+ if edit_box:IsShown() then
+ edit_box:Insert(tmptext)
+ else
+ _G.ChatEdit_ActivateChat(edit_box)
+ edit_box:Insert(tmptext)
+ end
end
------------------------------
---Show/Hide history frame
function EavesDrop:ShowHistory()
- if (not EavesDropHistoryFrame:IsShown()) then
- EavesDropHistoryFrame:Show()
- else
- EavesDropHistoryFrame:Hide()
- end
- PlaySound(SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON)
-end
\ No newline at end of file
+ if (not EavesDropHistoryFrame:IsShown()) then
+ EavesDropHistoryFrame:Show()
+ else
+ EavesDropHistoryFrame:Hide()
+ end
+ PlaySound(SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON)
+end
diff --git a/EavesDrop.toc b/EavesDrop.toc
index 5cdd547..a184ba0 100644
--- a/EavesDrop.toc
+++ b/EavesDrop.toc
@@ -1,12 +1,12 @@
-## Interface: 80000
-## Name: EavesDrop
+## Interface: 100200
## Title: EavesDrop
## Notes: A simple combat log that displays events similar to SCT
-## Version: 2.60
-## Author: Grayhoof (Edited by Domzae)
+## Version: 10.2.00
+## Author: Grayhoof (Edited by Domzae, Schoolias)
+## IconTexture: Interface\AddOns\Eavesdrop\media\textures\icon.blp
## SavedVariables: EavesDropDB
## SavedVariablesPerCharacter: EavesDropStatsDB
-## X-Website: http://grayhoof.wowinterface.com/
+## X-Website: http://github.com/vbhayden/Eavesdrop
## X-Category: Combat
## X-RelSite-WoWI: 5332
## X-Embeds: Ace3, LibSharedMedia-3.0
@@ -17,11 +17,10 @@
## X-Curse-Repository-ID: wow/eaves-drop/mainline
embeds.xml
-
+templates.xml
locals\localization-enUS.lua
locals\localization-koKR.lua
locals\localization-zhCN.lua
EavesDrop.lua
EavesDropStats.lua
options.lua
-EavesDrop.xml
diff --git a/EavesDropStats.lua b/EavesDropStats.lua
index be9e547..6bfe7c0 100644
--- a/EavesDropStats.lua
+++ b/EavesDropStats.lua
@@ -174,10 +174,12 @@ function EavesDrop:SetupHistory()
EavesDropHistoryFrameSkillText:SetText(L["Skill"])
EavesDropHistoryFrameAmountCritText:SetText(L["Crit"])
EavesDropHistoryFrameAmountNormalText:SetText(L["Normal"])
+
r,g,b,a = db["LABELC"].r, db["LABELC"].g, db["LABELC"].b, db["LABELC"].a
EavesDropHistoryFrameSkillText:SetTextColor(r,g,b,a)
EavesDropHistoryFrameAmountCritText:SetTextColor(r,g,b,a)
EavesDropHistoryFrameAmountNormalText:SetTextColor(r,g,b,a)
+
--Buttons
EavesDropHistoryFrameOutgoingHit.tooltipText = L["OutgoingDamage"]
EavesDropHistoryFrameOutgoingHeal.tooltipText = L["OutgoingHeals"]
@@ -185,11 +187,17 @@ function EavesDrop:SetupHistory()
EavesDropHistoryFrameIncomingHeal.tooltipText = L["IncomingHeals"]
EavesDropHistoryButton.tooltipText = L["History"]
EavesDropHistoryFrameResetText:SetText(L["Reset"])
+
--Frame
- local r,g,b,a = db["FRAME"].r, db["FRAME"].g, db["FRAME"].b, db["FRAME"].a
- EavesDropHistoryFrame:SetBackdropColor(r, g, b, a)
- EavesDropHistoryTopBar:SetGradientAlpha("VERTICAL", r*.1, g*.1, b*.1, 0, r*.2, g*.2, b*.2, a)
- EavesDropHistoryBottomBar:SetGradientAlpha("VERTICAL", r*.2, g*.2, b*.2, a, r*.1, g*.1, b*.1, 0)
+ local frameColor = db["FRAME"]
+ EavesDropHistoryFrame:SetBackdropColor(frameColor.r, frameColor.g, frameColor.b, frameColor.a)
+
+ -- TODO
+ local outerColor = CreateColor(r * .1, g * .1, b * .1, 0)
+ local innerColor = CreateColor(r * .2, g * .2, b * .2, a)
+ EavesDropHistoryTopBar:SetGradient("VERTICAL", outerColor, innerColor)
+ EavesDropHistoryBottomBar:SetGradient("VERTICAL", innerColor, outerColor)
+
r,g,b,a = db["BORDER"].r, db["BORDER"].g, db["BORDER"].b, db["BORDER"].a
EavesDropHistoryFrame:SetBackdropBorderColor(r, g, b, a)
--position frame (have to schedule cause UI scale is still 1 for some reason during init)
diff --git a/embeds.xml b/embeds.xml
index 9b478d2..206ca07 100644
--- a/embeds.xml
+++ b/embeds.xml
@@ -12,5 +12,6 @@
+
\ No newline at end of file
diff --git a/libs/AceAddon-3.0/AceAddon-3.0.lua b/libs/AceAddon-3.0/AceAddon-3.0.lua
index a7f7279..f392a21 100644
--- a/libs/AceAddon-3.0/AceAddon-3.0.lua
+++ b/libs/AceAddon-3.0/AceAddon-3.0.lua
@@ -6,31 +6,31 @@
-- * **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,
+-- -- 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,
+-- -- 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
+-- -- 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
+-- -- 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 1084 2013-04-27 20:14:11Z nevcairiel $
+-- @release $Id: AceAddon-3.0.lua 1284 2022-09-25 09:15:30Z nevcairiel $
-local MAJOR, MINOR = "AceAddon-3.0", 12
+local MAJOR, MINOR = "AceAddon-3.0", 13
local AceAddon, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
if not AceAddon then return end -- No Upgrade needed.
@@ -49,10 +49,6 @@ 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
]]
@@ -62,43 +58,12 @@ local function errorhandler(err)
return geterrorhandler()(err)
end
-local function CreateDispatcher(argCount)
- local code = [[
- local xpcall, eh = ...
- local method, ARGS
- local function call() return method(ARGS) end
-
- local function dispatch(func, ...)
- method = func
- if not method then return end
- ARGS = ...
- return xpcall(call, eh)
- end
-
- return dispatch
- ]]
-
- local ARGS = {}
- for i = 1, argCount do ARGS[i] = "arg"..i end
- code = code:gsub("ARGS", tconcat(ARGS, ", "))
- return assert(loadstring(code, "safecall Dispatcher["..argCount.."]"))(xpcall, errorhandler)
-end
-
-local Dispatchers = setmetatable({}, {__index=function(self, argCount)
- local dispatcher = CreateDispatcher(argCount)
- rawset(self, argCount, dispatcher)
- return dispatcher
-end})
-Dispatchers[0] = function(func)
- return xpcall(func, errorhandler)
-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 Dispatchers[select('#', ...)](func, ...)
+ return xpcall(func, errorhandler, ...)
end
end
@@ -106,7 +71,7 @@ end
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
+local function addontostring( self ) return self.name end
-- Check if the addon is queued for initialization
local function queuedForInitialization(addon)
@@ -119,14 +84,14 @@ local function queuedForInitialization(addon)
end
--- Create a new AceAddon-3.0 addon.
--- Any libraries you specified will be embeded, and the addon will be scheduled for
+-- 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
+-- @usage
-- -- Create a simple addon object
-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon", "AceEvent-3.0")
--
@@ -146,10 +111,10 @@ function AceAddon:NewAddon(objectorname, ...)
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
+ 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
@@ -159,7 +124,7 @@ function AceAddon:NewAddon(objectorname, ...)
for k, v in pairs(oldmeta) do addonmeta[k] = v end
end
addonmeta.__tostring = addontostring
-
+
setmetatable( object, addonmeta )
self.addons[name] = object
object.modules = {}
@@ -167,7 +132,7 @@ function AceAddon:NewAddon(objectorname, ...)
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
@@ -178,7 +143,7 @@ end
-- 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
+-- @usage
-- -- Get the Addon
-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
function AceAddon:GetAddon(name, silent)
@@ -233,7 +198,7 @@ end
-- @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
+-- @usage
-- -- Get the Addon
-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
-- -- Get the Module
@@ -256,23 +221,23 @@ local function IsModuleTrue(self) return true end
-- @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
+-- @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
@@ -287,24 +252,24 @@ function NewModule(self, name, prototype, ...)
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
+-- @paramsig
+-- @usage
-- print(MyAddon:GetName())
-- -- prints "MyAddon"
function GetName(self)
@@ -316,8 +281,8 @@ end
-- and enabling all modules of the addon (unless explicitly disabled).\\
-- :Enable() also sets the internal `enableState` variable to true
-- @name //addon//:Enable
--- @paramsig
--- @usage
+-- @paramsig
+-- @usage
-- -- Enable MyModule
-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
-- MyModule = MyAddon:GetModule("MyModule")
@@ -337,8 +302,8 @@ end
-- and disabling all modules of the addon.\\
-- :Disable() also sets the internal `enableState` variable to false
-- @name //addon//:Disable
--- @paramsig
--- @usage
+-- @paramsig
+-- @usage
-- -- Disable MyAddon
-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
-- MyAddon:Disable()
@@ -351,7 +316,7 @@ end
-- Short-hand function that retrieves the module via `:GetModule` and calls `:Enable` on the module object.
-- @name //addon//:EnableModule
-- @paramsig name
--- @usage
+-- @usage
-- -- Enable MyModule using :GetModule
-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
-- MyModule = MyAddon:GetModule("MyModule")
@@ -369,7 +334,7 @@ end
-- Short-hand function that retrieves the module via `:GetModule` and calls `:Disable` on the module object.
-- @name //addon//:DisableModule
-- @paramsig name
--- @usage
+-- @usage
-- -- Disable MyModule using :GetModule
-- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
-- MyModule = MyAddon:GetModule("MyModule")
@@ -388,7 +353,7 @@ end
-- @name //addon//:SetDefaultModuleLibraries
-- @paramsig lib[, lib, ...]
-- @param lib List of libraries to embed into the addon
--- @usage
+-- @usage
-- -- Create the addon object
-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon")
-- -- Configure default libraries for modules (all modules need AceEvent-3.0)
@@ -407,7 +372,7 @@ end
-- @name //addon//:SetDefaultModuleState
-- @paramsig state
-- @param state Default state for new modules, true for enabled, false for disabled
--- @usage
+-- @usage
-- -- Create the addon object
-- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon")
-- -- Set the default state to "disabled"
@@ -427,7 +392,7 @@ end
-- @name //addon//:SetDefaultModulePrototype
-- @paramsig prototype
-- @param prototype Default prototype for the new modules (table)
--- @usage
+-- @usage
-- -- Define a prototype
-- local prototype = { OnEnable = function(self) print("OnEnable called!") end }
-- -- Set the default prototype
@@ -459,8 +424,8 @@ end
--- Return an iterator of all modules associated to the addon.
-- @name //addon//:IterateModules
--- @paramsig
--- @usage
+-- @paramsig
+-- @usage
-- -- Enable all modules
-- for name, module in MyAddon:IterateModules() do
-- module:Enable()
@@ -469,13 +434,13 @@ local function IterateModules(self) return pairs(self.modules) end
-- Returns an iterator of all embeds in the addon
-- @name //addon//:IterateEmbeds
--- @paramsig
+-- @paramsig
local function IterateEmbeds(self) return pairs(AceAddon.embeds[self]) end
--- Query the enabledState of an addon.
-- @name //addon//:IsEnabled
--- @paramsig
--- @usage
+-- @paramsig
+-- @usage
-- if MyAddon:IsEnabled() then
-- MyAddon:Disable()
-- end
@@ -520,20 +485,20 @@ 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),
+-- 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
@@ -541,7 +506,7 @@ 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),
+-- 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.
--
@@ -551,12 +516,12 @@ end
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]
@@ -564,7 +529,7 @@ function AceAddon:EnableAddon(addon)
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
@@ -576,24 +541,24 @@ end
-- - Disable the addon
-- Note: This function is only used internally.
--- It will call the **OnDisable** function on the addon object (if present),
+-- 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.
+-- **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
+ if not self.statuses[addon.name] then
local embeds = self.embeds[addon]
for i = 1, #embeds do
local lib = LibStub:GetLibrary(embeds[i], true)
@@ -605,12 +570,12 @@ function AceAddon:DisableAddon(addon)
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
+-- @usage
-- -- Print a list of all installed AceAddon's
-- for name, addon in AceAddon:IterateAddons() do
-- print("Addon: " .. name)
@@ -618,7 +583,7 @@ end
function AceAddon:IterateAddons() return pairs(self.addons) end
--- Get an iterator over the internal status registry.
--- @usage
+-- @usage
-- -- Print a list of all enabled addons
-- for name, status in AceAddon:IterateAddonStatus() do
-- if status then
@@ -632,10 +597,20 @@ function AceAddon:IterateAddonStatus() return pairs(self.statuses) end
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)
- -- 2011-08-17 nevcairiel - ignore the load event of Blizzard_DebugTools, so a potential startup error isn't swallowed up
- if (event == "ADDON_LOADED" and arg1 ~= "Blizzard_DebugTools") or event == "PLAYER_LOGIN" then
+ -- 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)
@@ -644,7 +619,7 @@ local function onEvent(this, event, arg1)
AceAddon:InitializeAddon(addon)
tinsert(AceAddon.enablequeue, addon)
end
-
+
if IsLoggedIn() then
while(#AceAddon.enablequeue > 0) do
local addon = tremove(AceAddon.enablequeue, 1)
diff --git a/libs/AceAddon-3.0/AceAddon-3.0.xml b/libs/AceAddon-3.0/AceAddon-3.0.xml
index e6ad639..dcf24c7 100644
--- a/libs/AceAddon-3.0/AceAddon-3.0.xml
+++ b/libs/AceAddon-3.0/AceAddon-3.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/AceConfig-3.0/AceConfig-3.0.lua b/libs/AceConfig-3.0/AceConfig-3.0.lua
index 3bedf8c..5071cdc 100644
--- a/libs/AceConfig-3.0/AceConfig-3.0.lua
+++ b/libs/AceConfig-3.0/AceConfig-3.0.lua
@@ -3,7 +3,7 @@
-- as well as associate it with a slash command.
-- @class file
-- @name AceConfig-3.0
--- @release $Id: AceConfig-3.0.lua 969 2010-10-07 02:11:48Z shefki $
+-- @release $Id: AceConfig-3.0.lua 1202 2019-05-15 23:11:22Z nevcairiel $
--[[
AceConfig-3.0
@@ -12,13 +12,14 @@ Very light wrapper library that combines all the AceConfig subcomponents into on
]]
-local MAJOR, MINOR = "AceConfig-3.0", 2
+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
-local cfgreg = LibStub("AceConfigRegistry-3.0")
-local cfgcmd = LibStub("AceConfigCmd-3.0")
--TODO: local cfgdlg = LibStub("AceConfigDialog-3.0", true)
--TODO: local cfgdrp = LibStub("AceConfigDropdown-3.0", true)
@@ -44,7 +45,7 @@ local pcall, error, type, pairs = pcall, error, type, pairs
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
diff --git a/libs/AceConfig-3.0/AceConfig-3.0.xml b/libs/AceConfig-3.0/AceConfig-3.0.xml
index 87972ad..a3569b7 100644
--- a/libs/AceConfig-3.0/AceConfig-3.0.xml
+++ b/libs/AceConfig-3.0/AceConfig-3.0.xml
@@ -5,4 +5,4 @@
-
\ No newline at end of file
+
diff --git a/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.lua b/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.lua
index 2023981..6dd6438 100644
--- a/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.lua
+++ b/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.lua
@@ -1,7 +1,7 @@
--- 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 1045 2011-12-09 17:58:40Z nevcairiel $
+-- @release $Id: AceConfigCmd-3.0.lua 1284 2022-09-25 09:15:30Z nevcairiel $
--[[
AceConfigCmd-3.0
@@ -14,8 +14,9 @@ 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", 13
+local MAJOR, MINOR = "AceConfigCmd-3.0", 14
local AceConfigCmd = LibStub:NewLibrary(MAJOR, MINOR)
if not AceConfigCmd then return end
@@ -23,7 +24,6 @@ if not AceConfigCmd then return end
AceConfigCmd.commands = AceConfigCmd.commands or {}
local commands = AceConfigCmd.commands
-local cfgreg = LibStub("AceConfigRegistry-3.0")
local AceConsole -- LoD
local AceConsoleName = "AceConsole-3.0"
@@ -37,17 +37,10 @@ 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
@@ -63,7 +56,7 @@ local funcmsg = "expected function or member name"
-- pickfirstset() - picks the first non-nil value and returns it
-local function pickfirstset(...)
+local function pickfirstset(...)
for i=1,select("#",...) do
if select(i,...)~=nil then
return select(i,...)
@@ -120,7 +113,7 @@ local function callfunction(info, tab, methodtype, ...)
info.arg = tab.arg
info.option = tab
info.type = tab.type
-
+
if type(method)=="function" then
return method(info, ...)
else
@@ -131,7 +124,7 @@ 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
+ if info.validate then
local res = callmethod(info,inputpos,tab,"validate",...)
if type(res)=="string" then
usererr(info, inputpos, "'"..strsub(info.input, inputpos).."' - "..res)
@@ -139,7 +132,7 @@ local function do_final(info, inputpos, tab, methodtype, ...)
end
end
-- console ignores .confirm
-
+
callmethod(info,inputpos,tab,methodtype, ...)
end
@@ -152,8 +145,8 @@ local function getparam(info, inputpos, tab, depth, paramname, types, errormsg)
if val~=nil then
if val==false then
val=nil
- elseif not types[type(val)] then
- err(info, inputpos, "'" .. paramname.. "' - "..errormsg)
+ elseif not types[type(val)] then
+ err(info, inputpos, "'" .. paramname.. "' - "..errormsg)
end
info[paramname] = val
info[paramname.."_at"] = depth
@@ -166,13 +159,13 @@ end
local dummytable={}
local function iterateargs(tab)
- if not tab.plugins then
- return pairs(tab.args)
+ 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)
@@ -206,18 +199,18 @@ 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)
+
+ 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
@@ -240,7 +233,7 @@ local function showhelp(info, inputpos, tab, depth, noHead)
if o1==o2 then return tostring(one)optiontable
+-- 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)
@@ -346,16 +339,16 @@ local function handle(info, inputpos, tab, depth, retfalse)
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
@@ -363,11 +356,11 @@ local function handle(info, inputpos, tab, depth, retfalse)
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
@@ -383,8 +376,8 @@ local function handle(info, inputpos, tab, depth, retfalse)
return handle(info,nextpos,v,depth+1)
end
end
-
- -- no match
+
+ -- no match
if retfalse then
-- restore old infotable members and return false to indicate failure
info.handler,info.handler_at = oldhandler,oldhandler_at
@@ -395,40 +388,40 @@ local function handle(info, inputpos, tab, depth, retfalse)
--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);
-
+
+ local strInput = 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"])
+ if type(tab.pattern)~="string" then err(info, inputpos, "'pattern' - expected a string") end
+ if not strmatch(strInput, tab.pattern) then
+ usererr(info, inputpos, "'"..strInput.."' - " .. L["invalid input"])
return
end
end
-
- do_final(info, inputpos, tab, "set", str)
-
-
+ do_final(info, inputpos, tab, "set", strInput)
+
+
+
elseif tab.type=="toggle" then
------------ toggle --------------------------------------------
local b
- local str = strtrim(strlower(str))
+ local str = strtrim(strlower(strInput))
if str=="" then
b = callmethod(info, inputpos, tab, "get")
@@ -444,7 +437,7 @@ local function handle(info, inputpos, tab, depth, retfalse)
else
b = not b
end
-
+
elseif str==L["on"] then
b = true
elseif str==L["off"] then
@@ -459,15 +452,15 @@ local function handle(info, inputpos, tab, depth, retfalse)
end
return
end
-
+
do_final(info, inputpos, tab, "set", b)
-
+
elseif tab.type=="range" then
------------ range --------------------------------------------
- local val = tonumber(str)
+ local val = tonumber(strInput)
if not val then
- usererr(info, inputpos, "'"..str.."' - "..L["expected number"])
+ usererr(info, inputpos, "'"..strInput.."' - "..L["expected number"])
return
end
if type(info.step)=="number" then
@@ -481,21 +474,21 @@ local function handle(info, inputpos, tab, depth, retfalse)
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 str = strtrim(strlower(strInput))
+
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"
@@ -512,7 +505,7 @@ local function handle(info, inputpos, tab, depth, retfalse)
end
local ok
- for k,v in pairs(values) do
+ for k,v in pairs(values) do
if strlower(k)==str then
str = k -- overwrite with key (in case of case mismatches)
ok = true
@@ -523,20 +516,20 @@ local function handle(info, inputpos, tab, depth, retfalse)
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 str = strtrim(strlower(strInput))
+
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"
@@ -550,7 +543,7 @@ local function handle(info, inputpos, tab, depth, retfalse)
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
@@ -559,25 +552,25 @@ local function handle(info, inputpos, tab, depth, retfalse)
--parse option=on etc
local opt, val = v:match('(.+)=(.+)')
--get option if toggling
- if not opt then
- opt = v
+ if not opt then
+ opt = v
end
-
+
--check that the opt is valid
local ok
- for k,v in pairs(values) do
+ for k 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
@@ -596,14 +589,14 @@ local function handle(info, inputpos, tab, depth, retfalse)
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
@@ -627,28 +620,28 @@ local function handle(info, inputpos, tab, depth, retfalse)
newval = nil
end
end
-
+
do_final(info, inputpos, tab, "set", opt, newval)
end
-
-
+
+
elseif tab.type=="color" then
------------ color --------------------------------------------
- local str = strtrim(strlower(str))
+ local str = strtrim(strlower(strInput))
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
@@ -662,7 +655,7 @@ local function handle(info, inputpos, tab, depth, retfalse)
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
@@ -701,12 +694,12 @@ local function handle(info, inputpos, tab, depth, retfalse)
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))
+ local str = strtrim(strlower(strInput))
if str == "" then
--TODO: Show current value
return
@@ -737,7 +730,7 @@ end
-- 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
@@ -754,7 +747,7 @@ function AceConfigCmd:HandleCommand(slashcmd, appName, input)
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,
@@ -765,7 +758,7 @@ function AceConfigCmd:HandleCommand(slashcmd, appName, input)
uiType = "cmd",
uiName = MAJOR,
}
-
+
handle(info, 1, options, 0) -- (info, inputpos, table, depth)
end
diff --git a/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.xml b/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.xml
index 188d354..9e157b5 100644
--- a/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.xml
+++ b/libs/AceConfig-3.0/AceConfigCmd-3.0/AceConfigCmd-3.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua b/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua
index 3612fe8..4649c73 100644
--- a/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua
+++ b/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua
@@ -1,10 +1,13 @@
--- 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 1139 2016-07-03 07:43:51Z nevcairiel $
+-- @release $Id: AceConfigDialog-3.0.lua 1292 2022-09-29 08:00:11Z nevcairiel $
local LibStub = LibStub
-local MAJOR, MINOR = "AceConfigDialog-3.0", 61
+local gui = LibStub("AceGUI-3.0")
+local reg = LibStub("AceConfigRegistry-3.0")
+
+local MAJOR, MINOR = "AceConfigDialog-3.0", 85
local AceConfigDialog, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
if not AceConfigDialog then return end
@@ -12,28 +15,20 @@ 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 {}
-local gui = LibStub("AceGUI-3.0")
-local reg = LibStub("AceConfigRegistry-3.0")
-
-- Lua APIs
-local tconcat, tinsert, tsort, tremove, tsort = table.concat, table.insert, table.sort, table.remove, table.sort
+local tinsert, tsort, tremove, wipe = table.insert, table.sort, table.remove, table.wipe
local strmatch, format = string.match, string.format
-local assert, loadstring, error = assert, loadstring, error
-local pairs, next, select, type, unpack, wipe, ipairs = pairs, next, select, type, unpack, wipe, ipairs
-local rawset, tostring, tonumber = rawset, tostring, tonumber
+local error = error
+local pairs, next, select, type, unpack, ipairs = pairs, next, select, type, unpack, 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, GameTooltip, StaticPopupDialogs, ACCEPT, CANCEL, StaticPopup_Show
--- GLOBALS: PlaySound, GameFontHighlight, GameFontHighlightSmall, GameFontHighlightLarge
--- GLOBALS: CloseSpecialWindows, InterfaceOptions_AddCategory, geterrorhandler
-
local emptyTbl = {}
--[[
@@ -45,39 +40,10 @@ local function errorhandler(err)
return geterrorhandler()(err)
end
-local function CreateDispatcher(argCount)
- local code = [[
- local xpcall, eh = ...
- local method, ARGS
- local function call() return method(ARGS) end
-
- local function dispatch(func, ...)
- method = func
- if not method then return end
- ARGS = ...
- return xpcall(call, eh)
- end
-
- return dispatch
- ]]
-
- local ARGS = {}
- for i = 1, argCount do ARGS[i] = "arg"..i end
- code = code:gsub("ARGS", tconcat(ARGS, ", "))
- return assert(loadstring(code, "safecall Dispatcher["..argCount.."]"))(xpcall, errorhandler)
-end
-
-local Dispatchers = setmetatable({}, {__index=function(self, argCount)
- local dispatcher = CreateDispatcher(argCount)
- rawset(self, argCount, dispatcher)
- return dispatcher
-end})
-Dispatchers[0] = function(func)
- return xpcall(func, errorhandler)
-end
-
local function safecall(func, ...)
- return Dispatchers[select("#", ...)](func, ...)
+ if func then
+ return xpcall(func, errorhandler, ...)
+ end
end
local width_multiplier = 170
@@ -85,18 +51,18 @@ 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
+ - 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
+ - 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
+ - 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
]]
@@ -197,11 +163,11 @@ local allIsLiteral = {
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
@@ -216,22 +182,21 @@ local function GetOptionsMemberValue(membername, option, options, path, appName,
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
-
+ local handler = group.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
@@ -241,8 +206,8 @@ local function GetOptionsMemberValue(membername, option, options, path, appName,
info.type = option.type
info.uiType = "dialog"
info.uiName = MAJOR
-
- local a, b, c ,d
+
+ 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
@@ -259,8 +224,8 @@ local function GetOptionsMemberValue(membername, option, options, path, appName,
return a,b,c,d
else
--The value isnt a function to call, return it
- return member
- end
+ return member
+ end
end
--[[calls an options function that could be inherited, method name or function ref
@@ -325,7 +290,7 @@ local function compareOptions(a,b)
return NameA:upper() < NameB:upper()
end
if OrderA < 0 then
- if OrderB > 0 then
+ if OrderB >= 0 then
return false
end
else
@@ -344,7 +309,7 @@ end
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
@@ -360,7 +325,7 @@ local function BuildSortedOptionsTable(group, keySort, opts, options, path, appN
end
end
end
-
+
for k, v in pairs(group.args) do
if not opts[k] then
tinsert(keySort, k)
@@ -391,7 +356,7 @@ local function DelTree(tree)
end
local function CleanUserData(widget, event)
-
+
local user = widget:GetUserDataTable()
if user.path then
@@ -431,7 +396,7 @@ 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
+-- @return
function AceConfigDialog:GetStatusTable(appName, path)
local status = self.Status
@@ -465,7 +430,7 @@ end
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)
@@ -477,9 +442,9 @@ function AceConfigDialog:SelectGroup(appName, ...)
status.groups = {}
end
status = status.groups
- local treevalue
- local treestatus
-
+ local treevalue
+ local treestatus
+
for n = 1, select("#",...) do
local key = select(n, ...)
@@ -506,12 +471,12 @@ function AceConfigDialog:SelectGroup(appName, ...)
--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
+ if not group then
break
end
tinsert(path, key)
@@ -521,10 +486,10 @@ function AceConfigDialog:SelectGroup(appName, ...)
end
status = status.groups
end
-
+
del(path)
reg:NotifyChange(appName)
-end
+end
local function OptionOnMouseOver(widget, event)
--show a tooltip/set the status bar to the desc text
@@ -533,82 +498,152 @@ local function OptionOnMouseOver(widget, event)
local options = user.options
local path = user.path
local appName = user.appName
+ local tooltip = AceConfigDialog.tooltip
- GameTooltip:SetOwner(widget.frame, "ANCHOR_TOPRIGHT")
+ 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
-
- GameTooltip:SetText(name, 1, .82, 0, true)
-
+
+ tooltip:SetText(name, 1, .82, 0, true)
+
if opt.type == "multiselect" then
- GameTooltip:AddLine(user.text, 0.5, 0.5, 0.8, true)
- end
+ tooltip:AddLine(user.text, 0.5, 0.5, 0.8, true)
+ end
if type(desc) == "string" then
- GameTooltip:AddLine(desc, 1, 1, 1, true)
+ tooltip:AddLine(desc, 1, 1, 1, true)
end
if type(usage) == "string" then
- GameTooltip:AddLine("Usage: "..usage, NORMAL_FONT_COLOR.r, NORMAL_FONT_COLOR.g, NORMAL_FONT_COLOR.b, true)
+ tooltip:AddLine("Usage: "..usage, NORMAL_FONT_COLOR.r, NORMAL_FONT_COLOR.g, NORMAL_FONT_COLOR.b, true)
end
- GameTooltip:Show()
+ tooltip:Show()
end
local function OptionOnMouseLeave(widget, event)
- GameTooltip:Hide()
+ AceConfigDialog.tooltip:Hide()
end
local function GetFuncName(option)
- local type = option.type
- if type == "execute" then
+ if option.type == "execute" then
return "func"
else
return "set"
end
end
+do
+ local frame = AceConfigDialog.popup
+ if not frame or oldminor < 81 then
+ frame = CreateFrame("Frame", nil, UIParent)
+ AceConfigDialog.popup = frame
+ frame:Hide()
+ frame:SetPoint("CENTER", UIParent, "CENTER")
+ frame:SetSize(320, 72)
+ frame:EnableMouse(true) -- Do not allow click-through on the frame
+ frame:SetFrameStrata("TOOLTIP")
+ frame:SetFrameLevel(100) -- Lots of room to draw under it
+ 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)
+
+ local border = CreateFrame("Frame", nil, frame, "DialogBorderOpaqueTemplate")
+ border:SetAllPoints(frame)
+ frame:SetFixedFrameStrata(true)
+ frame:SetFixedFrameLevel(true)
+
+ local text = frame:CreateFontString(nil, "ARTWORK", "GameFontHighlight")
+ text:SetSize(290, 0)
+ text:SetPoint("TOP", 0, -16)
+ frame.text = text
+
+ local function newButton(newText)
+ 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(newText)
+ 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, ...)
- if not StaticPopupDialogs["ACECONFIGDIALOG30_CONFIRM_DIALOG"] then
- StaticPopupDialogs["ACECONFIGDIALOG30_CONFIRM_DIALOG"] = {}
- end
- local t = StaticPopupDialogs["ACECONFIGDIALOG30_CONFIRM_DIALOG"]
- for k in pairs(t) do
- t[k] = nil
- end
- t.text = message
- t.button1 = ACCEPT
- t.button2 = CANCEL
- t.preferredIndex = STATICPOPUP_NUMDIALOGS
- local dialog, oldstrata
- t.OnAccept = function()
- safecall(func, unpack(t))
- if dialog and oldstrata then
- dialog:SetFrameStrata(oldstrata)
- end
+ 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
- t.OnCancel = function()
- if dialog and oldstrata then
- dialog:SetFrameStrata(oldstrata)
- end
+ 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
- for i = 1, select("#", ...) do
- t[i] = select(i, ...) or false
- end
- t.timeout = 0
- t.whileDead = 1
- t.hideOnEscape = 1
+ end)
+end
- dialog = StaticPopup_Show("ACECONFIGDIALOG30_CONFIRM_DIALOG")
- if dialog then
- oldstrata = dialog:GetFrameStrata()
- dialog:SetFrameStrata("TOOLTIP")
- 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, ...)
@@ -631,7 +666,7 @@ local function ActivateControl(widget, event, ...)
if group[funcname] ~= nil then
func = group[funcname]
end
- handler = group.handler or handler
+ handler = group.handler
confirm = group.confirm
validate = group.validate
for i = 1, #path do
@@ -679,7 +714,7 @@ local function ActivateControl(widget, event, ...)
end
end
end
-
+
local success
if validated and option.type ~= "execute" then
if type(validate) == "string" then
@@ -694,38 +729,31 @@ local function ActivateControl(widget, event, ...)
if not success then validated = false end
end
end
-
- local rootframe = user.rootframe
- if type(validated) == "string" then
- --validate function returned a message to display
- if rootframe.SetStatusText then
- rootframe:SetStatusText(validated)
- else
- -- TODO: do something else.
- end
- PlaySound("igPlayerInviteDecline")
- del(info)
- return true
- elseif not validated then
- --validate returned false
- if rootframe.SetStatusText then
+
+ if not validated or type(validated) == "string" then
+ if not validated then
if usage then
- rootframe:SetStatusText(name..": "..usage)
+ validated = name..": "..usage
else
if pattern then
- rootframe:SetStatusText(name..": Expected "..pattern)
+ validated = name..": Expected "..pattern
else
- rootframe:SetStatusText(name..": Invalid Value")
+ validated = name..": Invalid Value"
end
end
+ end
+
+ -- show validate message
+ if user.rootframe.SetStatusText then
+ user.rootframe:SetStatusText(validated)
else
- -- TODO: do something else
+ validationErrorPopup(validated)
end
- PlaySound("igPlayerInviteDecline")
+ 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
@@ -754,22 +782,22 @@ local function ActivateControl(widget, event, ...)
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)
+ local option_name, desc = option.name, option.desc
+ if type(option_name) == "function" then
+ option_name = option_name(info)
end
if type(desc) == "function" then
desc = desc(info)
end
- confirmText = name
+ confirmText = option_name
if desc then
confirmText = confirmText.." - "..desc
end
end
-
+
local iscustom = user.rootframe:GetUserData("iscustom")
local rootframe
-
+
if iscustom then
rootframe = user.rootframe
end
@@ -806,7 +834,7 @@ local function ActivateControl(widget, event, ...)
--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
@@ -867,7 +895,7 @@ end
local function MultiControlOnClosed(widget, event, ...)
local user = widget:GetUserDataTable()
- if user.valuechanged then
+ 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
@@ -1015,6 +1043,7 @@ local function BuildGroups(group, options, path, appName, recurse)
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
@@ -1044,6 +1073,23 @@ local function InjectInfo(control, options, option, path, rootframe, appName)
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
@@ -1075,7 +1121,7 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
else
GroupContainer = gui:Create("SimpleGroup")
end
-
+
GroupContainer.width = "fill"
GroupContainer:SetLayout("flow")
container:AddChild(GroupContainer)
@@ -1084,16 +1130,15 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
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)
-
- if type(image) == "string" or type(image) == "number" then
- control = gui:Create("Icon")
+
+ 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
@@ -1114,19 +1159,13 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
control:SetImageSize(width, height)
control:SetLabel(name)
else
- control = gui:Create("Button")
control:SetText(name)
end
control:SetCallback("OnClick",ActivateControl)
elseif v.type == "input" then
- local controlType = v.dialogControl or v.control or (v.multiline and "MultiLineEditBox") or "EditBox"
- control = gui:Create(controlType)
- if not control then
- geterrorhandler()(("Invalid Custom Control Type - %s"):format(tostring(controlType)))
- control = gui:Create(v.multiline and "MultiLineEditBox" or "EditBox")
- end
-
+ 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
@@ -1139,21 +1178,21 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
control:SetText(text)
elseif v.type == "toggle" then
- control = gui:Create("CheckBox")
+ 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))
@@ -1162,7 +1201,7 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
end
end
elseif v.type == "range" then
- control = gui:Create("Slider")
+ 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)
@@ -1176,6 +1215,7 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
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)
@@ -1186,12 +1226,14 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
control:PauseLayout()
local optionValue = GetOptionsMemberValue("get",v, options, path, appName)
- local t = {}
- for value, text in pairs(values) do
- t[#t+1]=value
+ if not sorting then
+ sorting = {}
+ for value, text in pairs(values) do
+ sorting[#sorting+1]=value
+ end
+ tsort(sorting, sortTblAsStrings)
end
- tsort(t)
- for k, value in ipairs(t) do
+ for _, value in ipairs(sorting) do
local text = values[value]
local radio = gui:Create("CheckBox")
radio:SetLabel(text)
@@ -1207,6 +1249,8 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
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
@@ -1216,19 +1260,14 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
control:ResumeLayout()
control:DoLayout()
else
- local controlType = v.dialogControl or v.control or "Dropdown"
- control = gui:Create(controlType)
- if not control then
- geterrorhandler()(("Invalid Custom Control Type - %s"):format(tostring(controlType)))
- control = gui:Create("Dropdown")
- end
+ 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, nil, itemType)
+ control:SetList(values, sorting, itemType)
local value = GetOptionsMemberValue("get",v, options, path, appName)
if not values[value] then
value = nil
@@ -1240,9 +1279,7 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
elseif v.type == "multiselect" then
local values = GetOptionsMemberValue("values", v, options, path, appName)
local disabled = CheckOptionDisabled(v, options, path, appName)
-
- local controlType = v.dialogControl or v.control
-
+
local valuesort = new()
if values then
for value, text in pairs(values) do
@@ -1250,7 +1287,8 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
end
end
tsort(valuesort)
-
+
+ local controlType = v.dialogControl or v.control
if controlType then
control = gui:Create(controlType)
if not control then
@@ -1269,14 +1307,16 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
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]
+ for s = 1, #valuesort do
+ local key = valuesort[s]
local value = GetOptionsMemberValue("get",v, options, path, appName, key)
control:SetItemValue(key,value)
end
@@ -1288,8 +1328,8 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
control:PauseLayout()
local width = GetOptionsMemberValue("width",v,options,path,appName)
- for i = 1, #valuesort do
- local value = valuesort[i]
+ for s = 1, #valuesort do
+ local value = valuesort[s]
local text = values[value]
local check = gui:Create("CheckBox")
check:SetLabel(text)
@@ -1305,6 +1345,8 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
check:SetWidth(width_multiplier * 2)
elseif width == "half" then
check:SetWidth(width_multiplier / 2)
+ elseif (type(width) == "number") then
+ check:SetWidth(width_multiplier * width)
elseif width == "full" then
check.width = "fill"
else
@@ -1314,13 +1356,13 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
control:ResumeLayout()
control:DoLayout()
-
+
end
-
+
del(valuesort)
elseif v.type == "color" then
- control = gui:Create("ColorPicker")
+ 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))
@@ -1328,20 +1370,20 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
control:SetCallback("OnValueConfirmed",ActivateControl)
elseif v.type == "keybinding" then
- control = gui:Create("Keybinding")
+ 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 = gui:Create("Heading")
+ control = CreateControl(v.dialogControl or v.control, "Heading")
control:SetText(name)
control.width = "fill"
elseif v.type == "description" then
- control = gui:Create("Label")
+ 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)
@@ -1350,10 +1392,10 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
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)
@@ -1374,8 +1416,8 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
end
control:SetImageSize(width, height)
end
- local width = GetOptionsMemberValue("width",v,options,path,appName)
- control.width = not width and "fill"
+ local controlWidth = GetOptionsMemberValue("width",v,options,path,appName)
+ control.width = not controlWidth and "fill"
end
--Common Init
@@ -1386,6 +1428,8 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
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
@@ -1400,7 +1444,7 @@ local function FeedOptions(appName, options,container,rootframe,path,group,inlin
InjectInfo(control, options, v, path, rootframe, appName)
container:AddChild(control)
end
-
+
end
end
tremove(path)
@@ -1425,7 +1469,8 @@ local function TreeOnButtonEnter(widget, event, uniquevalue, button)
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]
@@ -1440,49 +1485,50 @@ local function TreeOnButtonEnter(widget, event, uniquevalue, button)
local name = GetOptionsMemberValue("name", group, options, feedpath, appName)
local desc = GetOptionsMemberValue("desc", group, options, feedpath, appName)
-
- GameTooltip:SetOwner(button, "ANCHOR_NONE")
+
+ tooltip:SetOwner(button, "ANCHOR_NONE")
+ tooltip:ClearAllPoints()
if widget.type == "TabGroup" then
- GameTooltip:SetPoint("BOTTOM",button,"TOP")
+ tooltip:SetPoint("BOTTOM",button,"TOP")
else
- GameTooltip:SetPoint("LEFT",button,"RIGHT")
+ tooltip:SetPoint("LEFT",button,"RIGHT")
end
- GameTooltip:SetText(name, 1, .82, 0, true)
-
+ tooltip:SetText(name, 1, .82, 0, true)
+
if type(desc) == "string" then
- GameTooltip:AddLine(desc, 1, 1, 1, true)
+ tooltip:AddLine(desc, 1, 1, 1, true)
end
-
- GameTooltip:Show()
+
+ tooltip:Show()
end
local function TreeOnButtonLeave(widget, event, value, button)
- GameTooltip:Hide()
+ 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
+
+ if not group or group.type ~= "group" or CheckOptionHidden(group, options, temppath, appName) then
del(feedpath)
del(temppath)
- return false
+ return false
end
end
del(feedpath)
@@ -1505,10 +1551,6 @@ local function GroupSelected(widget, event, uniquevalue)
end
BuildPath(feedpath, ("\001"):split(uniquevalue))
- local group = options
- for i = 1, #feedpath do
- group = GetSubOption(group, feedpath[i])
- end
widget:ReleaseChildren()
AceConfigDialog:FeedGroup(user.appName,options,widget,rootframe,feedpath)
@@ -1605,7 +1647,7 @@ function AceConfigDialog:FeedGroup(appName,options,container,rootframe,path, isR
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 = {}
@@ -1625,34 +1667,34 @@ function AceConfigDialog:FeedGroup(appName,options,container,rootframe,path, isR
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 selectGroup = gui:Create("DropdownGroup")
+ selectGroup:SetTitle(name)
+ InjectInfo(selectGroup, options, group, path, rootframe, appName)
+ selectGroup:SetCallback("OnGroupSelected", GroupSelected)
local status = AceConfigDialog:GetStatusTable(appName, path)
if not status.groups then
status.groups = {}
end
- select:SetStatusTable(status.groups)
+ selectGroup:SetStatusTable(status.groups)
local grouplist, orderlist = BuildSelect(group, options, path, appName)
- select:SetGroupList(grouplist, orderlist)
- select:SetUserData("grouplist", grouplist)
- select:SetUserData("orderlist", orderlist)
+ selectGroup:SetGroupList(grouplist, orderlist)
+ selectGroup:SetUserData("grouplist", grouplist)
+ selectGroup: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)
+ selectGroup:SetGroup((GroupExists(appName, options, path,status.groups.selected) and status.groups.selected) or firstgroup)
end
-
- select.width = "fill"
- select.height = "fill"
- container:AddChild(select)
+ selectGroup.width = "fill"
+ selectGroup.height = "fill"
+
+ container:AddChild(selectGroup)
--assume tree group by default
--if parenttype is tree then this group is already a node on that tree
@@ -1660,14 +1702,14 @@ function AceConfigDialog:FeedGroup(appName,options,container,rootframe,path, isR
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 = {}
@@ -1708,7 +1750,7 @@ local function RefreshOnUpdate(this)
end
this.closing[appName] = nil
end
-
+
if this.closeAll then
for k, v in pairs(AceConfigDialog.OpenFrames) do
if not this.closeAllOverride[k] then
@@ -1718,7 +1760,7 @@ local function RefreshOnUpdate(this)
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()
@@ -1803,10 +1845,10 @@ function AceConfigDialog:Open(appName, container, ...)
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
@@ -1816,7 +1858,7 @@ function AceConfigDialog:Open(appName, container, ...)
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
@@ -1824,7 +1866,7 @@ function AceConfigDialog:Open(appName, container, ...)
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
@@ -1880,13 +1922,13 @@ 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 = {}
+ local newOpt = {}
for key, widget in pairs(old) do
local appName = widget:GetUserData("appName")
- if not new[appName] then new[appName] = {} end
- new[appName][key] = widget
+ if not newOpt[appName] then newOpt[appName] = {} end
+ newOpt[appName][key] = widget
end
- AceConfigDialog.BlizOptions = new
+ AceConfigDialog.BlizOptions = newOpt
else
AceConfigDialog.BlizOptions = AceConfigDialog.BlizOptions or {}
end
@@ -1918,23 +1960,23 @@ end
-- @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.
+-- @return The reference to the frame registered into the Interface Options.
+-- @return The category ID to pass to Settings.OpenToCategory (or InterfaceOptionsFrame_OpenToCategory)
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)
@@ -1947,8 +1989,30 @@ function AceConfigDialog:AddToBlizOptions(appName, name, parent, ...)
end
group:SetCallback("OnShow", FeedToBlizPanel)
group:SetCallback("OnHide", ClearBlizPanel)
- InterfaceOptions_AddCategory(group.frame)
- return group.frame
+ if Settings and Settings.RegisterCanvasLayoutCategory then
+ local categoryName = name or appName
+ if parent then
+ local category = Settings.GetCategory(parent)
+ if not category then
+ error(("The parent category '%s' was not found"):format(parent), 2)
+ end
+ local subcategory = Settings.RegisterCanvasLayoutSubcategory(category, group.frame, categoryName)
+
+ -- force the generated ID to be used for subcategories, as these can have very simple names like "Profiles"
+ group:SetName(subcategory.ID, parent)
+ else
+ local category = Settings.RegisterCanvasLayoutCategory(group.frame, categoryName)
+ -- using appName here would be cleaner, but would not be 100% compatible
+ -- but for top-level categories it should be fine, as these are typically addon names
+ category.ID = categoryName
+ group:SetName(categoryName, parent)
+ Settings.RegisterAddOnCategory(category)
+ end
+ else
+ group:SetName(name or appName, parent)
+ InterfaceOptions_AddCategory(group.frame)
+ end
+ return group.frame, group.frame.name
else
error(("%s has already been added to the Blizzard Options Window with the given path"):format(appName), 2)
end
diff --git a/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.xml b/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.xml
index 86ce057..8e1e606 100644
--- a/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.xml
+++ b/libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.lua b/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.lua
index cf81973..f8d9225 100644
--- a/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.lua
+++ b/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.lua
@@ -4,20 +4,20 @@
-- * 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 1139 2016-07-03 07:43:51Z nevcairiel $
-local MAJOR, MINOR = "AceConfigRegistry-3.0", 16
+-- @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 {}
-local CallbackHandler = LibStub:GetLibrary("CallbackHandler-1.0")
-
if not AceConfigRegistry.callbacks then
AceConfigRegistry.callbacks = CallbackHandler:New(AceConfigRegistry)
end
@@ -33,7 +33,7 @@ local error, assert = error, assert
AceConfigRegistry.validated = {
- -- list of options table names ran through :ValidateOptionsTable automatically.
+ -- list of options table names ran through :ValidateOptionsTable automatically.
-- CLEARED ON PURPOSE, since newer versions may have newer validators
cmd = {},
dropdown = {},
@@ -59,7 +59,6 @@ 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 optmethod={["nil"]=true,["string"]=true,["function"]=true, _="methodname or funcref"}
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"}
@@ -67,6 +66,7 @@ local optmethodbool={["nil"]=true,["string"]=true,["function"]=true,["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,
@@ -90,17 +90,24 @@ local basekeys={
set=optmethodfalse,
func=optmethodfalse,
arg={["*"]=true},
- width=optstring,
+ width=optstringnumber,
}
local typedkeys={
- header={},
+ 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,
@@ -117,6 +124,9 @@ local typedkeys={
imageCoords=optmethodtable,
imageHeight=optnumber,
imageWidth=optnumber,
+ control=optstring,
+ dialogControl=optstring,
+ dropdownControl=optstring,
},
input={
pattern=optstring,
@@ -130,6 +140,9 @@ local typedkeys={
tristate=optbool,
image=optstringnumberfunc,
imageCoords=optmethodtable,
+ control=optstring,
+ dialogControl=optstring,
+ dropdownControl=optstring,
},
tristate={
},
@@ -141,12 +154,16 @@ local typedkeys={
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},
+ ["nil"]=true,
+ ["string"]={dropdown=true,radio=true},
_="string: 'dropdown' or 'radio'"
},
control=optstring,
@@ -164,9 +181,14 @@ local typedkeys={
},
color={
hasAlpha=optmethodbool,
+ control=optstring,
+ dialogControl=optstring,
+ dropdownControl=optstring,
},
keybinding={
- -- TODO
+ control=optstring,
+ dialogControl=optstring,
+ dropdownControl=optstring,
},
}
@@ -203,13 +225,13 @@ local function validate(options,errlvl,...)
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
@@ -302,7 +324,7 @@ function AceConfigRegistry:RegisterOptionsTable(appName, options, skipValidation
AceConfigRegistry:ValidateOptionsTable(options, appName, errlvl) -- upgradable
AceConfigRegistry.validated[uiType][appName] = true
end
- return options
+ return options
end
elseif type(options)=="function" then
AceConfigRegistry.tables[appName] = function(uiType, uiName, errlvl)
@@ -340,7 +362,7 @@ function AceConfigRegistry:GetOptionsTable(appName, uiType, uiName)
if not f then
return nil
end
-
+
if uiType then
return f(uiType,uiName,1) -- get the table for us
else
diff --git a/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.xml b/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.xml
index 101bfda..4ea69ca 100644
--- a/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.xml
+++ b/libs/AceConfig-3.0/AceConfigRegistry-3.0/AceConfigRegistry-3.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/AceConsole-3.0/AceConsole-3.0.lua b/libs/AceConsole-3.0/AceConsole-3.0.lua
index 0567a65..2361a3b 100644
--- a/libs/AceConsole-3.0/AceConsole-3.0.lua
+++ b/libs/AceConsole-3.0/AceConsole-3.0.lua
@@ -2,14 +2,14 @@
-- You can register slash commands to your custom functions and use the `GetArgs` function to parse them
-- to your addons individual needs.
--
--- **AceConsole-3.0** can be embeded into your addon, either explicitly by calling AceConsole:Embed(MyAddon) or by
+-- **AceConsole-3.0** can be embeded into your addon, either explicitly by calling AceConsole: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 AceConsole itself.\\
-- It is recommended to embed AceConsole, otherwise you'll have to specify a custom `self` on all calls you
-- make into AceConsole.
-- @class file
-- @name AceConsole-3.0
--- @release $Id: AceConsole-3.0.lua 1143 2016-07-11 08:52:03Z nevcairiel $
+-- @release $Id: AceConsole-3.0.lua 1284 2022-09-25 09:15:30Z nevcairiel $
local MAJOR,MINOR = "AceConsole-3.0", 7
local AceConsole, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
@@ -29,10 +29,6 @@ local max = math.max
-- 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: DEFAULT_CHAT_FRAME, SlashCmdList, hash_SlashCmdList
-
local tmp={}
local function Print(self,frame,...)
local n=0
@@ -84,11 +80,11 @@ end
-- @param persist if false, the command will be soft disabled/enabled when aceconsole is used as a mixin (default: true)
function AceConsole:RegisterChatCommand( command, func, persist )
if type(command)~="string" then error([[Usage: AceConsole:RegisterChatCommand( "command", func[, persist ]): 'command' - expected a string]], 2) end
-
+
if persist==nil then persist=true end -- I'd rather have my addon's "/addon enable" around if the author screws up. Having some extra slash regged when it shouldnt be isn't as destructive. True is a better default. /Mikk
-
+
local name = "ACECONSOLE_"..command:upper()
-
+
if type( func ) == "string" then
SlashCmdList[name] = function(input, editBox)
self[func](self, input, editBox)
@@ -132,9 +128,9 @@ local function nils(n, ...)
return ...
end
end
-
---- Retreive one or more space-separated arguments from a string.
+
+--- Retreive one or more space-separated arguments from a string.
-- Treats quoted strings and itemlinks as non-spaced.
-- @param str The raw argument string
-- @param numargs How many arguments to get (default 1)
@@ -144,7 +140,7 @@ end
function AceConsole:GetArgs(str, numargs, startpos)
numargs = numargs or 1
startpos = max(startpos or 1, 1)
-
+
local pos=startpos
-- find start of new arg
@@ -169,24 +165,24 @@ function AceConsole:GetArgs(str, numargs, startpos)
else
delim_or_pipe="([| ])"
end
-
+
startpos = pos
-
+
while true do
-- find delimiter or hyperlink
- local ch,_
+ local _
pos,_,ch = strfind(str, delim_or_pipe, pos)
-
+
if not pos then break end
-
+
if ch=="|" then
-- some kind of escape
-
+
if strsub(str,pos,pos+1)=="|H" then
-- It's a |H....|hhyper link!|h
pos=strfind(str, "|h", pos+2) -- first |h
if not pos then break end
-
+
pos=strfind(str, "|h", pos+2) -- second |h
if not pos then break end
elseif strsub(str,pos, pos+1) == "|T" then
@@ -194,16 +190,16 @@ function AceConsole:GetArgs(str, numargs, startpos)
pos=strfind(str, "|t", pos+2)
if not pos then break end
end
-
+
pos=pos+2 -- skip past this escape (last |h if it was a hyperlink)
-
+
else
-- found delimiter, done with this arg
return strsub(str, startpos, pos-1), AceConsole:GetArgs(str, numargs-1, pos+1)
end
-
+
end
-
+
-- search aborted, we hit end of string. return it all as one argument. (yes, even if it's an unterminated quote or hyperlink)
return strsub(str, startpos), nils(numargs-1, 1e9)
end
@@ -214,10 +210,10 @@ end
local mixins = {
"Print",
"Printf",
- "RegisterChatCommand",
+ "RegisterChatCommand",
"UnregisterChatCommand",
"GetArgs",
-}
+}
-- Embeds AceConsole into the target object making the functions from the mixins list available on target:..
-- @param target target object to embed AceBucket in
diff --git a/libs/AceConsole-3.0/AceConsole-3.0.xml b/libs/AceConsole-3.0/AceConsole-3.0.xml
index be9f47c..4f4699a 100644
--- a/libs/AceConsole-3.0/AceConsole-3.0.xml
+++ b/libs/AceConsole-3.0/AceConsole-3.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/AceDB-3.0/AceDB-3.0.lua b/libs/AceDB-3.0/AceDB-3.0.lua
index b42b442..804cf2b 100644
--- a/libs/AceDB-3.0/AceDB-3.0.lua
+++ b/libs/AceDB-3.0/AceDB-3.0.lua
@@ -40,23 +40,19 @@
-- end
-- @class file
-- @name AceDB-3.0.lua
--- @release $Id: AceDB-3.0.lua 1142 2016-07-11 08:36:19Z nevcairiel $
-local ACEDB_MAJOR, ACEDB_MINOR = "AceDB-3.0", 26
-local AceDB, oldminor = LibStub:NewLibrary(ACEDB_MAJOR, ACEDB_MINOR)
+-- @release $Id: AceDB-3.0.lua 1284 2022-09-25 09:15:30Z nevcairiel $
+local ACEDB_MAJOR, ACEDB_MINOR = "AceDB-3.0", 27
+local AceDB = LibStub:NewLibrary(ACEDB_MAJOR, ACEDB_MINOR)
if not AceDB then return end -- No upgrade needed
-- Lua APIs
local type, pairs, next, error = type, pairs, next, error
-local setmetatable, getmetatable, rawset, rawget = setmetatable, getmetatable, rawset, rawget
+local setmetatable, rawset, rawget = setmetatable, rawset, rawget
-- 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
-
AceDB.db_registry = AceDB.db_registry or {}
AceDB.frame = AceDB.frame or CreateFrame("Frame")
@@ -98,11 +94,11 @@ local function copyDefaults(dest, src)
-- This is a metatable used for table defaults
local mt = {
-- This handles the lookup and creation of new subtables
- __index = function(t,k)
- if k == nil then return nil end
+ __index = function(t,k2)
+ if k2 == nil then return nil end
local tbl = {}
copyDefaults(tbl, v)
- rawset(t, k, tbl)
+ rawset(t, k2, tbl)
return tbl
end,
}
@@ -115,7 +111,7 @@ local function copyDefaults(dest, src)
end
else
-- Values are not tables, so this is just a simple return
- local mt = {__index = function(t,k) return k~=nil and v or nil end}
+ local mt = {__index = function(t,k2) return k2~=nil and v or nil end}
setmetatable(dest, mt)
end
elseif type(v) == "table" then
@@ -397,7 +393,7 @@ AceDB.frame:SetScript("OnEvent", logoutHandler)
-- @param defaults A table of defaults for this database
function DBObjectLib:RegisterDefaults(defaults)
if defaults and type(defaults) ~= "table" then
- error("Usage: AceDBObject:RegisterDefaults(defaults): 'defaults' - table or nil expected.", 2)
+ error(("Usage: AceDBObject:RegisterDefaults(defaults): 'defaults' - table or nil expected, got %q."):format(type(defaults)), 2)
end
validateDefaults(defaults, self.keys)
@@ -429,7 +425,7 @@ end
-- @param name The name of the profile to set as the current profile
function DBObjectLib:SetProfile(name)
if type(name) ~= "string" then
- error("Usage: AceDBObject:SetProfile(name): 'name' - string expected.", 2)
+ error(("Usage: AceDBObject:SetProfile(name): 'name' - string expected, got %q."):format(type(name)), 2)
end
-- changing to the same profile, dont do anything
@@ -471,7 +467,7 @@ end
-- @param tbl A table to store the profile names in (optional)
function DBObjectLib:GetProfiles(tbl)
if tbl and type(tbl) ~= "table" then
- error("Usage: AceDBObject:GetProfiles(tbl): 'tbl' - table or nil expected.", 2)
+ error(("Usage: AceDBObject:GetProfiles(tbl): 'tbl' - table or nil expected, got %q."):format(type(tbl)), 2)
end
-- Clear the container table
@@ -509,15 +505,15 @@ end
-- @param silent If true, do not raise an error when the profile does not exist
function DBObjectLib:DeleteProfile(name, silent)
if type(name) ~= "string" then
- error("Usage: AceDBObject:DeleteProfile(name): 'name' - string expected.", 2)
+ error(("Usage: AceDBObject:DeleteProfile(name): 'name' - string expected, got %q."):format(type(name)), 2)
end
if self.keys.profile == name then
- error("Cannot delete the active profile in an AceDBObject.", 2)
+ error(("Cannot delete the active profile (%q) in an AceDBObject."):format(name), 2)
end
if not rawget(self.profiles, name) and not silent then
- error("Cannot delete profile '" .. name .. "'. It does not exist.", 2)
+ error(("Cannot delete profile %q as it does not exist."):format(name), 2)
end
self.profiles[name] = nil
@@ -548,15 +544,15 @@ end
-- @param silent If true, do not raise an error when the profile does not exist
function DBObjectLib:CopyProfile(name, silent)
if type(name) ~= "string" then
- error("Usage: AceDBObject:CopyProfile(name): 'name' - string expected.", 2)
+ error(("Usage: AceDBObject:CopyProfile(name): 'name' - string expected, got %q."):format(type(name)), 2)
end
if name == self.keys.profile then
- error("Cannot have the same source and destination profiles.", 2)
+ error(("Cannot have the same source and destination profiles (%q)."):format(name), 2)
end
if not rawget(self.profiles, name) and not silent then
- error("Cannot copy profile '" .. name .. "'. It does not exist.", 2)
+ error(("Cannot copy profile %q as it does not exist."):format(name), 2)
end
-- Reset the profile before copying
@@ -611,7 +607,7 @@ end
-- @param defaultProfile The profile name to use as the default
function DBObjectLib:ResetDB(defaultProfile)
if defaultProfile and type(defaultProfile) ~= "string" then
- error("Usage: AceDBObject:ResetDB(defaultProfile): 'defaultProfile' - string or nil expected.", 2)
+ error(("Usage: AceDBObject:ResetDB(defaultProfile): 'defaultProfile' - string or nil expected, got %q."):format(type(defaultProfile)), 2)
end
local sv = self.sv
@@ -619,8 +615,6 @@ function DBObjectLib:ResetDB(defaultProfile)
sv[k] = nil
end
- local parent = self.parent
-
initdb(sv, self.defaults, defaultProfile, self)
-- fix the child namespaces
@@ -647,13 +641,13 @@ end
-- @param defaults A table of values to use as defaults
function DBObjectLib:RegisterNamespace(name, defaults)
if type(name) ~= "string" then
- error("Usage: AceDBObject:RegisterNamespace(name, defaults): 'name' - string expected.", 2)
+ error(("Usage: AceDBObject:RegisterNamespace(name, defaults): 'name' - string expected, got %q."):format(type(name)), 2)
end
if defaults and type(defaults) ~= "table" then
- error("Usage: AceDBObject:RegisterNamespace(name, defaults): 'defaults' - table or nil expected.", 2)
+ error(("Usage: AceDBObject:RegisterNamespace(name, defaults): 'defaults' - table or nil expected, got %q."):format(type(defaults)), 2)
end
if self.children and self.children[name] then
- error ("Usage: AceDBObject:RegisterNamespace(name, defaults): 'name' - a namespace with that name already exists.", 2)
+ error(("Usage: AceDBObject:RegisterNamespace(name, defaults): 'name' - a namespace called %q already exists."):format(name), 2)
end
local sv = self.sv
@@ -677,10 +671,10 @@ end
-- @return the namespace object if found
function DBObjectLib:GetNamespace(name, silent)
if type(name) ~= "string" then
- error("Usage: AceDBObject:GetNamespace(name): 'name' - string expected.", 2)
+ error(("Usage: AceDBObject:GetNamespace(name): 'name' - string expected, got %q."):format(type(name)), 2)
end
if not silent and not (self.children and self.children[name]) then
- error ("Usage: AceDBObject:GetNamespace(name): 'name' - namespace does not exist.", 2)
+ error(("Usage: AceDBObject:GetNamespace(name): 'name' - namespace %q does not exist."):format(name), 2)
end
if not self.children then self.children = {} end
return self.children[name]
@@ -719,15 +713,15 @@ function AceDB:New(tbl, defaults, defaultProfile)
end
if type(tbl) ~= "table" then
- error("Usage: AceDB:New(tbl, defaults, defaultProfile): 'tbl' - table expected.", 2)
+ error(("Usage: AceDB:New(tbl, defaults, defaultProfile): 'tbl' - table expected, got %q."):format(type(tbl)), 2)
end
if defaults and type(defaults) ~= "table" then
- error("Usage: AceDB:New(tbl, defaults, defaultProfile): 'defaults' - table expected.", 2)
+ error(("Usage: AceDB:New(tbl, defaults, defaultProfile): 'defaults' - table expected, got %q."):format(type(defaults)), 2)
end
if defaultProfile and type(defaultProfile) ~= "string" and defaultProfile ~= true then
- error("Usage: AceDB:New(tbl, defaults, defaultProfile): 'defaultProfile' - string or true expected.", 2)
+ error(("Usage: AceDB:New(tbl, defaults, defaultProfile): 'defaultProfile' - string or true expected, got %q."):format(type(defaultProfile)), 2)
end
return initdb(tbl, defaults, defaultProfile)
diff --git a/libs/AceDB-3.0/AceDB-3.0.xml b/libs/AceDB-3.0/AceDB-3.0.xml
index 46b20ba..108fc70 100644
--- a/libs/AceDB-3.0/AceDB-3.0.xml
+++ b/libs/AceDB-3.0/AceDB-3.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/AceDBOptions-3.0/AceDBOptions-3.0.lua b/libs/AceDBOptions-3.0/AceDBOptions-3.0.lua
index 5028fef..9029c66 100644
--- a/libs/AceDBOptions-3.0/AceDBOptions-3.0.lua
+++ b/libs/AceDBOptions-3.0/AceDBOptions-3.0.lua
@@ -1,9 +1,9 @@
--- AceDBOptions-3.0 provides a universal AceConfig options screen for managing AceDB-3.0 profiles.
-- @class file
-- @name AceDBOptions-3.0
--- @release $Id: AceDBOptions-3.0.lua 1140 2016-07-03 07:53:29Z nevcairiel $
+-- @release $Id: AceDBOptions-3.0.lua 1284 2022-09-25 09:15:30Z nevcairiel $
local ACEDBO_MAJOR, ACEDBO_MINOR = "AceDBOptions-3.0", 15
-local AceDBOptions, oldminor = LibStub:NewLibrary(ACEDBO_MAJOR, ACEDBO_MINOR)
+local AceDBOptions = LibStub:NewLibrary(ACEDBO_MAJOR, ACEDBO_MINOR)
if not AceDBOptions then return end -- No upgrade needed
@@ -13,10 +13,6 @@ local pairs, next = pairs, next
-- WoW APIs
local UnitClass = UnitClass
--- 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_CODE, FONT_COLOR_CODE_CLOSE
-
AceDBOptions.optionTables = AceDBOptions.optionTables or {}
AceDBOptions.handlers = AceDBOptions.handlers or {}
@@ -240,22 +236,22 @@ local tmpprofiles = {}
-- @return Hashtable of all profiles with the internal name as keys and the display name as value.
local function getProfileList(db, common, nocurrent)
local profiles = {}
-
+
-- copy existing profiles into the table
local currentProfile = db:GetCurrentProfile()
- for i,v in pairs(db:GetProfiles(tmpprofiles)) do
- if not (nocurrent and v == currentProfile) then
- profiles[v] = v
- end
+ for i,v in pairs(db:GetProfiles(tmpprofiles)) do
+ if not (nocurrent and v == currentProfile) then
+ profiles[v] = v
+ end
end
-
+
-- add our default profiles to choose from ( or rename existing profiles)
for k,v in pairs(defaultProfiles) do
if (common or profiles[k]) and not (nocurrent and k == currentProfile) then
profiles[k] = v
end
end
-
+
return profiles
end
@@ -280,11 +276,11 @@ function OptionsHandlerPrototype:GetCurrentProfile()
return self.db:GetCurrentProfile()
end
---[[
+--[[
List all active profiles
you can control the output with the .arg variable
currently four modes are supported
-
+
(empty) - return all available profiles
"nocurrent" - returns all available profiles except the currently active profile
"common" - returns all avaialble profiles + some commonly used profiles ("char - realm", "realm", "class", "Default")
@@ -302,7 +298,7 @@ function OptionsHandlerPrototype:ListProfiles(info)
else
profiles = getProfileList(self.db)
end
-
+
return profiles
end
@@ -336,19 +332,19 @@ local function getOptionsHandler(db, noDefaultProfiles)
if not defaultProfiles then
generateDefaultProfiles(db)
end
-
+
local handler = AceDBOptions.handlers[db] or { db = db, noDefaultProfiles = noDefaultProfiles }
-
+
for k,v in pairs(OptionsHandlerPrototype) do
handler[k] = v
end
-
+
AceDBOptions.handlers[db] = handler
return handler
end
--[[
- the real options table
+ the real options table
]]
local optionsTable = {
desc = {
@@ -436,7 +432,7 @@ local optionsTable = {
--- Get/Create a option table that you can use in your addon to control the profiles of AceDB-3.0.
-- @param db The database object to create the options table for.
-- @return The options table to be used in AceConfig-3.0
--- @usage
+-- @usage
-- -- Assuming `options` is your top-level options table and `self.db` is your database:
-- options.args.profiles = LibStub("AceDBOptions-3.0"):GetOptionsTable(self.db)
function AceDBOptions:GetOptionsTable(db, noDefaultProfiles)
@@ -445,7 +441,7 @@ function AceDBOptions:GetOptionsTable(db, noDefaultProfiles)
name = L["profiles"],
desc = L["profiles_sub"],
}
-
+
tbl.handler = getOptionsHandler(db, noDefaultProfiles)
tbl.args = optionsTable
diff --git a/libs/AceDBOptions-3.0/AceDBOptions-3.0.xml b/libs/AceDBOptions-3.0/AceDBOptions-3.0.xml
index 2668fb0..51305f9 100644
--- a/libs/AceDBOptions-3.0/AceDBOptions-3.0.xml
+++ b/libs/AceDBOptions-3.0/AceDBOptions-3.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/AceEvent-3.0/AceEvent-3.0.lua b/libs/AceEvent-3.0/AceEvent-3.0.lua
index 578ae25..7ccd880 100644
--- a/libs/AceEvent-3.0/AceEvent-3.0.lua
+++ b/libs/AceEvent-3.0/AceEvent-3.0.lua
@@ -2,15 +2,17 @@
-- All dispatching is done using **CallbackHandler-1.0**. AceEvent is a simple wrapper around
-- CallbackHandler, and dispatches all game events or addon message to the registrees.
--
--- **AceEvent-3.0** can be embeded into your addon, either explicitly by calling AceEvent:Embed(MyAddon) or by
+-- **AceEvent-3.0** can be embeded into your addon, either explicitly by calling AceEvent: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 AceEvent itself.\\
-- It is recommended to embed AceEvent, otherwise you'll have to specify a custom `self` on all calls you
-- make into AceEvent.
-- @class file
-- @name AceEvent-3.0
--- @release $Id: AceEvent-3.0.lua 975 2010-10-23 11:26:18Z nevcairiel $
-local MAJOR, MINOR = "AceEvent-3.0", 3
+-- @release $Id: AceEvent-3.0.lua 1202 2019-05-15 23:11:22Z nevcairiel $
+local CallbackHandler = LibStub("CallbackHandler-1.0")
+
+local MAJOR, MINOR = "AceEvent-3.0", 4
local AceEvent = LibStub:NewLibrary(MAJOR, MINOR)
if not AceEvent then return end
@@ -18,29 +20,27 @@ if not AceEvent then return end
-- Lua APIs
local pairs = pairs
-local CallbackHandler = LibStub:GetLibrary("CallbackHandler-1.0")
-
AceEvent.frame = AceEvent.frame or CreateFrame("Frame", "AceEvent30Frame") -- our event frame
AceEvent.embeds = AceEvent.embeds or {} -- what objects embed this lib
-- APIs and registry for blizzard events, using CallbackHandler lib
if not AceEvent.events then
- AceEvent.events = CallbackHandler:New(AceEvent,
+ AceEvent.events = CallbackHandler:New(AceEvent,
"RegisterEvent", "UnregisterEvent", "UnregisterAllEvents")
end
-function AceEvent.events:OnUsed(target, eventname)
+function AceEvent.events:OnUsed(target, eventname)
AceEvent.frame:RegisterEvent(eventname)
end
-function AceEvent.events:OnUnused(target, eventname)
+function AceEvent.events:OnUnused(target, eventname)
AceEvent.frame:UnregisterEvent(eventname)
end
-- APIs and registry for IPC messages, using CallbackHandler lib
if not AceEvent.messages then
- AceEvent.messages = CallbackHandler:New(AceEvent,
+ AceEvent.messages = CallbackHandler:New(AceEvent,
"RegisterMessage", "UnregisterMessage", "UnregisterAllMessages"
)
AceEvent.SendMessage = AceEvent.messages.Fire
diff --git a/libs/AceEvent-3.0/AceEvent-3.0.xml b/libs/AceEvent-3.0/AceEvent-3.0.xml
index 313ef4d..41ef791 100644
--- a/libs/AceEvent-3.0/AceEvent-3.0.xml
+++ b/libs/AceEvent-3.0/AceEvent-3.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/AceGUI-3.0/AceGUI-3.0.lua b/libs/AceGUI-3.0/AceGUI-3.0.lua
index 9853644..f05b1ed 100644
--- a/libs/AceGUI-3.0/AceGUI-3.0.lua
+++ b/libs/AceGUI-3.0/AceGUI-3.0.lua
@@ -1,6 +1,6 @@
--- **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
+-- 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,
@@ -24,34 +24,29 @@
-- f:AddChild(btn)
-- @class file
-- @name AceGUI-3.0
--- @release $Id: AceGUI-3.0.lua 1102 2013-10-25 14:15:23Z nevcairiel $
-local ACEGUI_MAJOR, ACEGUI_MINOR = "AceGUI-3.0", 34
+-- @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 tconcat, tremove, tinsert = table.concat, table.remove, table.insert
+local tinsert, wipe = table.insert, table.wipe
local select, pairs, next, type = select, pairs, next, type
-local error, assert, loadstring = error, assert, loadstring
-local setmetatable, rawget, rawset = setmetatable, rawget, rawset
-local math_max = math.max
+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
--- 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
@@ -66,39 +61,10 @@ local function errorhandler(err)
return geterrorhandler()(err)
end
-local function CreateDispatcher(argCount)
- local code = [[
- local xpcall, eh = ...
- local method, ARGS
- local function call() return method(ARGS) end
-
- local function dispatch(func, ...)
- method = func
- if not method then return end
- ARGS = ...
- return xpcall(call, eh)
- end
-
- return dispatch
- ]]
-
- local ARGS = {}
- for i = 1, argCount do ARGS[i] = "arg"..i end
- code = code:gsub("ARGS", tconcat(ARGS, ", "))
- return assert(loadstring(code, "safecall Dispatcher["..argCount.."]"))(xpcall, errorhandler)
-end
-
-local Dispatchers = setmetatable({}, {__index=function(self, argCount)
- local dispatcher = CreateDispatcher(argCount)
- rawset(self, argCount, dispatcher)
- return dispatcher
-end})
-Dispatchers[0] = function(func)
- return xpcall(func, errorhandler)
-end
-
local function safecall(func, ...)
- return Dispatchers[select("#", ...)](func, ...)
+ if func then
+ return xpcall(func, errorhandler, ...)
+ end
end
-- Recycling functions
@@ -108,7 +74,7 @@ do
-- 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
+ -- 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
@@ -118,42 +84,42 @@ do
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
+ function newWidget(widgetType)
+ if not WidgetRegistry[widgetType] then
error("Attempt to instantiate unknown widget type", 2)
end
-
- if not objPools[type] then
- objPools[type] = {}
+
+ if not objPools[widgetType] then
+ objPools[widgetType] = {}
end
-
- local newObj = next(objPools[type])
+
+ local newObj = next(objPools[widgetType])
if not newObj then
- newObj = WidgetRegistry[type]()
- newObj.AceGUIWidgetVersion = WidgetVersions[type]
+ newObj = WidgetRegistry[widgetType]()
+ newObj.AceGUIWidgetVersion = WidgetVersions[widgetType]
else
- objPools[type][newObj] = nil
+ 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[type] then
- return newWidget(type)
+ 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,type)
- if not objPools[type] then
- objPools[type] = {}
+ function delWidget(obj,widgetType)
+ if not objPools[widgetType] then
+ objPools[widgetType] = {}
end
- if objPools[type][obj] then
+ if objPools[widgetType][obj] then
error("Attempt to Release Widget that is already released", 2)
end
- objPools[type][obj] = true
+ objPools[widgetType][obj] = true
end
end
@@ -169,9 +135,9 @@ end
-- 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)
+function AceGUI:Create(widgetType)
+ if WidgetRegistry[widgetType] then
+ local widget = newWidget(widgetType)
if rawget(widget, "Acquire") then
widget.OnAcquire = widget.Acquire
@@ -180,16 +146,16 @@ function AceGUI:Create(type)
widget.OnAcquire = widget.Aquire
widget.Aquire = nil
end
-
+
if rawget(widget, "Release") then
- widget.OnRelease = rawget(widget, "Release")
+ 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))
+ error(("Widget type %s doesn't supply an OnAcquire Function"):format(widgetType))
end
-- Set the default Layout ("List")
safecall(widget.SetLayout, widget, "List")
@@ -204,7 +170,10 @@ end
-- 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)
@@ -233,9 +202,26 @@ function AceGUI:Release(widget)
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 --
-----------
@@ -267,18 +253,18 @@ end
--[[
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
@@ -294,21 +280,21 @@ end
-- Widget Base Template --
--------------------------
do
- local WidgetBase = AceGUI.WidgetBase
-
+ 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, ...)
@@ -317,7 +303,7 @@ do
end
end
end
-
+
WidgetBase.SetWidth = function(self, width)
self.frame:SetWidth(width)
self.frame.width = width
@@ -325,7 +311,7 @@ do
self:OnWidthSet(width)
end
end
-
+
WidgetBase.SetRelativeWidth = function(self, width)
if width <= 0 or width > 1 then
error(":SetRelativeWidth(width): Invalid relative width.", 2)
@@ -333,7 +319,7 @@ do
self.relWidth = width
self.width = "relative"
end
-
+
WidgetBase.SetHeight = function(self, height)
self.frame:SetHeight(height)
self.frame.height = height
@@ -341,7 +327,7 @@ do
self:OnHeightSet(height)
end
end
-
+
--[[ WidgetBase.SetRelativeHeight = function(self, height)
if height <= 0 or height > 1 then
error(":SetRelativeHeight(height): Invalid relative height.", 2)
@@ -353,47 +339,51 @@ do
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
-
+ 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"
@@ -401,11 +391,11 @@ do
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"
@@ -413,29 +403,29 @@ do
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()
@@ -443,7 +433,7 @@ do
-- self.frame:SetScript("OnUpdate", LayoutOnUpdate)
-- end
end
-
+
WidgetContainerBase.AddChild = function(self, child, beforeWidget)
if beforeWidget then
local siblingIndex = 1
@@ -451,7 +441,7 @@ do
if widget == beforeWidget then
break
end
- siblingIndex = siblingIndex + 1
+ siblingIndex = siblingIndex + 1
end
tinsert(self.children, siblingIndex, child)
else
@@ -461,7 +451,7 @@ do
child.frame:Show()
self:DoLayout()
end
-
+
WidgetContainerBase.AddChildren = function(self, ...)
for i = 1, select("#", ...) do
local child = select(i, ...)
@@ -471,7 +461,7 @@ do
end
self:DoLayout()
end
-
+
WidgetContainerBase.ReleaseChildren = function(self)
local children = self.children
for i = 1,#children do
@@ -479,7 +469,7 @@ do
children[i] = nil
end
end
-
+
WidgetContainerBase.SetLayout = function(self, Layout)
self.LayoutFunc = AceGUI:GetLayout(Layout)
end
@@ -503,7 +493,7 @@ do
end
end
end
-
+
local function ContentResize(this)
if this:GetWidth() and this:GetHeight() then
this.width = this:GetWidth()
@@ -515,7 +505,7 @@ do
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)
@@ -531,7 +521,7 @@ do
widget:SetLayout("List")
return widget
end
-
+
--- Register a widget-class as a widget.
-- @param widget The widget class
function AceGUI:RegisterAsWidget(widget)
@@ -558,11 +548,11 @@ end
-- @param Version The version of the widget
function AceGUI:RegisterWidgetType(Name, Constructor, Version)
assert(type(Constructor) == "function")
- assert(type(Version) == "number")
-
+ assert(type(Version) == "number")
+
local oldVersion = WidgetVersions[Name]
if oldVersion and oldVersion >= Version then return end
-
+
WidgetVersions[Name] = Version
WidgetRegistry[Name] = Constructor
end
@@ -593,25 +583,25 @@ AceGUI.counts = AceGUI.counts or {}
-- 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
+function AceGUI:GetNextWidgetNum(widgetType)
+ if not self.counts[widgetType] then
+ self.counts[widgetType] = 0
end
- self.counts[type] = self.counts[type] + 1
- return self.counts[type]
+ 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 type The widget type
-function AceGUI:GetWidgetCount(type)
- return self.counts[type] or 0
+-- @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 type The widget type
-function AceGUI:GetWidgetVersion(type)
- return WidgetVersions[type]
+-- @param widgetType The widget type
+function AceGUI:GetWidgetVersion(widgetType)
+ return WidgetVersions[widgetType]
end
-------------
@@ -631,7 +621,7 @@ AceGUI:RegisterLayout("List",
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()
@@ -640,22 +630,22 @@ AceGUI:RegisterLayout("List",
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)
@@ -667,6 +657,7 @@ AceGUI:RegisterLayout("Fill",
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())
@@ -690,19 +681,17 @@ AceGUI:RegisterLayout("Flow",
--height of the current row
local rowheight = 0
local rowoffset = 0
- local lastrowoffset
-
+
local width = content.width or content:GetWidth() or 0
-
+
--control at the start of the row
local rowstart
local rowstartoffset
- local lastrowstart
local isfullheight
-
+
local frameoffset
local lastframeoffset
- local oversize
+ local oversize
for i = 1, #children do
local child = children[i]
oversize = nil
@@ -710,17 +699,17 @@ AceGUI:RegisterLayout("Flow",
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) ?
+ -- 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
@@ -759,11 +748,11 @@ AceGUI:RegisterLayout("Flow",
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
@@ -772,11 +761,10 @@ AceGUI:RegisterLayout("Flow",
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
@@ -785,7 +773,7 @@ AceGUI:RegisterLayout("Flow",
rowstartoffset = rowoffset
elseif child.width == "relative" then
safelayoutcall(child, "SetWidth", width * child.relWidth)
-
+
if child.DoLayout then
child:DoLayout()
end
@@ -794,20 +782,239 @@ AceGUI:RegisterLayout("Flow",
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/libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua b/libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua
index 9a48f8b..d95db58 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua
@@ -2,7 +2,7 @@
BlizOptionsGroup Container
Simple container widget for the integration of AceGUI into the Blizzard Interface Options
-------------------------------------------------------------------------------]]
-local Type, Version = "BlizOptionsGroup", 21
+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
@@ -99,7 +99,7 @@ local methods = {
Constructor
-------------------------------------------------------------------------------]]
local function Constructor()
- local frame = CreateFrame("Frame")
+ local frame = CreateFrame("Frame", nil, InterfaceOptionsFramePanelContainer)
frame:Hide()
-- support functions for the Blizzard Interface Options
@@ -108,6 +108,11 @@ local function Constructor()
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)
diff --git a/libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua b/libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua
index b0f81b7..cd83755 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIContainer-DropDownGroup.lua
@@ -2,7 +2,7 @@
DropdownGroup Container
Container controlled by a dropdown on the top.
-------------------------------------------------------------------------------]]
-local Type, Version = "DropdownGroup", 21
+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
@@ -125,7 +125,7 @@ local function Constructor()
dropdown.frame:Show()
dropdown:SetLabel("")
- local border = CreateFrame("Frame", nil, frame)
+ local border = CreateFrame("Frame", nil, frame, "BackdropTemplate")
border:SetPoint("TOPLEFT", 0, -26)
border:SetPoint("BOTTOMRIGHT", 0, 3)
border:SetBackdrop(PaneBackdrop)
@@ -150,7 +150,7 @@ local function Constructor()
widget[method] = func
end
dropdown.parentgroup = widget
-
+
return AceGUI:RegisterAsContainer(widget)
end
diff --git a/libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua b/libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua
index 0dae68c..39a1004 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua
@@ -1,7 +1,7 @@
--[[-----------------------------------------------------------------------------
Frame Container
-------------------------------------------------------------------------------]]
-local Type, Version = "Frame", 24
+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
@@ -13,18 +13,18 @@ local wipe = table.wipe
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("gsTitleOptionExit")
+ 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
@@ -79,6 +79,7 @@ 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()
@@ -175,17 +176,23 @@ local PaneBackdrop = {
}
local function Constructor()
- local frame = CreateFrame("Frame", nil, UIParent)
+ 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)
- frame:SetMinResize(400, 200)
+ 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)
@@ -196,7 +203,7 @@ local function Constructor()
closebutton:SetWidth(100)
closebutton:SetText(CLOSE)
- local statusbg = CreateFrame("Button", nil, frame)
+ local statusbg = CreateFrame("Button", nil, frame, "BackdropTemplate")
statusbg:SetPoint("BOTTOMLEFT", 15, 15)
statusbg:SetPoint("BOTTOMRIGHT", -132, 15)
statusbg:SetHeight(24)
@@ -214,7 +221,7 @@ local function Constructor()
statustext:SetText("")
local titlebg = frame:CreateTexture(nil, "OVERLAY")
- titlebg:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header")
+ 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)
@@ -230,14 +237,14 @@ local function Constructor()
titletext:SetPoint("TOP", titlebg, "TOP", 0, -14)
local titlebg_l = frame:CreateTexture(nil, "OVERLAY")
- titlebg_l:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header")
+ 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("Interface\\DialogFrame\\UI-DialogBox-Header")
+ 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)
@@ -255,7 +262,7 @@ local function Constructor()
line1:SetWidth(14)
line1:SetHeight(14)
line1:SetPoint("BOTTOMRIGHT", -8, 8)
- line1:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
+ 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)
@@ -263,8 +270,8 @@ local function Constructor()
line2:SetWidth(8)
line2:SetHeight(8)
line2:SetPoint("BOTTOMRIGHT", -8, 8)
- line2:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
- local x = 0.1 * 8/17
+ 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)
diff --git a/libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua b/libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua
index f3db7d6..1676ae4 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIContainer-InlineGroup.lua
@@ -2,7 +2,7 @@
InlineGroup Container
Simple container widget that creates a visible "box" with an optional title.
-------------------------------------------------------------------------------]]
-local Type, Version = "InlineGroup", 21
+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
@@ -75,7 +75,7 @@ local function Constructor()
titletext:SetJustifyH("LEFT")
titletext:SetHeight(18)
- local border = CreateFrame("Frame", nil, frame)
+ local border = CreateFrame("Frame", nil, frame, "BackdropTemplate")
border:SetPoint("TOPLEFT", 0, -17)
border:SetPoint("BOTTOMRIGHT", -1, 3)
border:SetBackdrop(PaneBackdrop)
diff --git a/libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua b/libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua
index 6dd0c4d..d110d03 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIContainer-ScrollFrame.lua
@@ -2,15 +2,13 @@
ScrollFrame Container
Plain container that scrolls its content and doesn't grow in height.
-------------------------------------------------------------------------------]]
-local Type, Version = "ScrollFrame", 24
+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
-local IsLegion = select(4, GetBuildInfo()) >= 70000
-
-- Lua APIs
local pairs, assert, type = pairs, assert, type
-local min, max, floor, abs = math.min, math.max, math.floor, math.abs
+local min, max, floor = math.min, math.max, math.floor
-- WoW APIs
local CreateFrame, UIParent = CreateFrame, UIParent
@@ -42,7 +40,7 @@ end
Methods
-------------------------------------------------------------------------------]]
local methods = {
- ["OnAcquire"] = function(self)
+ ["OnAcquire"] = function(self)
self:SetScroll(0)
self.scrollframe:SetScript("OnUpdate", FixScrollOnUpdate)
end,
@@ -55,7 +53,7 @@ local methods = {
self.scrollframe:SetPoint("BOTTOMRIGHT")
self.scrollbar:Hide()
self.scrollBarShown = nil
- self.content.height, self.content.width = nil, nil
+ self.content.height, self.content.width, self.content.original_width = nil, nil, nil
end,
["SetScroll"] = function(self, value)
@@ -79,7 +77,7 @@ local methods = {
["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
@@ -96,7 +94,6 @@ local methods = {
local status = self.status or self.localstatus
local height, viewheight = self.scrollframe:GetHeight(), self.content:GetHeight()
local offset = status.offset or 0
- local curvalue = self.scrollbar:GetValue()
-- 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
@@ -105,6 +102,9 @@ local methods = {
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
@@ -112,6 +112,9 @@ local methods = {
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)
@@ -130,6 +133,11 @@ local methods = {
["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,
@@ -143,7 +151,8 @@ local methods = {
["OnWidthSet"] = function(self, width)
local content = self.content
- content.width = width
+ content.width = width - (self.scrollBarShown and 20 or 0)
+ content.original_width = width
end,
["OnHeightSet"] = function(self, height)
@@ -178,11 +187,7 @@ local function Constructor()
local scrollbg = scrollbar:CreateTexture(nil, "BACKGROUND")
scrollbg:SetAllPoints(scrollbar)
- if IsLegion then
- scrollbg:SetColorTexture(0, 0, 0, 0.4)
- else
- scrollbg:SetTexture(0, 0, 0, 0.4)
- end
+ scrollbg:SetColorTexture(0, 0, 0, 0.4)
--Container Support
local content = CreateFrame("Frame", nil, scrollframe)
diff --git a/libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua b/libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua
index 00be129..8e46876 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIContainer-TabGroup.lua
@@ -2,22 +2,18 @@
TabGroup Container
Container that uses tabs on top to switch between groups.
-------------------------------------------------------------------------------]]
-local Type, Version = "TabGroup", 35
+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, wipe
+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
--- 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 = {}
@@ -26,6 +22,143 @@ 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)
@@ -63,7 +196,7 @@ Scripts
-------------------------------------------------------------------------------]]
local function Tab_OnClick(frame)
if not (frame.selected or frame.disabled) then
- PlaySound("igCharacterInfoTab")
+ PlaySound(841) -- SOUNDKIT.IG_CHARACTER_INFO_TAB
frame.obj:SelectTab(frame.value)
end
end
@@ -103,11 +236,64 @@ local methods = {
["CreateTab"] = function(self, id)
local tabname = ("AceGUITabGroup%dTab%d"):format(self.num, id)
- local tab = CreateFrame("Button", tabname, self.border, "OptionsFrameTabButtonTemplate")
+ 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 = _G[tabname .. "Text"]
+ tab.text = tab.Text -- compat
tab.text:ClearAllPoints()
tab.text:SetPoint("LEFT", 14, -3)
tab.text:SetPoint("RIGHT", -12, -3)
@@ -161,22 +347,21 @@ local methods = {
self.tablist = tabs
self:BuildTabs()
end,
-
+
["BuildTabs"] = function(self)
local hastitle = (self.titletext:GetText() and self.titletext:GetText() ~= "")
- local status = self.status or self.localstatus
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]
@@ -184,19 +369,19 @@ local methods = {
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
@@ -214,7 +399,7 @@ local methods = {
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
@@ -245,22 +430,22 @@ local methods = {
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,
+ -- 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,
@@ -286,7 +471,7 @@ local methods = {
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))
@@ -317,7 +502,7 @@ local function Constructor()
titletext:SetHeight(18)
titletext:SetText("")
- local border = CreateFrame("Frame", nil, frame)
+ local border = CreateFrame("Frame", nil, frame, "BackdropTemplate")
border:SetPoint("TOPLEFT", 1, -27)
border:SetPoint("BOTTOMRIGHT", -1, 3)
border:SetBackdrop(PaneBackdrop)
@@ -343,7 +528,7 @@ local function Constructor()
for method, func in pairs(methods) do
widget[method] = func
end
-
+
return AceGUI:RegisterAsContainer(widget)
end
diff --git a/libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua b/libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua
index 9bf17d8..89f387a 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua
@@ -2,24 +2,18 @@
TreeGroup Container
Container that uses a tree control to switch between groups.
-------------------------------------------------------------------------------]]
-local Type, Version = "TreeGroup", 40
+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
-local IsLegion = select(4, GetBuildInfo()) >= 70000
-
-- 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 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
--- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
--- List them here for Mikk's FindGlobals script
--- GLOBALS: GameTooltip, FONT_COLOR_CODE_CLOSE
-
-- Recycling functions
local new, del
do
@@ -36,7 +30,7 @@ do
function del(t)
for k in pairs(t) do
t[k] = nil
- end
+ end
pool[t] = true
end
end
@@ -59,7 +53,6 @@ end
local function UpdateButton(button, treeline, selected, canExpand, isExpanded)
local self = button.obj
local toggle = button.toggle
- local frame = self.frame
local text = treeline.text or ""
local icon = treeline.icon
local iconCoords = treeline.iconCoords
@@ -67,7 +60,7 @@ local function UpdateButton(button, treeline, selected, canExpand, isExpanded)
local value = treeline.value
local uniquevalue = treeline.uniquevalue
local disabled = treeline.disabled
-
+
button.treeline = treeline
button.value = value
button.uniquevalue = uniquevalue
@@ -78,8 +71,6 @@ local function UpdateButton(button, treeline, selected, canExpand, isExpanded)
button:UnlockHighlight()
button.selected = false
end
- local normalTexture = button:GetNormalTexture()
- local line = button.line
button.level = level
if ( level == 1 ) then
button:SetNormalFontObject("GameFontNormal")
@@ -90,7 +81,7 @@ local function UpdateButton(button, treeline, selected, canExpand, isExpanded)
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)
@@ -98,27 +89,27 @@ local function UpdateButton(button, treeline, selected, canExpand, isExpanded)
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("Interface\\Buttons\\UI-PlusButton-UP")
- toggle:SetPushedTexture("Interface\\Buttons\\UI-PlusButton-DOWN")
+ toggle:SetNormalTexture(130838) -- Interface\\Buttons\\UI-PlusButton-UP
+ toggle:SetPushedTexture(130836) -- Interface\\Buttons\\UI-PlusButton-DOWN
else
- toggle:SetNormalTexture("Interface\\Buttons\\UI-MinusButton-UP")
- toggle:SetPushedTexture("Interface\\Buttons\\UI-MinusButton-DOWN")
+ toggle:SetNormalTexture(130821) -- Interface\\Buttons\\UI-MinusButton-UP
+ toggle:SetPushedTexture(130820) -- Interface\\Buttons\\UI-MinusButton-DOWN
end
toggle:Show()
else
@@ -164,7 +155,7 @@ end
local function FirstFrameUpdate(frame)
local self = frame.obj
frame:SetScript("OnUpdate", nil)
- self:RefreshTree()
+ self:RefreshTree(nil, true)
end
local function BuildUniqueValue(...)
@@ -201,7 +192,6 @@ end
local function Button_OnDoubleClick(button)
local self = button.obj
- local status = self.status or self.localstatus
local status = (self.status or self.localstatus).groups
status[button.uniquevalue] = not status[button.uniquevalue]
self:RefreshTree()
@@ -212,11 +202,13 @@ local function Button_OnEnter(frame)
self:Fire("OnButtonEnter", frame.uniquevalue, frame)
if self.enabletooltips then
- GameTooltip:SetOwner(frame, "ANCHOR_NONE")
- GameTooltip:SetPoint("LEFT",frame,"RIGHT")
- GameTooltip:SetText(frame.text:GetText() or "", 1, .82, 0, true)
+ 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)
- GameTooltip:Show()
+ tooltip:Show()
end
end
@@ -225,7 +217,7 @@ local function Button_OnLeave(frame)
self:Fire("OnButtonLeave", frame.uniquevalue, frame)
if self.enabletooltips then
- GameTooltip:Hide()
+ AceGUI.tooltip:Hide()
end
end
@@ -271,18 +263,19 @@ end
local function Dragger_OnMouseUp(frame)
local treeframe = frame:GetParent()
local self = treeframe.obj
- local frame = treeframe:GetParent()
+ 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:SetPoint("TOPLEFT", frame, "TOPLEFT",0,0)
- treeframe:SetPoint("BOTTOMLEFT", frame, "BOTTOMLEFT",0,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)
@@ -302,6 +295,8 @@ local methods = {
["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
@@ -365,8 +360,8 @@ local methods = {
--sets the tree to be displayed
["SetTree"] = function(self, tree, filter)
self.filter = filter
- if tree then
- assert(type(tree) == "table")
+ if tree then
+ assert(type(tree) == "table")
end
self.tree = tree
self:RefreshTree()
@@ -374,8 +369,7 @@ local methods = {
["BuildLevel"] = function(self, tree, level, parent)
local groups = (self.status or self.localstatus).groups
- local hasChildren = self.hasChildren
-
+
for i, v in ipairs(tree) do
if v.children then
if not self.filter or ShouldDisplayLevel(v.children) then
@@ -390,8 +384,8 @@ local methods = {
end
end,
- ["RefreshTree"] = function(self,scrollToSelection)
- local buttons = self.buttons
+ ["RefreshTree"] = function(self,scrollToSelection,fromOnUpdate)
+ local buttons = self.buttons
local lines = self.lines
for i, v in ipairs(buttons) do
@@ -412,7 +406,7 @@ local methods = {
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)
@@ -422,8 +416,13 @@ local methods = {
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
@@ -499,9 +498,9 @@ local methods = {
button:Show()
buttonnum = buttonnum + 1
end
-
+
end,
-
+
["SetSelected"] = function(self, value)
local status = self.status or self.localstatus
if status.selected ~= value then
@@ -551,20 +550,24 @@ local methods = {
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)
+ if treeframe.SetResizeBounds then
+ treeframe:SetResizeBounds(100, 1, maxtreewidth, 1600)
+ else
+ treeframe:SetMaxResize(maxtreewidth, 1600)
+ end
end,
["OnHeightSet"] = function(self, height)
@@ -586,16 +589,16 @@ local methods = {
treewidth = DEFAULT_TREE_WIDTH
else
resizable = false
- treewidth = DEFAULT_TREE_WIDTH
+ 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)
@@ -626,7 +629,7 @@ local PaneBackdrop = {
local DraggerBackdrop = {
bgFile = "Interface\\Tooltips\\UI-Tooltip-Background",
edgeFile = nil,
- tile = true, tileSize = 16, edgeSize = 0,
+ tile = true, tileSize = 16, edgeSize = 1,
insets = { left = 3, right = 3, top = 7, bottom = 7 }
}
@@ -634,7 +637,7 @@ local function Constructor()
local num = AceGUI:GetNextWidgetNum(Type)
local frame = CreateFrame("Frame", nil, UIParent)
- local treeframe = CreateFrame("Frame", nil, frame)
+ local treeframe = CreateFrame("Frame", nil, frame, "BackdropTemplate")
treeframe:SetPoint("TOPLEFT")
treeframe:SetPoint("BOTTOMLEFT")
treeframe:SetWidth(DEFAULT_TREE_WIDTH)
@@ -643,13 +646,17 @@ local function Constructor()
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)
+ 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)
+ local dragger = CreateFrame("Frame", nil, treeframe, "BackdropTemplate")
dragger:SetWidth(8)
dragger:SetPoint("TOP", treeframe, "TOPRIGHT")
dragger:SetPoint("BOTTOM", treeframe, "BOTTOMRIGHT")
@@ -672,14 +679,9 @@ local function Constructor()
local scrollbg = scrollbar:CreateTexture(nil, "BACKGROUND")
scrollbg:SetAllPoints(scrollbar)
+ scrollbg:SetColorTexture(0,0,0,0.4)
- if IsLegion then
- scrollbg:SetColorTexture(0,0,0,0.4)
- else
- scrollbg:SetTexture(0,0,0,0.4)
- end
-
- local border = CreateFrame("Frame",nil,frame)
+ local border = CreateFrame("Frame", nil, frame, "BackdropTemplate")
border:SetPoint("TOPLEFT", treeframe, "TOPRIGHT")
border:SetPoint("BOTTOMRIGHT")
border:SetBackdrop(PaneBackdrop)
diff --git a/libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua b/libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua
index bb0a2a2..f378d93 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua
@@ -7,10 +7,6 @@ local pairs, assert, type = pairs, assert, type
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 --
----------------
@@ -21,26 +17,30 @@ local CreateFrame, UIParent = CreateFrame, UIParent
]]
do
local Type = "Window"
- local Version = 4
+ 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("gsTitleOptionExit")
+ 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()
@@ -51,22 +51,22 @@ do
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
@@ -74,19 +74,19 @@ do
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")
@@ -94,21 +94,21 @@ do
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
@@ -121,7 +121,7 @@ do
frame:SetPoint("CENTER",UIParent,"CENTER")
end
end
-
+
local function OnWidthSet(self, width)
local content = self.content
local contentwidth = width - 34
@@ -131,8 +131,8 @@ do
content:SetWidth(contentwidth)
content.width = contentwidth
end
-
-
+
+
local function OnHeightSet(self, height)
local content = self.content
local contentheight = height - 57
@@ -142,19 +142,19 @@ do
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
@@ -166,9 +166,9 @@ do
self.OnWidthSet = OnWidthSet
self.OnHeightSet = OnHeightSet
self.EnableResize = EnableResize
-
+
self.localstatus = {}
-
+
self.frame = frame
frame.obj = self
frame:SetWidth(700)
@@ -179,90 +179,95 @@ do
frame:SetResizable(true)
frame:SetFrameStrata("FULLSCREEN_DIALOG")
frame:SetScript("OnMouseDown", frameOnMouseDown)
-
+
+ frame:SetScript("OnShow",frameOnShow)
frame:SetScript("OnHide",frameOnClose)
- frame:SetMinResize(240,240)
+ 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([[Interface\PaperDollInfoFrame\UI-GearManager-Title-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([[Interface\Tooltips\UI-Tooltip-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([[Interface\PaperDollInfoFrame\UI-GearManager-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([[Interface\PaperDollInfoFrame\UI-GearManager-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([[Interface\PaperDollInfoFrame\UI-GearManager-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([[Interface\PaperDollInfoFrame\UI-GearManager-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([[Interface\PaperDollInfoFrame\UI-GearManager-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([[Interface\PaperDollInfoFrame\UI-GearManager-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([[Interface\PaperDollInfoFrame\UI-GearManager-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([[Interface\PaperDollInfoFrame\UI-GearManager-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)
@@ -270,7 +275,7 @@ do
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)
@@ -285,7 +290,7 @@ do
line1:SetWidth(14)
line1:SetHeight(14)
line1:SetPoint("BOTTOMRIGHT", -8, 8)
- line1:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
+ 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)
@@ -294,8 +299,8 @@ do
line2:SetWidth(8)
line2:SetHeight(8)
line2:SetPoint("BOTTOMRIGHT", -8, 8)
- line2:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
- local x = 0.1 * 8/17
+ 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)
@@ -306,7 +311,7 @@ do
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)
@@ -315,17 +320,17 @@ do
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
+ return self
end
-
+
AceGUI:RegisterWidgetType(Type,Constructor,Version)
end
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua
index c7c72c1..0e286ca 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-Button.lua
@@ -2,7 +2,7 @@
Button Widget
Graphical Button.
-------------------------------------------------------------------------------]]
-local Type, Version = "Button", 23
+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
@@ -18,7 +18,7 @@ Scripts
-------------------------------------------------------------------------------]]
local function Button_OnClick(frame, ...)
AceGUI:ClearFocus()
- PlaySound("igMainMenuOption")
+ PlaySound(852) -- SOUNDKIT.IG_MAINMENU_OPTION
frame.obj:Fire("OnClick", ...)
end
@@ -51,7 +51,7 @@ local methods = {
self:SetWidth(self.text:GetStringWidth() + 30)
end
end,
-
+
["SetAutoWidth"] = function(self, autoWidth)
self.autoWidth = autoWidth
if self.autoWidth then
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua
index 8847ebc..fe17e03 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua
@@ -1,7 +1,7 @@
--[[-----------------------------------------------------------------------------
Checkbox Widget
-------------------------------------------------------------------------------]]
-local Type, Version = "CheckBox", 22
+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
@@ -12,10 +12,6 @@ local select, pairs = select, pairs
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
-------------------------------------------------------------------------------]]
@@ -26,7 +22,7 @@ local function AlignImage(self)
self.text:SetPoint("LEFT", self.checkbg, "RIGHT")
self.text:SetPoint("RIGHT")
else
- self.text:SetPoint("LEFT", self.image,"RIGHT", 1, 0)
+ self.text:SetPoint("LEFT", self.image, "RIGHT", 1, 0)
self.text:SetPoint("RIGHT")
end
end
@@ -60,9 +56,9 @@ local function CheckBox_OnMouseUp(frame)
self:ToggleChecked()
if self.checked then
- PlaySound("igMainMenuOptionCheckBoxOn")
+ PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON
else -- for both nil and false (tristate)
- PlaySound("igMainMenuOptionCheckBoxOff")
+ PlaySound(857) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_OFF
end
self:Fire("OnValueChanged", self.checked)
@@ -91,7 +87,7 @@ local methods = {
if self.desc then
self.desc:SetWidth(width - 30)
if self.desc:GetText() and self.desc:GetText() ~= "" then
- self:SetHeight(28 + self.desc:GetHeight())
+ self:SetHeight(28 + self.desc:GetStringHeight())
end
end
end,
@@ -119,20 +115,20 @@ local methods = {
end
end,
- ["SetValue"] = function(self,value)
+ ["SetValue"] = function(self, value)
local check = self.check
self.checked = value
if value then
- SetDesaturation(self.check, false)
- self.check:Show()
+ SetDesaturation(check, false)
+ check:Show()
else
--Nil is the unknown tristate value
if self.tristate and value == nil then
- SetDesaturation(self.check, true)
- self.check:Show()
+ SetDesaturation(check, true)
+ check:Show()
else
- SetDesaturation(self.check, false)
- self.check:Hide()
+ SetDesaturation(check, false)
+ check:Hide()
end
end
self:SetDisabled(self.disabled)
@@ -155,21 +151,21 @@ local methods = {
local size
if type == "radio" then
size = 16
- checkbg:SetTexture("Interface\\Buttons\\UI-RadioButton")
+ checkbg:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton
checkbg:SetTexCoord(0, 0.25, 0, 1)
- check:SetTexture("Interface\\Buttons\\UI-RadioButton")
+ check:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton
check:SetTexCoord(0.25, 0.5, 0, 1)
check:SetBlendMode("ADD")
- highlight:SetTexture("Interface\\Buttons\\UI-RadioButton")
+ highlight:SetTexture(130843) -- Interface\\Buttons\\UI-RadioButton
highlight:SetTexCoord(0.5, 0.75, 0, 1)
else
size = 24
- checkbg:SetTexture("Interface\\Buttons\\UI-CheckBox-Up")
+ checkbg:SetTexture(130755) -- Interface\\Buttons\\UI-CheckBox-Up
checkbg:SetTexCoord(0, 1, 0, 1)
- check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check")
+ check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check
check:SetTexCoord(0, 1, 0, 1)
check:SetBlendMode("BLEND")
- highlight:SetTexture("Interface\\Buttons\\UI-CheckBox-Highlight")
+ highlight:SetTexture(130753) -- Interface\\Buttons\\UI-CheckBox-Highlight
highlight:SetTexCoord(0, 1, 0, 1)
end
checkbg:SetHeight(size)
@@ -199,18 +195,19 @@ local methods = {
["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:SetJustifyH("LEFT")
- desc:SetJustifyV("TOP")
- self.desc = desc
+ 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:GetHeight())
+ self:SetHeight(28 + self.desc:GetStringHeight())
else
if self.desc then
self.desc:SetText("")
@@ -220,11 +217,11 @@ local methods = {
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
@@ -254,11 +251,11 @@ local function Constructor()
checkbg:SetWidth(24)
checkbg:SetHeight(24)
checkbg:SetPoint("TOPLEFT")
- checkbg:SetTexture("Interface\\Buttons\\UI-CheckBox-Up")
+ checkbg:SetTexture(130755) -- Interface\\Buttons\\UI-CheckBox-Up
local check = frame:CreateTexture(nil, "OVERLAY")
check:SetAllPoints(checkbg)
- check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check")
+ check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check
local text = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
text:SetJustifyH("LEFT")
@@ -267,7 +264,7 @@ local function Constructor()
text:SetPoint("RIGHT")
local highlight = frame:CreateTexture(nil, "HIGHLIGHT")
- highlight:SetTexture("Interface\\Buttons\\UI-CheckBox-Highlight")
+ highlight:SetTexture(130753) -- Interface\\Buttons\\UI-CheckBox-Highlight
highlight:SetBlendMode("ADD")
highlight:SetAllPoints(checkbg)
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua
index 740a467..d57b008 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua
@@ -1,22 +1,16 @@
--[[-----------------------------------------------------------------------------
ColorPicker Widget
-------------------------------------------------------------------------------]]
-local Type, Version = "ColorPicker", 23
+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
-local IsLegion = select(4, GetBuildInfo()) >= 70000
-
-- 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: ShowUIPanel, HideUIPanel, ColorPickerFrame, OpacitySliderFrame
-
--[[-----------------------------------------------------------------------------
Support functions
-------------------------------------------------------------------------------]]
@@ -49,7 +43,7 @@ local function Control_OnLeave(frame)
end
local function ColorSwatch_OnClick(frame)
- HideUIPanel(ColorPickerFrame)
+ ColorPickerFrame:Hide()
local self = frame.obj
if not self.disabled then
ColorPickerFrame:SetFrameStrata("FULLSCREEN_DIALOG")
@@ -79,7 +73,7 @@ local function ColorSwatch_OnClick(frame)
ColorCallback(self, r, g, b, a, true)
end
- ShowUIPanel(ColorPickerFrame)
+ ColorPickerFrame:Show()
end
AceGUI:ClearFocus()
end
@@ -142,24 +136,22 @@ local function Constructor()
local colorSwatch = frame:CreateTexture(nil, "OVERLAY")
colorSwatch:SetWidth(19)
colorSwatch:SetHeight(19)
- colorSwatch:SetTexture("Interface\\ChatFrame\\ChatFrameColorSwatch")
+ colorSwatch:SetTexture(130939) -- Interface\\ChatFrame\\ChatFrameColorSwatch
colorSwatch:SetPoint("LEFT")
local texture = frame:CreateTexture(nil, "BACKGROUND")
+ colorSwatch.background = texture
texture:SetWidth(16)
texture:SetHeight(16)
- if IsLegion then
- texture:SetColorTexture(1, 1, 1)
- else
- texture:SetTexture(1, 1, 1)
- end
+ 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("Tileset\\Generic\\Checkers")
+ checkers:SetTexture(188523) -- Tileset\\Generic\\Checkers
checkers:SetTexCoord(.25, 0, 0.5, .25)
checkers:SetDesaturated(true)
checkers:SetVertexColor(1, 1, 1, 0.75)
@@ -174,7 +166,7 @@ local function Constructor()
text:SetPoint("RIGHT")
--local highlight = frame:CreateTexture(nil, "HIGHLIGHT")
- --highlight:SetTexture("Interface\\QuestFrame\\UI-QuestTitleHighlight")
+ --highlight:SetTexture(136810) -- Interface\\QuestFrame\\UI-QuestTitleHighlight
--highlight:SetBlendMode("ADD")
--highlight:SetAllPoints(frame)
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua
index 5ea840f..947184c 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown-Items.lua
@@ -1,9 +1,7 @@
---[[ $Id: AceGUIWidget-DropDown-Items.lua 1137 2016-05-15 10:57:36Z nevcairiel $ ]]--
+--[[ $Id: AceGUIWidget-DropDown-Items.lua 1272 2022-08-29 15:56:35Z nevcairiel $ ]]--
local AceGUI = LibStub("AceGUI-3.0")
-local IsLegion = select(4, GetBuildInfo()) >= 70000
-
-- Lua APIs
local select, assert = select, assert
@@ -35,7 +33,7 @@ end
-- ItemBase is the base "class" for all dropdown items.
-- Each item has to use ItemBase.Create(widgetType) to
--- create an initial 'self' value.
+-- create an initial 'self' value.
-- ItemBase will add common functions and ui event handlers.
-- Be sure to keep basic usage when you override functions.
@@ -43,7 +41,7 @@ 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,
+ version = 2000,
counter = 0,
}
@@ -54,7 +52,7 @@ function ItemBase.Frame_OnEnter(this)
self.highlight:Show()
end
self:Fire("OnEnter")
-
+
if self.specialOnEnter then
self.specialOnEnter(self)
end
@@ -62,10 +60,10 @@ end
function ItemBase.Frame_OnLeave(this)
local self = this.obj
-
+
self.highlight:Hide()
self:Fire("OnLeave")
-
+
if self.specialOnLeave then
self.specialOnLeave(self)
end
@@ -91,7 +89,7 @@ end
-- 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
@@ -157,12 +155,12 @@ function ItemBase.Create(type)
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")
@@ -171,7 +169,7 @@ function ItemBase.Create(type)
self.text = text
local highlight = frame:CreateTexture(nil, "OVERLAY")
- highlight:SetTexture("Interface\\QuestFrame\\UI-QuestTitleHighlight")
+ highlight:SetTexture(136810) -- Interface\\QuestFrame\\UI-QuestTitleHighlight
highlight:SetBlendMode("ADD")
highlight:SetHeight(14)
highlight:ClearAllPoints()
@@ -180,40 +178,40 @@ function ItemBase.Create(type)
highlight:Hide()
self.highlight = highlight
- local check = frame:CreateTexture("OVERLAY")
+ local check = frame:CreateTexture(nil, "OVERLAY")
check:SetWidth(16)
check:SetHeight(16)
check:SetPoint("LEFT",frame,"LEFT",3,-1)
- check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check")
+ check:SetTexture(130751) -- Interface\\Buttons\\UI-CheckBox-Check
check:Hide()
self.check = check
- local sub = frame:CreateTexture("OVERLAY")
+ local sub = frame:CreateTexture(nil, "OVERLAY")
sub:SetWidth(16)
sub:SetHeight(16)
sub:SetPoint("RIGHT",frame,"RIGHT",-3,-1)
- sub:SetTexture("Interface\\ChatFrame\\ChatFrameExpandArrow")
+ sub:SetTexture(130940) -- Interface\\ChatFrame\\ChatFrameExpandArrow
sub:Hide()
- self.sub = sub
-
+ 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
@@ -225,20 +223,20 @@ 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
--]]
@@ -249,25 +247,25 @@ end
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)
@@ -275,21 +273,21 @@ do
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
@@ -298,7 +296,7 @@ end
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
@@ -307,16 +305,16 @@ do
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
@@ -325,8 +323,8 @@ end
-- Does not close the pullout on click.
do
local widgetType = "Dropdown-Item-Toggle"
- local widgetVersion = 3
-
+ local widgetVersion = 4
+
local function UpdateToggle(self)
if self.value then
self.check:Show()
@@ -334,49 +332,49 @@ do
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("igMainMenuOptionCheckBoxOn")
+ PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON
else
- PlaySound("igMainMenuOptionCheckBoxOff")
+ 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
@@ -386,55 +384,55 @@ end
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
@@ -443,35 +441,31 @@ end
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)
- if IsLegion then
- line:SetColorTexture(.5, .5, .5)
- else
- line:SetTexture(.5, .5, .5)
- end
+ 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/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua
index 0dd3bff..59c7f53 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua
@@ -1,9 +1,9 @@
---[[ $Id: AceGUIWidget-DropDown.lua 1116 2014-10-12 08:15:46Z nevcairiel $ ]]--
+--[[ $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 = select, pairs, ipairs, type
+local select, pairs, ipairs, type, tostring = select, pairs, ipairs, type, tostring
local tsort = table.sort
-- WoW APIs
@@ -11,10 +11,6 @@ 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, ...)
@@ -39,10 +35,10 @@ end
do
local widgetType = "Dropdown-Pullout"
- local widgetVersion = 3
-
+ local widgetVersion = 5
+
--[[ Static data ]]--
-
+
local backdrop = {
bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border",
@@ -60,9 +56,9 @@ do
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
@@ -74,22 +70,22 @@ do
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
@@ -106,9 +102,9 @@ do
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
+ status.scrollvalue = value
end
-
+
-- exported
local function MoveScroll(self, value)
local status = self.scrollStatus
@@ -127,7 +123,7 @@ do
self.slider:SetValue(min(max(status.scrollvalue + delta*(1000/(diff/45)),0), 1000))
end
end
-
+
-- exported
local function FixScroll(self)
local status = self.scrollStatus
@@ -140,7 +136,7 @@ do
child:SetPoint("TOPRIGHT", frame, "TOPRIGHT", 0, offset)
self.slider:SetValue(0)
else
- self.slider:Show()
+ self.slider:Show()
local value = (offset / (viewheight - height) * 1000)
if value > 1000 then value = 1000 end
self.slider:SetValue(value)
@@ -153,68 +149,63 @@ do
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 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
- if i == 1 then
- item:SetPoint("TOP", itemFrame, "TOP", 0, -2)
- else
- item:SetPoint("TOP", items[i-1].frame, "BOTTOM", 0, 1)
- end
-
+ 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
-
+ end
+
-- exported
local function Close(self)
self.frame:Hide()
self:Fire("OnClose")
- end
-
+ end
+
-- exported
local function Clear(self)
local items = self.items
@@ -222,18 +213,18 @@ do
AceGUI:Release(item)
items[i] = nil
end
- 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
@@ -243,28 +234,28 @@ do
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)
+ 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
@@ -278,38 +269,38 @@ do
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: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)
+
+ local slider = CreateFrame("Slider", "AceGUI30PulloutScrollbar"..count, scrollFrame, "BackdropTemplate")
slider:SetOrientation("VERTICAL")
slider:SetHitRectInsets(0, 0, -10, 0)
slider:SetBackdrop(sliderBackdrop)
@@ -318,7 +309,7 @@ do
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)
@@ -327,46 +318,46 @@ do
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 = 30
-
+ 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")
@@ -378,10 +369,9 @@ do
self.pullout:Close()
end
end
-
+
local function Dropdown_TogglePullout(this)
local self = this.obj
- PlaySound("igMainMenuOptionCheckBoxOn") -- missleading name, but the Blizzard code uses this sound
if self.open then
self.open = nil
self.pullout:Close()
@@ -393,17 +383,17 @@ do
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
@@ -413,7 +403,7 @@ do
self.open = nil
self:Fire("OnClosed")
end
-
+
local function ShowMultiText(self)
local text
for i, widget in self.pullout:IterateItems() do
@@ -429,10 +419,10 @@ do
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)
@@ -443,14 +433,14 @@ do
else
this:SetValue(true)
end
- if self.open then
+ 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")
@@ -460,13 +450,14 @@ do
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
@@ -474,20 +465,20 @@ do
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
@@ -503,19 +494,19 @@ do
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
@@ -532,20 +523,18 @@ do
self.alignoffset = 12
end
end
-
+
-- exported
local function SetValue(self, value)
- if self.list then
- self:SetText(self.list[value] or "")
- end
+ 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
@@ -558,7 +547,7 @@ do
end
ShowMultiText(self)
end
-
+
-- exported
local function SetItemDisabled(self, item, disabled)
for i, widget in self.pullout:IterateItems() do
@@ -567,7 +556,7 @@ do
end
end
end
-
+
local function AddListItem(self, value, text, itemType)
if not itemType then itemType = "Dropdown-Item-Toggle" end
local exists = AceGUI:GetWidgetVersion(itemType)
@@ -580,7 +569,7 @@ do
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")
@@ -589,21 +578,29 @@ do
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
+ 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)
-
+ tsort(sortlist, sortTbl)
+
for i, key in ipairs(sortlist) do
AddListItem(self, key, list[key], itemType)
sortlist[i] = nil
@@ -618,15 +615,13 @@ do
AddCloseButton(self)
end
end
-
+
-- exported
local function AddItem(self, value, text, itemType)
- if self.list then
- self.list[value] = text
- AddListItem(self, value, text, itemType)
- end
+ self.list[value] = text
+ AddListItem(self, value, text, itemType)
end
-
+
-- exported
local function SetMultiselect(self, multi)
self.multiselect = multi
@@ -635,23 +630,23 @@ do
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
@@ -659,10 +654,10 @@ do
self.count = count
frame.obj = self
dropdown.obj = self
-
+
self.OnRelease = OnRelease
self.OnAcquire = OnAcquire
-
+
self.ClearFocus = ClearFocus
self.SetText = SetText
@@ -677,9 +672,9 @@ do
self.SetItemValue = SetItemValue
self.SetItemDisabled = SetItemDisabled
self.SetPulloutWidth = SetPulloutWidth
-
+
self.alignoffset = 26
-
+
frame:SetScript("OnHide",Dropdown_OnHide)
dropdown:ClearAllPoints()
@@ -690,10 +685,10 @@ do
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)
@@ -704,7 +699,7 @@ do
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
@@ -713,14 +708,14 @@ do
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)
@@ -732,6 +727,6 @@ do
AceGUI:RegisterAsWidget(self)
return self
end
-
+
AceGUI:RegisterWidgetType(widgetType, Constructor, widgetVersion)
-end
+end
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua
index d039026..bb1e4fd 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-EditBox.lua
@@ -1,7 +1,7 @@
--[[-----------------------------------------------------------------------------
EditBox Widget
-------------------------------------------------------------------------------]]
-local Type, Version = "EditBox", 26
+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
@@ -14,10 +14,6 @@ local GetCursorInfo, ClearCursor, GetSpellInfo = GetCursorInfo, ClearCursor, Get
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
-------------------------------------------------------------------------------]]
@@ -73,7 +69,7 @@ local function EditBox_OnEnterPressed(frame)
local value = frame:GetText()
local cancel = self:Fire("OnEnterPressed", value)
if not cancel then
- PlaySound("igMainMenuOptionCheckBoxOn")
+ PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON
HideButton(self)
end
end
@@ -81,23 +77,21 @@ end
local function EditBox_OnReceiveDrag(frame)
local self = frame.obj
local type, id, info = GetCursorInfo()
+ local name
if type == "item" then
- self:SetText(info)
- self:Fire("OnEnterPressed", info)
- ClearCursor()
+ name = info
elseif type == "spell" then
- local name = GetSpellInfo(id, info)
- self:SetText(name)
- self:Fire("OnEnterPressed", name)
- ClearCursor()
+ name = GetSpellInfo(id, info)
elseif type == "macro" then
- local name = GetMacroInfo(id)
+ name = GetMacroInfo(id)
+ end
+ if name then
self:SetText(name)
self:Fire("OnEnterPressed", name)
ClearCursor()
+ HideButton(self)
+ AceGUI:ClearFocus()
end
- HideButton(self)
- AceGUI:ClearFocus()
end
local function EditBox_OnTextChanged(frame)
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua
index 1aaf3f5..862ae88 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua
@@ -51,14 +51,14 @@ local function Constructor()
left:SetHeight(8)
left:SetPoint("LEFT", 3, 0)
left:SetPoint("RIGHT", label, "LEFT", -5, 0)
- left:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
+ 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("Interface\\Tooltips\\UI-Tooltip-Border")
+ right:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border
right:SetTexCoord(0.81, 0.94, 0.5, 1)
local widget = {
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua
index 561da73..378e813 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-Icon.lua
@@ -56,7 +56,7 @@ local methods = {
["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
@@ -118,7 +118,7 @@ local function Constructor()
local highlight = frame:CreateTexture(nil, "HIGHLIGHT")
highlight:SetAllPoints(image)
- highlight:SetTexture("Interface\\PaperDollInfoFrame\\UI-Character-Tab-Highlight")
+ highlight:SetTexture(136580) -- Interface\\PaperDollInfoFrame\\UI-Character-Tab-Highlight
highlight:SetTexCoord(0, 1, 0.23, 0.77)
highlight:SetBlendMode("ADD")
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua
index 9e06049..255dd97 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-InteractiveLabel.lua
@@ -1,20 +1,13 @@
--[[-----------------------------------------------------------------------------
InteractiveLabel Widget
-------------------------------------------------------------------------------]]
-local Type, Version = "InteractiveLabel", 20
+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
--- 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
-
--[[-----------------------------------------------------------------------------
Scripts
-------------------------------------------------------------------------------]]
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua
index ec4cead..0c779dc 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-Keybinding.lua
@@ -2,7 +2,7 @@
Keybinding Widget
Set Keybindings in the Config UI.
-------------------------------------------------------------------------------]]
-local Type, Version = "Keybinding", 25
+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
@@ -13,10 +13,6 @@ local pairs = pairs
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
-------------------------------------------------------------------------------]]
@@ -214,7 +210,7 @@ local function Constructor()
label:SetJustifyH("CENTER")
label:SetHeight(18)
- local msgframe = CreateFrame("Frame", nil, UIParent)
+ local msgframe = CreateFrame("Frame", nil, UIParent, "BackdropTemplate")
msgframe:SetHeight(30)
msgframe:SetBackdrop(ControlBackdrop)
msgframe:SetBackdropColor(0,0,0)
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua
index 23897d5..d0841ef 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-Label.lua
@@ -2,7 +2,7 @@
Label Widget
Displays text and optionally an icon.
-------------------------------------------------------------------------------]]
-local Type, Version = "Label", 23
+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
@@ -12,10 +12,6 @@ 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
-------------------------------------------------------------------------------]]
@@ -39,25 +35,30 @@ local function UpdateImageAnchor(self)
label:SetPoint("TOP", image, "BOTTOM")
label:SetPoint("LEFT")
label:SetWidth(width)
- height = image:GetHeight() + label:GetHeight()
+ height = image:GetHeight() + label:GetStringHeight()
else
-- image on the left
image:SetPoint("TOPLEFT")
- if image:GetHeight() > label:GetHeight() then
+ 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:GetHeight())
+ height = max(image:GetHeight(), label:GetStringHeight())
end
else
-- no image shown
label:SetPoint("TOPLEFT")
label:SetWidth(width)
- height = label:GetHeight()
+ 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
@@ -78,6 +79,8 @@ local methods = {
self:SetImageSize(16, 16)
self:SetColor()
self:SetFontObject()
+ self:SetJustifyH("LEFT")
+ self:SetJustifyV("TOP")
-- reset the flag
self.resizing = nil
@@ -106,7 +109,7 @@ local methods = {
["SetImage"] = function(self, path, ...)
local image = self.image
image:SetTexture(path)
-
+
if image:GetTexture() then
self.imageshown = true
local n = select("#", ...)
@@ -122,11 +125,16 @@ local methods = {
end,
["SetFont"] = function(self, font, height, flags)
- self.label:SetFont(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:SetFont((font or GameFontHighlightSmall):GetFont())
+ self.label:SetFontObject(font or GameFontHighlightSmall)
+ UpdateImageAnchor(self)
end,
["SetImageSize"] = function(self, width, height)
@@ -134,6 +142,14 @@ local methods = {
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,
}
--[[-----------------------------------------------------------------------------
@@ -144,9 +160,6 @@ local function Constructor()
frame:Hide()
local label = frame:CreateFontString(nil, "BACKGROUND", "GameFontHighlightSmall")
- label:SetJustifyH("LEFT")
- label:SetJustifyV("TOP")
-
local image = frame:CreateTexture(nil, "BACKGROUND")
-- create widget
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua
index 9af4b87..bacb2be 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-MultiLineEditBox.lua
@@ -1,4 +1,4 @@
-local Type, Version = "MultiLineEditBox", 28
+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
@@ -10,10 +10,6 @@ local GetCursorInfo, GetSpellInfo, ClearCursor = GetCursorInfo, GetSpellInfo, Cl
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
-------------------------------------------------------------------------------]]
@@ -145,6 +141,14 @@ local function OnVerticalScroll(self, offset)
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)
@@ -233,7 +237,7 @@ local methods = {
end
Layout(self)
end,
-
+
["ClearFocus"] = function(self)
self.editBox:ClearFocus()
self.frame:SetScript("OnShow", nil)
@@ -253,12 +257,10 @@ local methods = {
["GetCursorPosition"] = function(self)
return self.editBox:GetCursorPosition()
end,
-
+
["SetCursorPosition"] = function(self, ...)
return self.editBox:SetCursorPosition(...)
end,
-
-
}
--[[-----------------------------------------------------------------------------
@@ -273,7 +275,7 @@ local backdrop = {
local function Constructor()
local frame = CreateFrame("Frame", nil, UIParent)
frame:Hide()
-
+
local widgetNum = AceGUI:GetNextWidgetNum(Type)
local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall")
@@ -290,14 +292,14 @@ local function Constructor()
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)
+ local scrollBG = CreateFrame("Frame", nil, frame, "BackdropTemplate")
scrollBG:SetBackdrop(backdrop)
scrollBG:SetBackdropColor(0, 0, 0)
scrollBG:SetBackdropBorderColor(0.4, 0.4, 0.4)
@@ -321,6 +323,7 @@ local function Constructor()
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()
@@ -339,7 +342,7 @@ local function Constructor()
editBox:SetScript("OnTextChanged", OnTextChanged)
editBox:SetScript("OnTextSet", OnTextSet)
editBox:SetScript("OnEditFocusGained", OnEditFocusGained)
-
+
scrollFrame:SetScrollChild(editBox)
diff --git a/libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua b/libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua
index 583f29d..483d400 100644
--- a/libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua
+++ b/libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua
@@ -2,7 +2,7 @@
Slider Widget
Graphical Slider, like, for Range values.
-------------------------------------------------------------------------------]]
-local Type, Version = "Slider", 21
+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
@@ -14,10 +14,6 @@ local tonumber, pairs = tonumber, pairs
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
-------------------------------------------------------------------------------]]
@@ -31,13 +27,13 @@ local function UpdateText(self)
end
local function UpdateLabels(self)
- local min, max = (self.min or 0), (self.max or 100)
+ local min_value, max_value = (self.min or 0), (self.max or 100)
if self.ispercent then
- self.lowtext:SetFormattedText("%s%%", (min * 100))
- self.hightext:SetFormattedText("%s%%", (max * 100))
+ self.lowtext:SetFormattedText("%s%%", (min_value * 100))
+ self.hightext:SetFormattedText("%s%%", (max_value * 100))
else
- self.lowtext:SetText(min)
- self.hightext:SetText(max)
+ self.lowtext:SetText(min_value)
+ self.hightext:SetText(max_value)
end
end
@@ -57,10 +53,9 @@ local function Frame_OnMouseDown(frame)
AceGUI:ClearFocus()
end
-local function Slider_OnValueChanged(frame)
+local function Slider_OnValueChanged(frame, newvalue)
local self = frame.obj
if not frame.setup then
- local newvalue = frame:GetValue()
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
@@ -106,9 +101,9 @@ local function EditBox_OnEnterPressed(frame)
else
value = tonumber(value)
end
-
+
if value then
- PlaySound("igMainMenuOptionCheckBoxOn")
+ PlaySound(856) -- SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON
self.slider:SetValue(value)
self:Fire("OnMouseUp", value)
end
@@ -176,13 +171,13 @@ local methods = {
self.label:SetText(text)
end,
- ["SetSliderValues"] = function(self, min, max, step)
+ ["SetSliderValues"] = function(self, min_value, max_value, step)
local frame = self.slider
frame.setup = true
- self.min = min
- self.max = max
+ self.min = min_value
+ self.max = max_value
self.step = step
- frame:SetMinMaxValues(min or 0,max or 100)
+ frame:SetMinMaxValues(min_value or 0,max_value or 100)
UpdateLabels(self)
frame:SetValueStep(step or 1)
if self.value then
@@ -226,7 +221,7 @@ local function Constructor()
label:SetJustifyH("CENTER")
label:SetHeight(15)
- local slider = CreateFrame("Slider", nil, frame)
+ local slider = CreateFrame("Slider", nil, frame, "BackdropTemplate")
slider:SetOrientation("HORIZONTAL")
slider:SetHeight(15)
slider:SetHitRectInsets(0, 0, -10, 0)
@@ -248,7 +243,7 @@ local function Constructor()
local hightext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
hightext:SetPoint("TOPRIGHT", slider, "BOTTOMRIGHT", -2, 3)
- local editbox = CreateFrame("EditBox", nil, frame)
+ local editbox = CreateFrame("EditBox", nil, frame, "BackdropTemplate")
editbox:SetAutoFocus(false)
editbox:SetFontObject(GameFontHighlightSmall)
editbox:SetPoint("TOP", slider, "BOTTOM")
diff --git a/libs/AceLocale-3.0/AceLocale-3.0.lua b/libs/AceLocale-3.0/AceLocale-3.0.lua
index e133781..d69aa73 100644
--- a/libs/AceLocale-3.0/AceLocale-3.0.lua
+++ b/libs/AceLocale-3.0/AceLocale-3.0.lua
@@ -1,7 +1,7 @@
--- **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 $
+-- @release $Id: AceLocale-3.0.lua 1284 2022-09-25 09:15:30Z nevcairiel $
local MAJOR,MINOR = "AceLocale-3.0", 6
local AceLocale, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
@@ -12,10 +12,6 @@ if not AceLocale then return end -- no upgrade needed
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"
@@ -93,7 +89,7 @@ local writedefaultproxy = setmetatable({}, {
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 activeGameLocale = GAME_LOCALE or gameLocale
local app = AceLocale.apps[application]
@@ -111,7 +107,7 @@ function AceLocale:NewLocale(application, locale, isDefault, silent)
AceLocale.appnames[app] = application
end
- if locale ~= gameLocale and not isDefault then
+ if locale ~= activeGameLocale and not isDefault then
return -- nop, we don't need these translations
end
diff --git a/libs/AceLocale-3.0/AceLocale-3.0.xml b/libs/AceLocale-3.0/AceLocale-3.0.xml
index e017af0..bf023f0 100644
--- a/libs/AceLocale-3.0/AceLocale-3.0.xml
+++ b/libs/AceLocale-3.0/AceLocale-3.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/AceTimer-3.0/AceTimer-3.0.lua b/libs/AceTimer-3.0/AceTimer-3.0.lua
index 8ba6b3c..8776da2 100644
--- a/libs/AceTimer-3.0/AceTimer-3.0.lua
+++ b/libs/AceTimer-3.0/AceTimer-3.0.lua
@@ -15,7 +15,7 @@
-- make into AceTimer.
-- @class file
-- @name AceTimer-3.0
--- @release $Id: AceTimer-3.0.lua 1119 2014-10-14 17:23:29Z nevcairiel $
+-- @release $Id: AceTimer-3.0.lua 1284 2022-09-25 09:15:30Z nevcairiel $
local MAJOR, MINOR = "AceTimer-3.0", 17 -- Bump minor on changes
local AceTimer, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
@@ -34,18 +34,20 @@ local function new(self, loop, func, delay, ...)
delay = 0.01 -- Restrict to the lowest time that the C_Timer API allows us
end
- local timer = {...}
- timer.object = self
- timer.func = func
- timer.looping = loop
- timer.argsCount = select("#", ...)
- timer.delay = delay
- timer.ends = GetTime() + delay
+ 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()
+ 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
@@ -59,11 +61,11 @@ local function new(self, loop, func, delay, ...)
-- 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)
+ local ndelay = 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
+ if ndelay < 0.01 then ndelay = 0.01 end
+ C_TimerAfter(ndelay, timer.callback)
+ timer.ends = time + ndelay
else
activeTimers[timer.handle or timer] = nil
end
@@ -156,7 +158,7 @@ end
--- Cancels all timers registered to the current addon object ('self')
function AceTimer:CancelAllTimers()
- for k,v in pairs(activeTimers) do
+ for k,v in next, activeTimers do
if v.object == self then
AceTimer.CancelTimer(self, k)
end
@@ -187,8 +189,8 @@ if oldminor and oldminor < 10 then
AceTimer.frame:SetScript("OnEvent", nil)
AceTimer.frame:UnregisterAllEvents()
-- convert timers
- for object,timers in pairs(AceTimer.selfs) do
- for handle,timer in pairs(timers) do
+ 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
@@ -214,7 +216,7 @@ elseif oldminor and oldminor < 17 then
-- Clear old timer table and update upvalue
AceTimer.activeTimers = {}
activeTimers = AceTimer.activeTimers
- for handle, timer in pairs(oldTimers) do
+ for handle, timer in next, oldTimers do
local newTimer
-- Stop the old timer animation
local duration, elapsed = timer:GetDuration(), timer:GetElapsed()
@@ -232,7 +234,7 @@ elseif oldminor and oldminor < 17 then
-- Migrate transitional handles
if oldminor < 13 and AceTimer.hashCompatTable then
- for handle, id in pairs(AceTimer.hashCompatTable) do
+ for handle, id in next, AceTimer.hashCompatTable do
local t = activeTimers[id]
if t then
activeTimers[id] = nil
@@ -257,7 +259,7 @@ local mixins = {
function AceTimer:Embed(target)
AceTimer.embeds[target] = true
- for _,v in pairs(mixins) do
+ for _,v in next, mixins do
target[v] = AceTimer[v]
end
return target
@@ -271,6 +273,6 @@ function AceTimer:OnEmbedDisable(target)
target:CancelAllTimers()
end
-for addon in pairs(AceTimer.embeds) do
+for addon in next, AceTimer.embeds do
AceTimer:Embed(addon)
end
diff --git a/libs/AceTimer-3.0/AceTimer-3.0.xml b/libs/AceTimer-3.0/AceTimer-3.0.xml
index 38e9021..d5aee81 100644
--- a/libs/AceTimer-3.0/AceTimer-3.0.xml
+++ b/libs/AceTimer-3.0/AceTimer-3.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/CallbackHandler-1.0/CallbackHandler-1.0.lua b/libs/CallbackHandler-1.0/CallbackHandler-1.0.lua
index 675d7b0..a791159 100644
--- a/libs/CallbackHandler-1.0/CallbackHandler-1.0.lua
+++ b/libs/CallbackHandler-1.0/CallbackHandler-1.0.lua
@@ -1,5 +1,5 @@
---[[ $Id: CallbackHandler-1.0.lua 1131 2015-06-04 07:29:24Z nevcairiel $ ]]
-local MAJOR, MINOR = "CallbackHandler-1.0", 6
+--[[ $Id: CallbackHandler-1.0.lua 1284 2022-09-25 09:15:30Z nevcairiel $ ]]
+local MAJOR, MINOR = "CallbackHandler-1.0", 7
local CallbackHandler = LibStub:NewLibrary(MAJOR, MINOR)
if not CallbackHandler then return end -- No upgrade needed
@@ -7,56 +7,25 @@ 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 error = error
+local setmetatable, rawget = setmetatable, 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 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", tconcat(OLD_ARGS, ", ")):gsub("ARGS", tconcat(ARGS, ", "))
- return assert(loadstring(code, "safecall Dispatcher["..argCount.."]"))(next, xpcall, errorhandler)
+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
-local Dispatchers = setmetatable({}, {__index=function(self, argCount)
- local dispatcher = CreateDispatcher(argCount)
- rawset(self, argCount, dispatcher)
- return dispatcher
-end})
-
--------------------------------------------------------------------------
-- CallbackHandler:New
--
@@ -65,7 +34,7 @@ end})
-- 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)
+function CallbackHandler.New(_self, target, RegisterName, UnregisterName, UnregisterAllName)
RegisterName = RegisterName or "RegisterCallback"
UnregisterName = UnregisterName or "UnregisterCallback"
@@ -87,19 +56,19 @@ function CallbackHandler:New(target, RegisterName, UnregisterName, UnregisterAll
local oldrecurse = registry.recurse
registry.recurse = oldrecurse + 1
- Dispatchers[select('#', ...) + 1](events[eventname], eventname, ...)
+ 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
+ for event,callbacks in pairs(registry.insertQueue) do
+ local first = not rawget(events, event) or not next(events[event]) -- test for empty before. not test for one member after. that one member may have been overwritten.
+ for object,func in pairs(callbacks) do
+ events[event][object] = func
-- fire OnUsed callback?
if first and registry.OnUsed then
- registry.OnUsed(registry, target, eventname)
+ registry.OnUsed(registry, target, event)
first = nil
end
end
diff --git a/libs/CallbackHandler-1.0/CallbackHandler-1.0.xml b/libs/CallbackHandler-1.0/CallbackHandler-1.0.xml
index 876df83..c107f88 100644
--- a/libs/CallbackHandler-1.0/CallbackHandler-1.0.xml
+++ b/libs/CallbackHandler-1.0/CallbackHandler-1.0.xml
@@ -1,4 +1,4 @@
-
\ No newline at end of file
+
diff --git a/libs/LibFunctional-1.0/LibFunctional-1.0.toc b/libs/LibFunctional-1.0/LibFunctional-1.0.toc
new file mode 100644
index 0000000..3c098d0
--- /dev/null
+++ b/libs/LibFunctional-1.0/LibFunctional-1.0.toc
@@ -0,0 +1,9 @@
+## Interface: 60000
+## Title: Lib: Functional-1.0
+## Notes: Helper functions to enable functional style programming in lua
+## Author: Slaren
+## X-Category: Library
+
+Libs\LibStub\LibStub.lua
+
+lib.xml
diff --git a/libs/LibFunctional-1.0/functional.lua b/libs/LibFunctional-1.0/functional.lua
new file mode 100644
index 0000000..be4212f
--- /dev/null
+++ b/libs/LibFunctional-1.0/functional.lua
@@ -0,0 +1,725 @@
+local version = 2
+local lib
+
+-- allow it to work outside of wow for testing purposes
+if LibStub then
+ lib = LibStub:NewLibrary("LibFunctional-1.0", version)
+else
+ lib = {}
+end
+
+if not lib then return end
+
+-- globals
+local tinsert, tsort, tconcat = table.insert, table.sort, table.concat
+local pairs, next, select, type, unpack, loadstring = pairs, next, select, type, unpack, loadstring
+local math_min, math_max, math_floor, math_random = math.min, math.max, math.floor, math.random
+
+local function identity(x)
+ return x
+end
+
+--- Returns a new table with the keys and values of all the passed tables.
+-- If a key is present in more than one of the tables, the value from the rightmost table in the argument list is used.
+-- @param ... any number of input tables.
+local function merge(...)
+ local r = {}
+ for i = 1, select("#", ...) do
+ for k, v in pairs(select(i, ...)) do
+ r[k] = v
+ end
+ end
+ return r
+end
+
+--- Returns a list of keys in the table //tbl//.
+-- @param tbl the input table.
+local function keys(tbl)
+ local r = {}
+ for k, _ in pairs(tbl) do
+ tinsert(r, k)
+ end
+ return r
+end
+
+--- Returns a list of values in the table //tbl//.
+-- @param tbl the input table.
+local function values(tbl)
+ local r = {}
+ for _, v in pairs(tbl) do
+ tinsert(r, v)
+ end
+ return r
+end
+
+--- Returns a list of ##{ key, value }## pairs in the table //tbl//.
+-- This function is equivalent to ##zip(keys(tbl), values(tbl))##.
+-- @name pairs
+-- @param tbl the input table.
+local function table_pairs(tbl)
+ local r = {}
+ for k, v in pairs(tbl) do
+ tinsert(r, { k , v })
+ end
+ return r
+end
+
+--- Returns the number of items in the table //tbl//.
+-- @name size
+-- @param tbl the input table.
+local function table_size(tbl)
+ local count = 0
+ local v = nil
+ while true do
+ v = next(tbl, v)
+ if not v then return count end
+ count = count + 1
+ end
+end
+
+--- Returns true if the table //tbl1// has the same keys and values than the table //tbl2//.
+-- @paramsig tbl1, tbl2[, deep]
+-- @param tbl1 first table.
+-- @param tbl2 second table.
+-- @param deep optional, if true, table values inside the tables are compared recursively, otherwise a shallow comparison is made. Note that if the tables contains cyclic references this function will fail to perform a deep comparison.
+local function equal(tbl1, tbl2, deep)
+ if table_size(tbl1) ~= table_size(tbl2) then return false end
+ for k, v in pairs(tbl1) do
+ if deep and type(v) == "table" then
+ if not equal(v, tbl2[k], deep) then return false end
+ elseif tbl2[k] ~= v then return false end
+ end
+ return true
+end
+
+--- Returns a copy of the table //tbl// with its values as keys and its keys as values.
+-- @param tbl the input table.
+local function invert(tbl)
+ local r = {}
+ for k, v in pairs(tbl) do
+ r[v] = k
+ end
+ return r
+end
+
+--- Returns a copy of the table //tbl//.
+-- @paramsig tbl[, deep]
+-- @param tbl the input table.
+-- @param deep optional, if true, table values inside the table are copied recursively, otherwise a shallow copy is made. Note that if the tables contains cyclic references this function will fail to perform a deep copy.
+local function clone(tbl, deep)
+ local r = {}
+ for k, v in pairs(tbl) do
+ if deep and type(v) == "table" then
+ r[k] = clone(v, deep)
+ else
+ r[k] = v
+ end
+ end
+ return r
+end
+
+--- Returns a list containing the numbers from //start// to //stop// (including //stop//) with step //step//.
+-- If omitted, //start// and //step// default to 1.
+-- @paramsig [start], stop[, step]
+local function range(a1, a2, a3)
+ local start = a2 and a1 or 1
+ local stop = a2 and a2 or a1
+ local step = a3 or 1
+ local r = {}
+ local p = 1
+ for i = start, stop, step do
+ r[p] = i
+ p = p + 1
+ end
+ return r
+end
+
+--- Returns a copy of a portion of the list //list//.
+-- @paramsig list, begin[, end]
+-- @param list the input list.
+-- @param begin the first index to copy. If negative, indicates an offset from the end of the list.
+-- @param end optional, the last index to copy. If omitted, the list is copied through the end. If negative, indicates an offset from the end of the list.
+local function slice(l, b, e)
+ local r = {}
+ local len = #l
+ b = b or 1
+ e = e or len
+ b = b < 0 and (len + b + 1) or b
+ e = e < 0 and (len + e) or e
+ for i = b, e do
+ r[i - b + 1] = l[i]
+ end
+ return r
+end
+
+--- Shuffles the list //list// in-place using the Fisher–Yates algorithm and returns it.
+-- @param list the input list.
+local function shuffle_inplace(list)
+ local j = #list
+ while (j > 0) do
+ local i = math_random(j)
+ local tmp = list[i]
+ list[i] = list[j]
+ list[j] = tmp
+ j = j - 1
+ end
+ return list
+end
+
+--- Returns a copy of the list //list// shuffled using the Fisher–Yates algorithm.
+-- @param list the input list.
+local function shuffle(list)
+ return shuffle_inplace(clone(list))
+end
+
+--- Returns a copy of the list //list// with any nested lists flattened to a single level.
+-- @paramsig list[, shallow]
+-- @param list the input list.
+-- @param shallow optional, if set to true only flattens the first level.
+local function flatten(l, shallow, output)
+ local r = output or {}
+ local len = #l
+ for i = 1, len do
+ local v = l[i]
+ if type(v) == "table" then
+ local lenj = #v
+ for j = 1, lenj do
+ local vj = v[j]
+ if type(vj) == "table" and not shallow then
+ flatten(vj, shallow, r)
+ else
+ tinsert(r, vj)
+ end
+ end
+ else
+ tinsert(r, v)
+ end
+ end
+ return r
+end
+
+--- Calls repeatedly the function //fn// with each value of the list //list//.
+-- **aliases**: //for_each//
+-- @param list the input list.
+-- @param fn the function called with each value.
+local function each(list, fn)
+ local len = #list
+ for i = 1, len do
+ local v = list[i]
+ fn(v)
+ end
+ return list
+end
+
+--- Returns a new list with the results of //fn// applied to all items in the list //list//.
+-- @param list the input list.
+-- @param fn the function called with each value.
+local function map(list, fn)
+ local r = {}
+ local len = #list
+ for i = 1, len do
+ r[i] = fn(list[i])
+ end
+ return r
+end
+
+--- Returns a list of values in the list //list// that pass a truth test //fn//.
+-- @param list the input list.
+-- @param fn the truth test function.
+local function filter(list, fn)
+ local r = {}
+ local len = #list
+ for i = 1, len do
+ if fn(list[i]) then
+ tinsert(r, list[i])
+ end
+ end
+ return r
+end
+
+--- Returns a reversed copy of the list //list//.
+-- @param list the input list.
+local function reverse(list)
+ local r = {}
+ local len = #list
+ for i = 1, len do
+ r[i] = list[len - i + 1]
+ end
+ return r
+end
+
+--- Returns true if the value //value// is present in the list //list//, false otherwise.
+-- **aliases**: //elem//
+-- @param list the input list.
+-- @param value the value to search for.
+-- @param fn an optional function to apply to each value in the list before comparing it to //value//.
+local function contains(list, value, fn)
+ local fn = fn or identity
+ local len = #list
+ for i = 1, len do
+ if fn(list[i]) == value then
+ return true
+ end
+ end
+ return false
+end
+
+--- Returns the first value and its index in list //list// that is equal to any of the values passed.
+-- @param list the input list.
+-- @param ... one or more values to search for.
+local function find_first_of(list, ...)
+ local vs = { ... }
+ local len = #list
+ for i = 1, len do
+ local lv = list[i]
+ if contains(vs, lv) then
+ return lv, i
+ end
+ end
+end
+
+--- Returns the last value and its index in list //list// that is equal to any of the values passed.
+-- @param list the input list.
+-- @param ... one or more values to search for.
+local function find_last_of(list, ...)
+ local vs = { ... }
+ local len = #list
+ for i = len, 1, -1 do
+ local lv = list[i]
+ if contains(vs, lv) then
+ return lv, i
+ end
+ end
+end
+
+--- Returns the first value and its index in list //list// that passes the truth test //fn//.
+-- @param list the input list.
+-- @param fn the truth test function.
+local function find_if(list, fn)
+ local len = #list
+ for i = 1, len do
+ local v = list[i]
+ if fn(v) then
+ return v, i
+ end
+ end
+end
+
+--- Performs a binary search on sorted list //list// for value //value// and returns the index at which value should be inserted.
+-- @paramsig list, value[, fn]
+-- @param list the input sorted list.
+-- @param value the value to search for.
+-- @param fn an optional function that is applied to each value in the list before performing the comparison.
+local function sorted_index(list, value, fn)
+ fn = fn or identity
+ local lo = 1
+ local hi = #list
+ while lo < hi do
+ local mid = math_floor((lo + hi) / 2)
+ local mid_v = fn(list[mid])
+ if mid_v == value then
+ return mid
+ elseif mid_v < value then
+ lo = mid + 1
+ else
+ hi = mid - 1
+ end
+ end
+ return lo
+end
+
+--- Performs a binary search on sorted list //list// for value //value// and returns its index and value if found
+-- @paramsig list, value[, fn]
+-- @param list the input sorted list.
+-- @param value the value to search for.
+-- @param fn an optional function that is applied to each value in the list before performing the comparison.
+local function binary_search(list, value, fn)
+ local i = sorted_index(list, value, fn)
+ local li = list[i]
+ local lv
+
+ if fn then
+ lv = fn(li)
+ else
+ lv = li
+ end
+
+ if lv == value then
+ return i, li
+ end
+end
+
+--- Inserts a value //value// in a sorted list //list// and returns it.
+-- @paramsig list, value[, fn]
+-- @param list the input sorted list.
+-- @param value the value to insert.
+-- @param fn an optional function that is applied to each value in the list before performing the comparison.
+local function sorted_insert(list, value, fn)
+ local i = sorted_index(list, value, fn)
+ tinsert(list, i, value)
+ return list
+end
+
+--- Returns a reduction of the list //list// based on the left associative application of the function //fn//.
+-- **aliases**: //foldl//
+-- @paramsig list, fn[, initial]
+-- @param list the input list.
+-- @param fn a function receiving two values representing the result of the previous application of this function and the next value in the list //list//.
+-- @param initial an optional initial value to be passed together with the first value of the list //list// to the function //fn//. If omitted, the first call is passed the two first values in the list //list// instead.
+local function reduce(list, fn, initial)
+ local s = initial and 1 or 2
+ local r = initial and initial or list[1]
+ local len = #list
+ for i = s, len do
+ r = fn(r, list[i])
+ end
+ return r
+end
+
+--- Returns a reduction of the list //list// based on the right associative application of the function //fn//.
+-- **aliases**: //foldr//
+-- @paramsig list, fn[, initial]
+-- @param list the input list.
+-- @param fn a function receiving two values representing the result of the previous application of this function and the previous value in the list //list//.
+-- @param initial an optional initial value to be passed together with the last value of the list //list// to the function //fn//. If omitted, the first call is passed the two last values in the list //list// instead.
+local function reduce_right(list, fn, initial)
+ local s = initial and #list or #list - 1
+ local r = initial and initial or list[#list]
+ for i = s, 1, -1 do
+ r = fn(r, list[i])
+ end
+ return r
+end
+
+--- Returns a sum of all the values in the list //list//.
+-- This function is equivalent to ##reduce(list, function(a, b) return a + b end)##.
+-- @param list the input list.
+local function sum(list)
+ return reduce(list, function(a, b) return a + b end)
+end
+
+--- Returns the minimum value in the list //list//.
+-- This function is equivalent to ##reduce(list, math.min)##.
+-- @param list the input list.
+local function min(list)
+ return reduce(list, math_min)
+end
+
+--- Returns the maximum value in the list //list//.
+-- This function is equivalent to ##reduce(list, math.max)##.
+-- @param list the input list.
+local function max(list)
+ return reduce(list, math_max)
+end
+
+--- Performs an in-place sort of the list //list// and returns it.
+-- @paramsig list[, comp]
+-- @param list the input list.
+-- @param comp an optional comparison function that receives two values and returns true when the first is less than the second.
+local function sort_inplace(list, comp)
+ tsort(list, comp)
+ return list
+end
+
+--- Returns a sorted copy of the list //list//.
+-- @paramsig list[, comp]
+-- @param list the input list.
+-- @param comp an optional comparison function that receives two values and returns true when the first is less than the second.
+local function sort(list, comp)
+ local r = clone(list)
+ tsort(r, comp)
+ return r
+end
+
+--- Returns true if all the values in the list //list// satisfy the truth test //fn//, false otherwise.
+-- **aliases**: //every//
+-- @param list the input list.
+-- @param fn the truth test function.
+local function all(list, fn)
+ local len = #list
+ for i = 1, len do
+ local v = list[i]
+ if not fn(v) then
+ return false
+ end
+ end
+ return true
+end
+
+--- Returns true if any value in the list //list// satisfies the truth test //fn//, false otherwise.
+-- **aliases**: //some//
+-- @param list the input list.
+-- @param fn the truth test function.
+local function any(list, fn)
+ local len = #list
+ for i = 1, len do
+ local v = list[i]
+ if fn(v) then
+ return true
+ end
+ end
+ return false
+end
+
+--- Returns a list containing the concatenation of all the input lists.
+-- @param ... any number of input lists.
+local function concat(...)
+ local r = {}
+ local n = select("#", ...)
+ for a = 1, n do
+ local l = select(a, ...)
+ local len = #l
+ for i = 1, len do
+ tinsert(r, l[i])
+ end
+ end
+ return r
+end
+
+--- Returns a copy of the list //list// with any duplicate values removed.
+-- @paramsig list[, is_sorted[, fn]]
+-- @param list the input list.
+-- @param is_sorted an optional argument specifying if the list is sorted, allowing to use a more efficient algorithm.
+-- @param fn an optional function that is applied to each value in the list before performing the comparison.
+local function uniq(list, is_sorted, fn)
+ local lm = fn and map(list, fn) or list
+ local r = {}
+ local seen = {}
+ local len = #list
+ for i = 1, len do
+ local v = lm[i]
+ local newv = is_sorted and (i == 1 or lm[i - 1] ~= v) or not contains(seen, v)
+ if newv then
+ tinsert(seen, v)
+ tinsert(r, list[i])
+ end
+ end
+ return r
+end
+
+--- Returns a list containing all the different values present in the input lists.
+-- @param ... any number of input lists.
+local function union(...)
+ return uniq(concat(...))
+end
+
+local function get_set_params(...)
+ local fn = identity
+ local a = select(1, ...)
+ local others
+ if type(a) == "function" then
+ fn = a
+ a = select(2, ...)
+ others = { select(3, ...) }
+ else
+ others = { select(2, ...) }
+ end
+
+ return fn, a, others
+end
+
+--- Returns a list containing all the items in the first list that are not present in any of the rest.
+-- @paramsig [fn, ]list1, [list2...]
+-- @param fn an optional function to apply to each value in the list before performing the comparison.
+-- @param list two or more input lists.
+local function difference(...)
+ local fn, a, others = get_set_params(...)
+ return filter(a, function(xa)
+ return all(others, function(other)
+ return not contains(other, fn(xa), fn)
+ end)
+ end)
+end
+
+--- Returns a list containing all the items that are present in all of the input lists.
+-- If the first list passed contains the same value multiple times, it may appear multiple times in the output list. Use //uniq// on the first list if you want to prevent this.
+-- @paramsig [fn, ]list1, [list2...]
+-- @param fn an optional function to apply to each value in the list before performing the comparison.
+-- @param list two or more input lists.
+local function intersection(...)
+ local fn, a, others = get_set_params(...)
+ return filter(a, function(xa)
+ return all(others, function(other)
+ return contains(other, fn(xa), fn)
+ end)
+ end)
+end
+
+--- Returns a list constructed from the result of an iterator function.
+-- @paramsig [fn, ]f, s, var
+-- @param fn an optional function that is applied to the values returned by the iterator before adding them to the list.
+-- If omitted, the default function packs all the values returned by the iterator into a list.
+-- @param f the values returned by an iterator function.
+-- @param s the values returned by an iterator function.
+-- @param var the values returned by an iterator function.
+local function from_iterator(...)
+ local tr
+ local f, s, var
+
+ if select("#", ...) == 4 then
+ tr = select(1, ...)
+ f = select(2, ...)
+ s = select(3, ...)
+ var = select(4, ...)
+ else
+ tr = function(...) return { ... } end
+ f = select(1, ...)
+ s = select(2, ...)
+ var = select(3, ...)
+ end
+
+ local function mtr(...)
+ var = select(1, ...)
+ if var == nil then
+ return nil
+ else
+ return tr(...)
+ end
+ end
+
+ local r = {}
+ local n = 1
+ while true do
+ local v = mtr(f(s, var))
+ if var == nil then break end
+ r[n] = v
+ n = n + 1
+ end
+
+ return r
+end
+
+--- Takes any number of lists and returns a new list where each element is a list of the values in all of the passed lists at that position.
+-- If one list is shorter than the others, excess elements of the longer lists are discarded.
+-- @param ... any number of input lists.
+-- @see unzip
+local function zip(...)
+ local ls = { ... }
+ local n = #ls
+ if n == 0 then return {} end
+ local len = reduce(ls, function(r, v) return math_min(r, #v) end, #ls[1])
+ local r = {}
+ for i = 1, len do
+ local v = {}
+ for j = 1, n do
+ v[j] = ls[j][i]
+ end
+ r[i] = v
+ end
+ return r
+end
+
+--- Undoes a zip operation.
+-- @param list a list of lists.
+-- @see zip
+local function unzip(list)
+ return unpack(zip(unpack(list)))
+end
+
+--- Takes any number of lists and returns a new list where each element is the result of calling the function //fn// with the values in all of the passed lists at that position.
+-- If one list is shorter than the others, excess elements of the longer lists are discarded.
+-- @param fn a function taking as many parameters as lists are passed to zip_with and returning a value to be inserted in the resulting list.
+-- @param ... any number of input lists.
+local function zip_with(fn, ...)
+ local ls = { ... }
+ local n = #ls
+ if n == 0 then return {} end
+ local len = reduce(ls, function(r, v) return math_min(r, #v) end, #ls[1])
+ local r = {}
+ local v = {}
+ for i = 1, len do
+ for j = 1, n do
+ v[j] = ls[j][i]
+ end
+ r[i] = fn(unpack(v))
+ end
+ return r
+end
+
+--- Returns a function //g// such as calling //g(p1, p2, .. pn)// is equivalent to calling //fn(arg1, arg2, .. argn, p1, p2, .. pn)//.
+-- @paramsig fn, arg1[, arg2...]
+-- @param fn the input function.
+-- @param "arg1[, arg2...]" one or more arguments to be bound.
+local function bind(fn, ...)
+ local anames = tconcat(map(range(select("#", ...)), function(x) return "a"..x end), ",")
+ return loadstring(
+ [[return function(fn, ]] .. anames .. [[)
+ return function(...)
+ return fn(]] .. anames .. [[, ...)
+ end
+ end]])()(fn, ...)
+end
+
+--- Returns a function //g// such as calling //g(p1, p2, .. pn)// is equivalent to calling //fn(p1, p2, .. pnth, arg1, arg2, .. argn, pnth+1, pnth+2, .. pnth+n)//.
+-- @paramsig fn, nth, arg1[, arg2...]
+-- @param fn the input function.
+-- @param nth the position of the first argument to be bound.
+-- @param "arg1[, arg2...]" one or more arguments to be bound.
+local function bind_nth(fn, nth, ...)
+ local pnames = tconcat(map(range(nth - 1), function(x) return "p"..x end), ",")
+ local anames = tconcat(map(range(select("#", ...)), function(x) return "a"..x end), ",")
+ if nth > 1 then pnames = pnames .. "," end
+ return loadstring(
+ [[return function(fn, ]] .. anames .. [[)
+ return function(]] .. pnames .. [[ ...)
+ return fn(]] .. pnames .. anames .. [[, ...)
+ end
+ end]])()(fn, ...)
+end
+
+-- setup library table
+
+lib.all = all
+lib.any = any
+lib.binary_search = binary_search
+lib.bind = bind
+lib.bind_nth = bind_nth
+lib.clone = clone
+lib.concat = concat
+lib.contains = contains
+lib.difference = difference
+lib.each = each
+lib.elem = contains
+lib.equal = equal
+lib.every = all
+lib.filter = filter
+lib.find_first_of = find_first_of
+lib.find_if = find_if
+lib.find_last_of = find_last_of
+lib.flatten = flatten
+lib.foldl = reduce
+lib.foldr = reduce_right
+lib.for_each = each
+lib.from_iterator = from_iterator
+lib.intersection = intersection
+lib.invert = invert
+lib.keys = keys
+lib.map = map
+lib.max = max
+lib.merge = merge
+lib.min = min
+lib.pairs = table_pairs
+lib.range = range
+lib.reduce = reduce
+lib.reduce_right = reduce_right
+lib.reverse = reverse
+lib.shuffle = shuffle
+lib.shuffle_inplace = shuffle_inplace
+lib.size = table_size
+lib.slice = slice
+lib.some = any
+lib.sort = sort
+lib.sort_inplace = sort_inplace
+lib.sorted_index = sorted_index
+lib.sorted_insert = sorted_insert
+lib.sum = sum
+lib.union = union
+lib.uniq = uniq
+lib.unzip = unzip
+lib.values = values
+lib.zip = zip
+lib.zip_with = zip_with
+
+-- allows it to work as a lua module outside of wow
+-- shouldn't have any side effects inside wow
+return lib
diff --git a/libs/LibSharedMedia-3.0/LibSharedMedia-3.0/lib.xml b/libs/LibFunctional-1.0/lib.xml
similarity index 78%
rename from libs/LibSharedMedia-3.0/LibSharedMedia-3.0/lib.xml
rename to libs/LibFunctional-1.0/lib.xml
index 34aa874..191bbbe 100644
--- a/libs/LibSharedMedia-3.0/LibSharedMedia-3.0/lib.xml
+++ b/libs/LibFunctional-1.0/lib.xml
@@ -1,4 +1,4 @@
-
-
\ No newline at end of file
+
+
diff --git a/libs/LibFunctional-1.0/tests.lua b/libs/LibFunctional-1.0/tests.lua
new file mode 100644
index 0000000..68e9d2d
--- /dev/null
+++ b/libs/LibFunctional-1.0/tests.lua
@@ -0,0 +1,338 @@
+local fn = require("functional");
+
+(function()
+ local dump, dump_table, test
+
+ dump_table = function(t)
+ local t = fn.map(t, function(x) return type(x) == "table" and dump(x) or tostring(x) end)
+ return "{ " .. table.concat(t, ", ") .. " }"
+ end
+
+ dump = function(v)
+ if type(v) == "table" then
+ return dump_table(v)
+ else
+ return tostring(v)
+ end
+ end
+
+ test = function(t1, t2)
+ local eq
+ if type(t1) == "table" then
+ eq = type(t2) == "table" and fn.equal(t1, t2, true)
+ else
+ eq = t1 == t2
+ end
+
+ if not eq then
+ print("test failed:")
+ print("\texpected: " .. dump(t1))
+ print("\tgot: " .. dump(t2))
+ return false
+ end
+ return true
+ end
+
+ -- test data
+ local lst = { 1, 3, 2, 5, 4 }
+ local tbl = { ["a"] = 1, ["b"] = 2, ["c"] = 3, ["d"] = 4, ["e"] = 5 }
+ local function f(a1, a2, a3, a4, a5) return a1, a2, a3, a4, a5 end
+
+ -- all
+ assert(test(true, fn.all({}, function(v) return v > 0 end)))
+ assert(test(true, fn.all(lst, function(v) return v > 0 end)))
+ assert(test(false, fn.all(lst, function(v) return v > 1 end)))
+ assert(test(fn.every, fn.all))
+
+ -- any
+ assert(test(false, fn.any({}, function(v) return v > 0 end)))
+ assert(test(true, fn.any(lst, function(v) return v > 3 end)))
+ assert(test(false, fn.any(lst, function(v) return v > 10 end)))
+ assert(test(fn.some, fn.any))
+
+ -- binary_search
+ assert(test({}, { fn.binary_search({}, 1) }))
+ assert(test({ 1, 1 }, { fn.binary_search(fn.sort(lst), 1) } ))
+ assert(test({ 2, 2 }, { fn.binary_search(fn.sort(lst), 2) } ))
+ assert(test({ 3, 3 }, { fn.binary_search(fn.sort(lst), 3) } ))
+ assert(test({ 4, 4 }, { fn.binary_search(fn.sort(lst), 4) } ))
+ assert(test({ 5, 5 }, { fn.binary_search(fn.sort(lst), 5) } ))
+ assert(test({}, { fn.binary_search(fn.sort(lst), 6) }))
+
+ -- bind
+ assert(test({ 1, 2 }, { fn.bind(f, 1)(2) }))
+ assert(test({ 1, 2, 3, 4 }, { fn.bind(f, 1, 2)(3, 4) }))
+
+ -- bind_nth
+ assert(test({ 1, 2 }, { fn.bind_nth(f, 1, 1)(2) }))
+ assert(test({ 1, 2, 3 }, { fn.bind_nth(f, 2, 2)(1, 3) }))
+ assert(test({ 1, 2, 3, 4 }, { fn.bind_nth(f, 1, 1, 2)(3, 4) }))
+ assert(test({ 1, 2, 3, 4, 5 }, { fn.bind_nth(f, 2, 2, 3)(1, 4, 5) }))
+
+ -- clone
+ assert(test({}, fn.clone({})))
+ assert(test(lst, fn.clone(lst)))
+ assert(test(tbl, fn.clone(tbl)))
+ do
+ local t = { 1, tbl }
+ local st = fn.clone(t)
+ local dt = fn.clone(t, true)
+ assert(test(t, st))
+ assert(test(t, dt))
+ assert(st[2] == tbl)
+ assert(dt[2] ~= tbl)
+ end
+
+ -- concat
+ assert(test({}, fn.concat()))
+ assert(test({}, fn.concat({}, {})))
+ assert(test({ 1 }, fn.concat({ 1 })))
+ assert(test({ 1, 2 }, fn.concat({ 1 }, { 2 })))
+ assert(test({ 1, 2, 3, 4, 5 }, fn.concat({ 1, 2, 3, 4, 5 })))
+ assert(test({ 1, 2, 3, 4, 5 }, fn.concat({ 1, 2 }, { 3, 4, 5 })))
+ assert(test({ 1, 2, 3, 4, 5 }, fn.concat({ 1, 2 }, { 3, 4 } , { 5 })))
+
+ -- contains
+ assert(test(false, fn.contains({}, 5)))
+ assert(test(true, fn.contains(lst, 5)))
+ assert(test(false, fn.contains(lst, 6)))
+ assert(test(fn.elem, fn.contains))
+
+ -- difference
+ assert(test({}, fn.difference({})))
+ assert(test({ 1, 2, 3 }, fn.difference({ 1, 2, 3, 4, 5 }, { 4, 5 })))
+ assert(test({ 1, 2 }, fn.difference({ 1, 2, 3, 4, 5 }, { 3 }, { 4, 5 })))
+ assert(test({ 1 }, fn.difference({ 1, 2, 3, 4, 5 }, { 2, 3 }, { 4, 5, 6 }, { 2, 3, 4, 6 })))
+ assert(test({ }, fn.difference({ 1, 2, 3, 4, 5 }, { 1, 2, 3 }, { 4, 5, 6 })))
+ assert(test({ "a", "bc" }, fn.difference(function(s) return #s end, { "a", "bc", "def" }, { "123" })))
+
+ -- each
+ do
+ local n = 0
+ assert(test(lst, fn.each(lst, function(v) n = n + v end)))
+ assert(test(n, fn.sum(lst)))
+ end
+ assert(test(fn.for_each, fn.each))
+
+ -- equal
+ assert(test(false, fn.equal({ 1, 2 }, { 1, 5, 7 })))
+ assert(test(true, fn.equal({ 1, 2, 3 }, { 1, 2, 3 })))
+ assert(test(false, fn.equal({ 1, 2, { 3 } }, { 1, 2, { 3 } })))
+ assert(test(true, fn.equal({ 1, 2, { 3 } }, { 1, 2, { 3 } }, true)))
+ assert(test(true, fn.equal({ ["a"] = 1, ["b"] = 2, ["c"] = 3 }, { ["a"] = 1, ["b"] = 2, ["c"] = 3 })))
+ assert(test(false, fn.equal({ ["a"] = 1, ["b"] = 2, ["c"] = 3 }, { ["a"] = 2, ["b"] = 2, ["c"] = 3 })))
+ assert(test(false, fn.equal({ ["a"] = 1, ["b"] = 2, ["c"] = 3 }, { ["a"] = 1, ["b"] = 2, ["c"] = 3, ["d"] = 4 })))
+ assert(test(false, fn.equal({ ["a"] = 1, ["b"] = 2, ["c"] = 3 }, { ["a"] = 1, ["b"] = 2 })))
+ do
+ local t = { 1, tbl }
+ local st = fn.clone(t)
+ local dt = fn.clone(t, true)
+ assert(test(true, fn.equal(t, st))) -- shallow test
+ assert(test(false, fn.equal(t, dt)))
+ assert(test(true, fn.equal(t, st, true))) -- deep test
+ assert(test(true, fn.equal(t, dt, true)))
+ end
+
+ -- filter
+ assert(test({}, fn.filter({}, function(v) return v > 1 end)))
+ assert(test({ 3, 2, 5, 4 }, fn.filter(lst, function(v) return v > 1 end)))
+
+ -- find_first_of
+ assert(test({}, { fn.find_first_of({}) }))
+ assert(test({ 3, 2 }, { fn.find_first_of(lst, 3) }))
+ assert(test({ 3, 2 }, { fn.find_first_of(lst, 6, 3) }))
+ assert(test({ 1, 1 }, { fn.find_first_of(lst, 5, 1) }))
+ assert(test({ 4, 5 }, { fn.find_first_of(lst, 6, 7, 4) }))
+
+ -- find_if
+ assert(test({}, { fn.find_if({}, function(v) return v == 5 end) }))
+ assert(test({ 5, 4 }, { fn.find_if(lst, function(v) return v == 5 end) }))
+ assert(test({}, { fn.find_if(lst, function(v) return v == 6 end) }))
+
+ -- find_last_of
+ assert(test({}, { fn.find_last_of({}) }))
+ assert(test({ 3, 2 }, { fn.find_last_of(lst, 3) }))
+ assert(test({ 3, 2 }, { fn.find_last_of(lst, 6, 3) }))
+ assert(test({ 5, 4 }, { fn.find_last_of(lst, 5, 1) }))
+ assert(test({ 4, 5 }, { fn.find_last_of(lst, 5, 1, 4) }))
+
+ -- flatten
+ assert(test({}, fn.flatten({})))
+ assert(test({ 1, 2 }, fn.flatten({ 1, 2 })))
+ assert(test({ 1, 2, 3 }, fn.flatten({ 1, 2, { 3 } })))
+ assert(test({ 1, 2, { 3 } }, fn.flatten({ 1, 2, { { 3 } } }, true)))
+ assert(test({ 1, 2, 3, { 4 } }, fn.flatten({ 1, 2, { 3 }, { { 4 } } }, true)))
+ assert(test({ 1, 2, 3, 4, 5 }, fn.flatten({ 1, 2, { { 3 } }, { 4, 5 } })))
+ assert(test({ 1, 2, 3, 4, 5 }, fn.flatten({ 1, 2, { { 3 } }, { { { 4 } }, 5 } })))
+
+ -- from_iterator
+ assert(test({}, fn.from_iterator(pairs({}))))
+ assert(test({ { 1, 1 }, { 2, 2 } }, fn.from_iterator(ipairs({ 1, 2 }))))
+ assert(test(lst, fn.from_iterator(function(i, v) return v end, ipairs(lst))))
+ assert(test(fn.values(tbl), fn.from_iterator(function(k, v) return v end, pairs(tbl))))
+ assert(test(fn.keys(tbl), fn.from_iterator(function(k, v) return k end, pairs(tbl))))
+
+ -- invert
+ assert(test({}, fn.invert({})))
+ assert(test({ ["v"] = "k" }, fn.invert({ ["k"] = "v" })))
+ assert(test({ "a", "b", "c", "d", "e" }, fn.invert(tbl)))
+
+ -- intersection
+ assert(test({}, fn.intersection({})))
+ assert(test({ 4, 4, 5 }, fn.intersection({ 1, 4, 2, 3, 4, 5 }, { 4, 5 })))
+ assert(test({ 4, 5 }, fn.intersection({ 1, 2, 3, 4, 5 }, { 4, 5 })))
+ assert(test({ 5 }, fn.intersection({ 1, 2, 3, 4, 5 }, { 3, 5 }, { 4, 5 })))
+ assert(test({ 1 }, fn.intersection({ 1, 2, 3, 4, 5 }, { 1, 2, 3 }, { 4, 5, 1, 6 }, { 2, 1, 3, 4, 6 })))
+ assert(test({ }, fn.intersection({ 1, 2, 3, 4, 5 }, { 1, 2, 3 }, { 4, 5, 1, 6 }, { 2, 3, 4, 6 })))
+ assert(test({ }, fn.intersection({ 1, 2, 3, 4, 5 }, { 1, 2, 3 }, { 4, 5, 6 })))
+ assert(test({ "def" }, fn.intersection(function(s) return #s end, { "a", "bc", "def" }, { "123" })))
+
+ -- keys
+ assert(test({}, fn.keys({})))
+ assert(test({ "a", "b", "c", "d", "e" }, fn.sort(fn.keys(tbl))))
+
+ -- map
+ assert(test({}, fn.map({})))
+ assert(test({ 2, 6, 4, 10, 8 }, fn.map(lst, function(v) return v * 2 end)))
+
+ -- max
+ assert(test(nil, fn.max({})))
+ assert(test(5, fn.max(lst)))
+
+ -- merge
+ assert(test({}, fn.merge()))
+ assert(test({ 2, 3 }, fn.merge({ 1 }, {}, { 2, 3 })))
+ assert(test({ 2, 3 }, fn.merge({ 1 }, {}, { 1, 3 }, { 2 })))
+ assert(test({ ["a"] = 1, ["b"] = 2 }, fn.merge({ ["a"] = 1 }, { ["b"] = 2 })))
+ assert(test({ ["a"] = 1, ["b"] = 3, ["c"] = 4 }, fn.merge({ ["a"] = 1, ["b"] = 2 }, { ["b"] = 5 }, { ["b"] = 3, ["c"] = 4 })))
+
+ -- min
+ assert(test(nil, fn.min({})))
+ assert(test(2, fn.min({ 2 })))
+ assert(test(1, fn.min(lst)))
+
+ -- pairs
+ assert(test({}, fn.pairs({})))
+ assert(test({ { "a", 1 }, { "b", 2 } }, fn.pairs({ ["a"] = 1, ["b"] = 2 })))
+ assert(test(fn.zip(fn.keys(tbl), fn.values(tbl)), fn.pairs(tbl)))
+
+ -- range
+ assert(test({}, fn.range(0)))
+ assert(test({ 1 }, fn.range(1)))
+ assert(test({ 1, 2, 3 }, fn.range(3)))
+ assert(test({ 2, 3 }, fn.range(2, 3)))
+ assert(test({ 0, 2, 4 }, fn.range(0, 4, 2)))
+ assert(test({ -1, -2 }, fn.range(-1, -2, -1)))
+
+ -- reduce
+ assert(test(nil, fn.reduce({}, function(r, v) return r + v end)))
+ assert(test(5, fn.reduce({ 5 }, function(r, v) return r + v end)))
+ assert(test(15, fn.reduce(lst, function(r, v) return r + v end)))
+ assert(test(16, fn.reduce(lst, function(r, v) return r + v end, 1)))
+ assert(test(15, fn.reduce({ 5 }, function(r, v) return r + v end, 10)))
+ assert(test(1, fn.reduce({ 8, 4, 2, 1 }, function(r, v) return r / v end)))
+ assert(test(fn.foldl, fn.reduce))
+
+ -- reduce_right
+ assert(test(nil, fn.reduce_right({}, function(r, v) return r + v end)))
+ assert(test(5, fn.reduce_right({ 5 }, function(r, v) return r + v end)))
+ assert(test(1, fn.reduce_right({ 1, 2, 4, 8 }, function(r, v) return r / v end)))
+ assert(test(fn.foldr, fn.reduce_right))
+
+ -- reverse
+ assert(test({}, fn.reverse({})))
+ assert(test({ 4, 5, 2, 3, 1 }, fn.reverse(lst)))
+
+ -- shuffle
+ assert(test(3, #fn.shuffle({ 1, 2, 3 })))
+
+ -- shuffle_inplace
+ assert(test(3, #fn.shuffle_inplace({ 1, 2, 3 })))
+ do
+ local l = fn.clone(lst)
+ assert(test(l, fn.shuffle_inplace(l)))
+ end
+
+ -- slice
+ assert(test({ }, fn.slice({}, 0)))
+ assert(test({ 1, 3, 2, 5, 4 }, fn.slice(lst)))
+ assert(test({ 1, 3, 2, 5, 4 }, fn.slice(lst, 1)))
+ assert(test({ 3, 2, 5 }, fn.slice(lst, 2, 4)))
+ assert(test({ 5, 4 }, fn.slice(lst, -2)))
+ assert(test({ 3, 2, 5 }, fn.slice(lst, 2, -1)))
+ assert(test({ 1, 3, 2 }, fn.slice(lst, 1, -2)))
+
+ -- sort
+ assert(test({}, fn.sort({})))
+ assert(test({ 1, 2, 3, 4, 5 }, fn.sort(lst)))
+ assert(test({ 1, 3, 2, 5, 4 }, lst))
+
+ -- sort_inplace
+ assert(test({}, fn.sort_inplace({})))
+ assert(test({ 1, 2, 3, 4, 5 }, fn.sort_inplace(fn.clone(lst))))
+ do
+ local l = fn.clone(lst)
+ assert(test(l, fn.sort_inplace(l)))
+ end
+
+ -- sorted_index
+ assert(test(1, fn.sorted_index({}, 4)))
+ assert(test(4, fn.sorted_index({ 1, 2, 3, 4, 5, 6 }, 4)))
+
+ -- sorted_insert
+ assert(test({ 4 }, fn.sorted_insert({}, 4)))
+ assert(test({ 1, 2, 3, 4, 5}, fn.sorted_insert({ 1, 2, 3, 5 }, 4)))
+
+ -- size
+ assert(test(0, fn.size({})))
+ assert(test(2, fn.size({ 1, 2 })))
+ assert(test(3, fn.size({ 1, 2, 3 })))
+ assert(test(3, fn.size({ 1, 2, { 3 } })))
+ assert(test(3, fn.size({ ["a"] = 1, ["b"] = 2, ["c"] = 3 })))
+ assert(test(4, fn.size({ ["a"] = 1, ["b"] = 2, ["c"] = 3, ["d"] = 4 })))
+
+ -- sum
+ assert(test(nil, fn.sum({})))
+ assert(test(15, fn.sum(lst)))
+
+ -- union
+ assert(test({}, fn.union()))
+ assert(test({}, fn.union({}, {})))
+ assert(test({ 1, 2, 3, 4, 5 }, fn.union({ 1, 2, 3, 3, 4, 5 })))
+ assert(test({ 1, 2, 3, 4, 5 }, fn.union({ 1, 2 }, { 1, 3, 4, 5 })))
+ assert(test({ 1, 2, 3, 4, 5 }, fn.union({ 1, 2 }, { 1, 2, 3, 4 } , { 3, 5 })))
+
+ -- uniq
+ assert(test({}, fn.uniq({})))
+ assert(test({ 2, 3, 1 }, fn.uniq({ 2, 3, 2, 1, 1 })))
+ assert(test({ 1, 2, 3 }, fn.uniq({ 1, 1, 2, 2, 3 }, true)))
+ assert(test({ 1, 2 }, fn.uniq({ 1, 1, 2, 2, 3 }, true, function(v) return math.floor(v/2) end)))
+
+ -- unzip
+ assert(test({}, { fn.unzip({}) }))
+ assert(test({ { 1, 2 } }, { fn.unzip({ { 1 }, { 2 } }) }))
+ assert(test({ { 1, 2 }, { 3, 4 } }, { fn.unzip({ { 1, 3 }, { 2, 4 } }) }))
+ assert(test({ { 1, 2 }, { 3, 4 }, { 5, 6 } }, { fn.unzip({ { 1, 3, 5 }, { 2, 4, 6 } }) }))
+ assert(test({ { 1, 2, 3 }, { 4, 5, 6 }, { 7, 8, 9 } }, { fn.unzip({ { 1, 4, 7 }, { 2, 5, 8 }, { 3, 6, 9 } }) }))
+
+ -- values
+ assert(test({ 1, 2, 3, 4, 5 }, fn.sort(fn.values(tbl))))
+
+ -- zip
+ assert(test({}, fn.zip({})))
+ assert(test({ { 1 }, { 2 } }, fn.zip({ 1, 2 })))
+ assert(test({ { 1, 3 }, { 2, 4 } }, fn.zip({ 1, 2 }, { 3, 4 })))
+ assert(test({ { 1, 3, 5 }, { 2, 4, 6 } }, fn.zip({ 1, 2 }, { 3, 4 }, { 5, 6 })))
+ assert(test({ { 1, 4, 7 }, { 2, 5, 8 }, { 3, 6, 9 } }, fn.zip({ 1, 2, 3 }, { 4, 5, 6 }, { 7, 8, 9 })))
+ assert(test({ { 1, 3, 5 }, { 2, 4, 6 } }, fn.zip({ 1, 2, 10 }, { 3, 4 }, { 5, 6 })))
+ assert(test({ { 1, 3, 5 }, { 2, 4, 6 } }, fn.zip({ 1, 2, 10 }, { 3, 4 }, { 5, 6, 20, 30 })))
+
+ -- zip_with
+ assert(test({}, fn.zip_with(function(a, b) return a + b end)))
+ assert(test({ 6, 7, 8 }, fn.zip_with(function(a) return a + 5 end, { 1, 2, 3 })))
+ assert(test({ 4, 6 }, fn.zip_with(function(a, b) return a + b end, { 1, 2 }, { 3, 4 })))
+ assert(test({ 9, 12 }, fn.zip_with(function(a, b, c) return a + b + c end, { 1, 2 }, { 3, 4 }, { 5, 6 })))
+ assert(test({ 12, 15 }, fn.zip_with(function(a, b, c) return a + b + c end, { 1, 2, 3 }, { 4, 5, 6 }, { 7, 8 })))
+
+ print("LibFunctional-1.0: tests passed")
+end)()
diff --git a/libs/LibSharedMedia-3.0/CallbackHandler-1.0/CallbackHandler-1.0.lua b/libs/LibSharedMedia-3.0/CallbackHandler-1.0/CallbackHandler-1.0.lua
deleted file mode 100644
index 274016c..0000000
--- a/libs/LibSharedMedia-3.0/CallbackHandler-1.0/CallbackHandler-1.0.lua
+++ /dev/null
@@ -1,240 +0,0 @@
---[[ $Id: CallbackHandler-1.0.lua 14 2010-08-09 00:43:38Z mikk $ ]]
-local MAJOR, MINOR = "CallbackHandler-1.0", 6
-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 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", tconcat(OLD_ARGS, ", ")):gsub("ARGS", tconcat(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" 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/libs/LibSharedMedia-3.0/LibSharedMedia-3.0/LibSharedMedia-3.0.lua b/libs/LibSharedMedia-3.0/LibSharedMedia-3.0.lua
similarity index 91%
rename from libs/LibSharedMedia-3.0/LibSharedMedia-3.0/LibSharedMedia-3.0.lua
rename to libs/LibSharedMedia-3.0/LibSharedMedia-3.0.lua
index ce5ff14..23d37ac 100644
--- a/libs/LibSharedMedia-3.0/LibSharedMedia-3.0/LibSharedMedia-3.0.lua
+++ b/libs/LibSharedMedia-3.0/LibSharedMedia-3.0.lua
@@ -1,6 +1,6 @@
--[[
Name: LibSharedMedia-3.0
-Revision: $Revision: 91 $
+Revision: $Revision: 113 $
Author: Elkano (elkano@gmx.de)
Inspired By: SurfaceLib by Haste/Otravi (troeks@gmail.com)
Website: http://www.wowace.com/projects/libsharedmedia-3-0/
@@ -9,7 +9,7 @@ Dependencies: LibStub, CallbackHandler-1.0
License: LGPL v2.1
]]
-local MAJOR, MINOR = "LibSharedMedia-3.0", 6010002 -- 6.1.0 v2 / increase manually on changes
+local MAJOR, MINOR = "LibSharedMedia-3.0", 8020002 -- 8.2.0 v2 / increase manually on changes
local lib = LibStub:NewLibrary(MAJOR, MINOR)
if not lib then return end
@@ -20,10 +20,10 @@ local pairs = _G.pairs
local type = _G.type
local band = _G.bit.band
-
-local table_insert = _G.table.insert
local table_sort = _G.table.sort
+local RESTRICTED_FILE_ACCESS = not not C_RaidLocks -- 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
@@ -193,11 +193,12 @@ 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"] = [[Interface\Quiet.ogg]] -- Relies on the fact that PlaySound[File] doesn't error on non-existing input.
+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)
@@ -222,18 +223,25 @@ function lib:Register(mediatype, key, data, langmask)
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 return false end
- if mediatype == lib.MediaType.SOUND and type(data) == "string" then
+ 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()
- -- Only ogg and mp3 are valid sounds.
- if not path:find(".ogg", nil, true) and not path:find(".mp3", nil, true) then
+ 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 not 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)
diff --git a/libs/LibSharedMedia-3.0/LibSharedMedia-3.0.toc b/libs/LibSharedMedia-3.0/LibSharedMedia-3.0.toc
deleted file mode 100644
index c2593d8..0000000
--- a/libs/LibSharedMedia-3.0/LibSharedMedia-3.0.toc
+++ /dev/null
@@ -1,22 +0,0 @@
-## Interface: 70100
-## LoadOnDemand: 1
-## X-Curse-Packaged-Version: r97
-## X-Curse-Project-Name: LibSharedMedia-3.0
-## X-Curse-Project-ID: libsharedmedia-3-0
-## X-Curse-Repository-ID: wow/libsharedmedia-3-0/mainline
-
-## Title: Lib: SharedMedia-3.0
-## Notes: Shared handling of media data (fonts, sounds, textures, ...) between addons.
-## Author: Elkano
-## Version: 3.0-97
-## X-Website: http://www.wowace.com/projects/libsharedmedia-3-0/
-## X-Category: Library
-
-## X-Revision: 97
-## X-Date: 2016-10-25T23:54:36Z
-
-LibStub\LibStub.lua
-CallbackHandler-1.0\CallbackHandler-1.0.lua
-
-LibSharedMedia-3.0\lib.xml
-
diff --git a/libs/LibSharedMedia-3.0/LibStub/LibStub.lua b/libs/LibSharedMedia-3.0/LibStub/LibStub.lua
deleted file mode 100644
index ae1900e..0000000
--- a/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/libs/LibSharedMedia-3.0/lib.xml b/libs/LibSharedMedia-3.0/lib.xml
index c81f35f..419a186 100644
--- a/libs/LibSharedMedia-3.0/lib.xml
+++ b/libs/LibSharedMedia-3.0/lib.xml
@@ -1,5 +1,3 @@
-
-
+
+
-
diff --git a/libs/LibStub/LibStub.toc b/libs/LibStub/LibStub.toc
deleted file mode 100644
index 17cf732..0000000
--- a/libs/LibStub/LibStub.toc
+++ /dev/null
@@ -1,13 +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
-## X-Curse-Packaged-Version: 1.0
-## X-Curse-Project-Name: LibStub
-## X-Curse-Project-ID: libstub
-## X-Curse-Repository-ID: wow/libstub/mainline
-
-LibStub.lua
diff --git a/media/textures/icon.blp b/media/textures/icon.blp
new file mode 100644
index 0000000..5e78553
Binary files /dev/null and b/media/textures/icon.blp differ
diff --git a/options.lua b/options.lua
index 0e8b4d8..c8b13ca 100644
--- a/options.lua
+++ b/options.lua
@@ -1,7 +1,13 @@
local L = LibStub("AceLocale-3.0"):GetLocale("EavesDrop", true)
+local LSM = LibStub("LibSharedMedia-3.0")
+
local EavesDrop = EavesDrop
-local media = LibStub("LibSharedMedia-3.0")
+SLASH_EAVESDROP_1 = "/eavesdrop"
+SLASH_EAVESDROP_2 = "/ed"
+SlashCmdList["EAVESDROP"] = function(msg)
+ self.OpenMenu()
+end
--common functions for options callbacks
local function getOption(info)
@@ -26,11 +32,9 @@ local function setColorOption(info, r, g, b, a)
end
function EavesDrop:SetupOptions()
- self.options = {
+ local options = {
type="group",
name = "EavesDrop",
- childGroups = "tab",
- plugins = {},
args = {
events = {
name = L["Events"],
@@ -495,9 +499,9 @@ function EavesDrop:SetupOptions()
type = "select",
name = L["FFont"],
desc = L["FFont"],
- values = media:List('font'),
+ values = LSM:List('font'),
get=function(info)
- local mt = media:List('font')
+ local mt = LSM:List('font')
for k,v in pairs(mt) do
if v==self.db.profile.FONT then
return k
@@ -505,7 +509,7 @@ function EavesDrop:SetupOptions()
end
end,
set=function(info,v)
- local mt = media:List('font')
+ local mt = LSM:List('font')
self.db.profile.FONT = mt[v]
self:PerformDisplayOptions()
end,
@@ -660,11 +664,19 @@ function EavesDrop:SetupOptions()
}
}
- self.options.plugins.profiles = { profiles = LibStub("AceDBOptions-3.0"):GetOptionsTable(self.db) }
- LibStub("AceConfig-3.0"):RegisterOptionsTable("EavesDrop", self.options)
- LibStub("AceConfigDialog-3.0"):AddToBlizOptions("EavesDrop", "EavesDrop")
- self:RegisterChatCommand("ed", self.OpenMenu)
- self:RegisterChatCommand("eavesdrop", self.OpenMenu)
+ options.args.profiles = LibStub("AceDBOptions-3.0"):GetOptionsTable(self.db)
+
+ -- LibStub("AceConfig-3.0"):RegisterOptionsTable("EavesDrop", self.options)
+ -- LibStub("AceConfigDialog-3.0"):AddToBlizOptions("EavesDrop", "EavesDrop")
+
+ LibStub("AceConfig-3.0"):RegisterOptionsTable("EavesDrop", options)
+
+ if not self.options then
+ LibStub("AceConfigDialog-3.0"):SetDefaultSize("EavesDrop", 860, 550)
+ LibStub("AceConfigDialog-3.0"):AddToBlizOptions("EavesDrop", "EavesDrop")
+ end
+
+ self.options = options
end
function EavesDrop:GetDefaultConfig()
@@ -742,6 +754,7 @@ function EavesDrop:GetDefaultConfig()
end
function EavesDrop:OpenMenu()
- --LibStub("AceConfigDialog-3.0"):Open("EavesDrop")
- InterfaceOptionsFrame_OpenToCategory("EavesDrop")
+ -- LibStub("AceConfigDialog-3.0"):Open("EavesDrop")
+ -- InterfaceOptionsFrame_OpenToCategory("EavesDrop")
+ LibStub("AceConfigDialog-3.0"):Open("EavesDrop")
end
\ No newline at end of file
diff --git a/EavesDrop.xml b/templates.xml
similarity index 93%
rename from EavesDrop.xml
rename to templates.xml
index 6cc617c..ca1465c 100644
--- a/EavesDrop.xml
+++ b/templates.xml
@@ -2,18 +2,13 @@
-
+
-
-
-
-
-
@@ -114,11 +109,6 @@
-
-
-
-
-
@@ -131,7 +121,7 @@
-
+
@@ -139,7 +129,7 @@
-
+
@@ -147,7 +137,7 @@
-
+
@@ -203,17 +193,6 @@
-
-
-
-
-
-
-
-
-
-
-
@@ -222,21 +201,26 @@
+
+
+
+
+
-
+
-
+
-
+
@@ -458,19 +442,20 @@
EavesDrop:Scroll(self, delta);
+ EavesDropFrame:SetBackdropColor(1,1,1,1)
EavesDropTab:SetAlpha(1);
EavesDropTab:SetAlpha(0);
- if IsAltKeyDown() then
- if button == "LeftButton" then
- EavesDrop:OpenMenu()
- elseif button == "RightButton" then
- EavesDrop:ShowHistory()
- end
- end
+ if IsAltKeyDown() then
+ if button == "LeftButton" then
+ EavesDrop:OpenMenu()
+ elseif button == "RightButton" then
+ EavesDrop:ShowHistory()
+ end
+ end
@@ -520,7 +505,7 @@
self:RegisterForDrag("LeftButton");
- self:SetAlpha(0);
+ self:SetAlpha(1);
GameTooltip:Hide();
@@ -607,17 +592,6 @@
-
-
-
-
-
-
-
-
-
-
-
@@ -632,7 +606,7 @@
-
+
@@ -644,7 +618,7 @@
-
+