WoWInterface SVN Aloft

Compare Revisions

  • This comparison shows the changes necessary to convert path 
    /branches/castbar/Aloft/Libs
    from Rev 2222 to Rev 2341
    ↔ Reverse comparison
  •

Rev 2222 → Rev 2341

AceLocale-3.0/AceLocale-3.0.lua
1,8 → 1,8
--- **AceLocale-3.0** manages localization in addons, allowing for multiple locale to be registered with fallback to the base locale for untranslated strings.
-- @class file
-- @name AceLocale-3.0
-- @release $Id: AceLocale-3.0.lua 1005 2011-01-29 14:19:43Z mikk $
local MAJOR,MINOR = "AceLocale-3.0", 5
-- @release $Id: AceLocale-3.0.lua 1035 2011-07-09 03:20:13Z kaelten $
local MAJOR,MINOR = "AceLocale-3.0", 6
 
local AceLocale, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
 
10,7 → 10,7
 
-- Lua APIs
local assert, tostring, error = assert, tostring, error
local setmetatable, rawset, rawget = setmetatable, rawset, rawget
local getmetatable, setmetatable, rawset, rawget = getmetatable, setmetatable, rawset, rawget
 
-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
-- List them here for Mikk's FindGlobals script
56,10 → 56,10
__index = assertfalse
})
 
-- This metatable proxy is used when registering the default locale.
-- This metatable proxy is used when registering the default locale.
-- It refuses to overwrite existing values
-- Reason 1: Allows loading locales in any order
-- Reason 2: If 2 modules have the same string, but only the first one to be
-- Reason 2: If 2 modules have the same string, but only the first one to be
-- loaded has a translation for the current locale, the translation
-- doesn't get overwritten.
--
91,16 → 91,16
-- L["string1"] = "Zeichenkette1"
-- @return Locale Table to add localizations to, or nil if the current locale is not required.
function AceLocale:NewLocale(application, locale, isDefault, silent)
 
 
-- GAME_LOCALE allows translators to test translations of addons without having that wow client installed
local gameLocale = GAME_LOCALE or gameLocale
 
local app = AceLocale.apps[application]
 
if silent and app then
 
if silent and app and getmetatable(app) ~= readmetasilent then
geterrorhandler()("Usage: NewLocale(application, locale[, isDefault[, silent]]): 'silent' must be specified for the first locale registered")
end
 
 
if not app then
if silent=="raw" then
app = {}
110,13 → 110,13
AceLocale.apps[application] = app
AceLocale.appnames[app] = application
end
 
 
if locale ~= gameLocale and not isDefault then
return -- nop, we don't need these translations
end
 
 
registering = app -- remember globally for writeproxy and writedefaultproxy
 
 
if isDefault then
return writedefaultproxy
end
AceTab-3.0/AceTab-3.0.lua
2,9 → 2,9
-- Note: This library is not yet finalized.
-- @class file
-- @name AceTab-3.0
-- @release $Id: AceTab-3.0.lua 947 2010-06-29 16:44:48Z nevcairiel $
-- @release $Id: AceTab-3.0.lua 1031 2011-06-29 15:04:34Z nevcairiel $
 
local ACETAB_MAJOR, ACETAB_MINOR = 'AceTab-3.0', 8
local ACETAB_MAJOR, ACETAB_MINOR = 'AceTab-3.0', 9
local AceTab, oldminor = LibStub:NewLibrary(ACETAB_MAJOR, ACETAB_MINOR)
 
if not AceTab then return end -- No upgrade needed
102,18 → 102,25
if postfunc and type(postfunc) ~= 'function' then error("Usage: RegisterTabCompletion(descriptor, prematches, wordlist, usagefunc, listenframes, postfunc, pmoverwrite): 'postfunc' - function expected.", 3) end
if pmoverwrite and type(pmoverwrite) ~= 'boolean' and type(pmoverwrite) ~= 'number' then error("Usage: RegisterTabCompletion(descriptor, prematches, wordlist, usagefunc, listenframes, postfunc, pmoverwrite): 'pmoverwrite' - boolean or number expected.", 3) end
 
