You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

1120 lines
44 KiB

5 years ago
local config, _, T, KR, PC = {}, ...
local L, MODERN = T.L, select(4,GetBuildInfo()) >= 8e4
OneRingLib.ext.config, KR, PC = config, T.ActionBook:compatible("Kindred",1,0), T.OPieCore
local CreateEdge = T.ActionBook._CreateEdge
function config.createPanel(name, parent)
local frame = CreateFrame("Frame", nil, UIParent)
frame.name, frame.parent = name, parent
frame.title = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalLargeLeftTop")
frame.title:SetPoint("TOPLEFT", 16, -16)
frame.title:SetText(name)
frame.version = CreateFrame("Button", nil, frame)
frame.version:SetText(" ")
frame.version:SetNormalFontObject(GameFontHighlightSmallRight)
frame.version:GetFontString():ClearAllPoints()
frame.version:GetFontString():SetPoint("TOPRIGHT")
frame.version:SetPoint("TOPRIGHT", -16, -16)
frame.version:SetPushedTextOffset(0,0)
frame.version:SetSize(64, 12)
frame.version:RegisterForClicks("LeftButtonUp", "RightButtonUp")
frame.desc = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmallLeftTop")
frame.desc:SetPoint("TOPLEFT", frame.title, "BOTTOMLEFT", 0, -8)
frame.desc:SetWidth(590)
InterfaceOptions_AddCategory(frame)
frame:Hide()
return frame
end
function config.open(panel)
InterfaceOptionsFrame_OpenToCategory(panel)
if not panel:IsVisible() then
-- Fails on first run as adding a category doesn't trigger a list update, but OTC does.
InterfaceOptionsFrame_OpenToCategory(panel)
end
-- If the panel is offscreen in the AddOns list, both OTC calls above will fail;
-- in any case, we want all the children/sibling categories to be visible.
local cat, parent = INTERFACEOPTIONS_ADDONCATEGORIES, panel.parent or panel.name
local numVisiblePredecessors, parentPanel, lastRelatedPanel = 0
for i=1,#cat do
local e = cat[i]
if e.name == parent then
parentPanel, lastRelatedPanel = e, numVisiblePredecessors+1
elseif parentPanel then
if e.parent ~= parent then
break
end
lastRelatedPanel = lastRelatedPanel + 1
elseif not e.hidden then
numVisiblePredecessors = numVisiblePredecessors + 1
end
end
if lastRelatedPanel then
local buttons, ofsY = InterfaceOptionsFrameAddOns.buttons
if lastRelatedPanel - InterfaceOptionsFrameAddOnsList.offset > #buttons then
ofsY = (lastRelatedPanel - #buttons)*buttons[1]:GetHeight()
-- If the parent is collapsed, we might only be able to get it to show here
local _, maxY = InterfaceOptionsFrameAddOnsListScrollBar:GetMinMaxValues()
InterfaceOptionsFrameAddOnsListScrollBar:SetValue(math.min(ofsY, maxY))
end
-- If the parent is collapsed, expand it
for i=1,parentPanel and parentPanel.collapsed and #buttons or 0 do
if buttons[i].element == parentPanel then
InterfaceOptionsListButton_ToggleSubCategories(buttons[i])
break
end
end
if ofsY then
-- Set the proper scroll value, and force selection highlight to be updated
InterfaceOptionsFrameAddOnsListScrollBar:SetValue(ofsY)
InterfaceOptionsFrame_OpenToCategory(panel)
end
end
if not panel:IsVisible() then
-- I give up.
InterfaceOptionsList_DisplayPanel(panel)
end
end
do -- ext.config.ui
config.ui = {}
do -- multilineInput
local function onNavigate(self, _x,y, _w,h)
local scroller = self.scroll
local occH, occP, y = scroller:GetHeight(), scroller:GetVerticalScroll(), -y
if occP > y then
occP = y -- too far
elseif (occP + occH) < (y+h) then
occP = y+h-occH -- not far enough
else
return
end
scroller:SetVerticalScroll(occP)
local _, mx = scroller.ScrollBar:GetMinMaxValues()
scroller.ScrollBar:SetMinMaxValues(0, occP < mx and mx or occP)
scroller.ScrollBar:SetValue(occP)
end
local function onClick(self)
self.input:SetFocus()
end
function config.ui.multilineInput(name, parent, width)
local scroller = CreateFrame("ScrollFrame", name .. "Scroll", parent, "UIPanelScrollFrameTemplate")
local input = CreateFrame("Editbox", name, scroller)
input:SetWidth(width)
input:SetMultiLine(true)
input:SetAutoFocus(false)
input:SetTextInsets(2,4,0,2)
input:SetFontObject(GameFontHighlight)
input:SetScript("OnCursorChanged", onNavigate)
scroller:EnableMouse(1)
scroller:SetScript("OnMouseDown", onClick)
scroller:SetScrollChild(input)
input.scroll, scroller.input = scroller, input
return input, scroller
end
end
function config.ui.lineInput(parent, common, width)
local input = CreateFrame("EditBox", nil, parent)
input:SetAutoFocus(nil) input:SetSize(width or 150, 20)
input:SetFontObject(ChatFontNormal)
input:SetScript("OnEscapePressed", input.ClearFocus)
local l, m, r = input:CreateTexture(nil, "BACKGROUND"), input:CreateTexture(nil, "BACKGROUND"), input:CreateTexture(nil, "BACKGROUND")
l:SetSize(common and 8 or 32, common and 20 or 32) l:SetPoint("LEFT", common and -5 or -10, 0)
l:SetTexture(common and "Interface\\Common\\Common-Input-Border" or "Interface\\ChatFrame\\UI-ChatInputBorder-Left2")
r:SetSize(common and 8 or 32, common and 20 or 32) r:SetPoint("RIGHT", common and 0 or 10, 0)
r:SetTexture(common and "Interface\\Common\\Common-Input-Border" or "Interface\\ChatFrame\\UI-ChatInputBorder-Right2")
m:SetHeight(common and 20 or 32) m:SetPoint("LEFT", l, "RIGHT") m:SetPoint("RIGHT", r, "LEFT")
m:SetTexture(common and "Interface\\Common\\Common-Input-Border" or "Interface\\ChatFrame\\UI-ChatInputBorder-Mid2")
if common then
l:SetTexCoord(0,1/16, 0,5/8)
r:SetTexCoord(15/16,1, 0,5/8)
m:SetTexCoord(1/16,15/16, 0,5/8)
else
m:SetHorizTile(true)
end
return input
end
function config.ui.HideTooltip(self)
if GameTooltip:IsOwned(self) then
GameTooltip:Hide()
end
end
function config.ui.ShowControlTooltip(self)
local title, text = self.tooltipTitle, self.tooltipText
if not (title or text) then return end
GameTooltip:SetOwner(self, self.tooltipOwnerPoint or "ANCHOR_BOTTOMRIGHT")
GameTooltip:AddLine(title or "", nil, nil, nil)
GameTooltip:AddLine(text or "", nil, nil, nil, true)
GameTooltip:Show()
end
do -- scrollingDropdown
local sdAPI, scrollingDropdown = {}, CreateFrame("Frame", nil, UIParent) do
local MIN_SCROLL_ENTRIES, MAX_VISIBLE_ENTRIES = 20, 16
local WHEEL_STEP, WHEEL_DURATION = 8, 0.25
local BUTTON_STEP, BUTTON_DURATION = 15, 0.15
local SNAP_DURATION = 0.10
local MAX_TARGET_DISTANCE, MIN_ANIM_FPS = 48, 45
local clipRoot = CreateFrame("Frame", nil, scrollingDropdown)
local relFrame = CreateFrame("Frame", nil, clipRoot)
local slider = CreateFrame("Slider", nil, scrollingDropdown, "UIPanelScrollBarTemplate")
local buttons = {}
local SetDataSource, ReleaseDataSource, Entry_OnClick do
local positionArchive = setmetatable({}, {__mode="k"})
local dataList, entryFormat, entrySelect, fullSync
local aTarget, aOrigin, aLength, aLeft
function Entry_OnClick(self)
local entrySelect, arg1 = entrySelect, dataList[self:GetID()]
PlaySound(SOUNDKIT.IG_MAINMENU_OPTION_CHECKBOX_ON)
CloseDropDownMenus()
entrySelect(nil, arg1)
end
local function VLD_OnUpdate(self, elapsed)
aLeft = aLeft - elapsed
local isDone, position = aLeft <= 0, aTarget
if isDone then
positionArchive[dataList] = aTarget
aTarget, aOrigin, aLength, aLeft = nil
self:SetScript("OnUpdate", nil)
else
local p = 1-aLeft/aLength
p = p*p*(3-2*p)
position = aOrigin*(1-p) + aTarget*p
end
local oy, baseOffset = (position % 1)*16, math.floor(position)
relFrame:SetPoint("TOPLEFT", 0, oy)
relFrame:SetPoint("TOPRIGHT", 0, oy)
for i=1,#buttons do
local w, eid = buttons[i], i+baseOffset
local ek = dataList[eid]
w:SetShown(ek ~= nil)
if ek ~= nil then
if fullSync or w:GetID() ~= eid then
local text, selected = entryFormat(ek, dataList)
w:SetText(text)
w:SetChecked(selected)
w:SetID(eid)
w:GetFontString():GetLeft() -- TODO: (8.1.5) Without this, it sometimes gets lost.
end
w:SetEnabled(isDone)
end
end
slider:SetValue(position)
fullSync = false
end
local function ProcessScrollDelta(delta, time)
local cur, vmin, vmax = slider:GetValue(), slider:GetMinMaxValues()
local goal, time = cur+delta, GetFramerate() >= MIN_ANIM_FPS and time or 0
if aTarget and aOrigin and (aOrigin < aTarget) == (cur < goal) then
goal = delta < 0 and math.max(aTarget+delta, cur-MAX_TARGET_DISTANCE) or math.min(aTarget+delta, cur+MAX_TARGET_DISTANCE)
end
goal = math.min(vmax, math.max(vmin, math.floor(goal)))
if aTarget == goal or (not aTarget and cur == goal) then
return
end
aLength, aLeft = time, time
aOrigin, aTarget = cur, goal
scrollingDropdown:SetScript("OnUpdate", VLD_OnUpdate)
VLD_OnUpdate(scrollingDropdown, 0)
end
scrollingDropdown:SetScript("OnMouseWheel", function(_, delta)
return ProcessScrollDelta(-delta*WHEEL_STEP, WHEEL_DURATION)
end)
local function SB_OnClick(self)
return ProcessScrollDelta(self == slider.ScrollUpButton and -BUTTON_STEP or BUTTON_STEP, BUTTON_DURATION)
end
slider.ScrollUpButton:SetScript("OnClick", SB_OnClick)
slider.ScrollDownButton:SetScript("OnClick", SB_OnClick)
slider.ScrollUpButton:SetMotionScriptsWhileDisabled(true)
slider.ScrollDownButton:SetMotionScriptsWhileDisabled(true)
slider:HookScript("OnMouseUp", function(self)
local cv = self:GetValue()
if cv % 1 ~= 0 then
aLeft = GetFramerate() < MIN_ANIM_FPS and 0 or SNAP_DURATION
aLength, aOrigin, aTarget = aLeft, self:GetValue(), math.floor(cv+0.5)
scrollingDropdown:SetScript("OnUpdate", VLD_OnUpdate)
end
end)
slider:SetScript("OnValueChanged", function(_, value, userDrag)
if userDrag then
aLeft, aTarget = 0, value
VLD_OnUpdate(scrollingDropdown, 0)
end
local vmin, vmax = slider:GetMinMaxValues()
slider.ScrollUpButton:SetEnabled(value ~= vmin)
slider.ScrollDownButton:SetEnabled(value ~= vmax)
end)
function SetDataSource(list, format, func, skipFirst)
dataList, entryFormat, entrySelect, fullSync = list, format, func, true
local maxV, arch = #dataList-MAX_VISIBLE_ENTRIES, positionArchive[list]
slider:SetMinMaxValues(skipFirst, maxV)
aTarget, aLeft = skipFirst, 0
if arch and skipFirst <= arch and arch <= maxV then
aTarget = arch
end
VLD_OnUpdate(scrollingDropdown, 0)
end
function ReleaseDataSource()
dataList, entryFormat, entrySelect = nil
end
DropDownList1:HookScript("OnHide", function()
for k in pairs(positionArchive) do
positionArchive[k] = nil
end
end)
end
local function bindToCounter(frame)
if MODERN then return end
if frame ~= scrollingDropdown then
frame.parent = scrollingDropdown
end
frame:SetScript("OnEnter", UIDropDownMenu_StopCounting)
frame:SetScript("OnLeave", UIDropDownMenu_StartCounting)
end
clipRoot:SetAllPoints()
clipRoot:SetClipsChildren(true)
slider:SetPoint("TOPRIGHT", -1, -12)
slider:SetPoint("BOTTOMRIGHT", -1, 10)
bindToCounter(slider)
bindToCounter(slider.ScrollUpButton)
bindToCounter(slider.ScrollDownButton)
bindToCounter(clipRoot)
bindToCounter(scrollingDropdown)
scrollingDropdown:SetHitRectInsets(-4, -24, -8, -8)
local bg = slider:CreateTexture(nil, "BACKGROUND")
bg:SetWidth(1)
bg:SetColorTexture(0.25, 0.25, 0.25)
bg:SetPoint("TOPLEFT", -2, 17)
bg:SetPoint("BOTTOMLEFT", -2, -16)
relFrame:SetPoint("TOPLEFT")
relFrame:SetPoint("TOPRIGHT")
relFrame:SetHeight(1)
for i=1,MAX_VISIBLE_ENTRIES+1 do
local b = CreateFrame("CheckButton", nil, clipRoot, nil, i)
b:SetSize(100, 16)
b:SetHighlightTexture([[Interface\QuestFrame\UI-QuestTitleHighlight]])
b:GetHighlightTexture():SetBlendMode("ADD")
b:GetHighlightTexture():SetAllPoints()
b:SetCheckedTexture([[Interface\Common\UI-DropDownRadioChecks]])
b:GetCheckedTexture():SetTexCoord(0, 0.5, 0.5, 1)
b:GetCheckedTexture():ClearAllPoints()
b:GetCheckedTexture():SetSize(16,16)
b:GetCheckedTexture():SetPoint("LEFT", 3, 0)
b:SetNormalTexture([[Interface\Common\UI-DropDownRadioChecks]])
b:GetNormalTexture():SetTexCoord(0.5, 1, 0.5, 1)
b:GetNormalTexture():ClearAllPoints()
b:GetNormalTexture():SetSize(16,16)
b:GetNormalTexture():SetPoint("LEFT", 3, 0)
b:SetNormalFontObject(GameFontHighlightSmallLeft)
b:SetDisabledFontObject(GameFontHighlightSmallLeft)
b:SetText("The Fifth Suprise")
b:GetFontString():ClearAllPoints()
b:GetFontString():SetPoint("LEFT", 22, 0)
b:SetPoint("TOPLEFT", relFrame, 0, 16-16*i)
b:SetPoint("TOPRIGHT", relFrame, -16, 16-16*i)
bindToCounter(b)
b:SetScript("OnClick", Entry_OnClick)
buttons[i] = b
end
scrollingDropdown:SetScript("OnHide", function(self)
self:Hide()
ReleaseDataSource()
end)
function sdAPI:Display(level, dataList, entryFormatter, entrySelect, skipFirst)
skipFirst = type(skipFirst) == "number" and skipFirst or 0
local count = #dataList-skipFirst
if count < MIN_SCROLL_ENTRIES then
local info = {func=entrySelect, minWidth=level == 1 and UIDROPDOWNMENU_OPEN_MENU:GetWidth()-40 or nil}
for i=skipFirst+1,#dataList do
local k = dataList[i]
info.arg1, info.text, info.checked = k, entryFormatter(k, dataList)
UIDropDownMenu_AddButton(info, level)
end
return
end
local baseName = "DropDownList" .. level
local host = _G[baseName]
local n1 = (host.numButtons+1)
local nX = MAX_VISIBLE_ENTRIES+n1-1
local minWidth = math.max(120, level == 1 and UIDROPDOWNMENU_OPEN_MENU:GetWidth()-40 or 0)
for i=skipFirst+1,#dataList do
local text = entryFormatter(dataList[i], dataList)
buttons[1]:SetText(text)
minWidth = math.max(minWidth, 60 + buttons[1]:GetFontString():GetStringWidth())
end
local info = {notClickable=true, notCheckable=true, minWidth=minWidth}
for i=n1,nX do
UIDropDownMenu_AddButton(info, level)
end
local b1, bX = _G[baseName .. "Button" .. n1], _G[baseName .. "Button" .. nX]
scrollingDropdown.parent = host
scrollingDropdown:SetParent(host)
scrollingDropdown:SetPoint("TOPLEFT", b1)
scrollingDropdown:SetPoint("BOTTOMRIGHT", bX)
SetDataSource(dataList, entryFormatter, entrySelect, skipFirst)
scrollingDropdown:Show()
scrollingDropdown:SetFrameLevel(b1:GetFrameLevel()+2)
slider:SetFrameLevel(scrollingDropdown:GetFrameLevel()+3)
end
end
config.ui.scrollingDropdown = sdAPI
end
end
do -- ext.config.bind
local unbindMap, activeCaptureButton = {}
local alternateFrame = CreateFrame("Frame", nil, UIParent) do
CreateEdge(alternateFrame, { bgFile="Interface/ChatFrame/ChatFrameBackground", edgeFile="Interface/DialogFrame/UI-DialogBox-Border", tile=true, tileSize=32, edgeSize=32, insets={left=11, right=11, top=12, bottom=10}}, 0xd8000000)
alternateFrame:SetSize(380, 115)
alternateFrame:EnableMouse(1)
alternateFrame:SetScript("OnHide", alternateFrame.Hide)
local extReminder = CreateFrame("Button", nil, alternateFrame)
extReminder:SetHeight(16) extReminder:SetPoint("TOPLEFT", 12, -10) extReminder:SetPoint("TOPRIGHT", -12, -10)
extReminder:SetNormalTexture("Interface/Buttons/UI-OptionsButton")
extReminder:SetPushedTextOffset(0,0)
extReminder:SetText(" ") extReminder:SetNormalFontObject(GameFontHighlightSmall) do
local fs, tex = extReminder:GetFontString(), extReminder:GetNormalTexture()
fs:ClearAllPoints() tex:ClearAllPoints()
fs:SetPoint("LEFT", 18, -1) tex:SetSize(14,14) tex:SetPoint("LEFT")
end
alternateFrame.caption = extReminder
extReminder:SetScript("OnEnter", function(self)
GameTooltip:SetOwner(self, "ANCHOR_NONE")
GameTooltip:SetPoint("TOP", self, "BOTTOM")
GameTooltip:AddLine(L"Conditional Bindings", NORMAL_FONT_COLOR.r, NORMAL_FONT_COLOR.g, NORMAL_FONT_COLOR.b)
GameTooltip:AddLine(L"The binding will update to reflect the value of this macro conditional.", HIGHLIGHT_FONT_COLOR.r, HIGHLIGHT_FONT_COLOR.g, HIGHLIGHT_FONT_COLOR.b, 1)
GameTooltip:AddLine((L"You may use extended macro conditionals; see %s for details."):format("|cff33DDFFhttps://townlong-yak.com/addons/opie/extended-conditionals|r"), HIGHLIGHT_FONT_COLOR.r, HIGHLIGHT_FONT_COLOR.g, HIGHLIGHT_FONT_COLOR.b, 1)
GameTooltip:AddLine((L"Example: %s."):format(GREEN_FONT_COLOR_CODE .. "[combat] ALT-C; [nomounted] CTRL-F|r"), NORMAL_FONT_COLOR.r, NORMAL_FONT_COLOR.g, NORMAL_FONT_COLOR.b)
GameTooltip:Show()
end)
extReminder:SetScript("OnLeave", config.ui.HideTooltip)
extReminder:SetScript("OnHide", extReminder:GetScript("OnLeave"))
local input, scroll = config.ui.multilineInput("OPC_AlternateBindInput", alternateFrame, 335)
alternateFrame.input, alternateFrame.scroll = input, scroll
scroll:SetPoint("TOPLEFT", 10, -28)
scroll:SetPoint("BOTTOMRIGHT", -33, 10)
input:SetMaxBytes(1023)
input:SetScript("OnEscapePressed", function() alternateFrame:Hide() end)
input:SetScript("OnChar", function(self, c)
if c == "\n" then
local bind = strtrim((self:GetText():gsub("[\r\n]", "")))
if bind ~= "" then
alternateFrame.apiFrame.SetBinding(alternateFrame.owner, bind)
end
alternateFrame:Hide()
end
end)
end
local captureFrame = CreateFrame("Button") do
captureFrame:Hide()
captureFrame:RegisterForClicks("AnyUp")
captureFrame:SetScript("OnClick", function(_, ...)
if activeCaptureButton then
activeCaptureButton:Click(...)
end
end)
end
local function MapMouseButton(button)
if button == "MiddleButton" then return "BUTTON3" end
if type(button) == "string" and (tonumber(button:match("^Button(%d+)"))) or 1 > 3 then
return button:upper()
end
end
local function Deactivate(self)
self:UnlockHighlight()
self:EnableKeyboard(false)
self:SetScript("OnKeyDown", nil)
if MODERN then
self:SetScript("OnGamePadButtonDown", nil)
end
self:SetScript("OnHide", nil)
captureFrame:Hide()
activeCaptureButton = activeCaptureButton ~= self and activeCaptureButton or nil
if unbindMap[self:GetParent()] then
unbindMap[self:GetParent()]:Disable()
end
return self
end
local unbindableKeys = {
UNKNOWN=1, ESCAPE=1, ALT=1, SHIFT=1, META=1,
LALT=1, LCTRL=1, LSHIFT=1, LMETA=1,
RALT=1, RCTRL=1, RSHIFT=1, RMETA=1,
PADRSTICKUP=1, PADRSTICKDOWN=1, PADRSTICKLEFT=1, PADRSTICKRIGHT=1,
PADLSTICKUP=1, PADLSTICKDOWN=1, PADLSTICKLEFT=1, PADLSTICKRIGHT=1,
}
local function SetBind(self, bind)
if bind == "ESCAPE" then
return Deactivate(self)
elseif unbindableKeys[bind] then
return
end
Deactivate(self)
local bind, p = bind and ((IsAltKeyDown() and "ALT-" or "") .. (IsControlKeyDown() and "CTRL-" or "") .. (IsShiftKeyDown() and "SHIFT-" or "") .. (MODERN and IsMetaKeyDown() and "META-" or "") .. bind), self:GetParent()
if p and type(p.SetBinding) == "function" then
p.SetBinding(self, bind)
end
end
local function OnClick(self, button)
local parent = self:GetParent()
PlaySound(SOUNDKIT.U_CHAT_SCROLL_BUTTON)
if activeCaptureButton then
local deactivated, mappedButton = Deactivate(activeCaptureButton), MapMouseButton(button)
if deactivated == self and (mappedButton or button == "RightButton") then
SetBind(self, mappedButton)
end
if deactivated == self then return end
end
if IsAltKeyDown() and activeCaptureButton == nil and self:GetParent().OnBindingAltClick then
return parent.OnBindingAltClick(self, button)
end
activeCaptureButton = self
self:LockHighlight()
self:EnableKeyboard(true)
self:SetScript("OnKeyDown", SetBind)
if MODERN then
self:SetScript("OnGamePadButtonDown", SetBind)
end
self:SetScript("OnHide", Deactivate)
if parent then
captureFrame:SetParent(parent.bindingContainerFrame or parent)
captureFrame:SetAllPoints()
captureFrame:Show()
captureFrame:SetFrameLevel(self:GetFrameLevel()-1)
end
if unbindMap[self:GetParent()] then
unbindMap[self:GetParent()]:Enable()
end
end
local function OnWheel(self, delta)
local aw = self:GetParent().AllowWheelBinding
if activeCaptureButton == self and aw and (type(aw) ~= "function" or aw(self)) then
SetBind(self, delta > 0 and "MOUSEWHEELUP" or "MOUSEWHEELDOWN")
end
end
local function UnbindClick(self)
if activeCaptureButton and unbindMap[activeCaptureButton:GetParent()] == self then
local p, button = activeCaptureButton:GetParent(), activeCaptureButton
if p and type(p.SetBinding) == "function" then
p.SetBinding(activeCaptureButton, false)
end
PlaySound(SOUNDKIT.U_CHAT_SCROLL_BUTTON)
Deactivate(button)
end
end
local function IsCapturingBinding(self)
return activeCaptureButton == self
end
local specialSymbolMap = {OPEN="[", CLOSE="]", SEMICOLON=";"}
local function bindNameLookup(key)
return GetBindingText(specialSymbolMap[key] or key)
end
local function bindFormat(bind)
return bind and bind ~= "" and bind:gsub("[^%-]+$", bindNameLookup) or L"Not bound"
end
config.bindingFormat = bindFormat
local function SetBindingText(self, bind, pre, post)
if type(bind) == "string" and bind:match("%[.*%]") then
return SetBindingText(self, KR:EvaluateCmdOptions(bind), pre, post or " |cff20ff20[+]|r")
end
return self:SetText((pre or "") .. bindFormat(bind) .. (post or ""))
end
local function ToggleAlternateEditor(self, bind)
if alternateFrame:IsShown() and alternateFrame.owner == self then
alternateFrame:Hide()
else
alternateFrame.apiFrame, alternateFrame.owner = self:GetParent(), self
alternateFrame.caption:SetText(L"Press ENTER to save.")
alternateFrame.input:SetText(bind or "")
alternateFrame:SetParent(self)
alternateFrame:SetFrameLevel(self:GetFrameLevel()+10)
alternateFrame:ClearAllPoints()
alternateFrame:SetPoint("TOP", self, "BOTTOM", 0, 4)
if alternateFrame:GetLeft() < self:GetParent():GetLeft() then
alternateFrame:SetPoint("TOPLEFT", self, "BOTTOMLEFT", -8, 4)
elseif alternateFrame:GetRight() > self:GetParent():GetRight() then
alternateFrame:SetPoint("TOPRIGHT", self, "BOTTOMRIGHT", 8, 4)
end
alternateFrame:Show()
alternateFrame.input:SetFocus()
end
end
function config.createBindingButton(parent)
local btn = CreateFrame("Button", nil, parent, "UIPanelButtonTemplate")
btn:SetSize(120, 22)
btn:RegisterForClicks("AnyUp")
btn:SetScript("OnClick", OnClick)
btn:SetScript("OnMouseWheel", OnWheel)
btn:EnableMouseWheel(true)
btn:SetText(" ")
btn:GetFontString():SetMaxLines(1)
btn.IsCapturingBinding, btn.SetBindingText, btn.ToggleAlternateEditor =
IsCapturingBinding, SetBindingText, ToggleAlternateEditor
return btn, unbindMap[parent]
end
function config.createUnbindButton(parent)
local btn = CreateFrame("Button", nil, parent, "UIPanelButtonTemplate")
btn:Disable()
btn:SetSize(140, 22)
unbindMap[parent] = btn
btn:SetScript("OnClick", UnbindClick)
return btn
end
end
do -- ext.config.undo
local undoStack, undo = {}, {}
config.undo = undo
function undo.unwind()
local entry
for i=#undoStack,1,-1 do
entry, undoStack[i] = undoStack[i]
securecall(entry.func, unpack(entry, 1, entry.n))
end
end
function undo.search(key)
for i=#undoStack,1,-1 do
if undoStack[i].key == key then
return true
end
end
end
function undo.push(key, func, ...)
undoStack[#undoStack + 1] = {key=key, func=func, n=select("#", ...), ...}
end
function undo.clear()
table.wipe(undoStack)
end
end
do -- ext.config.overlay
local container, watcher, occupant = CreateFrame("Frame"), CreateFrame("Frame") do
container:EnableMouse(1) container:EnableKeyboard(1) container:Hide()
container:SetPropagateKeyboardInput(true)
container:SetScript("OnKeyDown", function(self, key)
if key == "ESCAPE" then self:Hide() end
self:SetPropagateKeyboardInput(key ~= "ESCAPE")
end)
container:SetScript("OnMouseWheel", function() end)
container.fader = container:CreateTexture(nil, "BACKGROUND")
container.fader:SetColorTexture(0,0,0, 0.40)
local corner = container:CreateTexture(nil, "ARTWORK")
corner:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Corner")
corner:SetSize(30,30) corner:SetPoint("TOPRIGHT", -5, -6)
local close = CreateFrame("Button", nil, container, "UIPanelCloseButton")
close:SetPoint("TOPRIGHT", 0, -1)
close:SetScript("OnClick", function() container:Hide() end)
CreateEdge(container, {edgeFile="Interface\\DialogFrame\\UI-DialogBox-Border", edgeSize=32, bgFile="Interface\\FrameGeneral\\UI-Background-Rock", tile=true, tileSize=256, insets={left=10,right=10,top=10,bottom=10}}, 0x4c667f)
watcher:SetScript("OnHide", function()
if occupant then
container:Hide()
PlaySound(SOUNDKIT.IG_MAINMENU_CLOSE)
occupant:Hide()
occupant=nil
end
end)
end
function config.overlay(self, overlayFrame)
if occupant and occupant ~= overlayFrame then occupant:Hide() end
local cw, ch = overlayFrame:GetSize()
local w2, h2 = self:GetSize()
local w, h, isRefresh = cw + 24, ch + 24, occupant == overlayFrame
w2, h2, occupant = w2 > w and (w-w2)/2 or 0, h2 > h and (h-h2)/2 or 0
container:SetSize(w, h)
container:SetHitRectInsets(w2, w2, h2, h2)
container:SetParent(self)
container:SetPoint("CENTER")
container:SetFrameLevel(self:GetFrameLevel()+20)
container.fader:ClearAllPoints()
container.fader:SetPoint("TOPLEFT", self, "TOPLEFT", 2, -2)
container.fader:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -2, 2)
container:Show()
overlayFrame:ClearAllPoints()
overlayFrame:SetParent(container)
overlayFrame:SetPoint("CENTER")
overlayFrame:Show()
watcher:SetParent(overlayFrame)
watcher:Show()
CloseDropDownMenus()
if not isRefresh then PlaySound(SOUNDKIT.IG_MAINMENU_OPEN) end
occupant = overlayFrame
end
local promptFrame = CreateFrame("Frame") do
promptFrame:SetSize(400, 130)
promptFrame.title = promptFrame:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
promptFrame.prompt = promptFrame:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
promptFrame.editBox = config.ui.lineInput(promptFrame, 300)
promptFrame.accept = CreateFrame("Button", nil, promptFrame, "UIPanelButtonTemplate")
promptFrame.cancel = CreateFrame("Button", nil, promptFrame, "UIPanelButtonTemplate")
promptFrame.detail = promptFrame:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
promptFrame.title:SetPoint("TOP", 0, -3)
promptFrame.prompt:SetPoint("TOP", promptFrame.title, "BOTTOM", 0, -8)
promptFrame.editBox:SetPoint("TOP", promptFrame.prompt, "BOTTOM", 0, -7)
promptFrame.detail:SetPoint("TOP", promptFrame.editBox, "BOTTOM", 0, -8)
promptFrame.prompt:SetWidth(380)
promptFrame.detail:SetWidth(380)
promptFrame.cancel:SetScript("OnClick", function() promptFrame:Hide() end)
promptFrame.editBox:SetScript("OnTextChanged", function(self)
promptFrame.accept:SetEnabled(promptFrame.callback == nil or promptFrame.callback(self, self:GetText() or "", false, promptFrame:GetParent():GetParent()))
end)
promptFrame.accept:SetScript("OnClick", function()
local callback, text = promptFrame.callback, promptFrame.editBox:GetText() or ""
if callback == nil or callback(promptFrame.editBox, text, true, promptFrame:GetParent():GetParent()) then
promptFrame:Hide()
end
end)
promptFrame.editBox:SetScript("OnEnterPressed", function() promptFrame.accept:Click() end)
promptFrame.editBox:SetScript("OnEscapePressed", function() promptFrame.cancel:Click() end)
end
function config.prompt(frame, title, prompt, explainText, acceptText, callback, editBoxWidth, cancelText)
promptFrame.callback = callback
promptFrame.title:SetText(title or "")
promptFrame.prompt:SetText(prompt or "")
promptFrame.detail:SetText(explainText or "")
promptFrame.editBox:SetText("")
promptFrame:SetHeight(55 + math.max(20, promptFrame.prompt:GetStringHeight()) + (editBoxWidth ~= false and 30 or 0) + ((explainText or "") ~= "" and 20 or 0))
config.overlay(frame, promptFrame)
if editBoxWidth ~= false then
promptFrame.editBox:Show()
promptFrame.editBox:SetWidth((editBoxWidth or 0.50) * 380)
promptFrame.editBox:SetFocus()
else
promptFrame.editBox:Hide()
end
promptFrame.cancel:ClearAllPoints()
promptFrame.accept:ClearAllPoints()
if acceptText ~= false then
promptFrame.accept:SetText(acceptText or ACCEPT)
promptFrame.cancel:SetText(cancelText or CANCEL)
promptFrame.cancel:SetPoint("BOTTOMLEFT", promptFrame, "BOTTOM", 5, 0)
promptFrame.accept:SetPoint("BOTTOMRIGHT", promptFrame, "BOTTOM", -5, 0)
promptFrame.accept:Show()
else
promptFrame.accept:Hide()
promptFrame.cancel:SetText(cancelText or OKAY)
promptFrame.cancel:SetPoint("BOTTOM", 5, 0)
end
promptFrame.cancel:SetWidth(math.max(125, 15+promptFrame.cancel:GetFontString():GetStringWidth()))
promptFrame.accept:SetWidth(math.max(125, 15+promptFrame.accept:GetFontString():GetStringWidth()))
return promptFrame
end
function config.alert(frame, title, message, dissmissText)
config.prompt(frame, title, message, nil, false, nil, false, dissmissText)
end
end
do -- ext.config.pulseDropdown
local function cloneTex(tex)
local l, sl = tex:GetDrawLayer()
local r = tex:GetParent():CreateTexture(nil, l, nil, sl+1)
r:SetAllPoints(tex)
r:SetTexture(tex:GetTexture())
r:SetTexCoord(tex:GetTexCoord())
r:SetVertexColor(0, 0.5, 0.75)
r:SetBlendMode("ADD")
return r
end
function config.pulseDropdown(drop)
if not drop.LeftA then
drop.LeftA, drop.MiddleA, drop.RightA = cloneTex(drop.Left), cloneTex(drop.Middle), cloneTex(drop.Right)
end
local endTime = GetTime()+2
local function pulse()
if drop.pulseFunc ~= pulse then
return
end
local t = GetTime()
if t >= endTime or not drop:IsVisible() then
drop.MiddleA:SetAlpha(0)
drop.LeftA:SetAlpha(0)
drop.RightA:SetAlpha(0)
drop.pulseFunc = nil
return
end
local p = 1-(endTime-t)/2
local s = 0.5+sin(p*360*3-90)/2
drop.LeftA:SetAlpha(s)
drop.MiddleA:SetAlpha(s)
drop.RightA:SetAlpha(s)
C_Timer.After(0, pulse)
end
drop.pulseFunc = pulse
pulse()
end
end
function config.undo.saveProfile(noData)
local undo, name = config.undo, OneRingLib:GetCurrentProfile()
if noData then
undo.push("OPieLightProfile#" .. name, OneRingLib.SwitchProfile, OneRingLib, name)
elseif not undo.search("OPieProfile#" .. name) then
undo.push("OPieProfile#" .. name, OneRingLib.SwitchProfile, OneRingLib, name, (OneRingLib:ExportProfile(name)))
end
end
function config.checkSVState(frame)
if not PC:GetSVState() then
config.alert(frame, L"Changes will not be saved", L"World of Warcraft could not load OPie's saved variables due to a lack of memory. Try disabling other addons.\n\nAny changes you make now will not be saved.", L"Understood; edit anyway")
end
end
local OPC_OptionSets = {
{ L"Behavior",
{"bool", "RingAtMouse", caption=L"Center rings at mouse"},
{"bool", "ClickPriority", caption=L"Make rings top-most"},
{"bool", "CenterAction", caption=L"Quick action at ring center"},
{"bool", "MotionAction", caption=L"Quick action if mouse remains still"},
{"bool", "SliceBinding", caption=L"Per-slice bindings"},
{"bool", "ClickActivation", caption=L"Activate on left click"},
{"bool", "NoClose", caption=L"Leave open after use", depOn="ClickActivation", depValue=true, otherwise=false},
{"bool", "UseDefaultBindings", caption=L"Use default ring bindings"},
{"range", "IndicationOffsetX", -500, 500, 50, caption=L"Move rings right", suffix="(%d)"},
{"range", "IndicationOffsetY", -300, 300, 50, caption=L"Move rings down", suffix="(%d)"},
{"range", "MouseBucket", 5, 1, 1, caption=L"Scroll wheel sensitivity", stdLabels=true},
{"range", "RingScale", 0.1, 2, caption=L"Ring scale", suffix="(%0.1f)"},
}, { L"Appearance",
{"bool", "GhostMIRings", caption=L"Nested rings"},
{"bool", "ShowKeys", caption=L"Per-slice bindings", depOn="SliceBinding", depValue=true, otherwise=false},
{"bool", "ShowCooldowns", caption=L"Show cooldown numbers", depIndicatorFeature="CooldownNumbers"},
{"bool", "ShowRecharge", caption=L"Show recharge numbers", depIndicatorFeature="CooldownNumbers"},
{"bool", "ShowShortLabels", caption=L"Show slice labels"},
{"bool", "UseGameTooltip", caption=L"Show tooltips"},
{"bool", "HideStanceBar", caption=L"Hide stance bar", global=true},
}, { L"Animation",
{"bool", "MIScale", caption=L"Enlarge selected slice"},
{"bool", "MISpinOnHide", caption=L"Outward spiral on hide"},
{"bool", "XTPointerSnap", caption=L"Snap pointer to mouse cursor"},
{"range", "XTZoomTime", 0, 1, 0.1, caption=L"Zoom-in/out time", suffix=L"(%.1f sec)"},
}
}
local frame = config.createPanel("OPie")
frame.version:SetFormattedText("%s (%d.%d)", OneRingLib:GetVersion())
local c = 0
frame.version:SetScript("OnClick", function(self, button)
c = button ~= "RightButton" and (c + 1) % 64 or 0
local c = ITEM_QUALITY_COLORS[c > 0 and (c % 3 == 0 and 2 or c % 7 == 0 and 3 or c % 11 == 0 and 4) or 1]
self:GetFontString():SetTextColor(c.r, c.g, c.b)
end)
local OPC_Profile = CreateFrame("Frame", "OPC_Profile", frame, "UIDropDownMenuTemplate")
OPC_Profile:SetPoint("TOPLEFT", frame, 0, MODERN and -85 or -65)
UIDropDownMenu_SetWidth(OPC_Profile, 200)
local OPC_OptionDomain = CreateFrame("Frame", "OPC_OptionDomain", frame, "UIDropDownMenuTemplate")
OPC_OptionDomain:SetPoint("LEFT", OPC_Profile, "RIGHT")
UIDropDownMenu_SetWidth(OPC_OptionDomain, 250)
local OPC_Widgets, OPC_AlterOption, OPC_BlockInput = {}
do -- Widget construction
local build = {}
local function notifyChange(self, ...)
if not OPC_BlockInput then
OPC_AlterOption(self, self.id, self:IsObjectType("Slider") and self:GetValue() or (not not self:GetChecked()), ...)
end
end
local function OnStateChange(self)
local a = self:IsEnabled() and 1 or 0.6
self.text:SetVertexColor(a,a,a)
end
function build.bool(v, ofsY, halfpoint, rowHeight)
local b = CreateFrame("CheckButton", nil, frame, "InterfaceOptionsCheckButtonTemplate")
b:RegisterForClicks("LeftButtonUp", "RightButtonUp")
b:SetMotionScriptsWhileDisabled(true)
b.id, b.text, b.desc = v[2], b.Text, v
b:SetPoint("TOPLEFT", frame, "TOPLEFT", halfpoint and 315 or 15, ofsY)
b:SetScript("OnClick", notifyChange)
hooksecurefunc(b, "SetEnabled", OnStateChange)
return b, ofsY - (halfpoint and rowHeight or 0), not halfpoint, halfpoint and 0 or 20
end
function build.range(v, ofsY, halfpoint, rowHeight)
if halfpoint then
ofsY = ofsY - rowHeight
end
local b = CreateFrame("Slider", "OPC_Slider_" .. v[2], frame, "OptionsSliderTemplate")
b:SetWidth(175)
b:SetMinMaxValues(v[3] < v[4] and v[3] or -v[3], v[4] > v[3] and v[4] or -v[4])
b:SetValueStep(v[5] or 0.1)
b:SetHitRectInsets(0,0,0,0)
b.id, b.text, b.hi, b.lo, b.desc = v[2], _G["OPC_Slider_" .. v[2] .. "Text"], _G["OPC_Slider_" .. v[2] .. "High"], _G["OPC_Slider_" .. v[2] .. "Low"], v
b.hi:ClearAllPoints()
b.hi:SetPoint("LEFT", b, "RIGHT", 2, 1)
b.lo:ClearAllPoints()
b.lo:SetPoint("RIGHT", b, "LEFT", -2, 1)
b.text:ClearAllPoints()
b.text:SetPoint("TOPLEFT", frame, "TOPLEFT", 44, ofsY-7)
if not v.stdLabels then
b.lo:SetText(v[3])
b.hi:SetText(v[4])
end
b:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -105, ofsY-5)
b:SetScript("OnValueChanged", notifyChange)
b:SetObeyStepOnDrag(true)
return b, ofsY - 20, false, 0
end
local cY, halfpoint, rowHeight = MODERN and -110 or -90, false
for _, v in ipairs(OPC_OptionSets) do
v.label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
v.label:SetPoint("TOP", frame, "TOP", -50, cY-15)
v.label:SetJustifyH("LEFT")
v.label:SetPoint("LEFT", frame, "LEFT", 16, 0)
cY, halfpoint, rowHeight = cY - 36, false, 0
for j=2,#v do
v[j].widget, cY, halfpoint, rowHeight = build[v[j][1]](v[j], cY, halfpoint, rowHeight)
OPC_Widgets[v[j][2]], v[j].widget.control = v[j].widget, v[j]
end
if halfpoint then
cY = cY - rowHeight
end
end
end
local OPC_AppearanceFactory = CreateFrame("Frame", "OPC_AppearanceDropdown", frame, "UIDropDownMenuTemplate")
OPC_AppearanceFactory:SetPoint("LEFT", OPC_OptionSets[2].label, "LEFT", 280, -2)
UIDropDownMenu_SetWidth(OPC_AppearanceFactory, 200)
T.OPC_RingScopePrefixes = {
[30] = "|cff25bdff",
[20] = "|c" .. RAID_CLASS_COLORS[select(2,UnitClass("player"))].colorStr,
[10] = "|cffabffd5",
}
local OR_CurrentOptionsDomain
local function OPC_UpdateControlReqs(v)
local enabled, disabledHint = true, nil
if v.depOn then
enabled = OneRingLib:GetOption(v.depOn, OR_CurrentOptionsDomain) == v.depValue
elseif v.depIndicatorFeature then
enabled = T.OPieUI:DoesIndicatorConstructorSupport(OneRingLib:GetOption("IndicatorFactory", OR_CurrentOptionsDomain), v.depIndicatorFeature)
disabledHint = L"Not supported by selected appearance."
end
v.widget:SetEnabled(enabled)
-- It just so happens they're all checkboxes. This will explode when they are not.
if enabled then
v.widget:SetChecked(OneRingLib:GetOption(v[2], OR_CurrentOptionsDomain) or nil)
v.widget.tooltipText = nil
else
v.widget:SetChecked(v.otherwise or nil)
v.widget.tooltipText = disabledHint
end
end
function OPC_AlterOption(widget, option, newval, ...)
if (...) == "RightButton" then
newval = nil
end
if widget.control[1] == "range" and widget.control[3] > widget.control[4] and type(newval) == "number" then
newval = -newval
end
config.undo.saveProfile()
OneRingLib:SetOption(option, newval, OR_CurrentOptionsDomain)
local setval = OneRingLib:GetOption(option, OR_CurrentOptionsDomain)
if widget:IsObjectType("Slider") then
local text = widget.desc.caption
if widget.desc.suffix then
text = text .. " |cffffd500" .. widget.desc.suffix:format(setval) .. "|r"
end
widget.text:SetText(text)
OPC_BlockInput = true
widget:SetValue(setval * (widget.control[3] > widget.control[4] and -1 or 1))
OPC_BlockInput = false
elseif setval ~= newval then
widget:SetChecked(setval and 1 or nil)
end
for _,set in ipairs(OPC_OptionSets) do for j=2,#set do local v = set[j]
if v.depOn == option then
OPC_UpdateControlReqs(v)
end
end end
end
function OPC_OptionDomain:click(ringName)
OR_CurrentOptionsDomain = ringName or nil
frame.resetOnHide = nil
frame.refresh()
end
local function OPC_OptionDomain_Format(key, list)
return list[key], OR_CurrentOptionsDomain == (key or nil)
end
function OPC_OptionDomain:initialize()
local list = {false, [false]=L"Defaults for all rings"}
local ct = T.OPC_RingScopePrefixes
for key, name, scope in OneRingLib:IterateRings(IsAltKeyDown()) do
local color = ct and ct[scope] or "|cffacd7e6"
list[#list+1], list[key] = key, (L"Ring: %s"):format(color .. (name or key) .. "|r")
end
config.ui.scrollingDropdown:Display(1, list, OPC_OptionDomain_Format, OPC_OptionDomain.click)
end
local function OPC_Profile_NewCallback(self, text, apply, frame)
local name = text:match("^%s*(.-)%s*$")
if name == "" or OneRingLib:ProfileExists(name) then
if apply then self.editBox:SetText("") end
return false
elseif apply then
config.undo.saveProfile(true)
OneRingLib:SwitchProfile(name, true)
if not config.undo.search("OPieProfile#" .. name) then
config.undo.push("OPieProfile#" .. name, OneRingLib.DeleteProfile, OneRingLib, name)
end
frame.refresh("profile")
end
return true
end
local function OPC_Profile_FormatName(ident)
return ident == "default" and L"default" or ident
end
function OPC_Profile:switch(arg1, frame)
config.undo.saveProfile(true)
OneRingLib:SwitchProfile(arg1)
frame.refresh("profile")
end
function OPC_Profile:new(_, frame)
config.prompt(frame, L"Create a New Profile", L"New profile name:", L"Profiles save options and ring bindings.", L"Create Profile", OPC_Profile_NewCallback)
end
function OPC_Profile:delete(_, frame)
config.undo.saveProfile()
OneRingLib:DeleteProfile(OneRingLib:GetCurrentProfile())
frame.refresh("profile")
end
function OPC_Profile:initialize()
local info = {func=OPC_Profile.switch, arg2=self:GetParent()}
for ident, isActive in OneRingLib.Profiles do
info.text, info.arg1, info.checked = OPC_Profile_FormatName(ident), ident, isActive or nil
UIDropDownMenu_AddButton(info)
end
info.text, info.disabled, info.checked, info.notCheckable, info.justifyH = "", true, nil, true, "CENTER"
UIDropDownMenu_AddButton(info)
info.text, info.disabled, info.minWidth, info.func = L"Create a new profile", false, self:GetWidth()-40, OPC_Profile.new
UIDropDownMenu_AddButton(info)
info.text, info.func = OneRingLib:GetCurrentProfile() ~= "default" and L"Delete current profile" or L"Restore default settings", OPC_Profile.delete
UIDropDownMenu_AddButton(info)
end
function OPC_AppearanceFactory:formatText(key, outOfDate, name)
name = name or T.OPieUI:GetIndicatorConstructorName(key)
if not name then
name = "|cffa0a0a0*[" .. T.OPieUI:GetIndicatorConstructorName() .. "]|r"
end
if outOfDate then
name = "|cffff6060" .. name .. "|r"
end
if key == "mirage" then
name = "|cff00e800" .. name .. "|r"
elseif key == "_" then
name = L"Not customized" .. " (|cffb0b0b0" .. name .. "|r)"
end
return name
end
function OPC_AppearanceFactory:text()
local key, own = OneRingLib:GetOption("IndicatorFactory", OR_CurrentOptionsDomain)
UIDropDownMenu_SetText(self, OR_CurrentOptionsDomain and own == nil and L"Use global setting" or self:formatText(key, false))
end
function OPC_AppearanceFactory:initialize()
local info = {func=self.set, minWidth=UIDROPDOWNMENU_OPEN_MENU:GetWidth()-40, tooltipOnButton=true}
local current, own = OneRingLib:GetOption("IndicatorFactory", OR_CurrentOptionsDomain)
for k, name, outOfDate in T.OPieUI:EnumerateRegisteredIndicatorConstructors() do
name = self:formatText(k, outOfDate, name)
if k == "_" then
UIDropDownMenu_AddSeparator()
end
if outOfDate then
info.tooltipTitle, info.tooltipText = "|cffff2020" .. L"Update required", L"This appearance may not support all OPie features."
else
info.tooltipTitle, info.tooltipText = nil
end
info.arg1, info.text, info.checked = k, name, k == own or (own == nil and not OR_CurrentOptionsDomain and current == k)
UIDropDownMenu_AddButton(info)
end
if OR_CurrentOptionsDomain then
info.text, info.arg1, info.checked = L"Use global setting", nil, own == nil
info.tooltipTitle, info.tooltipText = nil
UIDropDownMenu_AddButton(info)
end
end
function OPC_AppearanceFactory:set(key)
OneRingLib:SetOption("IndicatorFactory", key, OR_CurrentOptionsDomain)
OPC_AppearanceFactory:text()
for _,set in ipairs(OPC_OptionSets) do for j=2,#set do local v = set[j]
if v.depIndicatorFeature then
OPC_UpdateControlReqs(v)
end
end end
end
function frame.refresh()
OPC_BlockInput = true
frame.desc:SetText(L"Customize OPie's appearance and behavior. Right clicking a checkbox restores it to its default state."
.. (MODERN and "\n" .. L"Profiles activate automatically when you switch character specializations." or ""))
for _, v in pairs(OPC_OptionSets) do
v.label:SetText(v[1])
for j=2,#v do
v[j].widget.text:SetText(v.caption)
end
end
local label = L"Defaults for all rings"
if OR_CurrentOptionsDomain then
local name, key = OneRingLib:GetRingInfo(OR_CurrentOptionsDomain)
label = (L"Ring: %s"):format("|cffaaffff" .. (name or key) .."|r")
end
UIDropDownMenu_SetText(OPC_OptionDomain, label)
UIDropDownMenu_SetText(OPC_Profile, L"Profile" .. ": " .. OPC_Profile_FormatName(OneRingLib:GetCurrentProfile()))
OPC_AppearanceFactory:text()
OPC_AppearanceFactory:SetShown(T.OPieUI:HasMultipleIndicatorConstructors())
for _, set in pairs(OPC_OptionSets) do for j=2,#set do
local v, opttype, option = set[j], set[j][1], set[j][2]
if opttype == "range" then
v.widget:SetValue(OneRingLib:GetOption(option) * (v[3] < v[4] and 1 or -1))
local text = v.caption
if v.suffix then
text = text .. " |cffffd500" .. v.suffix:format(v.widget:GetValue()) .. "|r"
end
v.widget.text:SetText(text)
elseif opttype == "bool" then
v.widget:SetChecked(OneRingLib:GetOption(option, OR_CurrentOptionsDomain) or nil)
v.widget.text:SetText(v.caption)
end
if v.depOn or v.depIndicatorFeature then
OPC_UpdateControlReqs(v)
end
v.widget:SetShown(not v.global or OR_CurrentOptionsDomain == nil)
end end
OPC_BlockInput = false
config.checkSVState(frame)
end
function frame.cancel()
config.undo.unwind()
OR_CurrentOptionsDomain = nil
end
function frame.default()
config.undo.saveProfile()
OneRingLib:ResetOptions(true)
frame.refresh()
end
function frame.okay()
config.undo.clear()
OR_CurrentOptionsDomain = nil
end
frame:SetScript("OnShow", frame.refresh)
frame:SetScript("OnHide", function()
if frame.resetOnHide then
OR_CurrentOptionsDomain, frame.resetOnHide = nil
end
end)
local slashExtensions = {}
local function addSuffix(func, word, ...)
if word then
slashExtensions[word:lower()] = func
addSuffix(func, ...)
end
end
T.AddSlashSuffix = addSuffix
SLASH_OPIE1, SLASH_OPIE2 = "/opie", "/op"
SlashCmdList["OPIE"] = function(args, ...)
local ext = slashExtensions[(args:match("%S+") or ""):lower()]
if ext then
ext(args, ...)
else
config.open(frame)
end
end
function T.ShowOPieOptionsPanel(ringKey)
config.open(frame)
OPC_OptionDomain:click(ringKey)
frame.resetOnHide = true
config.pulseDropdown(OPC_OptionDomain)
end