WoWInterface SVN PhanxConfigWidgets

Compare Revisions

  • This comparison shows the changes necessary to convert path 
    /trunk/PhanxConfig-Button
    from Rev 112 to Rev 127
    ↔ Reverse comparison
  •

Rev 112 → Rev 127

PhanxConfig-Button.lua
8,120 → 8,118
its internals may change at any time without notice.
----------------------------------------------------------------------]]
 
local MINOR_VERSION = tonumber( string.match( "$Revision: 30000 $", "%d+" ) )
local MINOR_VERSION = tonumber(string.match("$Revision$", "%d+"))
 
local lib, oldminor = LibStub:NewLibrary( "PhanxConfig-Button", MINOR_VERSION )
local lib, oldminor = LibStub:NewLibrary("PhanxConfig-Button", MINOR_VERSION)
if not lib then return end
 
local function OnEnter( self )
local text = self.desc
if text then
GameTooltip:SetOwner( self, "ANCHOR_RIGHT" )
GameTooltip:SetText( text, nil, nil, nil, nil, true )
end
end
 
local function OnLeave()
GameTooltip:Hide()
end
 
local function OnClick( self, button )
PlaySound("gsTitleOptionOK")
local func = self.OnClick
if func then
func( self, button )
end
end
 
local function OnMouseDown( self )
if self:IsEnabled() then
self.Left:SetTexture("Interface\\Buttons\\UI-Panel-Button-Down")
self.Middle:SetTexture("Interface\\Buttons\\UI-Panel-Button-Down")
self.Right:SetTexture("Interface\\Buttons\\UI-Panel-Button-Down")
end
end
 
local function OnMouseUp( self )
if self:IsEnabled() then
local scripts = {
OnEnter = function(self)
if self.hint then
GameTooltip:SetOwner(self, "ANCHOR_RIGHT")
GameTooltip:SetText(self.hint, nil, nil, nil, nil, true)
end
end,
OnLeave = function(self)
GameTooltip:Hide()
end,
OnClick = function(self, button)
PlaySound("gsTitleOptionOK")
if self.OnClick then
self:OnClick(button)
end
end,
OnMouseDown = function(self, button)
if self:IsEnabled() then
self.Left:SetTexture("Interface\\Buttons\\UI-Panel-Button-Down")
self.Middle:SetTexture("Interface\\Buttons\\UI-Panel-Button-Down")
self.Right:SetTexture("Interface\\Buttons\\UI-Panel-Button-Down")
end
end,
OnMouseUp = function(self, button)
if self:IsEnabled() then
self.Left:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up")
self.Middle:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up")
self.Right:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up")
end
end,
OnDisable = function(self)
self.Left:SetTexture("Interface\\Buttons\\UI-Panel-Button-Disabled")
self.Middle:SetTexture("Interface\\Buttons\\UI-Panel-Button-Disabled")
self.Right:SetTexture("Interface\\Buttons\\UI-Panel-Button-Disabled")
end,
OnEnable = function(self)
self.Left:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up")
self.Middle:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up")
self.Right:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up")
end
end
end,
}
 
local function OnDisable( self )
self.Left:SetTexture("Interface\\Buttons\\UI-Panel-Button-Disabled")
self.Middle:SetTexture("Interface\\Buttons\\UI-Panel-Button-Disabled")
self.Right:SetTexture("Interface\\Buttons\\UI-Panel-Button-Disabled")
end
local methods = {
SetHint = function(self, text)
self.hint = text
end,
GetHint = function(self)
return self.hint
end,
}
 
local function OnEnable( self )
self.Left:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up")
self.Middle:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up")
self.Right:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up")
end
 
function lib.CreateButton( parent, name, desc )
assert( type(parent) == "table" and parent.CreateFontString, "PhanxConfig-Button: Parent is not a valid frame!" )
function lib:New(parent, name, hint)
assert(type(parent) == "table" and parent.CreateFontString, "PhanxConfig-Button: Parent is not a valid frame!")
if type(name) ~= "string" then name = nil end
if type(desc) ~= "string" then desc = nil end
if type(hint) ~= "string" then hint = nil end
 
local button = CreateFrame( "Button", nil, parent )
local button = CreateFrame("Button", nil, parent)
 
button:SetNormalFontObject( GameFontNormalSmall )
button:SetDisabledFontObject( GameFontDisable )
button:SetHighlightFontObject( GameFontHighlightSmall )
button:SetNormalFontObject(GameFontNormalSmall)
button:SetDisabledFontObject(GameFontDisable)
button:SetHighlightFontObject(GameFontHighlightSmall)
 
local left = button:CreateTexture( nil, "BACKGROUND" )
left:SetPoint( "TOPLEFT" )
left:SetPoint( "BOTTOMLEFT" )
left:SetWidth( 12 )
left:SetTexture( [[Interface\Buttons\UI-Panel-Button-Up]] )
left:SetTexCoord( 0, 0.09375, 0, 0.6875 )
local left = button:CreateTexture(nil, "BACKGROUND")
left:SetPoint("TOPLEFT")
left:SetPoint("BOTTOMLEFT")
left:SetWidth(12)
left:SetTexture([[Interface\Buttons\UI-Panel-Button-Up]])
left:SetTexCoord(0, 0.09375, 0, 0.6875)
button.Left = left
 
local right = button:CreateTexture( nil, "BACKGROUND" )
right:SetPoint( "TOPRIGHT" )
right:SetPoint( "BOTTOMRIGHT" )
right:SetWidth( 12 )
right:SetTexture( [[Interface\Buttons\UI-Panel-Button-Up]] )
right:SetTexCoord( 0.53125, 0.625, 0, 0.6875 )
local right = button:CreateTexture(nil, "BACKGROUND")
right:SetPoint("TOPRIGHT")
right:SetPoint("BOTTOMRIGHT")
right:SetWidth(12)
right:SetTexture([[Interface\Buttons\UI-Panel-Button-Up]])
right:SetTexCoord(0.53125, 0.625, 0, 0.6875)
button.Right = right
 
local mid = button:CreateTexture( nil, "BACKGROUND" )
mid:SetPoint( "BOTTOMLEFT", left, "BOTTOMRIGHT" )
mid:SetPoint( "TOPRIGHT", right, "TOPLEFT" )
mid:SetTexture( [[Interface\Buttons\UI-Panel-Button-Up]] )
mid:SetTexCoord( 0.09375, 0.53125, 0, 0.6875 )
local mid = button:CreateTexture(nil, "BACKGROUND")
mid:SetPoint("BOTTOMLEFT", left, "BOTTOMRIGHT")
mid:SetPoint("TOPRIGHT", right, "TOPLEFT")
mid:SetTexture([[Interface\Buttons\UI-Panel-Button-Up]])
mid:SetTexCoord(0.09375, 0.53125, 0, 0.6875)
button.Middle = mid
--[=[
button:SetNormalTexture( [[Interface\Buttons\UI-Panel-Button-Up]] )
button:GetNormalTexture():SetTexCoord( 0, 0.625, 0, 0.6875 )
 
button:SetPushedTexture( [[Interface\Buttons\UI-Panel-Button-Down]] )
button:GetPushedTexture():SetTexCoord( 0, 0.625, 0, 0.6875 )
button:SetHighlightTexture([[Interface\Buttons\UI-Panel-Button-Highlight]])
local hilight = button:GetHighlightTexture()
hilight:SetTexCoord(0, 0.625, 0, 0.6875)
hilight:SetBlendMode("ADD")
button.Highlight = hilight
 
button:SetDisabledTexture( [[Interface\Buttons\UI-Panel-Button-Disabled]] )
button:GetDisabledTexture():SetTexCoord( 0, 0.625, 0, 0.6875 )
]=]
button:SetHighlightTexture( [[Interface\Buttons\UI-Panel-Button-Highlight]] )
button:GetHighlightTexture():SetTexCoord( 0, 0.625, 0, 0.6875 )
button:GetHighlightTexture():SetBlendMode( "ADD" )
for name, func in pairs(scripts) do
button:SetScript(name, func)
end
for name, func in pairs(methods) do
button[name] = func
end
 
button:SetScript( "OnEnter", OnEnter )
button:SetScript( "OnLeave", OnLeave )
button:SetScript( "OnClick", OnClick )
button:SetScript( "OnMouseDown", OnMouseDown )
button:SetScript( "OnMouseUp", OnMouseUp )
button:SetScript( "OnShow", OnMouseUp )
button:SetScript( "OnDisable", OnDisable )
button:SetScript( "OnEnable", OnEnable )
button:SetText(name)
button:SetWidth(math.min(44, button:GetTextWidth() + 8))
button:SetHeight(24)
 
button:SetText( name )
button:SetWidth( math.min( 44, button:GetTextWidth() + 8 ) )
button:SetHeight( 24 )
button.hint = hint
 
button.desc = desc
 
return button
end
 
function lib.CreateButton(...)
return lib:New(...)
end
\ No newline at end of file Property changes : Added: svn:keywords + Revision