local pmtable = type(prematches) == 'table' and prematches or {}
-- Mark this group as a fallback group if no value was passed.
if not prematches then
pmtable[1] = ""
fallbacks[descriptor] = true
-- Make prematches into a one-element table if it was passed as a string.
elseif type(prematches) == 'string' then
pmtable[1] = prematches
if prematches == "" then
local pmtable
 
if type(prematches) == 'table' then
pmtable = prematches
notfallbacks[descriptor] = true
else
pmtable = {}
-- Mark this group as a fallback group if no value was passed.
if not prematches then
pmtable[1] = ""
fallbacks[descriptor] = true
else
notfallbacks[descriptor] = true
-- Make prematches into a one-element table if it was passed as a string.
elseif type(prematches) == 'string' then
pmtable[1] = prematches
if prematches == "" then
fallbacks[descriptor] = true
else
notfallbacks[descriptor] = true
end
end
end
 
299,7 → 306,7
-- Finally, increment our match count and set firstMatch, if appropriate.
for _, m in ipairs(cands) do
if strfind(strlower(m), strlower(text_pmendToCursor), 1, 1) == 1 then -- we have a matching completion!
hasNonFallback = not fallback
hasNonFallback = hasNonFallback or (not fallback)
matches[m] = entry.postfunc and entry.postfunc(m, prematchEnd + 1, text_all) or m
numMatches = numMatches + 1
if numMatches == 1 then
428,16 → 435,18
end
end
 
-- Replace the original string with the greatest common substring of all valid completions.
this.at3curMatch = 1
this.at3origWord = strsub(text_precursor, this.at3matchStart, this.at3matchStart + pmolengths[desc] - 1) .. allGCBS or ""
this.at3origMatch = allGCBS or ""
this.at3lastWord = this.at3origWord
this.at3lastMatch = this.at3origMatch
if next(matches) then
-- Replace the original string with the greatest common substring of all valid completions.
this.at3curMatch = 1
this.at3origWord = strsub(text_precursor, this.at3matchStart, this.at3matchStart + pmolengths[desc] - 1) .. allGCBS or ""
this.at3origMatch = allGCBS or ""
this.at3lastWord = this.at3origWord
this.at3lastMatch = this.at3origMatch
 
this:HighlightText(this.at3matchStart-1, cursor)
this:Insert(this.at3origWord)
this.at3_last_precursor = getTextBeforeCursor(this) or ''
this:HighlightText(this.at3matchStart-1, cursor)
this:Insert(this.at3origWord)
this.at3_last_precursor = getTextBeforeCursor(this) or ''
end
end
end
end
LibBabble-Faction-3.0/LibBabble-Faction-3.0.lua
1,6 → 1,6
--[[
Name: LibBabble-Faction-3.0
Revision: $Rev: 135 $
Revision: $Rev: 147 $
Maintainers: ckknight, nevcairiel, Ackis
Website: http://www.wowace.com/projects/libbabble-faction-3-0/
Dependencies: None
8,7 → 8,7
]]
 
local MAJOR_VERSION = "LibBabble-Faction-3.0"
local MINOR_VERSION = 90000 + tonumber(("$Rev: 135 $"):match("%d+"))
local MINOR_VERSION = 90000 + tonumber(("$Rev: 147 $"):match("%d+"))
 
