florian.berthold
57a5cdabdf
Imported from /srv/add01/wow-ascension/Interface/AddOns/Bartender4 — the build Ascension's WotLK 3.3.5 client ships. Single vendored drop: Ascension's build process bundles their custom patches with the standard CurseForge packager output (embedded libs), and the individual patches aren't published separately. Net delta vs Nevcairiel 4.4.2, excluding bundled libs and CRLF normalization: 21 files, 2213+/52- — the Ascension-specific adaptations for WotLK 3.3.5 hero classes / custom action systems. License: All rights reserved (per .toc).
286 lines
7.6 KiB
Lua
286 lines
7.6 KiB
Lua
local AceGUI = LibStub("AceGUI-3.0")
|
|
|
|
-- Lua APIs
|
|
local min, max, floor = math.min, math.max, math.floor
|
|
local tonumber = tonumber
|
|
|
|
-- 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: GameFontHighlightSmall
|
|
|
|
--------------------------
|
|
-- Slider --
|
|
--------------------------
|
|
do
|
|
local Type = "Slider"
|
|
local Version = 11
|
|
|
|
local function OnAcquire(self)
|
|
self:SetWidth(200)
|
|
self:SetHeight(44)
|
|
self:SetDisabled(false)
|
|
self:SetIsPercent(nil)
|
|
self:SetSliderValues(0,100,1)
|
|
self:SetValue(0)
|
|
end
|
|
|
|
local function OnRelease(self)
|
|
self.frame:ClearAllPoints()
|
|
self.frame:Hide()
|
|
self.slider:EnableMouseWheel(false)
|
|
self:SetDisabled(false)
|
|
end
|
|
|
|
local function Control_OnEnter(this)
|
|
this.obj:Fire("OnEnter")
|
|
end
|
|
|
|
local function Control_OnLeave(this)
|
|
this.obj:Fire("OnLeave")
|
|
end
|
|
|
|
local function UpdateText(self)
|
|
local value = self.value or 0
|
|
if self.ispercent then
|
|
self.editbox:SetText(("%s%%"):format(floor(value*1000+0.5)/10))
|
|
else
|
|
self.editbox:SetText(floor(value*100+0.5)/100)
|
|
end
|
|
end
|
|
|
|
local function UpdateLabels(self)
|
|
local min, max = (self.min or 0), (self.max or 100)
|
|
if self.ispercent then
|
|
self.lowtext:SetFormattedText("%s%%",(min * 100))
|
|
self.hightext:SetFormattedText("%s%%",(max * 100))
|
|
else
|
|
self.lowtext:SetText(min)
|
|
self.hightext:SetText(max)
|
|
end
|
|
end
|
|
|
|
local function Slider_OnValueChanged(this)
|
|
local self = this.obj
|
|
if not this.setup then
|
|
local newvalue
|
|
newvalue = this:GetValue()
|
|
if newvalue ~= self.value and not self.disabled then
|
|
self.value = newvalue
|
|
self:Fire("OnValueChanged", newvalue)
|
|
end
|
|
if self.value then
|
|
local value = self.value
|
|
UpdateText(self)
|
|
end
|
|
end
|
|
end
|
|
|
|
local function Slider_OnMouseUp(this)
|
|
local self = this.obj
|
|
self:Fire("OnMouseUp",this:GetValue())
|
|
end
|
|
|
|
local function Slider_OnMouseWheel(this, v)
|
|
local self = this.obj
|
|
if not self.disabled then
|
|
local value = self.value
|
|
if v > 0 then
|
|
value = min(value + (self.step or 1),self.max)
|
|
else
|
|
value = max(value - (self.step or 1), self.min)
|
|
end
|
|
self.slider:SetValue(value)
|
|
end
|
|
end
|
|
|
|
local function SetDisabled(self, disabled)
|
|
self.disabled = disabled
|
|
if disabled then
|
|
self.slider:EnableMouse(false)
|
|
self.label:SetTextColor(.5,.5,.5)
|
|
self.hightext:SetTextColor(.5,.5,.5)
|
|
self.lowtext:SetTextColor(.5,.5,.5)
|
|
--self.valuetext:SetTextColor(.5,.5,.5)
|
|
self.editbox:SetTextColor(.5,.5,.5)
|
|
self.editbox:EnableMouse(false)
|
|
self.editbox:ClearFocus()
|
|
else
|
|
self.slider:EnableMouse(true)
|
|
self.label:SetTextColor(1,.82,0)
|
|
self.hightext:SetTextColor(1,1,1)
|
|
self.lowtext:SetTextColor(1,1,1)
|
|
--self.valuetext:SetTextColor(1,1,1)
|
|
self.editbox:SetTextColor(1,1,1)
|
|
self.editbox:EnableMouse(true)
|
|
end
|
|
end
|
|
|
|
local function SetValue(self, value)
|
|
self.slider.setup = true
|
|
self.slider:SetValue(value)
|
|
self.value = value
|
|
UpdateText(self)
|
|
self.slider.setup = nil
|
|
end
|
|
|
|
local function SetLabel(self, text)
|
|
self.label:SetText(text)
|
|
end
|
|
|
|
local function SetSliderValues(self, min, max, step)
|
|
local frame = self.slider
|
|
frame.setup = true
|
|
self.min = min
|
|
self.max = max
|
|
self.step = step
|
|
frame:SetMinMaxValues(min or 0,max or 100)
|
|
UpdateLabels(self)
|
|
frame:SetValueStep(step or 1)
|
|
if self.value then
|
|
frame:SetValue(self.value)
|
|
end
|
|
frame.setup = nil
|
|
end
|
|
|
|
local function EditBox_OnEscapePressed(this)
|
|
this:ClearFocus()
|
|
end
|
|
|
|
local function EditBox_OnEnterPressed(this)
|
|
local self = this.obj
|
|
local value = this:GetText()
|
|
if self.ispercent then
|
|
value = value:gsub('%%','')
|
|
value = tonumber(value) / 100
|
|
else
|
|
value = tonumber(value)
|
|
end
|
|
|
|
if value then
|
|
PlaySound("igMainMenuOptionCheckBoxOn")
|
|
self:Fire("OnValueChanged", value)
|
|
self:Fire("OnMouseUp",value)
|
|
end
|
|
end
|
|
|
|
local function EditBox_OnEnter(this)
|
|
this:SetBackdropBorderColor(0.5,0.5,0.5,1)
|
|
end
|
|
|
|
local function EditBox_OnLeave(this)
|
|
this:SetBackdropBorderColor(0.3,0.3,0.3,0.8)
|
|
end
|
|
|
|
local function SetIsPercent(self, value)
|
|
self.ispercent = value
|
|
UpdateLabels(self)
|
|
UpdateText(self)
|
|
end
|
|
|
|
local function FrameOnMouseDown(this)
|
|
this.obj.slider:EnableMouseWheel(true)
|
|
AceGUI:ClearFocus()
|
|
end
|
|
|
|
local SliderBackdrop = {
|
|
bgFile = "Interface\\Buttons\\UI-SliderBar-Background",
|
|
edgeFile = "Interface\\Buttons\\UI-SliderBar-Border",
|
|
tile = true, tileSize = 8, edgeSize = 8,
|
|
insets = { left = 3, right = 3, top = 6, bottom = 6 }
|
|
}
|
|
|
|
local ManualBackdrop = {
|
|
bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
|
|
edgeFile = "Interface\\ChatFrame\\ChatFrameBackground",
|
|
tile = true, edgeSize = 1, tileSize = 5,
|
|
}
|
|
|
|
local function Constructor()
|
|
local frame = CreateFrame("Frame",nil,UIParent)
|
|
local self = {}
|
|
self.type = Type
|
|
|
|
self.OnRelease = OnRelease
|
|
self.OnAcquire = OnAcquire
|
|
|
|
self.frame = frame
|
|
frame.obj = self
|
|
|
|
self.SetDisabled = SetDisabled
|
|
self.SetValue = SetValue
|
|
self.SetSliderValues = SetSliderValues
|
|
self.SetLabel = SetLabel
|
|
self.SetIsPercent = SetIsPercent
|
|
|
|
self.alignoffset = 25
|
|
|
|
frame:EnableMouse(true)
|
|
frame:SetScript("OnMouseDown",FrameOnMouseDown)
|
|
self.slider = CreateFrame("Slider",nil,frame)
|
|
local slider = self.slider
|
|
slider:SetScript("OnEnter",Control_OnEnter)
|
|
slider:SetScript("OnLeave",Control_OnLeave)
|
|
slider:SetScript("OnMouseUp", Slider_OnMouseUp)
|
|
slider.obj = self
|
|
slider:SetOrientation("HORIZONTAL")
|
|
slider:SetHeight(15)
|
|
slider:SetHitRectInsets(0,0,-10,0)
|
|
slider:SetBackdrop(SliderBackdrop)
|
|
--slider:EnableMouseWheel(true)
|
|
slider:SetScript("OnMouseWheel", Slider_OnMouseWheel)
|
|
|
|
local label = frame:CreateFontString(nil,"OVERLAY","GameFontNormal")
|
|
label:SetPoint("TOPLEFT",frame,"TOPLEFT",0,0)
|
|
label:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0)
|
|
label:SetJustifyH("CENTER")
|
|
label:SetHeight(15)
|
|
self.label = label
|
|
|
|
self.lowtext = slider:CreateFontString(nil,"ARTWORK","GameFontHighlightSmall")
|
|
self.lowtext:SetPoint("TOPLEFT",slider,"BOTTOMLEFT",2,3)
|
|
|
|
self.hightext = slider:CreateFontString(nil,"ARTWORK","GameFontHighlightSmall")
|
|
self.hightext:SetPoint("TOPRIGHT",slider,"BOTTOMRIGHT",-2,3)
|
|
|
|
|
|
local editbox = CreateFrame("EditBox",nil,frame)
|
|
editbox:SetAutoFocus(false)
|
|
editbox:SetFontObject(GameFontHighlightSmall)
|
|
editbox:SetPoint("TOP",slider,"BOTTOM",0,0)
|
|
editbox:SetHeight(14)
|
|
editbox:SetWidth(70)
|
|
editbox:SetJustifyH("CENTER")
|
|
editbox:EnableMouse(true)
|
|
editbox:SetScript("OnEscapePressed",EditBox_OnEscapePressed)
|
|
editbox:SetScript("OnEnterPressed",EditBox_OnEnterPressed)
|
|
editbox:SetScript("OnEnter",EditBox_OnEnter)
|
|
editbox:SetScript("OnLeave",EditBox_OnLeave)
|
|
editbox:SetBackdrop(ManualBackdrop)
|
|
editbox:SetBackdropColor(0,0,0,0.5)
|
|
editbox:SetBackdropBorderColor(0.3,0.3,0.30,0.80)
|
|
self.editbox = editbox
|
|
editbox.obj = self
|
|
|
|
slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Horizontal")
|
|
|
|
frame:SetWidth(200)
|
|
frame:SetHeight(44)
|
|
slider:SetPoint("TOP",label,"BOTTOM",0,0)
|
|
slider:SetPoint("LEFT",frame,"LEFT",3,0)
|
|
slider:SetPoint("RIGHT",frame,"RIGHT",-3,0)
|
|
|
|
|
|
slider:SetValue(self.value or 0)
|
|
slider:SetScript("OnValueChanged",Slider_OnValueChanged)
|
|
|
|
AceGUI:RegisterAsWidget(self)
|
|
return self
|
|
end
|
|
|
|
AceGUI:RegisterWidgetType(Type,Constructor,Version)
|
|
end
|