this:ClearFocus();
this:RegisterForDrag("LeftButton")
XPerl_AdminOnLoad()
this:SetBackdropBorderColor(0.5, 0.5, 0.5, 1)
this:SetBackdropColor(0, 0, 0, 1)
this.Expand = function()
XPerl_AdminFrame_Controls:Show()
XPerl_AdminFrame_TitleBar_LockOpen:Show()
XPerl_AdminFrame:SetWidth(140)
XPerl_AdminFrame:SetHeight(150)
end
this.Collapse = function()
XPerl_AdminFrame_Controls:Hide()
XPerl_AdminFrame_TitleBar_LockOpen:Hide()
XPerl_AdminFrame:SetWidth(140)
XPerl_AdminFrame:SetHeight(18)
end
XPerl_AdminOnEvent()
XPerl_AdminFrame:Expand()
XPerl_Admin_OnUpdate(arg1)
if (not XPerl_Admin.Pinned or (IsAltKeyDown() and IsControlKeyDown() and IsShiftKeyDown())) then
this:StartMoving()
end
this:StopMovingOrSizing()
XPerl_AdminFrame_TitleBar_Title:SetText(XPERL_ADMIN_TITLE)
XPerl_Admin_ControlsOnLoad()
this:MakeList()
this:Validate()
if (not XPerl_Admin.LockOpen) then
local f = GetMouseFocus()
if (f) then
while (f:GetParent() and f:GetParent() ~= UIParent) do
f = f:GetParent()
end
if (f ~= XPerl_AdminFrame) then
XPerl_AdminFrame:Collapse()
end
end
end
if (IsRaidLeader() and XPerl_AdminFrame.Valid) then
XPerl_AdminFrame_Controls_LoadRoster:Enable()
else
XPerl_AdminFrame_Controls_LoadRoster:Disable()
end
XPerl_AdminFrame_Controls:Validate()
XPerl_AdminFrame_Controls:Details()
FauxScrollFrame_OnVerticalScroll(1, XPerl_AdminFrame_Controls.MakeList)
local f = getglobal(this:GetName().."ScrollBar")
if (arg1 > 0) then
f:SetValue(f:GetValue() + 3)
else
f:SetValue(f:GetValue() - 3)
end
XPerl_AdminFrame_Controls:MakeList()
XPerl_AdminFrame_Controls:Validate()