if not LibStub then error(MAJOR_VERSION .. " requires LibStub.") end
local lib = LibStub("LibBabble-3.0"):New(MAJOR_VERSION, MINOR_VERSION)
22,6 → 22,7
["Argent Crusade"] = "Argent Crusade",
["Argent Dawn"] = "Argent Dawn",
["Ashtongue Deathsworn"] = "Ashtongue Deathsworn",
["Avengers of Hyjal"] = "Avengers of Hyjal",
["Baradin's Wardens"] = "Baradin's Wardens",
["Bilgewater Cartel"] = "Bilgewater Cartel",
["Bloodsail Buccaneers"] = "Bloodsail Buccaneers",
122,6 → 123,7
["Argent Crusade"] = "Argentumkreuzzug",
["Argent Dawn"] = "Argentumdämmerung",
["Ashtongue Deathsworn"] = "Die Todeshörigen",
["Avengers of Hyjal"] = "Rächer des Hyjal",
["Baradin's Wardens"] = "Wächter von Baradin",
["Bilgewater Cartel"] = "Bilgewasserkartell",
["Bloodsail Buccaneers"] = "Blutsegelbukaniere",
218,6 → 220,7
["Argent Crusade"] = "La Croisade d'argent",
["Argent Dawn"] = "Aube d'argent",
["Ashtongue Deathsworn"] = "Ligemort cendrelangue",
["Avengers of Hyjal"] = "Vengeurs d’Hyjal", -- Needs review
["Baradin's Wardens"] = "Gardiens de Baradin",
["Bilgewater Cartel"] = "Cartel Baille-fonds",
["Bloodsail Buccaneers"] = "La Voile sanglante",
233,7 → 236,7
Exalted = "Exalté",
Exodar = "Exodar",
["Explorers' League"] = "Ligue des explorateurs",
["Frenzyheart Tribe"] = "La tribu Frénécœur",
["Frenzyheart Tribe"] = "Tribu Frénécœur", -- Needs review
Friendly = "Amical",
["Frostwolf Clan"] = "Clan Loup-de-givre",
Gadgetzan = "Gadgetzan",
314,6 → 317,7
["Argent Crusade"] = "은빛십자군",
["Argent Dawn"] = "은빛 여명회",
["Ashtongue Deathsworn"] = "잿빛혓바닥 결사단",
["Avengers of Hyjal"] = "하이잘의 복수자",
["Baradin's Wardens"] = "바라딘 집행단",
["Bilgewater Cartel"] = "빌지워터 무역회사",
["Bloodsail Buccaneers"] = "붉은 해적단",
329,7 → 333,7
Exalted = "확고한 동맹",
Exodar = "엑소다르",
["Explorers' League"] = "탐험가 연맹",
["Frenzyheart Tribe"] = "광란의심장일족",
["Frenzyheart Tribe"] = "광란심장 일족",
Friendly = "약간 우호적",
["Frostwolf Clan"] = "서리늑대 부족",
Gadgetzan = "가젯잔",
410,6 → 414,7
["Argent Crusade"] = "Cruzada Argenta",
["Argent Dawn"] = "El Alba Argenta",
["Ashtongue Deathsworn"] = "Juramorte Lengua de ceniza",
["Avengers of Hyjal"] = "Vengadores de Hyjal",
["Baradin's Wardens"] = "Celadores de Baradin",
["Bilgewater Cartel"] = "Cártel Pantoque",
["Bloodsail Buccaneers"] = "Bucaneros Velasangre",
504,10 → 509,11
Alliance = "Alianza",
["Alliance Vanguard"] = "Vanguardia de la Alianza",
["Argent Crusade"] = "Cruzada Argenta",
["Argent Dawn"] = "Alba Argenta",
["Argent Dawn"] = "El Alba Argenta",
["Ashtongue Deathsworn"] = "Juramorte Lengua de ceniza",
["Baradin's Wardens"] = "Baradin's Wardens", -- Needs review
["Bilgewater Cartel"] = "Bilgewater Cartel", -- Needs review
["Avengers of Hyjal"] = "Vengadores de Hyjal", -- Needs review
["Baradin's Wardens"] = "Celadores de Baradin",
["Bilgewater Cartel"] = "Cártel Pantoque",
["Bloodsail Buccaneers"] = "Bucaneros Velasangre",
["Booty Bay"] = "Bahía del Botín",
["Brood of Nozdormu"] = "Linaje de Nozdormu",
516,33 → 522,33
["Darkmoon Faire"] = "Feria de la Luna Negra",
["Darkspear Trolls"] = "Trols Lanza Negra",
Darnassus = "Darnassus",
["Dragonmaw Clan"] = "Dragonmaw Clan", -- Needs review
["Dragonmaw Clan"] = "Clan Faucedraco",
Everlook = "Vista Eterna",
Exalted = "Exaltado",
Exodar = "Exodar",
Exodar = "El Exodar",
["Explorers' League"] = "Liga de Expedicionarios",
["Frenzyheart Tribe"] = "Tribu Corazón Frenético",
Friendly = "Amistoso",
["Frostwolf Clan"] = "Clan Lobo Gélido",
Gadgetzan = "Gadgetzan",
["Gelkis Clan Centaur"] = "Centauro del clan Gelkis",
["Gelkis Clan Centaur"] = "Centauros del clan Gelkis",
Gilneas = "Gilneas", -- Needs review
Gnomeregan = "Gnomeregan", -- Needs review
["Gnomeregan Exiles"] = "Exiliados de Gnomeregan",
["Guardians of Hyjal"] = "Guardians of Hyjal", -- Needs review
["Hellscream's Reach"] = "Hellscream's Reach", -- Needs review
["Guardians of Hyjal"] = "Guardianes de Hyjal",
["Hellscream's Reach"] = "Mando Grito Infernal",
["Honor Hold"] = "Bastión del Honor",
Honored = "Honorable",
Horde = "Horda",
["Horde Expedition"] = "Expedición de la Horda",
["Hydraxian Waterlords"] = "Srs. del Agua de Hydraxis",
Ironforge = "Forjaz",
["Keepers of Time"] = "Vigilantes del tiempo",
["Keepers of Time"] = "Vigilantes del Tiempo",
["Kirin Tor"] = "Kirin Tor",
["Knights of the Ebon Blade"] = "Caballeros de la Espada de Ébano",
Kurenai = "Kurenai",
["Lower City"] = "Bajo Arrabal",
["Magram Clan Centaur"] = "Centauro del clan Magram",
["Magram Clan Centaur"] = "Centauros del clan Magram",
Netherwing = "Ala Abisal",
Neutral = "Neutral",
["Ogri'la"] = "Ogri'la",
561,10 → 567,10
Stormwind = "Ventormenta",
Syndicate = "La Hermandad",
["The Aldor"] = "Los Aldor",
["The Ashen Verdict"] = "The Ashen Verdict", -- Needs review
["The Ashen Verdict"] = "El Veredicto Cinéreo",
["The Consortium"] = "El Consorcio",
["The Defilers"] = "Los Rapiñadores",
["The Earthen Ring"] = "The Earthen Ring", -- Needs review
["The Earthen Ring"] = "El Anillo de la Tierra",
["The Frostborn"] = "Los Natoescarcha",
["The Hand of Vengeance"] = "La Mano de la Venganza",
["The Kalu'ak"] = "Los Kalu'ak",
581,18 → 587,18
["The Violet Eye"] = "El Ojo Violeta",
["The Wyrmrest Accord"] = "El Acuerdo del Reposo del Dragón",
Therazane = "Therazane", -- Needs review
["Thorium Brotherhood"] = "Hermandad del torio",
["Thorium Brotherhood"] = "Hermandad del Torio",
Thrallmar = "Thrallmar",
["Thunder Bluff"] = "Cima del Trueno",
["Timbermaw Hold"] = "Bastión Fauces de Madera",
Tranquillien = "Tranquilien",
Tranquillien = "Tranquillien",
Undercity = "Entrañas",
["Valiance Expedition"] = "Expedición de Denuedo",
["Warsong Offensive"] = "Ofensiva Grito de Guerra",
["Warsong Outriders"] = "Escoltas Grito de Guerra",
["Wildhammer Clan"] = "Clan Martillo Salvaje",
["Winterfin Retreat"] = "Retiro Aleta Invernal",
["Wintersaber Trainers"] = "Instructores de Sableinvernales",
["Wintersaber Trainers"] = "Instructores de sableinvernales",
["Zandalar Tribe"] = "Tribu Zandalar",
}
elseif GAME_LOCALE == "ruRU" then
602,6 → 608,7
["Argent Crusade"] = "Серебряный Авангард",
["Argent Dawn"] = "Серебряный Рассвет",
["Ashtongue Deathsworn"] = "Пеплоусты-служители",
["Avengers of Hyjal"] = "Хиджальские мстители", -- Needs review
["Baradin's Wardens"] = "Защитники Тол Барада",
["Bilgewater Cartel"] = "Картель Трюмных Вод",
["Bloodsail Buccaneers"] = "Пираты Кровавого Паруса",
698,6 → 705,7
["Argent Crusade"] = "银色北伐军",
["Argent Dawn"] = "银色黎明",
["Ashtongue Deathsworn"] = "灰舌死誓者",
["Avengers of Hyjal"] = "海加尔复仇者",
["Baradin's Wardens"] = "巴拉丁典狱官",
["Bilgewater Cartel"] = "锈水财阀",
["Bloodsail Buccaneers"] = "血帆海盗",
794,8 → 802,9
["Argent Crusade"] = "銀白十字軍",
["Argent Dawn"] = "銀色黎明",
["Ashtongue Deathsworn"] = "灰舌死亡誓言者",
["Avengers of Hyjal"] = "海加爾復仇者",
["Baradin's Wardens"] = "巴拉丁鐵衛",
["Bilgewater Cartel"] = "污水企業",
["Bilgewater Cartel"] = "污水企業聯合",
["Bloodsail Buccaneers"] = "血帆海盜",
["Booty Bay"] = "藏寶海灣",
["Brood of Nozdormu"] = "諾茲多姆的子嗣",
875,9 → 884,9
["Timbermaw Hold"] = "木喉要塞",
Tranquillien = "安寧地",
Undercity = "幽暗城",
["Valiance Expedition"] = "驍勇遠征隊",
["Valiance Expedition"] = "驍勇遠征軍",
["Warsong Offensive"] = "戰歌進攻部隊",
["Warsong Outriders"] = "戰歌偵察騎兵",
["Warsong Outriders"] = "戰歌先遣騎",
["Wildhammer Clan"] = "蠻錘氏族",
["Winterfin Retreat"] = "冬鰭避居地",
["Wintersaber Trainers"] = "冬刃豹訓練師",
LibBabble-Faction-3.0/LibBabble-Faction-3.0.toc
1,4 → 1,4
## Interface: 40000
## Interface: 40200
## LoadOnDemand: 1
## Title: Lib: Babble-Faction-3.0
## Notes: A library to help with localization of factions.
12,7 → 12,7
## X-eMail: oma_daviesh@hotmail.com
## X-Category: Library
## X-License: MIT
## X-Curse-Packaged-Version: 4.0-release18
## X-Curse-Packaged-Version: 4.2-release16
## X-Curse-Project-Name: LibBabble-Faction-3.0
## X-Curse-Project-ID: libbabble-faction-3-0
## X-Curse-Repository-ID: wow/libbabble-faction-3-0/mainline
AceSerializer-3.0/AceSerializer-3.0.lua
10,8 → 10,8
-- make into AceSerializer.
-- @class file
-- @name AceSerializer-3.0
-- @release $Id: AceSerializer-3.0.lua 910 2010-02-11 21:54:24Z mikk $
local MAJOR,MINOR = "AceSerializer-3.0", 3
-- @release $Id: AceSerializer-3.0.lua 1038 2011-10-03 01:39:58Z mikk $
local MAJOR,MINOR = "AceSerializer-3.0", 4
local AceSerializer, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
 
