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.
69 lines
2.6 KiB
69 lines
2.6 KiB
local _, T = ...
|
|
|
|
if select(4, GetBuildInfo()) >= 10e4 then
|
|
local pv = {}
|
|
local function PreClick(self, _, down)
|
|
local pa = pv[self] or {}
|
|
pv[self], pa[#pa+1] = pa, GetCVar("ActionButtonUseKeyDown")
|
|
SetCVar("ActionButtonUseKeyDown", down and 1 or 0)
|
|
end
|
|
local function PostClick(self)
|
|
local pa, lv = pv[self]
|
|
if pa and pa[1] ~= nil then
|
|
lv, pa[#pa] = pa[#pa], nil
|
|
SetCVar("ActionButtonUseKeyDown", lv)
|
|
end
|
|
end
|
|
function T.TenSABT(self)
|
|
self[self:GetScript("PreClick") and "HookScript" or "SetScript"](self, "PreClick", PreClick)
|
|
self[self:GetScript("PostClick") and "HookScript" or "SetScript"](self, "PostClick", PostClick)
|
|
return self
|
|
end
|
|
else
|
|
function T.TenSABT(self)
|
|
return self
|
|
end
|
|
end
|
|
|
|
do -- T.CreateEdge
|
|
local edgeSlices = {
|
|
{"TOPLEFT", 0, -1, "BOTTOMRIGHT", "BOTTOMLEFT", 1, 1}, -- L
|
|
{"TOPRIGHT", 0, -1, "BOTTOMLEFT", "BOTTOMRIGHT", -1, 1}, -- R
|
|
{"TOPLEFT", 1, 0, "BOTTOMRIGHT", "TOPRIGHT", -1, -1, ccw=true}, -- T
|
|
{"BOTTOMLEFT", 1, 0, "TOPRIGHT", "BOTTOMRIGHT", -1, 1, ccw=true}, -- B
|
|
{"TOPLEFT", 0, 0, "BOTTOMRIGHT", "TOPLEFT", 1, -1},
|
|
{"TOPRIGHT", 0, 0, "BOTTOMLEFT", "TOPRIGHT", -1, -1},
|
|
{"BOTTOMLEFT", 0, 0, "TOPRIGHT", "BOTTOMLEFT", 1, 1},
|
|
{"BOTTOMRIGHT", 0, 0, "TOPLEFT", "BOTTOMRIGHT", -1, 1}
|
|
}
|
|
function T.CreateEdge(f, info, bgColor, edgeColor)
|
|
local insets = info.insets
|
|
local es = info.edgeFile and (info.edgeSize or 39) or 0
|
|
if info.bgFile then
|
|
local bg = f:CreateTexture(nil, "BACKGROUND", nil, -7)
|
|
local tileBackground = not not info.tile
|
|
bg:SetTexture(info.bgFile, tileBackground, tileBackground)
|
|
bg:SetPoint("TOPLEFT", (insets and insets.left or 0), -(insets and insets.top or 0))
|
|
bg:SetPoint("BOTTOMRIGHT", -(insets and insets.right or 0), (insets and insets.bottom or 0))
|
|
local n = bgColor or 0xffffff
|
|
bg:SetVertexColor((n - n % 2^16) / 2^16 % 256 / 255, (n - n % 2^8) / 2^8 % 256 / 255, n % 256 / 255, n >= 2^24 and (n - n % 2^24) / 2^24 % 256 / 255 or 1)
|
|
end
|
|
if info.edgeFile then
|
|
local n = edgeColor or 0xffffff
|
|
local r,g,b,a = (n - n % 2^16) / 2^16 % 256 / 255, (n - n % 2^8) / 2^8 % 256 / 255, n % 256 / 255, n >= 2^24 and (n - n % 2^24) / 2^24 % 256 / 255 or 1
|
|
for i=1,#edgeSlices do
|
|
local t, s = f:CreateTexture(nil, "BORDER", nil, -7), edgeSlices[i]
|
|
t:SetTexture(info.edgeFile)
|
|
t:SetPoint(s[1], s[2]*es, s[3]*es)
|
|
t:SetPoint(s[4], f, s[5], s[6]*es, s[7]*es)
|
|
local x1, x2, y1, y2 = 1/128+(i-1)/8, i/8-1/128, 0.0625, 1-0.0625
|
|
if s.ccw then
|
|
t:SetTexCoord(x1,y2, x2,y2, x1,y1, x2,y1)
|
|
else
|
|
t:SetTexCoord(x1, x2, y1, y2)
|
|
end
|
|
t:SetVertexColor(r,g,b,a)
|
|
end
|
|
end
|
|
end
|
|
end
|