You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
337 lines
9.7 KiB
Lua
337 lines
9.7 KiB
Lua
5 years ago
|
local AceGUI = LibStub("AceGUI-3.0")
|
||
|
|
|
||
|
|
-- Lua APIs
|
||
|
|
local pairs, assert, type = pairs, assert, type
|
||
|
|
|
||
|
|
-- WoW APIs
|
||
|
|
local PlaySound = PlaySound
|
||
|
|
local CreateFrame, UIParent = CreateFrame, UIParent
|
||
|
|
|
||
|
|
-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
|
||
|
|
-- List them here for Mikk's FindGlobals script
|
||
|
|
-- GLOBALS: GameFontNormal
|
||
|
|
|
||
|
|
----------------
|
||
|
|
-- Main Frame --
|
||
|
|
----------------
|
||
|
|
--[[
|
||
|
|
Events :
|
||
|
|
OnClose
|
||
|
|
|
||
|
|
]]
|
||
|
|
do
|
||
|
|
local Type = "Window"
|
||
|
|
local Version = 6
|
||
|
|
|
||
|
|
local function frameOnShow(this)
|
||
|
|
this.obj:Fire("OnShow")
|
||
|
|
end
|
||
|
|
|
||
|
|
local function frameOnClose(this)
|
||
|
|
this.obj:Fire("OnClose")
|
||
|
|
end
|
||
|
|
|
||
|
|
local function closeOnClick(this)
|
||
|
|
PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT
|
||
|
|
this.obj:Hide()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function frameOnMouseDown(this)
|
||
|
|
AceGUI:ClearFocus()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function titleOnMouseDown(this)
|
||
|
|
this:GetParent():StartMoving()
|
||
|
|
AceGUI:ClearFocus()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function frameOnMouseUp(this)
|
||
|
|
local frame = this:GetParent()
|
||
|
|
frame:StopMovingOrSizing()
|
||
|
|
local self = frame.obj
|
||
|
|
local status = self.status or self.localstatus
|
||
|
|
status.width = frame:GetWidth()
|
||
|
|
status.height = frame:GetHeight()
|
||
|
|
status.top = frame:GetTop()
|
||
|
|
status.left = frame:GetLeft()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function sizerseOnMouseDown(this)
|
||
|
|
this:GetParent():StartSizing("BOTTOMRIGHT")
|
||
|
|
AceGUI:ClearFocus()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function sizersOnMouseDown(this)
|
||
|
|
this:GetParent():StartSizing("BOTTOM")
|
||
|
|
AceGUI:ClearFocus()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function sizereOnMouseDown(this)
|
||
|
|
this:GetParent():StartSizing("RIGHT")
|
||
|
|
AceGUI:ClearFocus()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function sizerOnMouseUp(this)
|
||
|
|
this:GetParent():StopMovingOrSizing()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function SetTitle(self,title)
|
||
|
|
self.titletext:SetText(title)
|
||
|
|
end
|
||
|
|
|
||
|
|
local function SetStatusText(self,text)
|
||
|
|
-- self.statustext:SetText(text)
|
||
|
|
end
|
||
|
|
|
||
|
|
local function Hide(self)
|
||
|
|
self.frame:Hide()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function Show(self)
|
||
|
|
self.frame:Show()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function OnAcquire(self)
|
||
|
|
self.frame:SetParent(UIParent)
|
||
|
|
self.frame:SetFrameStrata("FULLSCREEN_DIALOG")
|
||
|
|
self:ApplyStatus()
|
||
|
|
self:EnableResize(true)
|
||
|
|
self:Show()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function OnRelease(self)
|
||
|
|
self.status = nil
|
||
|
|
for k in pairs(self.localstatus) do
|
||
|
|
self.localstatus[k] = nil
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
-- called to set an external table to store status in
|
||
|
|
local function SetStatusTable(self, status)
|
||
|
|
assert(type(status) == "table")
|
||
|
|
self.status = status
|
||
|
|
self:ApplyStatus()
|
||
|
|
end
|
||
|
|
|
||
|
|
local function ApplyStatus(self)
|
||
|
|
local status = self.status or self.localstatus
|
||
|
|
local frame = self.frame
|
||
|
|
self:SetWidth(status.width or 700)
|
||
|
|
self:SetHeight(status.height or 500)
|
||
|
|
if status.top and status.left then
|
||
|
|
frame:SetPoint("TOP",UIParent,"BOTTOM",0,status.top)
|
||
|
|
frame:SetPoint("LEFT",UIParent,"LEFT",status.left,0)
|
||
|
|
else
|
||
|
|
frame:SetPoint("CENTER",UIParent,"CENTER")
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
local function OnWidthSet(self, width)
|
||
|
|
local content = self.content
|
||
|
|
local contentwidth = width - 34
|
||
|
|
if contentwidth < 0 then
|
||
|
|
contentwidth = 0
|
||
|
|
end
|
||
|
|
content:SetWidth(contentwidth)
|
||
|
|
content.width = contentwidth
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
local function OnHeightSet(self, height)
|
||
|
|
local content = self.content
|
||
|
|
local contentheight = height - 57
|
||
|
|
if contentheight < 0 then
|
||
|
|
contentheight = 0
|
||
|
|
end
|
||
|
|
content:SetHeight(contentheight)
|
||
|
|
content.height = contentheight
|
||
|
|
end
|
||
|
|
|
||
|
|
local function EnableResize(self, state)
|
||
|
|
local func = state and "Show" or "Hide"
|
||
|
|
self.sizer_se[func](self.sizer_se)
|
||
|
|
self.sizer_s[func](self.sizer_s)
|
||
|
|
self.sizer_e[func](self.sizer_e)
|
||
|
|
end
|
||
|
|
|
||
|
|
local function Constructor()
|
||
|
|
local frame = CreateFrame("Frame",nil,UIParent)
|
||
|
|
local self = {}
|
||
|
|
self.type = "Window"
|
||
|
|
|
||
|
|
self.Hide = Hide
|
||
|
|
self.Show = Show
|
||
|
|
self.SetTitle = SetTitle
|
||
|
|
self.OnRelease = OnRelease
|
||
|
|
self.OnAcquire = OnAcquire
|
||
|
|
self.SetStatusText = SetStatusText
|
||
|
|
self.SetStatusTable = SetStatusTable
|
||
|
|
self.ApplyStatus = ApplyStatus
|
||
|
|
self.OnWidthSet = OnWidthSet
|
||
|
|
self.OnHeightSet = OnHeightSet
|
||
|
|
self.EnableResize = EnableResize
|
||
|
|
|
||
|
|
self.localstatus = {}
|
||
|
|
|
||
|
|
self.frame = frame
|
||
|
|
frame.obj = self
|
||
|
|
frame:SetWidth(700)
|
||
|
|
frame:SetHeight(500)
|
||
|
|
frame:SetPoint("CENTER",UIParent,"CENTER",0,0)
|
||
|
|
frame:EnableMouse()
|
||
|
|
frame:SetMovable(true)
|
||
|
|
frame:SetResizable(true)
|
||
|
|
frame:SetFrameStrata("FULLSCREEN_DIALOG")
|
||
|
|
frame:SetScript("OnMouseDown", frameOnMouseDown)
|
||
|
|
|
||
|
|
frame:SetScript("OnShow",frameOnShow)
|
||
|
|
frame:SetScript("OnHide",frameOnClose)
|
||
|
|
frame:SetMinResize(240,240)
|
||
|
|
frame:SetToplevel(true)
|
||
|
|
|
||
|
|
local titlebg = frame:CreateTexture(nil, "BACKGROUND")
|
||
|
|
titlebg:SetTexture(251966) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Title-Background
|
||
|
|
titlebg:SetPoint("TOPLEFT", 9, -6)
|
||
|
|
titlebg:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", -28, -24)
|
||
|
|
|
||
|
|
local dialogbg = frame:CreateTexture(nil, "BACKGROUND")
|
||
|
|
dialogbg:SetTexture(137056) -- Interface\\Tooltips\\UI-Tooltip-Background
|
||
|
|
dialogbg:SetPoint("TOPLEFT", 8, -24)
|
||
|
|
dialogbg:SetPoint("BOTTOMRIGHT", -6, 8)
|
||
|
|
dialogbg:SetVertexColor(0, 0, 0, .75)
|
||
|
|
|
||
|
|
local topleft = frame:CreateTexture(nil, "BORDER")
|
||
|
|
topleft:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border
|
||
|
|
topleft:SetWidth(64)
|
||
|
|
topleft:SetHeight(64)
|
||
|
|
topleft:SetPoint("TOPLEFT")
|
||
|
|
topleft:SetTexCoord(0.501953125, 0.625, 0, 1)
|
||
|
|
|
||
|
|
local topright = frame:CreateTexture(nil, "BORDER")
|
||
|
|
topright:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border
|
||
|
|
topright:SetWidth(64)
|
||
|
|
topright:SetHeight(64)
|
||
|
|
topright:SetPoint("TOPRIGHT")
|
||
|
|
topright:SetTexCoord(0.625, 0.75, 0, 1)
|
||
|
|
|
||
|
|
local top = frame:CreateTexture(nil, "BORDER")
|
||
|
|
top:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border
|
||
|
|
top:SetHeight(64)
|
||
|
|
top:SetPoint("TOPLEFT", topleft, "TOPRIGHT")
|
||
|
|
top:SetPoint("TOPRIGHT", topright, "TOPLEFT")
|
||
|
|
top:SetTexCoord(0.25, 0.369140625, 0, 1)
|
||
|
|
|
||
|
|
local bottomleft = frame:CreateTexture(nil, "BORDER")
|
||
|
|
bottomleft:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border
|
||
|
|
bottomleft:SetWidth(64)
|
||
|
|
bottomleft:SetHeight(64)
|
||
|
|
bottomleft:SetPoint("BOTTOMLEFT")
|
||
|
|
bottomleft:SetTexCoord(0.751953125, 0.875, 0, 1)
|
||
|
|
|
||
|
|
local bottomright = frame:CreateTexture(nil, "BORDER")
|
||
|
|
bottomright:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border
|
||
|
|
bottomright:SetWidth(64)
|
||
|
|
bottomright:SetHeight(64)
|
||
|
|
bottomright:SetPoint("BOTTOMRIGHT")
|
||
|
|
bottomright:SetTexCoord(0.875, 1, 0, 1)
|
||
|
|
|
||
|
|
local bottom = frame:CreateTexture(nil, "BORDER")
|
||
|
|
bottom:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border
|
||
|
|
bottom:SetHeight(64)
|
||
|
|
bottom:SetPoint("BOTTOMLEFT", bottomleft, "BOTTOMRIGHT")
|
||
|
|
bottom:SetPoint("BOTTOMRIGHT", bottomright, "BOTTOMLEFT")
|
||
|
|
bottom:SetTexCoord(0.376953125, 0.498046875, 0, 1)
|
||
|
|
|
||
|
|
local left = frame:CreateTexture(nil, "BORDER")
|
||
|
|
left:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border
|
||
|
|
left:SetWidth(64)
|
||
|
|
left:SetPoint("TOPLEFT", topleft, "BOTTOMLEFT")
|
||
|
|
left:SetPoint("BOTTOMLEFT", bottomleft, "TOPLEFT")
|
||
|
|
left:SetTexCoord(0.001953125, 0.125, 0, 1)
|
||
|
|
|
||
|
|
local right = frame:CreateTexture(nil, "BORDER")
|
||
|
|
right:SetTexture(251963) -- Interface\\PaperDollInfoFrame\\UI-GearManager-Border
|
||
|
|
right:SetWidth(64)
|
||
|
|
right:SetPoint("TOPRIGHT", topright, "BOTTOMRIGHT")
|
||
|
|
right:SetPoint("BOTTOMRIGHT", bottomright, "TOPRIGHT")
|
||
|
|
right:SetTexCoord(0.1171875, 0.2421875, 0, 1)
|
||
|
|
|
||
|
|
local close = CreateFrame("Button", nil, frame, "UIPanelCloseButton")
|
||
|
|
close:SetPoint("TOPRIGHT", 2, 1)
|
||
|
|
close:SetScript("OnClick", closeOnClick)
|
||
|
|
self.closebutton = close
|
||
|
|
close.obj = self
|
||
|
|
|
||
|
|
local titletext = frame:CreateFontString(nil, "ARTWORK")
|
||
|
|
titletext:SetFontObject(GameFontNormal)
|
||
|
|
titletext:SetPoint("TOPLEFT", 12, -8)
|
||
|
|
titletext:SetPoint("TOPRIGHT", -32, -8)
|
||
|
|
self.titletext = titletext
|
||
|
|
|
||
|
|
local title = CreateFrame("Button", nil, frame)
|
||
|
|
title:SetPoint("TOPLEFT", titlebg)
|
||
|
|
title:SetPoint("BOTTOMRIGHT", titlebg)
|
||
|
|
title:EnableMouse()
|
||
|
|
title:SetScript("OnMouseDown",titleOnMouseDown)
|
||
|
|
title:SetScript("OnMouseUp", frameOnMouseUp)
|
||
|
|
self.title = title
|
||
|
|
|
||
|
|
local sizer_se = CreateFrame("Frame",nil,frame)
|
||
|
|
sizer_se:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,0)
|
||
|
|
sizer_se:SetWidth(25)
|
||
|
|
sizer_se:SetHeight(25)
|
||
|
|
sizer_se:EnableMouse()
|
||
|
|
sizer_se:SetScript("OnMouseDown",sizerseOnMouseDown)
|
||
|
|
sizer_se:SetScript("OnMouseUp", sizerOnMouseUp)
|
||
|
|
self.sizer_se = sizer_se
|
||
|
|
|
||
|
|
local line1 = sizer_se:CreateTexture(nil, "BACKGROUND")
|
||
|
|
self.line1 = line1
|
||
|
|
line1:SetWidth(14)
|
||
|
|
line1:SetHeight(14)
|
||
|
|
line1:SetPoint("BOTTOMRIGHT", -8, 8)
|
||
|
|
line1:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border
|
||
|
|
local x = 0.1 * 14/17
|
||
|
|
line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5)
|
||
|
|
|
||
|
|
local line2 = sizer_se:CreateTexture(nil, "BACKGROUND")
|
||
|
|
self.line2 = line2
|
||
|
|
line2:SetWidth(8)
|
||
|
|
line2:SetHeight(8)
|
||
|
|
line2:SetPoint("BOTTOMRIGHT", -8, 8)
|
||
|
|
line2:SetTexture(137057) -- Interface\\Tooltips\\UI-Tooltip-Border
|
||
|
|
local x = 0.1 * 8/17
|
||
|
|
line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5)
|
||
|
|
|
||
|
|
local sizer_s = CreateFrame("Frame",nil,frame)
|
||
|
|
sizer_s:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-25,0)
|
||
|
|
sizer_s:SetPoint("BOTTOMLEFT",frame,"BOTTOMLEFT",0,0)
|
||
|
|
sizer_s:SetHeight(25)
|
||
|
|
sizer_s:EnableMouse()
|
||
|
|
sizer_s:SetScript("OnMouseDown",sizersOnMouseDown)
|
||
|
|
sizer_s:SetScript("OnMouseUp", sizerOnMouseUp)
|
||
|
|
self.sizer_s = sizer_s
|
||
|
|
|
||
|
|
local sizer_e = CreateFrame("Frame",nil,frame)
|
||
|
|
sizer_e:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,25)
|
||
|
|
sizer_e:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0)
|
||
|
|
sizer_e:SetWidth(25)
|
||
|
|
sizer_e:EnableMouse()
|
||
|
|
sizer_e:SetScript("OnMouseDown",sizereOnMouseDown)
|
||
|
|
sizer_e:SetScript("OnMouseUp", sizerOnMouseUp)
|
||
|
|
self.sizer_e = sizer_e
|
||
|
|
|
||
|
|
--Container Support
|
||
|
|
local content = CreateFrame("Frame",nil,frame)
|
||
|
|
self.content = content
|
||
|
|
content.obj = self
|
||
|
|
content:SetPoint("TOPLEFT",frame,"TOPLEFT",12,-32)
|
||
|
|
content:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-12,13)
|
||
|
|
|
||
|
|
AceGUI:RegisterAsContainer(self)
|
||
|
|
return self
|
||
|
|
end
|
||
|
|
|
||
|
|
AceGUI:RegisterWidgetType(Type,Constructor,Version)
|
||
|
|
end
|