if not AceSerializer then return end
24,11 → 24,13
local tconcat = table.concat
 
-- quick copies of string representations of wonky numbers
local serNaN = tostring(0/0)
local serInf = tostring(1/0)
local serNegInf = tostring(-1/0)
local inf = math.huge
 
local serNaN -- can't do this in 4.3, see ace3 ticket 268
local serInf = tostring(inf)
local serNegInf = tostring(-inf)
 
 
-- Serialization functions
 
local function SerializeStringHelper(ch) -- Used by SerializeValue for strings
60,7 → 62,7
 
elseif t=="number" then -- ^N = number (just tostring()ed) or ^F (float components)
local str = tostring(v)
if tonumber(str)==v or str==serNaN or str==serInf or str==serNegInf then
if tonumber(str)==v --[[not in 4.3 or str==serNaN]] or str==serInf or str==serNegInf then
-- translates just fine, transmit as-is
res[nres+1] = "^N"
res[nres+2] = str
143,12 → 145,12
end
 
local function DeserializeNumberHelper(number)
if number == serNaN then
--[[ not in 4.3 if number == serNaN then
return 0/0
elseif number == serNegInf then
return -1/0
else]]if number == serNegInf then
return -inf
elseif number == serInf then
return 1/0
return inf
else
return tonumber(number)
end
AceTimer-3.0/AceTimer-3.0.lua
15,7 → 15,7
-- make into AceTimer.
-- @class file
-- @name AceTimer-3.0
-- @release $Id: AceTimer-3.0.lua 895 2009-12-06 16:28:55Z nevcairiel $
-- @release $Id: AceTimer-3.0.lua 1037 2011-09-02 16:24:08Z mikk $
 
