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.

181 lines
5.0 KiB

-- ------------------------------------------------------------------------------ --
-- TradeSkillMaster --
-- http://www.curse.com/addons/wow/tradeskill-master --
-- --
-- A TradeSkillMaster Addon (http://tradeskillmaster.com) --
-- All Rights Reserved* - Detailed license information included with addon. --
-- ------------------------------------------------------------------------------ --
-- Much of this code is copied from .../AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua
-- This CheckBox widget is modified to fit TSM's theme / needs
local TSM = select(2, ...)
local Type, Version = "TSMCheckBox", 2
local AceGUI = LibStub and LibStub("AceGUI-3.0", true)
if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end
-- Lua APIs
local select, pairs = select, pairs
-- WoW APIs
local PlaySound = PlaySound
local CreateFrame, UIParent = CreateFrame, UIParent
--[[-----------------------------------------------------------------------------
Scripts
-------------------------------------------------------------------------------]]
local function Control_OnEnter(frame)
frame.obj:Fire("OnEnter")
end
local function Control_OnLeave(frame)
frame.obj:Fire("OnLeave")
end
local function CheckBox_OnMouseDown(frame)
local self = frame.obj
if not self.disabled then
self.text:SetPoint("LEFT", self.btn, "RIGHT", 1, -1)
end
AceGUI:ClearFocus()
end
local function CheckBox_OnMouseUp(frame, button)
local self = frame.obj
if not self.disabled then
self.text:SetPoint("LEFT", self.btn, "RIGHT", 0, 0)
self:ToggleChecked()
if self.checked then
PlaySound("igMainMenuOptionCheckBoxOn")
else
PlaySound("igMainMenuOptionCheckBoxOff")
end
self:Fire("OnValueChanged", self.checked)
end
end
--[[-----------------------------------------------------------------------------
Methods
-------------------------------------------------------------------------------]]
local methods = {
["OnAcquire"] = function(self)
self:SetType()
self:SetValue()
self:SetWidth(200)
self:SetDisabled()
self:SetHeight(24)
end,
["SetDisabled"] = function(self, disabled)
self.disabled = disabled
TSMAPI.Design:SetWidgetLabelColor(self.text, disabled)
if disabled then
self.frame:Disable()
local r, g, b = self.btn:GetBackdropColor()
self.btn:SetBackdropColor(r, g, b, .5)
SetDesaturation(self.check, true)
else
self.frame:Enable()
local r, g, b = self.btn:GetBackdropColor()
self.btn:SetBackdropColor(r, g, b, 1)
SetDesaturation(self.check, false)
end
end,
["SetValue"] = function(self,value)
local check = self.check
self.checked = value
SetDesaturation(self.check, false)
if value then
self.check:Show()
else
self.check:Hide()
end
self:SetDisabled(self.disabled)
end,
["GetValue"] = function(self)
return self.checked
end,
["SetType"] = function(self, type)
local check = self.check
if type == "radio" then
self.btn:SetWidth(10)
self.btn:SetHeight(10)
self.btn:SetPoint("TOPLEFT", 7, -7)
self.check:SetPoint("TOPLEFT", -1, 5)
else
self.btn:SetWidth(16)
self.btn:SetHeight(16)
self.btn:SetPoint("TOPLEFT", 4, -4)
self.check:SetPoint("TOPLEFT")
end
end,
["ToggleChecked"] = function(self)
self:SetValue(not self:GetValue())
end,
["SetLabel"] = function(self, label)
self.text:SetText(label)
end,
}
--[[-----------------------------------------------------------------------------
Constructor
-------------------------------------------------------------------------------]]
local function Constructor()
local frame = CreateFrame("Button", nil, UIParent)
frame:Hide()
frame:EnableMouse(true)
frame:SetScript("OnEnter", Control_OnEnter)
frame:SetScript("OnLeave", Control_OnLeave)
frame:SetScript("OnMouseDown", CheckBox_OnMouseDown)
frame:SetScript("OnMouseUp", CheckBox_OnMouseUp)
local btn = CreateFrame("Button", nil, frame)
btn:EnableMouse(false)
btn:SetWidth(16)
btn:SetHeight(16)
btn:SetPoint("TOPLEFT", 4, -4)
TSMAPI.Design:SetContentColor(btn)
local highlight = btn:CreateTexture(nil, "HIGHLIGHT")
highlight:SetAllPoints()
highlight:SetTexture(1, 1, 1, .2)
highlight:SetBlendMode("BLEND")
local check = btn:CreateTexture(nil, "OVERLAY")
check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check")
check:SetTexCoord(.12, .88, .12, .88)
check:SetBlendMode("BLEND")
check:SetPoint("BOTTOMRIGHT")
local text = frame:CreateFontString(nil, "OVERLAY")
text:SetJustifyH("LEFT")
text:SetHeight(18)
text:SetPoint("LEFT", btn, "RIGHT")
text:SetPoint("RIGHT")
text:SetFont(TSMAPI.Design:GetContentFont("normal"))
local widget = {
btn = btn,
check = check,
text = text,
highlight = highlight,
frame = frame,
type = Type
}
for method, func in pairs(methods) do
widget[method] = func
end
frame.obj = widget
return AceGUI:RegisterAsWidget(widget)
end
AceGUI:RegisterWidgetType(Type, Constructor, Version)