/Tukui/modules/skins/core.lua

  1local T, C, L = unpack(select(2, ...)) -- Import Functions/Constants, Config, Locales
  2
  3T.SkinFuncs = {}
  4T.SkinFuncs["Tukui"] = {}
  5
  6function T.SetModifiedBackdrop(self)
  7	local color = RAID_CLASS_COLORS[T.myclass]
  8	self:SetBackdropColor(color.r*.15, color.g*.15, color.b*.15)
  9	self:SetBackdropBorderColor(color.r, color.g, color.b)
 10end
 11
 12function T.SetOriginalBackdrop(self)
 13	self:SetTemplate("Transparent")
 14end
 15
 16function T.SkinButton(f, strip)
 17	if f:GetName() then
 18		local l = _G[f:GetName().."Left"]
 19		local m = _G[f:GetName().."Middle"]
 20		local r = _G[f:GetName().."Right"]
 21		
 22		
 23		if l then l:SetAlpha(0) end
 24		if m then m:SetAlpha(0) end
 25		if r then r:SetAlpha(0) end
 26	end
 27
 28	if f.SetNormalTexture then f:SetNormalTexture("") end
 29	
 30	if f.SetHighlightTexture then f:SetHighlightTexture("") end
 31	
 32	if f.SetPushedTexture then f:SetPushedTexture("") end
 33	
 34	if f.SetDisabledTexture then f:SetDisabledTexture("") end
 35	
 36	if strip then f:StripTextures() end
 37	
 38	f:SetTemplate("Transparent")
 39	f:HookScript("OnEnter", T.SetModifiedBackdrop)
 40	f:HookScript("OnLeave", T.SetOriginalBackdrop)
 41end
 42
 43function T.SkinScrollBar(frame, thumbTrim)
 44	if _G[frame:GetName().."BG"] then _G[frame:GetName().."BG"]:SetTexture(nil) end
 45	if _G[frame:GetName().."Track"] then _G[frame:GetName().."Track"]:SetTexture(nil) end
 46	
 47	if _G[frame:GetName().."Top"] then
 48		_G[frame:GetName().."Top"]:SetTexture(nil)
 49		_G[frame:GetName().."Bottom"]:SetTexture(nil)
 50		_G[frame:GetName().."Middle"]:SetTexture(nil)
 51	end
 52	
 53	if _G[frame:GetName().."ScrollUpButton"] and _G[frame:GetName().."ScrollDownButton"] then
 54		_G[frame:GetName().."ScrollUpButton"]:StripTextures()
 55		_G[frame:GetName().."ScrollUpButton"]:SetTemplate("Transparent", true)
 56		_G[frame:GetName().."ScrollUpButton"]:HookScript('OnEnter', T.SetModifiedBackdrop)
 57		_G[frame:GetName().."ScrollUpButton"]:HookScript('OnLeave', T.SetOriginalBackdrop)		
 58		if not _G[frame:GetName().."ScrollUpButton"].texture then
 59			_G[frame:GetName().."ScrollUpButton"].texture = _G[frame:GetName().."ScrollUpButton"]:CreateTexture(nil, 'OVERLAY')
 60			_G[frame:GetName().."ScrollUpButton"].texture:Point("TOPLEFT", 2, -2)
 61			_G[frame:GetName().."ScrollUpButton"].texture:Point("BOTTOMRIGHT", -2, 2)
 62			_G[frame:GetName().."ScrollUpButton"].texture:SetTexture([[Interface\AddOns\Tukui\medias\textures\arrowup.tga]])
 63			_G[frame:GetName().."ScrollUpButton"].texture:SetVertexColor(unpack(C["media"].bordercolor))
 64		end
 65		_G[frame:GetName().."ScrollUpButton"]:HookScript('OnEnter', function(self)
 66			local color = RAID_CLASS_COLORS[T.myclass]
 67			self.texture:SetVertexColor(color.r, color.g, color.b)	
 68		end)	
 69		_G[frame:GetName().."ScrollUpButton"]:HookScript('OnLeave', function(self)
 70			self.texture:SetVertexColor(unpack(C["media"].bordercolor)) 
 71		end)		
 72
 73		_G[frame:GetName().."ScrollDownButton"]:StripTextures()
 74		_G[frame:GetName().."ScrollDownButton"]:SetTemplate("Transparent", true)
 75		_G[frame:GetName().."ScrollDownButton"]:HookScript('OnEnter', T.SetModifiedBackdrop)
 76		_G[frame:GetName().."ScrollDownButton"]:HookScript('OnLeave', T.SetOriginalBackdrop)		
 77		if not _G[frame:GetName().."ScrollDownButton"].texture then
 78			_G[frame:GetName().."ScrollDownButton"].texture = _G[frame:GetName().."ScrollDownButton"]:CreateTexture(nil, 'OVERLAY')
 79			_G[frame:GetName().."ScrollDownButton"].texture:Point("TOPLEFT", 2, -2)
 80			_G[frame:GetName().."ScrollDownButton"].texture:Point("BOTTOMRIGHT", -2, 2)
 81			_G[frame:GetName().."ScrollDownButton"].texture:SetTexture([[Interface\AddOns\Tukui\medias\textures\arrowdown.tga]])
 82			_G[frame:GetName().."ScrollDownButton"].texture:SetVertexColor(unpack(C["media"].bordercolor))
 83		end
 84
 85		_G[frame:GetName().."ScrollDownButton"]:HookScript('OnEnter', function(self)
 86			local color = RAID_CLASS_COLORS[T.myclass]
 87			self.texture:SetVertexColor(color.r, color.g, color.b)	
 88		end)	
 89		_G[frame:GetName().."ScrollDownButton"]:HookScript('OnLeave', function(self)
 90			self.texture:SetVertexColor(unpack(C["media"].bordercolor)) 
 91		end)				
 92
 93		if not frame.trackbg then
 94			frame.trackbg = CreateFrame("Frame", nil, frame)
 95			frame.trackbg:Point("TOPLEFT", _G[frame:GetName().."ScrollUpButton"], "BOTTOMLEFT", 0, -1)
 96			frame.trackbg:Point("BOTTOMRIGHT", _G[frame:GetName().."ScrollDownButton"], "TOPRIGHT", 0, 1)
 97			frame.trackbg:SetTemplate("Transparent")
 98		end
 99