--[[
Basic assumptions:
36,7 → 36,7
- ALLOWS unscheduling ANY timer (including the current running one) at any time, including during OnUpdate processing
]]
 
local MAJOR, MINOR = "AceTimer-3.0", 5
local MAJOR, MINOR = "AceTimer-3.0", 6
local AceTimer, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
 
if not AceTimer then return end -- No upgrade needed
402,7 → 402,7
 
-- Time to clean it out?
local list = selfs[self]
if (list.__ops or 0) < 250 then -- 250 slosh indices = ~10KB wasted (max!). For one 'self'.
if (list.__ops or 0) < 250 then -- 250 slosh indices = ~10KB wasted (worst case!). For one 'self'.
return
end
 
411,7 → 411,9
local n=0
for k,v in pairs(list) do
newlist[k] = v
n=n+1
if type(v)=="table" and v.callback then -- if the timer is actually live: count it
n=n+1
end
end
newlist.__ops = 0 -- Reset operation count
 
468,6 → 470,6
AceTimer.frame:SetScript("OnEvent", OnEvent)
AceTimer.frame:RegisterEvent("PLAYER_REGEN_ENABLED")
 
-- In theory, we should hide&show the frame based on there being timers or not.
-- In theory, we could hide&show the frame based on there being timers or not.
-- However, this job is fairly expensive, and the chance that there will
-- actually be zero timers running is diminuitive to say the lest.
-- actually be zero timers running is diminuitive to say the least.
AceGUI-3.0/widgets/AceGUIWidget-DropDown.lua
1,4 → 1,4
--[[ $Id: AceGUIWidget-DropDown.lua 997 2010-12-01 18:36:28Z nevcairiel $ ]]--
--[[ $Id: AceGUIWidget-DropDown.lua 1029 2011-06-10 23:10:58Z nevcairiel $ ]]--
local AceGUI = LibStub("AceGUI-3.0")
 
