forked from Dusk/ShaguTweaks-ClassicAPI
135 lines
8.0 KiB
Lua
135 lines
8.0 KiB
Lua
local root=(arg[1] or '.') .. '/'
|
|
local function noop() end
|
|
local methods={}
|
|
function methods:SetScript(k,v) self.scripts[k]=v end
|
|
function methods:SetText(v) self.text=v; if self.scripts.OnTextChanged then local old=this; this=self; self.scripts.OnTextChanged(); this=old end end
|
|
function methods:GetText() return self.text or '' end
|
|
function methods:Show() self.visible=true end
|
|
function methods:Hide() self.visible=false end
|
|
function methods:IsShown() return self.visible end
|
|
function methods:SetWidth(v) self.width=v end
|
|
function methods:SetHeight(v) self.height=v end
|
|
function methods:SetPoint(...) self.point=arg end
|
|
function methods:GetWidth() return self.width or 500 end
|
|
function methods:GetHeight() return self.height or 900 end
|
|
function methods:GetScale() return 1 end
|
|
function methods:GetFrameLevel() return 1 end
|
|
function methods:SetFocus() self.focused=true end
|
|
function methods:ClearFocus() self.focused=false end
|
|
function methods:HighlightText() self.selected=true end
|
|
function methods:SetVertexColor(r,g,b,a) self.color={r,g,b,a} end
|
|
function methods:SetChecked(v) self.checked=v end
|
|
function methods:GetChecked() return self.checked end
|
|
function methods:Enable() self.enabled=true end
|
|
function methods:Disable() self.enabled=false end
|
|
function methods:SetValue(v) self.value=v; if self.scripts.OnValueChanged then local old=this; this=self; self.scripts.OnValueChanged(); this=old end end
|
|
function methods:GetValue() return self.value end
|
|
function methods:CreateFontString() return CreateFrame() end
|
|
function methods:CreateTexture() return CreateFrame() end
|
|
local made=0
|
|
function CreateFrame(kind,name,parent,template)
|
|
made=made+1
|
|
local f=setmetatable({scripts={},visible=true},{__index=function(t,k) if methods[k] then return methods[k] elseif string.find(k,'^[A-Z]') then return noop end end})
|
|
if name then _G[name]=f end
|
|
if name and template=='OptionsCheckButtonTemplate' then _G[name..'Text']=CreateFrame() end
|
|
if name and template=='UIDropDownMenuTemplate' then
|
|
for _,suffix in ipairs({'Left','Middle','Right'}) do _G[name..suffix]=CreateFrame() end
|
|
end
|
|
return f
|
|
end
|
|
UIParent=CreateFrame(); GameMenuFrame=CreateFrame(); GameMenuButtonUIOptions=CreateFrame(); GameMenuButtonKeybindings=CreateFrame(); GameTooltip=CreateFrame()
|
|
UISpecialFrames={}; DEFAULTS='Defaults'; OKAY='Okay'; CANCEL='Cancel'; CLOSE='Close'
|
|
ShowUIPanel=noop; HideUIPanel=noop; UpdateMicroButtons=noop
|
|
local reloaded=false
|
|
function ReloadUI() reloaded=true end
|
|
Minimap=CreateFrame()
|
|
ShaguTweaks={T=setmetatable({},{__index=function(t,k) return k end}),mods={}}
|
|
function ShaguTweaks.GetGlobalEnv() return _G end
|
|
function ShaguTweaks:GetExpansion() return 'vanilla' end
|
|
function ShaguTweaks.spairs(t,comp)
|
|
local keys={}; for k in pairs(t) do table.insert(keys,k) end; table.sort(keys,comp)
|
|
local i=0; return function() i=i+1; if keys[i] then return keys[i],t[keys[i]] end end
|
|
end
|
|
local function add(title,category,description,sliders)
|
|
ShaguTweaks.mods[title]={title=title,category=category,description=description,sliders=sliders,expansions={vanilla=true}}
|
|
end
|
|
add('Golden UI','Interface','Colors borders gold')
|
|
add('Darkened UI','Interface','Darkens borders')
|
|
add('Other Interface','Interface','Another interface feature')
|
|
add('Hide Player Frame Resources','Unit Frames','Hides native resources')
|
|
add('Hide Player Name','Unit Frames','Hides native name')
|
|
ShaguTweaks.mods['Hide Player Name'].requires={'Hide Player Frame Resources'}
|
|
add('Item Rarity Borders','Tooltip & Items','Colors mail and trade items')
|
|
add('Range Color','Action Bar','Shows distance',{{key='range.delay',label='Update interval',min=1,max=10,default=3}})
|
|
for i=1,40 do add('Other '..i,'Other','Another feature') end
|
|
ShaguTweaks_config={overwrites={}}
|
|
GetAddOnMetadata=function(addon,key) assert(addon=='ShaguTweaks' and key=='Version');return '3.8.5' end
|
|
local menu={}
|
|
function UIDropDownMenu_Initialize(dropdown,callback) dropdown.initialize=callback end
|
|
function UIDropDownMenu_SetWidth(width,dropdown) dropdown.width=width end
|
|
function UIDropDownMenu_SetSelectedID(dropdown,id) dropdown.selected=id end
|
|
function UIDropDownMenu_SetText(text,dropdown) dropdown.text=text end
|
|
function UIDropDownMenu_AddButton(info) table.insert(menu,info) end
|
|
local function choose(dropdown,id)
|
|
menu={};dropdown.initialize();assert(table.getn(menu)==3);menu[id].func()
|
|
end
|
|
dofile(root..'config.lua')
|
|
local gui=AdvancedSettingsGUI
|
|
assert(gui.version:GetText()=='v3.8.5')
|
|
this=gui.version;gui.version.scripts.OnClick();this=nil
|
|
assert(gui.projectLink.visible and gui.projectLink.edit.focused and gui.projectLink.edit.selected)
|
|
assert(gui.projectLink.edit:GetText()=='https://octowow.st/git/OEVG/ShaguTweaks-ClassicAPI')
|
|
gui.projectLink.close.scripts.OnClick();assert(not gui.projectLink.visible)
|
|
this=gui; gui.scripts.OnShow(); this=nil
|
|
assert(gui.scrollframe.visible)
|
|
local hideName=gui.entries['Hide Player Name']
|
|
local hideResources=gui.entries['Hide Player Frame Resources']
|
|
assert(not hideName.enabled)
|
|
hideName:SetChecked(true);this=hideName;hideName.scripts.OnClick();assert(not hideName.checked)
|
|
hideResources:SetChecked(true);this=hideResources;hideResources.scripts.OnClick();assert(hideName.enabled)
|
|
hideName:SetChecked(true);this=hideName;hideName.scripts.OnClick()
|
|
gui.search:SetText('Hide Player Name');assert(hideName.enabled and hideName.checked)
|
|
gui.search:SetText('')
|
|
hideResources:SetChecked(false);this=hideResources;hideResources.scripts.OnClick()
|
|
assert(not hideName.enabled and hideName.checked) -- retain dependent choice while dormant
|
|
local firstCount=made
|
|
local checkbox=gui.entries['ui-mode'];local dropdown=gui.modeDropdown
|
|
assert(checkbox.point[2]==gui and checkbox.point[5]==-56)
|
|
assert(not gui.entries['Golden UI'] and not gui.entries['Darkened UI'])
|
|
assert(dropdown.selected==1)
|
|
choose(dropdown,2);assert(dropdown.text=='Darkened')
|
|
choose(dropdown,3);assert(dropdown.text=='Golden')
|
|
-- Collapse a category before searching: matches must still be visible.
|
|
local collapse=gui.category.Interface.button; this=collapse; collapse.scripts.OnClick(); this=nil
|
|
assert(checkbox.visible and not gui.entries['Other Interface'].visible)
|
|
gui.search:SetText(' GOLDEN ')
|
|
assert(checkbox.visible and dropdown.selected==3 and not gui.entries['Range Color'].visible)
|
|
assert(not gui.scrollframe.visible and not gui.empty.visible)
|
|
assert(not ShaguTweaks_config['Golden UI'])
|
|
gui.search:SetText('mail'); assert(gui.entries['Item Rarity Borders'].visible and checkbox.visible)
|
|
gui.search:SetText('update interval'); assert(gui.entries['Range Color'].visible and gui.entries['slider:range.delay'].visible)
|
|
gui.search:SetText('[.*'); assert(gui.empty.visible) -- literal, not Lua pattern matching
|
|
this=gui.searchClear; gui.searchClear.scripts.OnClick(); this=nil
|
|
assert(not gui.empty.visible and checkbox.visible and dropdown.selected==3 and gui.scrollframe.visible)
|
|
assert(made==firstCount) -- subsequent searches reuse all widgets
|
|
this=gui.okay; gui.okay.scripts.OnClick(); this=nil
|
|
assert(ShaguTweaks_config['Golden UI']==1 and ShaguTweaks_config['Darkened UI']==0 and reloaded)
|
|
-- Defaults and Cancel change only the temporary selection.
|
|
this=gui;gui.scripts.OnShow();this=nil
|
|
gui:defaults();assert(dropdown.selected==1 and ShaguTweaks_config['Golden UI']==1)
|
|
this=gui.cancel;gui.cancel.scripts.OnClick();this=nil
|
|
this=gui;gui.scripts.OnShow();this=nil;assert(dropdown.selected==3)
|
|
ShaguTweaks_config['Darkened UI']=1
|
|
this=gui;gui.scripts.OnShow();this=nil;assert(dropdown.selected==2)
|
|
assert(ShaguTweaks_config['Golden UI']==1) -- opening does not alter saved config
|
|
choose(dropdown,1);this=gui.okay;gui.okay.scripts.OnClick();this=nil
|
|
assert(ShaguTweaks_config['Golden UI']==0 and ShaguTweaks_config['Darkened UI']==0)
|
|
for _,color in ipairs({{r=.3,g=.3,b=.3},{r=.8,g=.62,b=.32}}) do
|
|
ShaguTweaks.UIBorder=color;gui:load()
|
|
for _,suffix in ipairs({'Left','Middle','Right'}) do
|
|
local c=_G['AdvancedSettingsGUIUIMode'..suffix].color
|
|
assert(c[1]==color.r and c[2]==color.g and c[3]==color.b and c[4]==1)
|
|
end
|
|
end
|
|
print('Search: literal/case-insensitive matching, descriptions/sliders, collapsed categories, empty/clear, widget reuse, scroll layouts and unsaved settings passed')
|