100		if frame:GetThumbTexture() then
101			if not thumbTrim then thumbTrim = 3 end
102			frame:GetThumbTexture():SetTexture(nil)
103			if not frame.thumbbg then
104				frame.thumbbg = CreateFrame("Frame", nil, frame)
105				frame.thumbbg:Point("TOPLEFT", frame:GetThumbTexture(), "TOPLEFT", 2, -thumbTrim)
106				frame.thumbbg:Point("BOTTOMRIGHT", frame:GetThumbTexture(), "BOTTOMRIGHT", -2, thumbTrim)
107				frame.thumbbg:SetTemplate("Transparent", true)
108				if frame.trackbg then
109					frame.thumbbg:SetFrameLevel(frame.trackbg:GetFrameLevel())
110				end
111			end
112		end
113	end
114end
115
116function T.SkinSlideBar(frame,height,movetext)
117
118	frame:SetTemplate("Transparent")
119	frame:SetBackdropColor(0,0,0,.8)
120
121	if not height then height = frame:GetHeight() end
122	frame:Height(height)
123
124	if movetext then
125		if _G[frame:GetName().."Low"] then _G[frame:GetName().."Low"]:Point("BOTTOM",0,-18) end
126		if _G[frame:GetName().."High"] then _G[frame:GetName().."High"]:Point("BOTTOM",0,-18) end
127		if _G[frame:GetName().."Text"] then _G[frame:GetName().."Text"]:Point("TOP",0,19) end
128	end
129
130	if _G[frame:GetName().."Thumb"] then
131		_G[frame:GetName().."Thumb"]:SetTexture([[Interface\AddOns\Tukui\medias\textures\blank.tga]])
132		_G[frame:GetName().."Thumb"]:SetVertexColor(unpack(C["media"].bordercolor))
133		_G[frame:GetName().."Thumb"]:Size(height-4,height+4)
134	end
135end
136
137--Tab Regions
138local tabs = {
139	"LeftDisabled",
140	"MiddleDisabled",
141	"RightDisabled",
142	"Left",
143	"Middle",
144	"Right",
145}
146
147function T.SkinTab(tab)
148	if not tab then return end
149	for _, object in pairs(tabs) do
150		local tex = _G[tab:GetName()..object]
151		if tex then
152			tex:SetTexture(nil)
153		end
154	end
155	
156	if tab.GetHighlightTexture and tab:GetHighlightTexture() then
157		tab:GetHighlightTexture():SetTexture(nil)
158	else
159		tab:StripTextures()
160	end
161	
162	tab.backdrop = CreateFrame("Frame", nil, tab)
163	tab.backdrop:SetTemplate("Transparent")
164	tab.backdrop:SetFrameLevel(tab:GetFrameLevel() - 1)
165	tab.backdrop:Point("TOPLEFT", 10, -3)
166	tab.backdrop:Point("BOTTOMRIGHT", -10, 3)
167
168	-- always set tab text centered
169	local name = tab:GetName()
170	_G[name.."Text"]:ClearAllPoints()
171	_G[name.."Text"]:SetPoint("TOP", name, 0, -11)
172end
173
174function T.SkinNextPrevButton(btn, horizonal)
175	btn:SetTemplate("Transparent")
176	btn:Size(btn:GetWidth() - 7, btn:GetHeight() - 7)	
177	
178	if horizonal then
179		btn:GetNormalTexture():SetTexCoord(0.3, 0.29, 0.3, 0.72, 0.65, 0.29, 0.65, 0.72)
180		btn:GetPushedTexture():SetTexCoord(0.3, 0.35, 0.3, 0.8, 0.65, 0.35, 0.65, 0.8)
181		btn:GetDisabledTexture():SetTexCoord(0.3, 0.29, 0.3, 0.75, 0.65, 0.29, 0.65, 0.75)	
182	else
183		btn:GetNormalTexture():SetTexCoord(0.3, 0.29, 0.3, 0.81, 0.65, 0.29, 0.65, 0.81)
184		if btn:GetPushedTexture() then
185			btn:GetPushedTexture():SetTexCoord(0.3, 0.35, 0.3, 0.81, 0.65, 0.35, 0.65, 0.81)
186		end
187		if btn:GetDisabledTexture() then
188			btn:GetDisabledTexture():SetTexCoord(0.3, 0.29, 0.3, 0.75, 0.65, 0.29, 0.65, 0.75)
189		end
190	end
191	
192	btn:GetNormalTexture():ClearAllPoints()
193	btn:GetNormalTexture():Point("TOPLEFT", 2, -2)
194	btn:GetNormalTexture():Point("BOTTOMRIGHT", -2, 2)
195	if btn:GetDisabledTexture() then
196		btn:GetDisabledTexture():SetAllPoints(btn:GetNormalTexture())
197	end
198	if btn:GetPushedTexture() then
199		btn:GetPushedTexture():SetAllPoints(btn:GetNormalTexture())
200	end
201	btn:GetHighlightTexture():SetTexture(1, 1, 1, 0.3)
202	btn:GetHighlightTexture():SetAllPoints(btn:GetNormalTexture())
203end
204
205function T.SkinRotateButton(btn)
206	btn:SetTemplate("Transparent")
207	btn:Size(btn:GetWidth() - 14, btn:GetHeight() - 14)	
208	
209	btn:GetNormalTexture():SetTexCoord(0.3, 0.29, 0.3, 0.65, 0.69, 0.29, 0.69, 0.65)
210	btn:GetPushedTexture():SetTexCoord(0.3, 0.29, 0.3, 0.65, 0.69, 0.29, 0.69, 0.65)	
211	
212	btn:GetHighlightTexture():SetTexture(1, 1, 1, 0.3)
213	
214	btn:GetNormalTexture():ClearAllPoints()
215	btn:GetNormalTexture():Point("TOPLEFT", 2, -2)
216	btn:GetNormalTexture():Point("BOTTOMRIGHT", -2, 2)
217	btn:GetPushedTexture():SetAllPoints(btn:GetNormalTexture())	
218	btn:GetHighlightTexture():SetAllPoints(btn:GetNormalTexture())
219end
220
221function T.SkinEditBox(frame)
222	if _G[frame:GetName().."Left"] then _G[frame:GetName().."Left"]:Kill() end
223	if _G[frame:GetName().."Middle"] then _G[frame:GetName().."Middle"]:Kill() end
224	if _G[frame:GetName().."Right"] then _G[frame:GetName().."Right"]:Kill() end
225	if _G[frame:GetName().."Mid"] then _G[frame:GetName().."Mid"]:Kill() end
226	frame:CreateBackdrop("Transparent")
227	
228	if frame:GetName() and frame:GetName():find("Silver") or frame:GetName():find("Copper") then
229		frame.backdrop:Point("BOTTOMRIGHT", -12, -2)
230	end
231end
232
233function T.SkinDropDownBox(frame, width)
234	local button = _G[frame:GetName().."Button"]
235	if not width then width = 155 end
236	
237	frame:StripTextures()
238	frame:Width(width)
239	
240	_G[frame:GetName().."Text"]:ClearAllPoints()
241	_G[frame:GetName().."Text"]:Point("RIGHT", button, "LEFT", -2, 0)
242
243	
244	button:ClearAllPoints()
245	button:Point("RIGHT", frame, "RIGHT", -10, 3)
246	button.SetPoint = T.dummy
247	
248	T.SkinNextPrevButton(button, true)
249	
250	frame:CreateBackdrop("Transparent")
251	frame.backdrop:Point("TOPLEFT", 20, -2)
252	frame.backdrop:Point("BOTTOMRIGHT", button, "BOTTOMRIGHT", 2, -2)
253end
254
255function T.SkinCheckBox(frame)
256	frame:StripTextures()
257	frame:CreateBackdrop("Transparent")
258	frame.backdrop:Point("TOPLEFT", 4, -4)
259	frame.backdrop:Point("BOTTOMRIGHT", -4, 4)
260	
261	if frame.SetCheckedTexture then
262		frame:SetCheckedTexture("Interface\\Buttons\\UI-CheckBox-Check")
263	end
264	
265	if frame.SetDisabledTexture then
266		frame:SetDisabledTexture("Interface\\Buttons\\UI-CheckBox-Check-Disabled")
267	end
268	
269	frame.SetNormalTexture = T.dummy
270	frame.SetPushedTexture = T.dummy
271	frame.SetHighlightTexture = T.dummy
272end
273
274function T.SkinCloseButton(f, point)
275	for i=1, f:GetNumRegions() do
276		local region = select(i, f:GetRegions())
277		if region:GetObjectType() == "Texture" then
278			region:SetDesaturated(1)
279			
280			if region:GetTexture() == "Interface\\DialogFrame\\UI-DialogBox-Corner" then
281				region:Kill()
282			end
283		end
284	end	
285	
286	if point then
287		f:Point("TOPRIGHT", point, "TOPRIGHT", 2, 2)
288	end
289end
290
291local LoadBlizzardSkin = CreateFrame("Frame")
292LoadBlizzardSkin:RegisterEvent("ADDON_LOADED")
293LoadBlizzardSkin:SetScript("OnEvent", function(self, event, addon)
294	if IsAddOnLoaded("Skinner") or IsAddOnLoaded("Aurora") or not C.general.blizzardreskin then
295		self:UnregisterEvent("ADDON_LOADED")
296		return 
297	end
298	
299	for _addon, skinfunc in pairs(T.SkinFuncs) do
300		if type(skinfunc) == "function" then
301			if _addon == addon then
302				if skinfunc then
303					skinfunc()
304				end
305			end
306		elseif type(skinfunc) == "table" then
307			if _addon == addon then
308				for _, skinfunc in pairs(T.SkinFuncs[_addon]) do
309					if skinfunc then
310						skinfunc()
311					end
312				end
313			end
314		end
315	end
316end)