-- Lua APIs
356,7 → 356,7
 
do
local widgetType = "Dropdown"
local widgetVersion = 24
local widgetVersion = 25
 
--[[ Static data ]]--
 
460,6 → 460,7
 
self:SetHeight(44)
self:SetWidth(200)
self:SetLabel()
end
 
-- exported, AceGUI callback
471,7 → 472,6
self.pullout = nil
 
self:SetText("")
self:SetLabel("")
self:SetDisabled(false)
self:SetMultiselect(false)
 
516,12 → 516,14
self.label:SetText(text)
self.label:Show()
self.dropdown:SetPoint("TOPLEFT",self.frame,"TOPLEFT",-15,-18)
self.frame:SetHeight(44)
self:SetHeight(44)
self.alignoffset = 30
else
self.label:SetText("")
self.label:Hide()
self.dropdown:SetPoint("TOPLEFT",self.frame,"TOPLEFT",-15,0)
self.frame:SetHeight(26)
self:SetHeight(26)
self.alignoffset = 12
end
end
 
665,10 → 667,8
self.SetItemValue = SetItemValue
self.SetItemDisabled = SetItemDisabled
 
self.alignoffset = 31
self.alignoffset = 30
 
frame:SetHeight(44)
frame:SetWidth(200)
frame:SetScript("OnHide",Dropdown_OnHide)
 
