Verified Commit 61066777 authored by Merathilis's avatar Merathilis
Browse files

Readd the old Help Skin

parent bae6a55d
......@@ -3,6 +3,24 @@ local S = E:GetModule('Skins')
local _G = _G
local function OnEnter(f)
f.text:SetTextColor(1, 1, 1)
end
local function OnLeave(f)
f.text:SetTextColor(1, .8, 0)
end
local function HandleTabButton(button)
button.selected:SetColorTexture(1, 1, 1, 0.3)
button.selected:SetDrawLayer('BACKGROUND')
S:HandleButton(button)
button:SetScript('OnEnter', OnEnter)
button:SetScript('OnLeave', OnLeave)
end
function S:HelpFrame()
if not (E.private.skins.blizzard.enable and E.private.skins.blizzard.help) then return end
......@@ -13,6 +31,137 @@ function S:HelpFrame()
local browser = _G.HelpBrowser
browser.BrowserInset:StripTextures()
local frames = {
_G.HelpFrameLeftInset,
_G.HelpFrameMainInset,
_G.HelpFrameKnowledgebase,
_G.HelpFrameKnowledgebaseErrorFrame,
}
local buttons = {
_G.HelpFrameAccountSecurityOpenTicket,
_G.HelpFrameOpenTicketHelpOpenTicket,
_G.HelpFrameKnowledgebaseSearchButton,
_G.HelpFrameKnowledgebaseNavBarHomeButton,
_G.HelpFrameCharacterStuckStuck,
_G.HelpFrameSubmitSuggestionSubmit,
_G.HelpFrameReportBugSubmit,
}
for i = 1, #frames do
frames[i]:StripTextures(true)
frames[i]:CreateBackdrop('Transparent')
end
local Header = _G.HelpFrame.Header
Header:StripTextures(true)
Header:CreateBackdrop(nil, true)
Header:SetFrameLevel(Header:GetFrameLevel() + 2)
_G.HelpFrameKnowledgebaseErrorFrame:SetFrameLevel(_G.HelpFrameKnowledgebaseErrorFrame:GetFrameLevel() + 2)
local HelpFrameReportBugScrollFrame = _G.HelpFrameReportBugScrollFrame
HelpFrameReportBugScrollFrame:StripTextures()
HelpFrameReportBugScrollFrame:CreateBackdrop('Transparent')
HelpFrameReportBugScrollFrame.backdrop:Point('TOPLEFT', -4, 4)
HelpFrameReportBugScrollFrame.backdrop:Point('BOTTOMRIGHT', 6, -4)
for i = 1, _G.HelpFrameReportBug:GetNumChildren() do
local child = select(i, _G.HelpFrameReportBug:GetChildren())
if child and not child:GetName() then
child:StripTextures()
end
end
S:HandleScrollBar(_G.HelpFrameReportBugScrollFrameScrollBar)
local HelpFrameSubmitSuggestionScrollFrame = _G.HelpFrameSubmitSuggestionScrollFrame
HelpFrameSubmitSuggestionScrollFrame:StripTextures()
HelpFrameSubmitSuggestionScrollFrame:CreateBackdrop('Transparent')
HelpFrameSubmitSuggestionScrollFrame.backdrop:Point('TOPLEFT', -4, 4)
HelpFrameSubmitSuggestionScrollFrame.backdrop:Point('BOTTOMRIGHT', 6, -4)
for i = 1, _G.HelpFrameSubmitSuggestion:GetNumChildren() do
local child = select(i, _G.HelpFrameSubmitSuggestion:GetChildren())
if not child:GetName() then
child:StripTextures()
end
end
S:HandleScrollBar(_G.HelpFrameSubmitSuggestionScrollFrameScrollBar)
S:HandleScrollBar(_G.HelpFrameKnowledgebaseScrollFrame2ScrollBar)
-- skin sub buttons
for i = 1, #buttons do
buttons[i]:StripTextures(true)
S:HandleButton(buttons[i], true)
if buttons[i].text then
buttons[i].text:ClearAllPoints()
buttons[i].text:Point('CENTER')
buttons[i].text:SetJustifyH('CENTER')
end
end
-- skin main buttons
for i = 1, 6 do
HandleTabButton(_G['HelpFrameButton'..i])
end
HandleTabButton(_G.HelpFrameButton16)
-- skin table options
for i = 1, _G.HelpFrameKnowledgebaseScrollFrameScrollChild:GetNumChildren() do
local b = _G['HelpFrameKnowledgebaseScrollFrameButton'..i]
b:StripTextures(true)
S:HandleButton(b, true)
end
--Navigation buttons
local HelpBrowserNavHome = _G.HelpBrowserNavHome
S:HandleButton(HelpBrowserNavHome)
HelpBrowserNavHome:Size(26)
HelpBrowserNavHome:ClearAllPoints()
HelpBrowserNavHome:Point('BOTTOMLEFT', _G.HelpBrowser, 'TOPLEFT', -5, 9)
S:HandleNextPrevButton(_G.HelpBrowserNavBack)
_G.HelpBrowserNavBack:Size(26)
S:HandleNextPrevButton(_G.HelpBrowserNavForward)
_G.HelpBrowserNavForward:Size(26)
S:HandleButton(_G.HelpBrowserNavReload)
_G.HelpBrowserNavReload:Size(26)
S:HandleButton(_G.HelpBrowserNavStop)
_G.HelpBrowserNavStop:Size(26)
S:HandleButton(_G.HelpBrowserBrowserSettings)
_G.HelpBrowserBrowserSettings:Size(26)
_G.HelpBrowserBrowserSettings:ClearAllPoints()
_G.HelpBrowserBrowserSettings:Point('TOPRIGHT', _G.HelpFrameCloseButton, 'TOPLEFT', -3, -8)
-- skin misc items
_G.HelpFrameKnowledgebaseSearchBox:ClearAllPoints()
_G.HelpFrameKnowledgebaseSearchBox:Point('TOPLEFT', _G.HelpFrameMainInset, 'TOPLEFT', 13, -10)
_G.HelpFrameKnowledgebaseNavBar:StripTextures()
local HelpFrame = _G.HelpFrame
HelpFrame:StripTextures(true)
HelpFrame:CreateBackdrop('Transparent')
S:HandleEditBox(_G.HelpFrameKnowledgebaseSearchBox)
S:HandleScrollBar(_G.HelpFrameKnowledgebaseScrollFrameScrollBar, 5)
S:HandleCloseButton(_G.HelpFrameCloseButton, HelpFrame.backdrop)
S:HandleCloseButton(_G.HelpFrameKnowledgebaseErrorFrameCloseButton, _G.HelpFrameKnowledgebaseErrorFrame.backdrop)
--Hearth Stone Button
local HelpFrameCharacterStuckHearthstone = _G.HelpFrameCharacterStuckHearthstone
HelpFrameCharacterStuckHearthstone:StyleButton()
HelpFrameCharacterStuckHearthstone:CreateBackdrop(nil, true)
HelpFrameCharacterStuckHearthstone.IconTexture:SetInside()
HelpFrameCharacterStuckHearthstone.IconTexture:SetTexCoord(unpack(E.TexCoords))
S:HandleButton(_G.HelpFrameGM_ResponseNeedMoreHelp)
S:HandleButton(_G.HelpFrameGM_ResponseCancel)
for i = 1, _G.HelpFrameGM_Response:GetNumChildren() do
local child = select(i, _G.HelpFrameGM_Response:GetChildren())
if child and child:IsObjectType('Frame') and not child:GetName() then
child:CreateBackdrop()
end
end
end
S:AddCallback('HelpFrame')
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment