WoWInterface SVN PhanxConfigWidgets

Compare Revisions

  • This comparison shows the changes necessary to convert path 
    /trunk/PhanxConfig-KeyBinding
    from Rev 97 to Rev 129
    ↔ Reverse comparison
  •

Rev 97 → Rev 129

PhanxConfig-KeyBinding.lua
9,101 → 9,63
its internals may change at any time without notice.
----------------------------------------------------------------------]]
 
local PhanxConfigButton = LibStub:GetLibrary( "PhanxConfig-Button", true )
assert( PhanxConfigButton, "PhanxConfig-KeyBinding requires PhanxConfig-Button" )
local PhanxConfigButton = LibStub:GetLibrary("PhanxConfig-Button", true)
assert(PhanxConfigButton, "PhanxConfig-KeyBinding requires PhanxConfig-Button")
 
local MINOR_VERSION = tonumber( string.match( "$Revision: 29 $", "%d+" ) )
local MINOR_VERSION = tonumber(string.match("$Revision$", "%d+"))
 
local lib, oldminor = LibStub:NewLibrary( "PhanxConfig-KeyBinding", MINOR_VERSION )
local lib, oldminor = LibStub:NewLibrary("PhanxConfig-KeyBinding", MINOR_VERSION)
if not lib then return end
 
------------------------------------------------------------------------
 
local HINT_TEXT_ACTIVE = "Press a key to bind, press Escape to clear the binding, or click the button again to cancel."
local HINT_TEXT_INACTIVE = "Click the button to bind a key."
 
do
local GAME_LOCALE = GetLocale()
if GAME_LOCALE == "esES" or GAME_LOCALE == "esMX" then
if GAME_LOCALE == "deDE" then
HINT_TEXT_ACTIVE = "Drücke eine Taste, um sie zu belegen. Drücke ESC, um die Belegung zu löschen, oder klick erneut, um zu abbrechen."
HINT_TEXT_INACTIVE = "Klick, um eine Taste zu belegen."
 
elseif GAME_LOCALE == "esES" or GAME_LOCALE == "esMX" then
HINT_TEXT_ACTIVE = "Pulse una tecla para asignarlo, pulse Escape para borrar la asignación, o clic en el botón otra vez para cancelar."
HINT_TEXT_INACTIVE = "Clic en el botón para asignar una tecla."
 
elseif GAME_LOCALE == "frFR" then
HINT_TEXT_ACTIVE = "Appuyez sur une touche pour assigner un raccourci, appuyez sur Echap pour effacer le raccourci, ou cliquez sur le bouton à nouveau pour annuler."
HINT_TEXT_INACTIVE = "Cliquez sur le bouton pour assigner une touche."
end
end
 
local function Button_SetValue( self, value )
if value and value ~= "" then
self:SetText( value )
else
self:SetText( NOT_BOUND )
end
------------------------------------------------------------------------
 
local action = self.action
if action then
-- clear any previous bindings
local prev1, prev2 = GetBindingKey( action )
if prev1 == value then return end
if prev1 then SetBinding( prev1 ) end
if prev2 then SetBinding( prev2 ) end
local scripts = {} -- these are set on the button, not the container
 
if value and value:len() > 0 then
-- warn if overwriting an existing binding
local curr = GetBindingAction( value )
if curr and curr:len() > 0 then
print( KEY_UNBOUND_ERROR:format( curr ) )
end
function scripts:OnEnter()
GameTooltip:SetOwner(self, "ANCHOR_RIGHT")
 
-- set new binding
SetBinding( value, action )
 
-- restore second binding if there was one
if prev2 then SetBinding( prev2, action ) end
end
 
-- save
SaveBindings( GetCurrentBindingSet() )
end
 
if self.OnKeyChanged then
self:OnKeyChanged( value )
end
end
 
local function Button_RefreshValue( self )
if not self.action then return end
 
local key = GetBindingKey( self.action )
if key then
self:SetText( key )
else
self:SetText( NOT_BOUND )
end
end
 
local function Button_OnEnter( self )
GameTooltip:SetOwner( self, "ANCHOR_RIGHT" )
 
local text = self.desc
local text = self.tooltipText
if text then
GameTooltip:SetText( text, nil, nil, nil, nil, true )
GameTooltip:SetText(text, nil, nil, nil, nil, true)
elseif self.waitingForKey then
GameTooltip:SetText( HINT_TEXT_ACTIVE, nil, nil, nil, nil, true )
GameTooltip:SetText(HINT_TEXT_ACTIVE, nil, nil, nil, nil, true)
else
GameTooltip:SetText( HINT_TEXT_INACTIVE, nil, nil, nil, nil, true )
GameTooltip:SetText(HINT_TEXT_INACTIVE, nil, nil, nil, nil, true)
end
 
GameTooltip:Show()
end
 
local function Button_OnClick( self, button )
function scripts:OnClick(button)
if button ~= "LeftButton" and button ~= "RightButton" then return end
 
if self.waitingForKey then
self:EnableKeyboard( false )
self:EnableKeyboard(false)
self:UnlockHighlight()
self.waitingForKey = nil
else
self:EnableKeyboard( true )
self:EnableKeyboard(true)
self:LockHighlight()
self.waitingForKey = true
end
117,15 → 79,14
["UNKNOWN"] = true,
}
 
local function Button_OnKeyDown( self, key )
if not self.waitingForKey then return end
if ignoreKeys[ key ] then return end
function scripts:OnKeyDown(key)
if ignoreKeys[key] or not self.waitingForKey then return end
 
if key == "ESCAPE" then
key = ""
elseif key == "MiddleButton" then
key = "BUTTON3"
elseif key:match( "^Button" ) then
elseif key:match("^Button") then
key = button:upper()
end
 
139,61 → 100,126
key = "ALT-" .. key
end
 
self:EnableKeyboard( false )
self:EnableKeyboard(false)
self:UnlockHighlight()
self.waitingForKey = nil
 
if self:IsEnabled() then
Button_SetValue( self, key )
self:SetValue(key)
end
 
------------------------------------------------------------------------
 
local methods = {} -- these are set on the button, not the container
 
function methods:GetValue()
return self.action and GetBindingKey(self.action) or nil
end
function methods:SetValue(value)
if value and value ~= "" then
self:SetText(value)
else
self:SetText(NOT_BOUND)
end
 
local action = self.action
if action then
-- clear any previous bindings
local prev1, prev2 = GetBindingKey(action)
if prev1 == value then return end
if prev1 then SetBinding(prev1) end
if prev2 then SetBinding(prev2) end
 
if value and strlen(value) > 0 then
-- warn if overwriting an existing binding
local curr = GetBindingAction(value)
if curr and strlen(curr) > 0 then
print(format(KEY_UNBOUND_ERROR, curr))
end
 
-- set new binding
SetBinding(value, action)
 
-- restore second binding if there was one
if prev2 then SetBinding(prev2, action) end
end
 
-- save
SaveBindings(GetCurrentBindingSet())
end
 
local func = self.func or self.OnKeyChanged
if func then
func(self, value)
end
end
 
local function Button_SetPoint( self, ... )
return self.container:SetPoint( ... )
function methods:GetTooltipText()
return self.tooltipText
end
function methods:SetTooltipText(text)
self.tooltipText = text
end
 
function lib.CreateKeyBinding( parent, name, desc, action )
assert( type( parent ) == "table" and parent.CreateFontString, "PhanxConfig-KeyBinding: Parent is not a valid frame!" )
if type( name ) ~= "string" then name = nil end
if type( desc ) ~= "string" then desc = nil end
function methods:SetFunction(func)
self.func = func
end
 
local frame = CreateFrame( "Frame", nil, parent )
frame:SetWidth( 186 )
frame:SetHeight( 38 )
function methods:SetPoint(...)
return self.container:SetPoint(...)
end
 
frame.bg = frame:CreateTexture( nil, "BACKGROUND" )
frame.bg:SetAllPoints( true )
frame.bg:SetTexture( 0, 0, 0, 0 )
function methods:RefreshValue()
self:SetText(self:GetValue() or NOT_BOUND)
end
 
local button = PhanxConfigButton.CreateButton( frame, nil, desc )
button:SetPoint( "BOTTOMLEFT" )
button:SetPoint( "BOTTOMRIGHT" )
function methods:SetBindingAction(action)
self.action = action
end
 
button:SetNormalFontObject( GameFontHighlightSmall )
------------------------------------------------------------------------
 
button:SetScript( "OnEnter", Button_OnEnter )
button:SetScript( "OnClick", Button_OnClick )
button:SetScript( "OnKeyDown", Button_OnKeyDown )
button:SetScript( "OnMouseDown", Button_OnKeyDown )
function lib:New(parent, name, tooltipText, action)
assert(type(parent) == "table" and parent.CreateFontString, "PhanxConfig-KeyBinding: Parent is not a valid frame!")
if type(name) ~= "string" then name = nil end
if type(tooltipText) ~= "string" then tooltipText = nil end
 
button:EnableKeyboard( false )
button:EnableMouse( true )
button:RegisterForClicks( "AnyDown" )
local frame = CreateFrame("Frame", nil, parent)
frame:SetWidth(186)
frame:SetHeight(38)
 
button.label = button:CreateFontString( nil, "OVERLAY", "GameFontNormal" )
button.label:SetPoint( "TOPLEFT", frame, 5, 0 )
button.label:SetPoint( "TOPRIGHT", frame, -5, 0 )
button.label:SetJustifyH( "LEFT" )
button.label:SetText( name )
frame.bg = frame:CreateTexture(nil, "BACKGROUND")
frame.bg:SetAllPoints(true)
frame.bg:SetTexture(0, 0, 0, 0)
 
button.action = action
local button = PhanxConfigButton.CreateButton(frame, nil, tooltipText)
button:SetPoint("BOTTOMLEFT")
button:SetPoint("BOTTOMRIGHT")
 
local label = button:CreateFontString(nil, "OVERLAY", "GameFontNormal")
label:SetPoint("TOPLEFT", frame, 5, 0)
label:SetPoint("TOPRIGHT", frame, -5, 0)
label:SetJustifyH("LEFT")
button.label = label
 
button:SetNormalFontObject(GameFontHighlightSmall)
button:EnableKeyboard(false)
button:EnableMouse(true)
button:RegisterForClicks("AnyDown")
 
button.container = frame
 
button.SetPoint = Button_SetPoint
button.SetValue = Button_SetValue
button.RefreshValue = Button_RefreshValue
for name, func in pairs(scripts) do
button:SetScript(name, func)
end
for name, func in pairs(methods) do
button[name] = func
end
 
label:SetText(name)
button.action = action
button:RefreshValue()
 
return button
end
\ No newline at end of file +end + +function lib.CreateKeyBinding(...) return lib:New(...) end \ No newline at end of file Property changes : Added: svn:keywords + Revision