dropdown:ClearAllPoints()
AceGUI-3.0/widgets/AceGUIContainer-TreeGroup.lua
2,14 → 2,14
TreeGroup Container
Container that uses a tree control to switch between groups.
-------------------------------------------------------------------------------]]
local Type, Version = "TreeGroup", 33
local Type, Version = "TreeGroup", 34
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 next, pairs, ipairs, assert, type = next, pairs, ipairs, assert, type
local math_min, math_max, floor = math.min, math.max, floor
local select, tremove, unpack = select, table.remove, unpack
local select, tremove, unpack, tconcat = select, table.remove, unpack, table.concat
 
-- WoW APIs
local CreateFrame, UIParent = CreateFrame, UIParent
385,7 → 385,7
end
end,
 
["RefreshTree"] = function(self)
["RefreshTree"] = function(self,scrollToSelection)
local buttons = self.buttons
local lines = self.lines
 
407,6 → 407,8
local tree = self.tree
 
local treeframe = self.treeframe
 
status.scrollToSelection = status.scrollToSelection or scrollToSelection -- needs to be cached in case the control hasn't been drawn yet (code bails out below)
 
self:BuildLevel(tree, 1)
 
416,6 → 418,9
if maxlines <= 0 then return end
 
local first, last
 
scrollToSelection = status.scrollToSelection
status.scrollToSelection = nil
 
if numlines <= maxlines then
--the whole tree fits in the frame
431,11 → 436,33
if numlines - status.scrollvalue < maxlines then
status.scrollvalue = numlines - maxlines
end
self.noupdate = nil
first, last = status.scrollvalue+1, status.scrollvalue + maxlines
--show selection?
if scrollToSelection and status.selected then
local show
for i,line in ipairs(lines) do -- find the line number
if line.uniquevalue==status.selected then
show=i
end
end
if not show then
-- selection was deleted or something?
elseif show>=first and show<=last then
-- all good
else
-- scrolling needed!
if show<first then
status.scrollvalue = show-1
else
status.scrollvalue = show-maxlines
end
first, last = status.scrollvalue+1, status.scrollvalue + maxlines
end
end
if self.scrollbar:GetValue() ~= status.scrollvalue then
self.scrollbar:SetValue(status.scrollvalue)
end
self.noupdate = nil
first, last = status.scrollvalue+1, status.scrollvalue + maxlines
end
 
local buttonnum = 1
467,6 → 494,7
button:Show()
buttonnum = buttonnum + 1
end
 
end,
 
["SetSelected"] = function(self, value)
481,11 → 509,12
self.filter = false
local status = self.status or self.localstatus
local groups = status.groups
for i = 1, select('#', ...) do
groups[BuildUniqueValue(select(i, ...))] = true
local path = {...}
for i = 1, #path do
groups[tconcat(path, "\001", 1, i)] = true
end
status.selected = uniquevalue
self:RefreshTree()
self:RefreshTree(true)
self:Fire("OnGroupSelected", uniquevalue)
end,
 
AceAddon-3.0/AceAddon-3.0.lua
28,9 → 28,9
-- end
-- @class file
-- @name AceAddon-3.0.lua
-- @release $Id: AceAddon-3.0.lua 980 2010-10-27 14:20:11Z nevcairiel $
-- @release $Id: AceAddon-3.0.lua 1036 2011-08-16 22:45:05Z nevcairiel $
 
local MAJOR, MINOR = "AceAddon-3.0", 10
local MAJOR, MINOR = "AceAddon-3.0", 11
local AceAddon, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
 
if not AceAddon then return end -- No Upgrade needed.
619,7 → 619,8
 
-- Event Handling
local function onEvent(this, event, arg1)
if event == "ADDON_LOADED" or event == "PLAYER_LOGIN" then
-- 2011-08-17 nevcairiel - ignore the load event of Blizzard_DebugTools, so a potential startup error isn't swallowed up
if (event == "ADDON_LOADED" and arg1 ~= "Blizzard_DebugTools") or event == "PLAYER_LOGIN" then
-- if a addon loads another addon, recursion could happen here, so we need to validate the table on every iteration
while(#AceAddon.initializequeue > 0) do
local addon = tremove(AceAddon.initializequeue, 1)
AceDB-3.0/AceDB-3.0.lua
39,8 → 39,8
-- end
-- @class file
-- @name AceDB-3.0.lua
-- @release $Id: AceDB-3.0.lua 940 2010-06-19 08:01:47Z nevcairiel $
local ACEDB_MAJOR, ACEDB_MINOR = "AceDB-3.0", 21
-- @release $Id: AceDB-3.0.lua 1035 2011-07-09 03:20:13Z kaelten $
local ACEDB_MAJOR, ACEDB_MINOR = "AceDB-3.0", 22
local AceDB, oldminor = LibStub:NewLibrary(ACEDB_MAJOR, ACEDB_MINOR)
 
if not AceDB then return end -- No upgrade needed
260,6 → 260,9
local _, raceKey = UnitRace("player")
local factionKey = UnitFactionGroup("player")
local factionrealmKey = factionKey .. " - " .. realmKey
local factionrealmregionKey = factionrealmKey .. " - " .. string.sub(GetCVar("realmList"), 1, 2):upper()
local localeKey = GetLocale():lower()
 
-- Actual database initialization function
local function initdb(sv, defaults, defaultProfile, olddb, parent)
-- Generate the database keys for each section
295,7 → 298,9
["race"] = raceKey,
["faction"] = factionKey,
["factionrealm"] = factionrealmKey,
["factionrealmregion"] = factionrealmregionKey,
["profile"] = profileKey,
["locale"] = localeKey,
["global"] = true,
["profiles"] = true,
}
352,7 → 357,7
for db in pairs(AceDB.db_registry) do
db.callbacks:Fire("OnDatabaseShutdown", db)
db:RegisterDefaults(nil)
 
 
-- cleanup sections that are empty without defaults
local sv = rawget(db, "sv")
for section in pairs(db.keys) do
TagCompiler-2.0/LibTagCompiler-2.0.toc
1,4 → 1,4
## Interface: 30000
## Interface: 40200
## Version: 2.0
## Title: Lib: TagCompiler-2.0
## Notes: A library to provide configuration via simple tag syntax.
TagCompiler-2.0/TagCompiler-2.0.lua
739,11 → 739,11
if not dataTable.error then
if #parameterStringList > 0 then
-- result = ("tagMethod%s(data, %s, %s)"):format(identifier, functionString or "true", table.concat(parameterStringList, ", "))
result = ('--[[ 3 ]] (tagMethod%s(data, %s, %s) or "")'):format(identifier, functionString or "true", table.concat(parameterStringList, ", "))
result = ('--[[ 1 ]] (tagMethod%s(data, %s, %s) or "")'):format(identifier, functionString or "true", table.concat(parameterStringList, ", "))
parameterStringList = del(parameterStringList)
else
-- result = ("tagMethod%s(data, %s)"):format(identifier, functionString or "true")
result = ('--[[ 2 ]] (tagMethod%s(data, %s) or "")'):format(identifier, functionString or "true")
result = ('--[[ 0 ]] (tagMethod%s(data, %s) or "")'):format(identifier, functionString or "true")
end
end
end
1044,7 → 1044,7
 
local method = loadstring(functionString)
dataTable.method = method and method() or TagErrorMethods[resultType]
dataTable.functionString = functionString
-- dataTable.functionString = functionString
end
 
EmptyTable(headerCode)