Mercurial > wow > icu

annotate Libs/AceConfig-3.0/AceConfigDialog-3.0/AceConfigDialog-3.0.lua @ 0:98c6f55e6619

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First commit
author Xiiph
date Sat, 05 Feb 2011 16:45:02 +0100
parents
children
rev   line source
Xiiph@0 1 --- AceConfigDialog-3.0 generates AceGUI-3.0 based windows based on option tables.
Xiiph@0 2 -- @class file
Xiiph@0 3 -- @name AceConfigDialog-3.0
Xiiph@0 4 -- @release $Id: AceConfigDialog-3.0.lua 994 2010-11-27 12:39:16Z nevcairiel $
Xiiph@0 5
Xiiph@0 6 local LibStub = LibStub
Xiiph@0 7 local MAJOR, MINOR = "AceConfigDialog-3.0", 53
Xiiph@0 8 local AceConfigDialog, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
Xiiph@0 9
Xiiph@0 10 if not AceConfigDialog then return end
Xiiph@0 11
Xiiph@0 12 AceConfigDialog.OpenFrames = AceConfigDialog.OpenFrames or {}
Xiiph@0 13 AceConfigDialog.Status = AceConfigDialog.Status or {}
Xiiph@0 14 AceConfigDialog.frame = AceConfigDialog.frame or CreateFrame("Frame")
Xiiph@0 15
Xiiph@0 16 AceConfigDialog.frame.apps = AceConfigDialog.frame.apps or {}
Xiiph@0 17 AceConfigDialog.frame.closing = AceConfigDialog.frame.closing or {}
Xiiph@0 18 AceConfigDialog.frame.closeAllOverride = AceConfigDialog.frame.closeAllOverride or {}
Xiiph@0 19
Xiiph@0 20 local gui = LibStub("AceGUI-3.0")
Xiiph@0 21 local reg = LibStub("AceConfigRegistry-3.0")
Xiiph@0 22
Xiiph@0 23 -- Lua APIs
Xiiph@0 24 local tconcat, tinsert, tsort, tremove = table.concat, table.insert, table.sort, table.remove
Xiiph@0 25 local strmatch, format = string.match, string.format
Xiiph@0 26 local assert, loadstring, error = assert, loadstring, error
Xiiph@0 27 local pairs, next, select, type, unpack, wipe = pairs, next, select, type, unpack, wipe
Xiiph@0 28 local rawset, tostring, tonumber = rawset, tostring, tonumber
Xiiph@0 29 local math_min, math_max, math_floor = math.min, math.max, math.floor
Xiiph@0 30
Xiiph@0 31 -- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
Xiiph@0 32 -- List them here for Mikk's FindGlobals script
Xiiph@0 33 -- GLOBALS: NORMAL_FONT_COLOR, GameTooltip, StaticPopupDialogs, ACCEPT, CANCEL, StaticPopup_Show
Xiiph@0 34 -- GLOBALS: PlaySound, GameFontHighlight, GameFontHighlightSmall, GameFontHighlightLarge
Xiiph@0 35 -- GLOBALS: CloseSpecialWindows, InterfaceOptions_AddCategory, geterrorhandler
Xiiph@0 36
Xiiph@0 37 local emptyTbl = {}
Xiiph@0 38
Xiiph@0 39 --[[
Xiiph@0 40 xpcall safecall implementation
Xiiph@0 41 ]]
Xiiph@0 42 local xpcall = xpcall
Xiiph@0 43
Xiiph@0 44 local function errorhandler(err)
Xiiph@0 45 return geterrorhandler()(err)
Xiiph@0 46 end
Xiiph@0 47
Xiiph@0 48 local function CreateDispatcher(argCount)
Xiiph@0 49 local code = [[
Xiiph@0 50 local xpcall, eh = ...
Xiiph@0 51 local method, ARGS
Xiiph@0 52 local function call() return method(ARGS) end
Xiiph@0 53
Xiiph@0 54 local function dispatch(func, ...)
Xiiph@0 55 method = func
Xiiph@0 56 if not method then return end
Xiiph@0 57 ARGS = ...
Xiiph@0 58 return xpcall(call, eh)
Xiiph@0 59 end
Xiiph@0 60
Xiiph@0 61 return dispatch
Xiiph@0 62 ]]
Xiiph@0 63
Xiiph@0 64 local ARGS = {}
Xiiph@0 65 for i = 1, argCount do ARGS[i] = "arg"..i end
Xiiph@0 66 code = code:gsub("ARGS", tconcat(ARGS, ", "))
Xiiph@0 67 return assert(loadstring(code, "safecall Dispatcher["..argCount.."]"))(xpcall, errorhandler)
Xiiph@0 68 end
Xiiph@0 69
Xiiph@0 70 local Dispatchers = setmetatable({}, {__index=function(self, argCount)
Xiiph@0 71 local dispatcher = CreateDispatcher(argCount)
Xiiph@0 72 rawset(self, argCount, dispatcher)
Xiiph@0 73 return dispatcher
Xiiph@0 74 end})
Xiiph@0 75 Dispatchers[0] = function(func)
Xiiph@0 76 return xpcall(func, errorhandler)
Xiiph@0 77 end
Xiiph@0 78
Xiiph@0 79 local function safecall(func, ...)
Xiiph@0 80 return Dispatchers[select("#", ...)](func, ...)
Xiiph@0 81 end
Xiiph@0 82
Xiiph@0 83 local width_multiplier = 170
Xiiph@0 84
Xiiph@0 85 --[[
Xiiph@0 86 Group Types
Xiiph@0 87 Tree - All Descendant Groups will all become nodes on the tree, direct child options will appear above the tree
Xiiph@0 88 - Descendant Groups with inline=true and thier children will not become nodes
Xiiph@0 89
Xiiph@0 90 Tab - Direct Child Groups will become tabs, direct child options will appear above the tab control
Xiiph@0 91 - Grandchild groups will default to inline unless specified otherwise
Xiiph@0 92
Xiiph@0 93 Select- Same as Tab but with entries in a dropdown rather than tabs
Xiiph@0 94
Xiiph@0 95
Xiiph@0 96 Inline Groups
Xiiph@0 97 - Will not become nodes of a select group, they will be effectivly part of thier parent group seperated by a border
Xiiph@0 98 - If declared on a direct child of a root node of a select group, they will appear above the group container control
Xiiph@0 99 - When a group is displayed inline, all descendants will also be inline members of the group
Xiiph@0 100
Xiiph@0 101 ]]
Xiiph@0 102
Xiiph@0 103 -- Recycling functions
Xiiph@0 104 local new, del, copy
Xiiph@0 105 --newcount, delcount,createdcount,cached = 0,0,0
Xiiph@0 106 do
Xiiph@0 107 local pool = setmetatable({},{__mode="k"})
Xiiph@0 108 function new()
Xiiph@0 109 --newcount = newcount + 1
Xiiph@0 110 local t = next(pool)
Xiiph@0 111 if t then
Xiiph@0 112 pool[t] = nil
Xiiph@0 113 return t
Xiiph@0 114 else
Xiiph@0 115 --createdcount = createdcount + 1
Xiiph@0 116 return {}
Xiiph@0 117 end
Xiiph@0 118 end
Xiiph@0 119 function copy(t)
Xiiph@0 120 local c = new()
Xiiph@0 121 for k, v in pairs(t) do
Xiiph@0 122 c[k] = v
Xiiph@0 123 end
Xiiph@0 124 return c
Xiiph@0 125 end
Xiiph@0 126 function del(t)
Xiiph@0 127 --delcount = delcount + 1
Xiiph@0 128 wipe(t)
Xiiph@0 129 pool[t] = true
Xiiph@0 130 end
Xiiph@0 131 -- function cached()
Xiiph@0 132 -- local n = 0
Xiiph@0 133 -- for k in pairs(pool) do
Xiiph@0 134 -- n = n + 1
Xiiph@0 135 -- end
Xiiph@0 136 -- return n
Xiiph@0 137 -- end
Xiiph@0 138 end
Xiiph@0 139
Xiiph@0 140 -- picks the first non-nil value and returns it
Xiiph@0 141 local function pickfirstset(...)
Xiiph@0 142 for i=1,select("#",...) do
Xiiph@0 143 if select(i,...)~=nil then
Xiiph@0 144 return select(i,...)
Xiiph@0 145 end
Xiiph@0 146 end
Xiiph@0 147 end
Xiiph@0 148
Xiiph@0 149 --gets an option from a given group, checking plugins
Xiiph@0 150 local function GetSubOption(group, key)
Xiiph@0 151 if group.plugins then
Xiiph@0 152 for plugin, t in pairs(group.plugins) do
Xiiph@0 153 if t[key] then
Xiiph@0 154 return t[key]
Xiiph@0 155 end
Xiiph@0 156 end
Xiiph@0 157 end
Xiiph@0 158
Xiiph@0 159 return group.args[key]
Xiiph@0 160 end
Xiiph@0 161
Xiiph@0 162 --Option member type definitions, used to decide how to access it
Xiiph@0 163
Xiiph@0 164 --Is the member Inherited from parent options
Xiiph@0 165 local isInherited = {
Xiiph@0 166 set = true,
Xiiph@0 167 get = true,
Xiiph@0 168 func = true,
Xiiph@0 169 confirm = true,
Xiiph@0 170 validate = true,
Xiiph@0 171 disabled = true,
Xiiph@0 172 hidden = true
Xiiph@0 173 }
Xiiph@0 174
Xiiph@0 175 --Does a string type mean a literal value, instead of the default of a method of the handler
Xiiph@0 176 local stringIsLiteral = {
Xiiph@0 177 name = true,
Xiiph@0 178 desc = true,
Xiiph@0 179 icon = true,
Xiiph@0 180 usage = true,
Xiiph@0 181 width = true,
Xiiph@0 182 image = true,
Xiiph@0 183 fontSize = true,
Xiiph@0 184 }
Xiiph@0 185
Xiiph@0 186 --Is Never a function or method
Xiiph@0 187 local allIsLiteral = {
Xiiph@0 188 type = true,
Xiiph@0 189 descStyle = true,
Xiiph@0 190 imageWidth = true,
Xiiph@0 191 imageHeight = true,
Xiiph@0 192 }
Xiiph@0 193
Xiiph@0 194 --gets the value for a member that could be a function
Xiiph@0 195 --function refs are called with an info arg
Xiiph@0 196 --every other type is returned
Xiiph@0 197 local function GetOptionsMemberValue(membername, option, options, path, appName, ...)
Xiiph@0 198 --get definition for the member
Xiiph@0 199 local inherits = isInherited[membername]
Xiiph@0 200
Xiiph@0 201
Xiiph@0 202 --get the member of the option, traversing the tree if it can be inherited
Xiiph@0 203 local member
Xiiph@0 204
Xiiph@0 205 if inherits then
Xiiph@0 206 local group = options
Xiiph@0 207 if group[membername] ~= nil then
Xiiph@0 208 member = group[membername]
Xiiph@0 209 end
Xiiph@0 210 for i = 1, #path do
Xiiph@0 211 group = GetSubOption(group, path[i])
Xiiph@0 212 if group[membername] ~= nil then
Xiiph@0 213 member = group[membername]
Xiiph@0 214 end
Xiiph@0 215 end
Xiiph@0 216 else
Xiiph@0 217 member = option[membername]
Xiiph@0 218 end
Xiiph@0 219
Xiiph@0 220 --check if we need to call a functon, or if we have a literal value
Xiiph@0 221 if ( not allIsLiteral[membername] ) and ( type(member) == "function" or ((not stringIsLiteral[membername]) and type(member) == "string") ) then
Xiiph@0 222 --We have a function to call
Xiiph@0 223 local info = new()
Xiiph@0 224 --traverse the options table, picking up the handler and filling the info with the path
Xiiph@0 225 local handler
Xiiph@0 226 local group = options
Xiiph@0 227 handler = group.handler or handler
Xiiph@0 228
Xiiph@0 229 for i = 1, #path do
Xiiph@0 230 group = GetSubOption(group, path[i])
Xiiph@0 231 info[i] = path[i]
Xiiph@0 232 handler = group.handler or handler
Xiiph@0 233 end
Xiiph@0 234
Xiiph@0 235 info.options = options
Xiiph@0 236 info.appName = appName
Xiiph@0 237 info[0] = appName
Xiiph@0 238 info.arg = option.arg
Xiiph@0 239 info.handler = handler
Xiiph@0 240 info.option = option
Xiiph@0 241 info.type = option.type
Xiiph@0 242 info.uiType = "dialog"
Xiiph@0 243 info.uiName = MAJOR
Xiiph@0 244
Xiiph@0 245 local a, b, c ,d
Xiiph@0 246 --using 4 returns for the get of a color type, increase if a type needs more
Xiiph@0 247 if type(member) == "function" then
Xiiph@0 248 --Call the function
Xiiph@0 249 a,b,c,d = member(info, ...)
Xiiph@0 250 else
Xiiph@0 251 --Call the method
Xiiph@0 252 if handler and handler[member] then
Xiiph@0 253 a,b,c,d = handler[member](handler, info, ...)
Xiiph@0 254 else
Xiiph@0 255 error(format("Method %s doesn't exist in handler for type %s", member, membername))
Xiiph@0 256 end
Xiiph@0 257 end
Xiiph@0 258 del(info)
Xiiph@0 259 return a,b,c,d
Xiiph@0 260 else
Xiiph@0 261 --The value isnt a function to call, return it
Xiiph@0 262 return member
Xiiph@0 263 end
Xiiph@0 264 end
Xiiph@0 265
Xiiph@0 266 --[[calls an options function that could be inherited, method name or function ref
Xiiph@0 267 local function CallOptionsFunction(funcname ,option, options, path, appName, ...)
Xiiph@0 268 local info = new()
Xiiph@0 269
Xiiph@0 270 local func
Xiiph@0 271 local group = options
Xiiph@0 272 local handler
Xiiph@0 273
Xiiph@0 274 --build the info table containing the path
Xiiph@0 275 -- pick up functions while traversing the tree
Xiiph@0 276 if group[funcname] ~= nil then
Xiiph@0 277 func = group[funcname]
Xiiph@0 278 end
Xiiph@0 279 handler = group.handler or handler
Xiiph@0 280
Xiiph@0 281 for i, v in ipairs(path) do
Xiiph@0 282 group = GetSubOption(group, v)
Xiiph@0 283 info[i] = v
Xiiph@0 284 if group[funcname] ~= nil then
Xiiph@0 285 func = group[funcname]
Xiiph@0 286 end
Xiiph@0 287 handler = group.handler or handler
Xiiph@0 288 end
Xiiph@0 289
Xiiph@0 290 info.options = options
Xiiph@0 291 info[0] = appName
Xiiph@0 292 info.arg = option.arg
Xiiph@0 293
Xiiph@0 294 local a, b, c ,d
Xiiph@0 295 if type(func) == "string" then
Xiiph@0 296 if handler and handler[func] then
Xiiph@0 297 a,b,c,d = handler[func](handler, info, ...)
Xiiph@0 298 else
Xiiph@0 299 error(string.format("Method %s doesn't exist in handler for type func", func))
Xiiph@0 300 end
Xiiph@0 301 elseif type(func) == "function" then
Xiiph@0 302 a,b,c,d = func(info, ...)
Xiiph@0 303 end
Xiiph@0 304 del(info)
Xiiph@0 305 return a,b,c,d
Xiiph@0 306 end
Xiiph@0 307 --]]
Xiiph@0 308
Xiiph@0 309 --tables to hold orders and names for options being sorted, will be created with new()
Xiiph@0 310 --prevents needing to call functions repeatedly while sorting
Xiiph@0 311 local tempOrders
Xiiph@0 312 local tempNames
Xiiph@0 313
Xiiph@0 314 local function compareOptions(a,b)
Xiiph@0 315 if not a then
Xiiph@0 316 return true
Xiiph@0 317 end
Xiiph@0 318 if not b then
Xiiph@0 319 return false
Xiiph@0 320 end
Xiiph@0 321 local OrderA, OrderB = tempOrders[a] or 100, tempOrders[b] or 100
Xiiph@0 322 if OrderA == OrderB then
Xiiph@0 323 local NameA = (type(tempNames[a]) == "string") and tempNames[a] or ""
Xiiph@0 324 local NameB = (type(tempNames[b]) == "string") and tempNames[b] or ""
Xiiph@0 325 return NameA:upper() < NameB:upper()
Xiiph@0 326 end
Xiiph@0 327 if OrderA < 0 then
Xiiph@0 328 if OrderB > 0 then
Xiiph@0 329 return false
Xiiph@0 330 end
Xiiph@0 331 else
Xiiph@0 332 if OrderB < 0 then
Xiiph@0 333 return true
Xiiph@0 334 end
Xiiph@0 335 end
Xiiph@0 336 return OrderA < OrderB
Xiiph@0 337 end
Xiiph@0 338
Xiiph@0 339
Xiiph@0 340
Xiiph@0 341 --builds 2 tables out of an options group
Xiiph@0 342 -- keySort, sorted keys
Xiiph@0 343 -- opts, combined options from .plugins and args
Xiiph@0 344 local function BuildSortedOptionsTable(group, keySort, opts, options, path, appName)
Xiiph@0 345 tempOrders = new()
Xiiph@0 346 tempNames = new()
Xiiph@0 347
Xiiph@0 348 if group.plugins then
Xiiph@0 349 for plugin, t in pairs(group.plugins) do
Xiiph@0 350 for k, v in pairs(t) do
Xiiph@0 351 if not opts[k] then
Xiiph@0 352 tinsert(keySort, k)
Xiiph@0 353 opts[k] = v
Xiiph@0 354
Xiiph@0 355 path[#path+1] = k
Xiiph@0 356 tempOrders[k] = GetOptionsMemberValue("order", v, options, path, appName)
Xiiph@0 357 tempNames[k] = GetOptionsMemberValue("name", v, options, path, appName)
Xiiph@0 358 path[#path] = nil
Xiiph@0 359 end
Xiiph@0 360 end
Xiiph@0 361 end
Xiiph@0 362 end
Xiiph@0 363
Xiiph@0 364 for k, v in pairs(group.args) do
Xiiph@0 365 if not opts[k] then
Xiiph@0 366 tinsert(keySort, k)
Xiiph@0 367 opts[k] = v
Xiiph@0 368
Xiiph@0 369 path[#path+1] = k
Xiiph@0 370 tempOrders[k] = GetOptionsMemberValue("order", v, options, path, appName)
Xiiph@0 371 tempNames[k] = GetOptionsMemberValue("name", v, options, path, appName)
Xiiph@0 372 path[#path] = nil
Xiiph@0 373 end
Xiiph@0 374 end
Xiiph@0 375
Xiiph@0 376 tsort(keySort, compareOptions)
Xiiph@0 377
Xiiph@0 378 del(tempOrders)
Xiiph@0 379 del(tempNames)
Xiiph@0 380 end
Xiiph@0 381
Xiiph@0 382 local function DelTree(tree)
Xiiph@0 383 if tree.children then
Xiiph@0 384 local childs = tree.children
Xiiph@0 385 for i = 1, #childs do
Xiiph@0 386 DelTree(childs[i])
Xiiph@0 387 del(childs[i])
Xiiph@0 388 end
Xiiph@0 389 del(childs)
Xiiph@0 390 end
Xiiph@0 391 end
Xiiph@0 392
Xiiph@0 393 local function CleanUserData(widget, event)
Xiiph@0 394
Xiiph@0 395 local user = widget:GetUserDataTable()
Xiiph@0 396
Xiiph@0 397 if user.path then
Xiiph@0 398 del(user.path)
Xiiph@0 399 end
Xiiph@0 400
Xiiph@0 401 if widget.type == "TreeGroup" then
Xiiph@0 402 local tree = user.tree
Xiiph@0 403 widget:SetTree(nil)
Xiiph@0 404 if tree then
Xiiph@0 405 for i = 1, #tree do
Xiiph@0 406 DelTree(tree[i])
Xiiph@0 407 del(tree[i])
Xiiph@0 408 end
Xiiph@0 409 del(tree)
Xiiph@0 410 end
Xiiph@0 411 end
Xiiph@0 412
Xiiph@0 413 if widget.type == "TabGroup" then
Xiiph@0 414 widget:SetTabs(nil)
Xiiph@0 415 if user.tablist then
Xiiph@0 416 del(user.tablist)
Xiiph@0 417 end
Xiiph@0 418 end
Xiiph@0 419
Xiiph@0 420 if widget.type == "DropdownGroup" then
Xiiph@0 421 widget:SetGroupList(nil)
Xiiph@0 422 if user.grouplist then
Xiiph@0 423 del(user.grouplist)
Xiiph@0 424 end
Xiiph@0 425 if user.orderlist then
Xiiph@0 426 del(user.orderlist)
Xiiph@0 427 end
Xiiph@0 428 end
Xiiph@0 429 end
Xiiph@0 430
Xiiph@0 431 -- - Gets a status table for the given appname and options path.
Xiiph@0 432 -- @param appName The application name as given to `:RegisterOptionsTable()`
Xiiph@0 433 -- @param path The path to the options (a table with all group keys)
Xiiph@0 434 -- @return
Xiiph@0 435 function AceConfigDialog:GetStatusTable(appName, path)
Xiiph@0 436 local status = self.Status
Xiiph@0 437
Xiiph@0 438 if not status[appName] then
Xiiph@0 439 status[appName] = {}
Xiiph@0 440 status[appName].status = {}
Xiiph@0 441 status[appName].children = {}
Xiiph@0 442 end
Xiiph@0 443
Xiiph@0 444 status = status[appName]
Xiiph@0 445
Xiiph@0 446 if path then
Xiiph@0 447 for i = 1, #path do
Xiiph@0 448 local v = path[i]
Xiiph@0 449 if not status.children[v] then
Xiiph@0 450 status.children[v] = {}
Xiiph@0 451 status.children[v].status = {}
Xiiph@0 452 status.children[v].children = {}
Xiiph@0 453 end
Xiiph@0 454 status = status.children[v]
Xiiph@0 455 end
Xiiph@0 456 end
Xiiph@0 457
Xiiph@0 458 return status.status
Xiiph@0 459 end
Xiiph@0 460
Xiiph@0 461 --- Selects the specified path in the options window.
Xiiph@0 462 -- The path specified has to match the keys of the groups in the table.
Xiiph@0 463 -- @param appName The application name as given to `:RegisterOptionsTable()`
Xiiph@0 464 -- @param ... The path to the key that should be selected
Xiiph@0 465 function AceConfigDialog:SelectGroup(appName, ...)
Xiiph@0 466 local path = new()
Xiiph@0 467
Xiiph@0 468
Xiiph@0 469 local app = reg:GetOptionsTable(appName)
Xiiph@0 470 if not app then
Xiiph@0 471 error(("%s isn't registed with AceConfigRegistry, unable to open config"):format(appName), 2)
Xiiph@0 472 end
Xiiph@0 473 local options = app("dialog", MAJOR)
Xiiph@0 474 local group = options
Xiiph@0 475 local status = self:GetStatusTable(appName, path)
Xiiph@0 476 if not status.groups then
Xiiph@0 477 status.groups = {}
Xiiph@0 478 end
Xiiph@0 479 status = status.groups
Xiiph@0 480 local treevalue
Xiiph@0 481 local treestatus
Xiiph@0 482
Xiiph@0 483 for n = 1, select("#",...) do
Xiiph@0 484 local key = select(n, ...)
Xiiph@0 485
Xiiph@0 486 if group.childGroups == "tab" or group.childGroups == "select" then
Xiiph@0 487 --if this is a tab or select group, select the group
Xiiph@0 488 status.selected = key
Xiiph@0 489 --children of this group are no longer extra levels of a tree
Xiiph@0 490 treevalue = nil
Xiiph@0 491 else
Xiiph@0 492 --tree group by default
Xiiph@0 493 if treevalue then
Xiiph@0 494 --this is an extra level of a tree group, build a uniquevalue for it
Xiiph@0 495 treevalue = treevalue.."\001"..key
Xiiph@0 496 else
Xiiph@0 497 --this is the top level of a tree group, the uniquevalue is the same as the key
Xiiph@0 498 treevalue = key
Xiiph@0 499 if not status.groups then
Xiiph@0 500 status.groups = {}
Xiiph@0 501 end
Xiiph@0 502 --save this trees status table for any extra levels or groups
Xiiph@0 503 treestatus = status
Xiiph@0 504 end
Xiiph@0 505 --make sure that the tree entry is open, and select it.
Xiiph@0 506 --the selected group will be overwritten if a child is the final target but still needs to be open
Xiiph@0 507 treestatus.selected = treevalue
Xiiph@0 508 treestatus.groups[treevalue] = true
Xiiph@0 509
Xiiph@0 510 end
Xiiph@0 511
Xiiph@0 512 --move to the next group in the path
Xiiph@0 513 group = GetSubOption(group, key)
Xiiph@0 514 if not group then
Xiiph@0 515 break
Xiiph@0 516 end
Xiiph@0 517 tinsert(path, key)
Xiiph@0 518 status = self:GetStatusTable(appName, path)
Xiiph@0 519 if not status.groups then
Xiiph@0 520 status.groups = {}
Xiiph@0 521 end
Xiiph@0 522 status = status.groups
Xiiph@0 523 end
Xiiph@0 524
Xiiph@0 525 del(path)
Xiiph@0 526 reg:NotifyChange(appName)
Xiiph@0 527 end
Xiiph@0 528
Xiiph@0 529 local function OptionOnMouseOver(widget, event)
Xiiph@0 530 --show a tooltip/set the status bar to the desc text
Xiiph@0 531 local user = widget:GetUserDataTable()
Xiiph@0 532 local opt = user.option
Xiiph@0 533 local options = user.options
Xiiph@0 534 local path = user.path
Xiiph@0 535 local appName = user.appName
Xiiph@0 536
Xiiph@0 537 GameTooltip:SetOwner(widget.frame, "ANCHOR_TOPRIGHT")
Xiiph@0 538 local name = GetOptionsMemberValue("name", opt, options, path, appName)
Xiiph@0 539 local desc = GetOptionsMemberValue("desc", opt, options, path, appName)
Xiiph@0 540 local usage = GetOptionsMemberValue("usage", opt, options, path, appName)
Xiiph@0 541 local descStyle = opt.descStyle
Xiiph@0 542
Xiiph@0 543 if descStyle and descStyle ~= "tooltip" then return end
Xiiph@0 544
Xiiph@0 545 GameTooltip:SetText(name, 1, .82, 0, 1)
Xiiph@0 546
Xiiph@0 547 if opt.type == "multiselect" then
Xiiph@0 548 GameTooltip:AddLine(user.text,0.5, 0.5, 0.8, 1)
Xiiph@0 549 end
Xiiph@0 550 if type(desc) == "string" then
Xiiph@0 551 GameTooltip:AddLine(desc, 1, 1, 1, 1)
Xiiph@0 552 end
Xiiph@0 553 if type(usage) == "string" then
Xiiph@0 554 GameTooltip:AddLine("Usage: "..usage, NORMAL_FONT_COLOR.r, NORMAL_FONT_COLOR.g, NORMAL_FONT_COLOR.b, 1)
Xiiph@0 555 end
Xiiph@0 556
Xiiph@0 557 GameTooltip:Show()
Xiiph@0 558 end
Xiiph@0 559
Xiiph@0 560 local function OptionOnMouseLeave(widget, event)
Xiiph@0 561 GameTooltip:Hide()
Xiiph@0 562 end
Xiiph@0 563
Xiiph@0 564 local function GetFuncName(option)
Xiiph@0 565 local type = option.type
Xiiph@0 566 if type == "execute" then
Xiiph@0 567 return "func"
Xiiph@0 568 else
Xiiph@0 569 return "set"
Xiiph@0 570 end
Xiiph@0 571 end
Xiiph@0 572 local function confirmPopup(appName, rootframe, basepath, info, message, func, ...)
Xiiph@0 573 if not StaticPopupDialogs["ACECONFIGDIALOG30_CONFIRM_DIALOG"] then
Xiiph@0 574 StaticPopupDialogs["ACECONFIGDIALOG30_CONFIRM_DIALOG"] = {}
Xiiph@0 575 end
Xiiph@0 576 local t = StaticPopupDialogs["ACECONFIGDIALOG30_CONFIRM_DIALOG"]
Xiiph@0 577 for k in pairs(t) do
Xiiph@0 578 t[k] = nil
Xiiph@0 579 end
Xiiph@0 580 t.text = message
Xiiph@0 581 t.button1 = ACCEPT
Xiiph@0 582 t.button2 = CANCEL
Xiiph@0 583 local dialog, oldstrata
Xiiph@0 584 t.OnAccept = function()
Xiiph@0 585 safecall(func, unpack(t))
Xiiph@0 586 if dialog and oldstrata then
Xiiph@0 587 dialog:SetFrameStrata(oldstrata)
Xiiph@0 588 end
Xiiph@0 589 AceConfigDialog:Open(appName, rootframe, unpack(basepath or emptyTbl))
Xiiph@0 590 del(info)
Xiiph@0 591 end
Xiiph@0 592 t.OnCancel = function()
Xiiph@0 593 if dialog and oldstrata then
Xiiph@0 594 dialog:SetFrameStrata(oldstrata)
Xiiph@0 595 end
Xiiph@0 596 AceConfigDialog:Open(appName, rootframe, unpack(basepath or emptyTbl))
Xiiph@0 597 del(info)
Xiiph@0 598 end
Xiiph@0 599 for i = 1, select("#", ...) do
Xiiph@0 600 t[i] = select(i, ...) or false
Xiiph@0 601 end
Xiiph@0 602 t.timeout = 0
Xiiph@0 603 t.whileDead = 1
Xiiph@0 604 t.hideOnEscape = 1
Xiiph@0 605
Xiiph@0 606 dialog = StaticPopup_Show("ACECONFIGDIALOG30_CONFIRM_DIALOG")
Xiiph@0 607 if dialog then
Xiiph@0 608 oldstrata = dialog:GetFrameStrata()
Xiiph@0 609 dialog:SetFrameStrata("TOOLTIP")
Xiiph@0 610 end
Xiiph@0 611 end
Xiiph@0 612
Xiiph@0 613 local function ActivateControl(widget, event, ...)
Xiiph@0 614 --This function will call the set / execute handler for the widget
Xiiph@0 615 --widget:GetUserDataTable() contains the needed info
Xiiph@0 616 local user = widget:GetUserDataTable()
Xiiph@0 617 local option = user.option
Xiiph@0 618 local options = user.options
Xiiph@0 619 local path = user.path
Xiiph@0 620 local info = new()
Xiiph@0 621
Xiiph@0 622 local func
Xiiph@0 623 local group = options
Xiiph@0 624 local funcname = GetFuncName(option)
Xiiph@0 625 local handler
Xiiph@0 626 local confirm
Xiiph@0 627 local validate
Xiiph@0 628 --build the info table containing the path
Xiiph@0 629 -- pick up functions while traversing the tree
Xiiph@0 630 if group[funcname] ~= nil then
Xiiph@0 631 func = group[funcname]
Xiiph@0 632 end
Xiiph@0 633 handler = group.handler or handler
Xiiph@0 634 confirm = group.confirm
Xiiph@0 635 validate = group.validate
Xiiph@0 636 for i = 1, #path do
Xiiph@0 637 local v = path[i]
Xiiph@0 638 group = GetSubOption(group, v)
Xiiph@0 639 info[i] = v
Xiiph@0 640 if group[funcname] ~= nil then
Xiiph@0 641 func = group[funcname]
Xiiph@0 642 end
Xiiph@0 643 handler = group.handler or handler
Xiiph@0 644 if group.confirm ~= nil then
Xiiph@0 645 confirm = group.confirm
Xiiph@0 646 end
Xiiph@0 647 if group.validate ~= nil then
Xiiph@0 648 validate = group.validate
Xiiph@0 649 end
Xiiph@0 650 end
Xiiph@0 651
Xiiph@0 652 info.options = options
Xiiph@0 653 info.appName = user.appName
Xiiph@0 654 info.arg = option.arg
Xiiph@0 655 info.handler = handler
Xiiph@0 656 info.option = option
Xiiph@0 657 info.type = option.type
Xiiph@0 658 info.uiType = "dialog"
Xiiph@0 659 info.uiName = MAJOR
Xiiph@0 660
Xiiph@0 661 local name
Xiiph@0 662 if type(option.name) == "function" then
Xiiph@0 663 name = option.name(info)
Xiiph@0 664 elseif type(option.name) == "string" then
Xiiph@0 665 name = option.name
Xiiph@0 666 else
Xiiph@0 667 name = ""
Xiiph@0 668 end
Xiiph@0 669 local usage = option.usage
Xiiph@0 670 local pattern = option.pattern
Xiiph@0 671
Xiiph@0 672 local validated = true
Xiiph@0 673
Xiiph@0 674 if option.type == "input" then
Xiiph@0 675 if type(pattern)=="string" then
Xiiph@0 676 if not strmatch(..., pattern) then
Xiiph@0 677 validated = false
Xiiph@0 678 end
Xiiph@0 679 end
Xiiph@0 680 end
Xiiph@0 681
Xiiph@0 682 local success
Xiiph@0 683 if validated and option.type ~= "execute" then
Xiiph@0 684 if type(validate) == "string" then
Xiiph@0 685 if handler and handler[validate] then
Xiiph@0 686 success, validated = safecall(handler[validate], handler, info, ...)
Xiiph@0 687 if not success then validated = false end
Xiiph@0 688 else
Xiiph@0 689 error(format("Method %s doesn't exist in handler for type execute", validate))
Xiiph@0 690 end
Xiiph@0 691 elseif type(validate) == "function" then
Xiiph@0 692 success, validated = safecall(validate, info, ...)
Xiiph@0 693 if not success then validated = false end
Xiiph@0 694 end
Xiiph@0 695 end
Xiiph@0 696
Xiiph@0 697 local rootframe = user.rootframe
Xiiph@0 698 if type(validated) == "string" then
Xiiph@0 699 --validate function returned a message to display
Xiiph@0 700 if rootframe.SetStatusText then
Xiiph@0 701 rootframe:SetStatusText(validated)
Xiiph@0 702 else
Xiiph@0 703 -- TODO: do something else.
Xiiph@0 704 end
Xiiph@0 705 PlaySound("igPlayerInviteDecline")
Xiiph@0 706 del(info)
Xiiph@0 707 return true
Xiiph@0 708 elseif not validated then
Xiiph@0 709 --validate returned false
Xiiph@0 710 if rootframe.SetStatusText then
Xiiph@0 711 if usage then
Xiiph@0 712 rootframe:SetStatusText(name..": "..usage)
Xiiph@0 713 else
Xiiph@0 714 if pattern then
Xiiph@0 715 rootframe:SetStatusText(name..": Expected "..pattern)
Xiiph@0 716 else
Xiiph@0 717 rootframe:SetStatusText(name..": Invalid Value")
Xiiph@0 718 end
Xiiph@0 719 end
Xiiph@0 720 else
Xiiph@0 721 -- TODO: do something else
Xiiph@0 722 end
Xiiph@0 723 PlaySound("igPlayerInviteDecline")
Xiiph@0 724 del(info)
Xiiph@0 725 return true
Xiiph@0 726 else
Xiiph@0 727
Xiiph@0 728 local confirmText = option.confirmText
Xiiph@0 729 --call confirm func/method
Xiiph@0 730 if type(confirm) == "string" then
Xiiph@0 731 if handler and handler[confirm] then
Xiiph@0 732 success, confirm = safecall(handler[confirm], handler, info, ...)
Xiiph@0 733 if success and type(confirm) == "string" then
Xiiph@0 734 confirmText = confirm
Xiiph@0 735 confirm = true
Xiiph@0 736 elseif not success then
Xiiph@0 737 confirm = false
Xiiph@0 738 end
Xiiph@0 739 else
Xiiph@0 740 error(format("Method %s doesn't exist in handler for type confirm", confirm))
Xiiph@0 741 end
Xiiph@0 742 elseif type(confirm) == "function" then
Xiiph@0 743 success, confirm = safecall(confirm, info, ...)
Xiiph@0 744 if success and type(confirm) == "string" then
Xiiph@0 745 confirmText = confirm
Xiiph@0 746 confirm = true
Xiiph@0 747 elseif not success then
Xiiph@0 748 confirm = false
Xiiph@0 749 end
Xiiph@0 750 end
Xiiph@0 751
Xiiph@0 752 --confirm if needed
Xiiph@0 753 if type(confirm) == "boolean" then
Xiiph@0 754 if confirm then
Xiiph@0 755 if not confirmText then
Xiiph@0 756 local name, desc = option.name, option.desc
Xiiph@0 757 if type(name) == "function" then
Xiiph@0 758 name = name(info)
Xiiph@0 759 end
Xiiph@0 760 if type(desc) == "function" then
Xiiph@0 761 desc = desc(info)
Xiiph@0 762 end
Xiiph@0 763 confirmText = name
Xiiph@0 764 if desc then
Xiiph@0 765 confirmText = confirmText.." - "..desc
Xiiph@0 766 end
Xiiph@0 767 end
Xiiph@0 768
Xiiph@0 769 local iscustom = user.rootframe:GetUserData("iscustom")
Xiiph@0 770 local rootframe
Xiiph@0 771
Xiiph@0 772 if iscustom then
Xiiph@0 773 rootframe = user.rootframe
Xiiph@0 774 end
Xiiph@0 775 local basepath = user.rootframe:GetUserData("basepath")
Xiiph@0 776 if type(func) == "string" then
Xiiph@0 777 if handler and handler[func] then
Xiiph@0 778 confirmPopup(user.appName, rootframe, basepath, info, confirmText, handler[func], handler, info, ...)
Xiiph@0 779 else
Xiiph@0 780 error(format("Method %s doesn't exist in handler for type func", func))
Xiiph@0 781 end
Xiiph@0 782 elseif type(func) == "function" then
Xiiph@0 783 confirmPopup(user.appName, rootframe, basepath, info, confirmText, func, info, ...)
Xiiph@0 784 end
Xiiph@0 785 --func will be called and info deleted when the confirm dialog is responded to
Xiiph@0 786 return
Xiiph@0 787 end
Xiiph@0 788 end
Xiiph@0 789
Xiiph@0 790 --call the function
Xiiph@0 791 if type(func) == "string" then
Xiiph@0 792 if handler and handler[func] then
Xiiph@0 793 safecall(handler[func],handler, info, ...)
Xiiph@0 794 else
Xiiph@0 795 error(format("Method %s doesn't exist in handler for type func", func))
Xiiph@0 796 end
Xiiph@0 797 elseif type(func) == "function" then
Xiiph@0 798 safecall(func,info, ...)
Xiiph@0 799 end
Xiiph@0 800
Xiiph@0 801
Xiiph@0 802
Xiiph@0 803 local iscustom = user.rootframe:GetUserData("iscustom")
Xiiph@0 804 local basepath = user.rootframe:GetUserData("basepath") or emptyTbl
Xiiph@0 805 --full refresh of the frame, some controls dont cause this on all events
Xiiph@0 806 if option.type == "color" then
Xiiph@0 807 if event == "OnValueConfirmed" then
Xiiph@0 808
Xiiph@0 809 if iscustom then
Xiiph@0 810 AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath))
Xiiph@0 811 else
Xiiph@0 812 AceConfigDialog:Open(user.appName, unpack(basepath))
Xiiph@0 813 end
Xiiph@0 814 end
Xiiph@0 815 elseif option.type == "range" then
Xiiph@0 816 if event == "OnMouseUp" then
Xiiph@0 817 if iscustom then
Xiiph@0 818 AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath))
Xiiph@0 819 else
Xiiph@0 820 AceConfigDialog:Open(user.appName, unpack(basepath))
Xiiph@0 821 end
Xiiph@0 822 end
Xiiph@0 823 --multiselects don't cause a refresh on 'OnValueChanged' only 'OnClosed'
Xiiph@0 824 elseif option.type == "multiselect" then
Xiiph@0 825 user.valuechanged = true
Xiiph@0 826 else
Xiiph@0 827 if iscustom then
Xiiph@0 828 AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath))
Xiiph@0 829 else
Xiiph@0 830 AceConfigDialog:Open(user.appName, unpack(basepath))
Xiiph@0 831 end
Xiiph@0 832 end
Xiiph@0 833
Xiiph@0 834 end
Xiiph@0 835 del(info)
Xiiph@0 836 end
Xiiph@0 837
Xiiph@0 838 local function ActivateSlider(widget, event, value)
Xiiph@0 839 local option = widget:GetUserData("option")
Xiiph@0 840 local min, max, step = option.min or (not option.softMin and 0 or nil), option.max or (not option.softMax and 100 or nil), option.step
Xiiph@0 841 if min then
Xiiph@0 842 if step then
Xiiph@0 843 value = math_floor((value - min) / step + 0.5) * step + min
Xiiph@0 844 end
Xiiph@0 845 value = math_max(value, min)
Xiiph@0 846 end
Xiiph@0 847 if max then
Xiiph@0 848 value = math_min(value, max)
Xiiph@0 849 end
Xiiph@0 850 ActivateControl(widget,event,value)
Xiiph@0 851 end
Xiiph@0 852
Xiiph@0 853 --called from a checkbox that is part of an internally created multiselect group
Xiiph@0 854 --this type is safe to refresh on activation of one control
Xiiph@0 855 local function ActivateMultiControl(widget, event, ...)
Xiiph@0 856 ActivateControl(widget, event, widget:GetUserData("value"), ...)
Xiiph@0 857 local user = widget:GetUserDataTable()
Xiiph@0 858 local iscustom = user.rootframe:GetUserData("iscustom")
Xiiph@0 859 local basepath = user.rootframe:GetUserData("basepath") or emptyTbl
Xiiph@0 860 if iscustom then
Xiiph@0 861 AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath))
Xiiph@0 862 else
Xiiph@0 863 AceConfigDialog:Open(user.appName, unpack(basepath))
Xiiph@0 864 end
Xiiph@0 865 end
Xiiph@0 866
Xiiph@0 867 local function MultiControlOnClosed(widget, event, ...)
Xiiph@0 868 local user = widget:GetUserDataTable()
Xiiph@0 869 if user.valuechanged then
Xiiph@0 870 local iscustom = user.rootframe:GetUserData("iscustom")
Xiiph@0 871 local basepath = user.rootframe:GetUserData("basepath") or emptyTbl
Xiiph@0 872 if iscustom then
Xiiph@0 873 AceConfigDialog:Open(user.appName, user.rootframe, unpack(basepath))
Xiiph@0 874 else
Xiiph@0 875 AceConfigDialog:Open(user.appName, unpack(basepath))
Xiiph@0 876 end
Xiiph@0 877 end
Xiiph@0 878 end
Xiiph@0 879
Xiiph@0 880 local function FrameOnClose(widget, event)
Xiiph@0 881 local appName = widget:GetUserData("appName")
Xiiph@0 882 AceConfigDialog.OpenFrames[appName] = nil
Xiiph@0 883 gui:Release(widget)
Xiiph@0 884 end
Xiiph@0 885
Xiiph@0 886 local function CheckOptionHidden(option, options, path, appName)
Xiiph@0 887 --check for a specific boolean option
Xiiph@0 888 local hidden = pickfirstset(option.dialogHidden,option.guiHidden)
Xiiph@0 889 if hidden ~= nil then
Xiiph@0 890 return hidden
Xiiph@0 891 end
Xiiph@0 892
Xiiph@0 893 return GetOptionsMemberValue("hidden", option, options, path, appName)
Xiiph@0 894 end
Xiiph@0 895
Xiiph@0 896 local function CheckOptionDisabled(option, options, path, appName)
Xiiph@0 897 --check for a specific boolean option
Xiiph@0 898 local disabled = pickfirstset(option.dialogDisabled,option.guiDisabled)
Xiiph@0 899 if disabled ~= nil then
Xiiph@0 900 return disabled
Xiiph@0 901 end
Xiiph@0 902
Xiiph@0 903 return GetOptionsMemberValue("disabled", option, options, path, appName)
Xiiph@0 904 end
Xiiph@0 905 --[[
Xiiph@0 906 local function BuildTabs(group, options, path, appName)
Xiiph@0 907 local tabs = new()
Xiiph@0 908 local text = new()
Xiiph@0 909 local keySort = new()
Xiiph@0 910 local opts = new()
Xiiph@0 911
Xiiph@0 912 BuildSortedOptionsTable(group, keySort, opts, options, path, appName)
Xiiph@0 913
Xiiph@0 914 for i = 1, #keySort do
Xiiph@0 915 local k = keySort[i]
Xiiph@0 916 local v = opts[k]
Xiiph@0 917 if v.type == "group" then
Xiiph@0 918 path[#path+1] = k
Xiiph@0 919 local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false)
Xiiph@0 920 local hidden = CheckOptionHidden(v, options, path, appName)
Xiiph@0 921 if not inline and not hidden then
Xiiph@0 922 tinsert(tabs, k)
Xiiph@0 923 text[k] = GetOptionsMemberValue("name", v, options, path, appName)
Xiiph@0 924 end
Xiiph@0 925 path[#path] = nil
Xiiph@0 926 end
Xiiph@0 927 end
Xiiph@0 928
Xiiph@0 929 del(keySort)
Xiiph@0 930 del(opts)
Xiiph@0 931
Xiiph@0 932 return tabs, text
Xiiph@0 933 end
Xiiph@0 934 ]]
Xiiph@0 935 local function BuildSelect(group, options, path, appName)
Xiiph@0 936 local groups = new()
Xiiph@0 937 local order = new()
Xiiph@0 938 local keySort = new()
Xiiph@0 939 local opts = new()
Xiiph@0 940
Xiiph@0 941 BuildSortedOptionsTable(group, keySort, opts, options, path, appName)
Xiiph@0 942
Xiiph@0 943 for i = 1, #keySort do
Xiiph@0 944 local k = keySort[i]
Xiiph@0 945 local v = opts[k]
Xiiph@0 946 if v.type == "group" then
Xiiph@0 947 path[#path+1] = k
Xiiph@0 948 local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false)
Xiiph@0 949 local hidden = CheckOptionHidden(v, options, path, appName)
Xiiph@0 950 if not inline and not hidden then
Xiiph@0 951 groups[k] = GetOptionsMemberValue("name", v, options, path, appName)
Xiiph@0 952 tinsert(order, k)
Xiiph@0 953 end
Xiiph@0 954 path[#path] = nil
Xiiph@0 955 end
Xiiph@0 956 end
Xiiph@0 957
Xiiph@0 958 del(opts)
Xiiph@0 959 del(keySort)
Xiiph@0 960
Xiiph@0 961 return groups, order
Xiiph@0 962 end
Xiiph@0 963
Xiiph@0 964 local function BuildSubGroups(group, tree, options, path, appName)
Xiiph@0 965 local keySort = new()
Xiiph@0 966 local opts = new()
Xiiph@0 967
Xiiph@0 968 BuildSortedOptionsTable(group, keySort, opts, options, path, appName)
Xiiph@0 969
Xiiph@0 970 for i = 1, #keySort do
Xiiph@0 971 local k = keySort[i]
Xiiph@0 972 local v = opts[k]
Xiiph@0 973 if v.type == "group" then
Xiiph@0 974 path[#path+1] = k
Xiiph@0 975 local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false)
Xiiph@0 976 local hidden = CheckOptionHidden(v, options, path, appName)
Xiiph@0 977 if not inline and not hidden then
Xiiph@0 978 local entry = new()
Xiiph@0 979 entry.value = k
Xiiph@0 980 entry.text = GetOptionsMemberValue("name", v, options, path, appName)
Xiiph@0 981 entry.icon = GetOptionsMemberValue("icon", v, options, path, appName)
Xiiph@0 982 entry.iconCoords = GetOptionsMemberValue("iconCoords", v, options, path, appName)
Xiiph@0 983 entry.disabled = CheckOptionDisabled(v, options, path, appName)
Xiiph@0 984 if not tree.children then tree.children = new() end
Xiiph@0 985 tinsert(tree.children,entry)
Xiiph@0 986 if (v.childGroups or "tree") == "tree" then
Xiiph@0 987 BuildSubGroups(v,entry, options, path, appName)
Xiiph@0 988 end
Xiiph@0 989 end
Xiiph@0 990 path[#path] = nil
Xiiph@0 991 end
Xiiph@0 992 end
Xiiph@0 993
Xiiph@0 994 del(keySort)
Xiiph@0 995 del(opts)
Xiiph@0 996 end
Xiiph@0 997
Xiiph@0 998 local function BuildGroups(group, options, path, appName, recurse)
Xiiph@0 999 local tree = new()
Xiiph@0 1000 local keySort = new()
Xiiph@0 1001 local opts = new()
Xiiph@0 1002
Xiiph@0 1003 BuildSortedOptionsTable(group, keySort, opts, options, path, appName)
Xiiph@0 1004
Xiiph@0 1005 for i = 1, #keySort do
Xiiph@0 1006 local k = keySort[i]
Xiiph@0 1007 local v = opts[k]
Xiiph@0 1008 if v.type == "group" then
Xiiph@0 1009 path[#path+1] = k
Xiiph@0 1010 local inline = pickfirstset(v.dialogInline,v.guiInline,v.inline, false)
Xiiph@0 1011 local hidden = CheckOptionHidden(v, options, path, appName)
Xiiph@0 1012 if not inline and not hidden then
Xiiph@0 1013 local entry = new()
Xiiph@0 1014 entry.value = k
Xiiph@0 1015 entry.text = GetOptionsMemberValue("name", v, options, path, appName)
Xiiph@0 1016 entry.icon = GetOptionsMemberValue("icon", v, options, path, appName)
Xiiph@0 1017 entry.disabled = CheckOptionDisabled(v, options, path, appName)
Xiiph@0 1018 tinsert(tree,entry)
Xiiph@0 1019 if recurse and (v.childGroups or "tree") == "tree" then
Xiiph@0 1020 BuildSubGroups(v,entry, options, path, appName)
Xiiph@0 1021 end
Xiiph@0 1022 end
Xiiph@0 1023 path[#path] = nil
Xiiph@0 1024 end
Xiiph@0 1025 end
Xiiph@0 1026 del(keySort)
Xiiph@0 1027 del(opts)
Xiiph@0 1028 return tree
Xiiph@0 1029 end
Xiiph@0 1030
Xiiph@0 1031 local function InjectInfo(control, options, option, path, rootframe, appName)
Xiiph@0 1032 local user = control:GetUserDataTable()
Xiiph@0 1033 for i = 1, #path do
Xiiph@0 1034 user[i] = path[i]
Xiiph@0 1035 end
Xiiph@0 1036 user.rootframe = rootframe
Xiiph@0 1037 user.option = option
Xiiph@0 1038 user.options = options
Xiiph@0 1039 user.path = copy(path)
Xiiph@0 1040 user.appName = appName
Xiiph@0 1041 control:SetCallback("OnRelease", CleanUserData)
Xiiph@0 1042 control:SetCallback("OnLeave", OptionOnMouseLeave)
Xiiph@0 1043 control:SetCallback("OnEnter", OptionOnMouseOver)
Xiiph@0 1044 end
Xiiph@0 1045
Xiiph@0 1046
Xiiph@0 1047 --[[
Xiiph@0 1048 options - root of the options table being fed
Xiiph@0 1049 container - widget that controls will be placed in
Xiiph@0 1050 rootframe - Frame object the options are in
Xiiph@0 1051 path - table with the keys to get to the group being fed
Xiiph@0 1052 --]]
Xiiph@0 1053
Xiiph@0 1054 local function FeedOptions(appName, options,container,rootframe,path,group,inline)
Xiiph@0 1055 local keySort = new()
Xiiph@0 1056 local opts = new()
Xiiph@0 1057
Xiiph@0 1058 BuildSortedOptionsTable(group, keySort, opts, options, path, appName)
Xiiph@0 1059
Xiiph@0 1060 for i = 1, #keySort do
Xiiph@0 1061 local k = keySort[i]
Xiiph@0 1062 local v = opts[k]
Xiiph@0 1063 tinsert(path, k)
Xiiph@0 1064 local hidden = CheckOptionHidden(v, options, path, appName)
Xiiph@0 1065 local name = GetOptionsMemberValue("name", v, options, path, appName)
Xiiph@0 1066 if not hidden then
Xiiph@0 1067 if v.type == "group" then
Xiiph@0 1068 if inline or pickfirstset(v.dialogInline,v.guiInline,v.inline, false) then
Xiiph@0 1069 --Inline group
Xiiph@0 1070 local GroupContainer
Xiiph@0 1071 if name and name ~= "" then
Xiiph@0 1072 GroupContainer = gui:Create("InlineGroup")
Xiiph@0 1073 GroupContainer:SetTitle(name or "")
Xiiph@0 1074 else
Xiiph@0 1075 GroupContainer = gui:Create("SimpleGroup")
Xiiph@0 1076 end
Xiiph@0 1077
Xiiph@0 1078 GroupContainer.width = "fill"
Xiiph@0 1079 GroupContainer:SetLayout("flow")
Xiiph@0 1080 container:AddChild(GroupContainer)
Xiiph@0 1081 FeedOptions(appName,options,GroupContainer,rootframe,path,v,true)
Xiiph@0 1082 end
Xiiph@0 1083 else
Xiiph@0 1084 --Control to feed
Xiiph@0 1085 local control
Xiiph@0 1086
Xiiph@0 1087 local name = GetOptionsMemberValue("name", v, options, path, appName)
Xiiph@0 1088
Xiiph@0 1089 if v.type == "execute" then
Xiiph@0 1090
Xiiph@0 1091 local imageCoords = GetOptionsMemberValue("imageCoords",v, options, path, appName)
Xiiph@0 1092 local image, width, height = GetOptionsMemberValue("image",v, options, path, appName)
Xiiph@0 1093
Xiiph@0 1094 if type(image) == "string" then
Xiiph@0 1095 control = gui:Create("Icon")
Xiiph@0 1096 if not width then
Xiiph@0 1097 width = GetOptionsMemberValue("imageWidth",v, options, path, appName)
Xiiph@0 1098 end
Xiiph@0 1099 if not height then
Xiiph@0 1100 height = GetOptionsMemberValue("imageHeight",v, options, path, appName)
Xiiph@0 1101 end
Xiiph@0 1102 if type(imageCoords) == "table" then
Xiiph@0 1103 control:SetImage(image, unpack(imageCoords))
Xiiph@0 1104 else
Xiiph@0 1105 control:SetImage(image)
Xiiph@0 1106 end
Xiiph@0 1107 if type(width) ~= "number" then
Xiiph@0 1108 width = 32
Xiiph@0 1109 end
Xiiph@0 1110 if type(height) ~= "number" then
Xiiph@0 1111 height = 32
Xiiph@0 1112 end
Xiiph@0 1113 control:SetImageSize(width, height)
Xiiph@0 1114 control:SetLabel(name)
Xiiph@0 1115 else
Xiiph@0 1116 control = gui:Create("Button")
Xiiph@0 1117 control:SetText(name)
Xiiph@0 1118 end
Xiiph@0 1119 control:SetCallback("OnClick",ActivateControl)
Xiiph@0 1120
Xiiph@0 1121 elseif v.type == "input" then
Xiiph@0 1122 local controlType = v.dialogControl or v.control or (v.multiline and "MultiLineEditBox") or "EditBox"
Xiiph@0 1123 control = gui:Create(controlType)
Xiiph@0 1124 if not control then
Xiiph@0 1125 geterrorhandler()(("Invalid Custom Control Type - %s"):format(tostring(controlType)))
Xiiph@0 1126 control = gui:Create(v.multiline and "MultiLineEditBox" or "EditBox")
Xiiph@0 1127 end
Xiiph@0 1128
Xiiph@0 1129 if v.multiline and control.SetNumLines then
Xiiph@0 1130 control:SetNumLines(tonumber(v.multiline) or 4)
Xiiph@0 1131 end
Xiiph@0 1132 control:SetLabel(name)
Xiiph@0 1133 control:SetCallback("OnEnterPressed",ActivateControl)
Xiiph@0 1134 local text = GetOptionsMemberValue("get",v, options, path, appName)
Xiiph@0 1135 if type(text) ~= "string" then
Xiiph@0 1136 text = ""
Xiiph@0 1137 end
Xiiph@0 1138 control:SetText(text)
Xiiph@0 1139
Xiiph@0 1140 elseif v.type == "toggle" then
Xiiph@0 1141 control = gui:Create("CheckBox")
Xiiph@0 1142 control:SetLabel(name)
Xiiph@0 1143 control:SetTriState(v.tristate)
Xiiph@0 1144 local value = GetOptionsMemberValue("get",v, options, path, appName)
Xiiph@0 1145 control:SetValue(value)
Xiiph@0 1146 control:SetCallback("OnValueChanged",ActivateControl)
Xiiph@0 1147
Xiiph@0 1148 if v.descStyle == "inline" then
Xiiph@0 1149 local desc = GetOptionsMemberValue("desc", v, options, path, appName)
Xiiph@0 1150 control:SetDescription(desc)
Xiiph@0 1151 end
Xiiph@0 1152
Xiiph@0 1153 local image = GetOptionsMemberValue("image", v, options, path, appName)
Xiiph@0 1154 local imageCoords = GetOptionsMemberValue("imageCoords", v, options, path, appName)
Xiiph@0 1155
Xiiph@0 1156 if type(image) == "string" then
Xiiph@0 1157 if type(imageCoords) == "table" then
Xiiph@0 1158 control:SetImage(image, unpack(imageCoords))
Xiiph@0 1159 else
Xiiph@0 1160 control:SetImage(image)
Xiiph@0 1161 end
Xiiph@0 1162 end
Xiiph@0 1163 elseif v.type == "range" then
Xiiph@0 1164 control = gui:Create("Slider")
Xiiph@0 1165 control:SetLabel(name)
Xiiph@0 1166 control:SetSliderValues(v.softMin or v.min or 0, v.softMax or v.max or 100, v.bigStep or v.step or 0)
Xiiph@0 1167 control:SetIsPercent(v.isPercent)
Xiiph@0 1168 local value = GetOptionsMemberValue("get",v, options, path, appName)
Xiiph@0 1169 if type(value) ~= "number" then
Xiiph@0 1170 value = 0
Xiiph@0 1171 end
Xiiph@0 1172 control:SetValue(value)
Xiiph@0 1173 control:SetCallback("OnValueChanged",ActivateSlider)
Xiiph@0 1174 control:SetCallback("OnMouseUp",ActivateSlider)
Xiiph@0 1175
Xiiph@0 1176 elseif v.type == "select" then
Xiiph@0 1177 local values = GetOptionsMemberValue("values", v, options, path, appName)
Xiiph@0 1178 if v.style == "radio" then
Xiiph@0 1179 local disabled = CheckOptionDisabled(v, options, path, appName)
Xiiph@0 1180 local width = GetOptionsMemberValue("width",v,options,path,appName)
Xiiph@0 1181 control = gui:Create("InlineGroup")
Xiiph@0 1182 control:SetLayout("Flow")
Xiiph@0 1183 control:SetTitle(name)
Xiiph@0 1184 control.width = "fill"
Xiiph@0 1185
Xiiph@0 1186 control:PauseLayout()
Xiiph@0 1187 local optionValue = GetOptionsMemberValue("get",v, options, path, appName, value)
Xiiph@0 1188 for value, text in pairs(values) do
Xiiph@0 1189 local radio = gui:Create("CheckBox")
Xiiph@0 1190 radio:SetLabel(text)
Xiiph@0 1191 radio:SetUserData("value", value)
Xiiph@0 1192 radio:SetUserData("text", text)
Xiiph@0 1193 radio:SetDisabled(disabled)
Xiiph@0 1194 radio:SetType("radio")
Xiiph@0 1195 radio:SetValue(optionValue == value)
Xiiph@0 1196 radio:SetCallback("OnValueChanged", ActivateMultiControl)
Xiiph@0 1197 InjectInfo(radio, options, v, path, rootframe, appName)
Xiiph@0 1198 control:AddChild(radio)
Xiiph@0 1199 if width == "double" then
Xiiph@0 1200 radio:SetWidth(width_multiplier * 2)
Xiiph@0 1201 elseif width == "half" then
Xiiph@0 1202 radio:SetWidth(width_multiplier / 2)
Xiiph@0 1203 elseif width == "full" then
Xiiph@0 1204 radio.width = "fill"
Xiiph@0 1205 else
Xiiph@0 1206 radio:SetWidth(width_multiplier)
Xiiph@0 1207 end
Xiiph@0 1208 end
Xiiph@0 1209 control:ResumeLayout()
Xiiph@0 1210 control:DoLayout()
Xiiph@0 1211 else
Xiiph@0 1212 local controlType = v.dialogControl or v.control or "Dropdown"
Xiiph@0 1213 control = gui:Create(controlType)
Xiiph@0 1214 if not control then
Xiiph@0 1215 geterrorhandler()(("Invalid Custom Control Type - %s"):format(tostring(controlType)))
Xiiph@0 1216 control = gui:Create("Dropdown")
Xiiph@0 1217 end
Xiiph@0 1218 control:SetLabel(name)
Xiiph@0 1219 control:SetList(values)
Xiiph@0 1220 local value = GetOptionsMemberValue("get",v, options, path, appName)
Xiiph@0 1221 if not values[value] then
Xiiph@0 1222 value = nil
Xiiph@0 1223 end
Xiiph@0 1224 control:SetValue(value)
Xiiph@0 1225 control:SetCallback("OnValueChanged", ActivateControl)
Xiiph@0 1226 end
Xiiph@0 1227
Xiiph@0 1228 elseif v.type == "multiselect" then
Xiiph@0 1229 local values = GetOptionsMemberValue("values", v, options, path, appName)
Xiiph@0 1230 local disabled = CheckOptionDisabled(v, options, path, appName)
Xiiph@0 1231
Xiiph@0 1232 local controlType = v.dialogControl or v.control
Xiiph@0 1233
Xiiph@0 1234 local valuesort = new()
Xiiph@0 1235 if values then
Xiiph@0 1236 for value, text in pairs(values) do
Xiiph@0 1237 tinsert(valuesort, value)
Xiiph@0 1238 end
Xiiph@0 1239 end
Xiiph@0 1240 tsort(valuesort)
Xiiph@0 1241
Xiiph@0 1242 if controlType then
Xiiph@0 1243 control = gui:Create(controlType)
Xiiph@0 1244 if not control then
Xiiph@0 1245 geterrorhandler()(("Invalid Custom Control Type - %s"):format(tostring(controlType)))
Xiiph@0 1246 end
Xiiph@0 1247 end
Xiiph@0 1248 if control then
Xiiph@0 1249 control:SetMultiselect(true)
Xiiph@0 1250 control:SetLabel(name)
Xiiph@0 1251 control:SetList(values)
Xiiph@0 1252 control:SetDisabled(disabled)
Xiiph@0 1253 control:SetCallback("OnValueChanged",ActivateControl)
Xiiph@0 1254 control:SetCallback("OnClosed", MultiControlOnClosed)
Xiiph@0 1255 local width = GetOptionsMemberValue("width",v,options,path,appName)
Xiiph@0 1256 if width == "double" then
Xiiph@0 1257 control:SetWidth(width_multiplier * 2)
Xiiph@0 1258 elseif width == "half" then
Xiiph@0 1259 control:SetWidth(width_multiplier / 2)
Xiiph@0 1260 elseif width == "full" then
Xiiph@0 1261 control.width = "fill"
Xiiph@0 1262 else
Xiiph@0 1263 control:SetWidth(width_multiplier)
Xiiph@0 1264 end
Xiiph@0 1265 --check:SetTriState(v.tristate)
Xiiph@0 1266 for i = 1, #valuesort do
Xiiph@0 1267 local key = valuesort[i]
Xiiph@0 1268 local value = GetOptionsMemberValue("get",v, options, path, appName, key)
Xiiph@0 1269 control:SetItemValue(key,value)
Xiiph@0 1270 end
Xiiph@0 1271 else
Xiiph@0 1272 control = gui:Create("InlineGroup")
Xiiph@0 1273 control:SetLayout("Flow")
Xiiph@0 1274 control:SetTitle(name)
Xiiph@0 1275 control.width = "fill"
Xiiph@0 1276
Xiiph@0 1277 control:PauseLayout()
Xiiph@0 1278 local width = GetOptionsMemberValue("width",v,options,path,appName)
Xiiph@0 1279 for i = 1, #valuesort do
Xiiph@0 1280 local value = valuesort[i]
Xiiph@0 1281 local text = values[value]
Xiiph@0 1282 local check = gui:Create("CheckBox")
Xiiph@0 1283 check:SetLabel(text)
Xiiph@0 1284 check:SetUserData("value", value)
Xiiph@0 1285 check:SetUserData("text", text)
Xiiph@0 1286 check:SetDisabled(disabled)
Xiiph@0 1287 check:SetTriState(v.tristate)
Xiiph@0 1288 check:SetValue(GetOptionsMemberValue("get",v, options, path, appName, value))
Xiiph@0 1289 check:SetCallback("OnValueChanged",ActivateMultiControl)
Xiiph@0 1290 InjectInfo(check, options, v, path, rootframe, appName)
Xiiph@0 1291 control:AddChild(check)
Xiiph@0 1292 if width == "double" then
Xiiph@0 1293 check:SetWidth(width_multiplier * 2)
Xiiph@0 1294 elseif width == "half" then
Xiiph@0 1295 check:SetWidth(width_multiplier / 2)
Xiiph@0 1296 elseif width == "full" then
Xiiph@0 1297 check.width = "fill"
Xiiph@0 1298 else
Xiiph@0 1299 check:SetWidth(width_multiplier)
Xiiph@0 1300 end
Xiiph@0 1301 end
Xiiph@0 1302 control:ResumeLayout()
Xiiph@0 1303 control:DoLayout()
Xiiph@0 1304
Xiiph@0 1305
Xiiph@0 1306 end
Xiiph@0 1307
Xiiph@0 1308 del(valuesort)
Xiiph@0 1309
Xiiph@0 1310 elseif v.type == "color" then
Xiiph@0 1311 control = gui:Create("ColorPicker")
Xiiph@0 1312 control:SetLabel(name)
Xiiph@0 1313 control:SetHasAlpha(v.hasAlpha)
Xiiph@0 1314 control:SetColor(GetOptionsMemberValue("get",v, options, path, appName))
Xiiph@0 1315 control:SetCallback("OnValueChanged",ActivateControl)
Xiiph@0 1316 control:SetCallback("OnValueConfirmed",ActivateControl)
Xiiph@0 1317
Xiiph@0 1318 elseif v.type == "keybinding" then
Xiiph@0 1319 control = gui:Create("Keybinding")
Xiiph@0 1320 control:SetLabel(name)
Xiiph@0 1321 control:SetKey(GetOptionsMemberValue("get",v, options, path, appName))
Xiiph@0 1322 control:SetCallback("OnKeyChanged",ActivateControl)
Xiiph@0 1323
Xiiph@0 1324 elseif v.type == "header" then
Xiiph@0 1325 control = gui:Create("Heading")
Xiiph@0 1326 control:SetText(name)
Xiiph@0 1327 control.width = "fill"
Xiiph@0 1328
Xiiph@0 1329 elseif v.type == "description" then
Xiiph@0 1330 control = gui:Create("Label")
Xiiph@0 1331 control:SetText(name)
Xiiph@0 1332
Xiiph@0 1333 local fontSize = GetOptionsMemberValue("fontSize",v, options, path, appName)
Xiiph@0 1334 if fontSize == "medium" then
Xiiph@0 1335 control:SetFontObject(GameFontHighlight)
Xiiph@0 1336 elseif fontSize == "large" then
Xiiph@0 1337 control:SetFontObject(GameFontHighlightLarge)
Xiiph@0 1338 else -- small or invalid
Xiiph@0 1339 control:SetFontObject(GameFontHighlightSmall)
Xiiph@0 1340 end
Xiiph@0 1341
Xiiph@0 1342 local imageCoords = GetOptionsMemberValue("imageCoords",v, options, path, appName)
Xiiph@0 1343 local image, width, height = GetOptionsMemberValue("image",v, options, path, appName)
Xiiph@0 1344
Xiiph@0 1345 if type(image) == "string" then
Xiiph@0 1346 if not width then
Xiiph@0 1347 width = GetOptionsMemberValue("imageWidth",v, options, path, appName)
Xiiph@0 1348 end
Xiiph@0 1349 if not height then
Xiiph@0 1350 height = GetOptionsMemberValue("imageHeight",v, options, path, appName)
Xiiph@0 1351 end
Xiiph@0 1352 if type(imageCoords) == "table" then
Xiiph@0 1353 control:SetImage(image, unpack(imageCoords))
Xiiph@0 1354 else
Xiiph@0 1355 control:SetImage(image)
Xiiph@0 1356 end
Xiiph@0 1357 if type(width) ~= "number" then
Xiiph@0 1358 width = 32
Xiiph@0 1359 end
Xiiph@0 1360 if type(height) ~= "number" then
Xiiph@0 1361 height = 32
Xiiph@0 1362 end
Xiiph@0 1363 control:SetImageSize(width, height)
Xiiph@0 1364 end
Xiiph@0 1365 local width = GetOptionsMemberValue("width",v,options,path,appName)
Xiiph@0 1366 control.width = not width and "fill"
Xiiph@0 1367 end
Xiiph@0 1368
Xiiph@0 1369 --Common Init
Xiiph@0 1370 if control then
Xiiph@0 1371 if control.width ~= "fill" then
Xiiph@0 1372 local width = GetOptionsMemberValue("width",v,options,path,appName)
Xiiph@0 1373 if width == "double" then
Xiiph@0 1374 control:SetWidth(width_multiplier * 2)
Xiiph@0 1375 elseif width == "half" then
Xiiph@0 1376 control:SetWidth(width_multiplier / 2)
Xiiph@0 1377 elseif width == "full" then
Xiiph@0 1378 control.width = "fill"
Xiiph@0 1379 else
Xiiph@0 1380 control:SetWidth(width_multiplier)
Xiiph@0 1381 end
Xiiph@0 1382 end
Xiiph@0 1383 if control.SetDisabled then
Xiiph@0 1384 local disabled = CheckOptionDisabled(v, options, path, appName)
Xiiph@0 1385 control:SetDisabled(disabled)
Xiiph@0 1386 end
Xiiph@0 1387
Xiiph@0 1388 InjectInfo(control, options, v, path, rootframe, appName)
Xiiph@0 1389 container:AddChild(control)
Xiiph@0 1390 end
Xiiph@0 1391
Xiiph@0 1392 end
Xiiph@0 1393 end
Xiiph@0 1394 tremove(path)
Xiiph@0 1395 end
Xiiph@0 1396 container:ResumeLayout()
Xiiph@0 1397 container:DoLayout()
Xiiph@0 1398 del(keySort)
Xiiph@0 1399 del(opts)
Xiiph@0 1400 end
Xiiph@0 1401
Xiiph@0 1402 local function BuildPath(path, ...)
Xiiph@0 1403 for i = 1, select("#",...) do
Xiiph@0 1404 tinsert(path, (select(i,...)))
Xiiph@0 1405 end
Xiiph@0 1406 end
Xiiph@0 1407
Xiiph@0 1408
Xiiph@0 1409 local function TreeOnButtonEnter(widget, event, uniquevalue, button)
Xiiph@0 1410 local user = widget:GetUserDataTable()
Xiiph@0 1411 if not user then return end
Xiiph@0 1412 local options = user.options
Xiiph@0 1413 local option = user.option
Xiiph@0 1414 local path = user.path
Xiiph@0 1415 local appName = user.appName
Xiiph@0 1416
Xiiph@0 1417 local feedpath = new()
Xiiph@0 1418 for i = 1, #path do
Xiiph@0 1419 feedpath[i] = path[i]
Xiiph@0 1420 end
Xiiph@0 1421
Xiiph@0 1422 BuildPath(feedpath, ("\001"):split(uniquevalue))
Xiiph@0 1423 local group = options
Xiiph@0 1424 for i = 1, #feedpath do
Xiiph@0 1425 if not group then return end
Xiiph@0 1426 group = GetSubOption(group, feedpath[i])
Xiiph@0 1427 end
Xiiph@0 1428
Xiiph@0 1429 local name = GetOptionsMemberValue("name", group, options, feedpath, appName)
Xiiph@0 1430 local desc = GetOptionsMemberValue("desc", group, options, feedpath, appName)
Xiiph@0 1431
Xiiph@0 1432 GameTooltip:SetOwner(button, "ANCHOR_NONE")
Xiiph@0 1433 if widget.type == "TabGroup" then
Xiiph@0 1434 GameTooltip:SetPoint("BOTTOM",button,"TOP")
Xiiph@0 1435 else
Xiiph@0 1436 GameTooltip:SetPoint("LEFT",button,"RIGHT")
Xiiph@0 1437 end
Xiiph@0 1438
Xiiph@0 1439 GameTooltip:SetText(name, 1, .82, 0, 1)
Xiiph@0 1440
Xiiph@0 1441 if type(desc) == "string" then
Xiiph@0 1442 GameTooltip:AddLine(desc, 1, 1, 1, 1)
Xiiph@0 1443 end
Xiiph@0 1444
Xiiph@0 1445 GameTooltip:Show()
Xiiph@0 1446 end
Xiiph@0 1447
Xiiph@0 1448 local function TreeOnButtonLeave(widget, event, value, button)
Xiiph@0 1449 GameTooltip:Hide()
Xiiph@0 1450 end
Xiiph@0 1451
Xiiph@0 1452
Xiiph@0 1453 local function GroupExists(appName, options, path, uniquevalue)
Xiiph@0 1454 if not uniquevalue then return false end
Xiiph@0 1455
Xiiph@0 1456 local feedpath = new()
Xiiph@0 1457 local temppath = new()
Xiiph@0 1458 for i = 1, #path do
Xiiph@0 1459 feedpath[i] = path[i]
Xiiph@0 1460 end
Xiiph@0 1461
Xiiph@0 1462 BuildPath(feedpath, ("\001"):split(uniquevalue))
Xiiph@0 1463
Xiiph@0 1464 local group = options
Xiiph@0 1465 for i = 1, #feedpath do
Xiiph@0 1466 local v = feedpath[i]
Xiiph@0 1467 temppath[i] = v
Xiiph@0 1468 group = GetSubOption(group, v)
Xiiph@0 1469
Xiiph@0 1470 if not group or group.type ~= "group" or CheckOptionHidden(group, options, temppath, appName) then
Xiiph@0 1471 del(feedpath)
Xiiph@0 1472 del(temppath)
Xiiph@0 1473 return false
Xiiph@0 1474 end
Xiiph@0 1475 end
Xiiph@0 1476 del(feedpath)
Xiiph@0 1477 del(temppath)
Xiiph@0 1478 return true
Xiiph@0 1479 end
Xiiph@0 1480
Xiiph@0 1481 local function GroupSelected(widget, event, uniquevalue)
Xiiph@0 1482
Xiiph@0 1483 local user = widget:GetUserDataTable()
Xiiph@0 1484
Xiiph@0 1485 local options = user.options
Xiiph@0 1486 local option = user.option
Xiiph@0 1487 local path = user.path
Xiiph@0 1488 local rootframe = user.rootframe
Xiiph@0 1489
Xiiph@0 1490 local feedpath = new()
Xiiph@0 1491 for i = 1, #path do
Xiiph@0 1492 feedpath[i] = path[i]
Xiiph@0 1493 end
Xiiph@0 1494
Xiiph@0 1495 BuildPath(feedpath, ("\001"):split(uniquevalue))
Xiiph@0 1496 local group = options
Xiiph@0 1497 for i = 1, #feedpath do
Xiiph@0 1498 group = GetSubOption(group, feedpath[i])
Xiiph@0 1499 end
Xiiph@0 1500 widget:ReleaseChildren()
Xiiph@0 1501 AceConfigDialog:FeedGroup(user.appName,options,widget,rootframe,feedpath)
Xiiph@0 1502
Xiiph@0 1503 del(feedpath)
Xiiph@0 1504 end
Xiiph@0 1505
Xiiph@0 1506
Xiiph@0 1507
Xiiph@0 1508 --[[
Xiiph@0 1509 -- INTERNAL --
Xiiph@0 1510 This function will feed one group, and any inline child groups into the given container
Xiiph@0 1511 Select Groups will only have the selection control (tree, tabs, dropdown) fed in
Xiiph@0 1512 and have a group selected, this event will trigger the feeding of child groups
Xiiph@0 1513
Xiiph@0 1514 Rules:
Xiiph@0 1515 If the group is Inline, FeedOptions
Xiiph@0 1516 If the group has no child groups, FeedOptions
Xiiph@0 1517
Xiiph@0 1518 If the group is a tab or select group, FeedOptions then add the Group Control
Xiiph@0 1519 If the group is a tree group FeedOptions then
Xiiph@0 1520 its parent isnt a tree group: then add the tree control containing this and all child tree groups
Xiiph@0 1521 if its parent is a tree group, its already a node on a tree
Xiiph@0 1522 --]]
Xiiph@0 1523
Xiiph@0 1524 function AceConfigDialog:FeedGroup(appName,options,container,rootframe,path, isRoot)
Xiiph@0 1525 local group = options
Xiiph@0 1526 --follow the path to get to the curent group
Xiiph@0 1527 local inline
Xiiph@0 1528 local grouptype, parenttype = options.childGroups, "none"
Xiiph@0 1529
Xiiph@0 1530
Xiiph@0 1531 for i = 1, #path do
Xiiph@0 1532 local v = path[i]
Xiiph@0 1533 group = GetSubOption(group, v)
Xiiph@0 1534 inline = inline or pickfirstset(v.dialogInline,v.guiInline,v.inline, false)
Xiiph@0 1535 parenttype = grouptype
Xiiph@0 1536 grouptype = group.childGroups
Xiiph@0 1537 end
Xiiph@0 1538
Xiiph@0 1539 if not parenttype then
Xiiph@0 1540 parenttype = "tree"
Xiiph@0 1541 end
Xiiph@0 1542
Xiiph@0 1543 --check if the group has child groups
Xiiph@0 1544 local hasChildGroups
Xiiph@0 1545 for k, v in pairs(group.args) do
Xiiph@0 1546 if v.type == "group" and not pickfirstset(v.dialogInline,v.guiInline,v.inline, false) and not CheckOptionHidden(v, options, path, appName) then
Xiiph@0 1547 hasChildGroups = true
Xiiph@0 1548 end
Xiiph@0 1549 end
Xiiph@0 1550 if group.plugins then
Xiiph@0 1551 for plugin, t in pairs(group.plugins) do
Xiiph@0 1552 for k, v in pairs(t) do
Xiiph@0 1553 if v.type == "group" and not pickfirstset(v.dialogInline,v.guiInline,v.inline, false) and not CheckOptionHidden(v, options, path, appName) then
Xiiph@0 1554 hasChildGroups = true
Xiiph@0 1555 end
Xiiph@0 1556 end
Xiiph@0 1557 end
Xiiph@0 1558 end
Xiiph@0 1559
Xiiph@0 1560 container:SetLayout("flow")
Xiiph@0 1561 local scroll
Xiiph@0 1562
Xiiph@0 1563 --Add a scrollframe if we are not going to add a group control, this is the inverse of the conditions for that later on
Xiiph@0 1564 if (not (hasChildGroups and not inline)) or (grouptype ~= "tab" and grouptype ~= "select" and (parenttype == "tree" and not isRoot)) then
Xiiph@0 1565 if container.type ~= "InlineGroup" and container.type ~= "SimpleGroup" then
Xiiph@0 1566 scroll = gui:Create("ScrollFrame")
Xiiph@0 1567 scroll:SetLayout("flow")
Xiiph@0 1568 scroll.width = "fill"
Xiiph@0 1569 scroll.height = "fill"
Xiiph@0 1570 container:SetLayout("fill")
Xiiph@0 1571 container:AddChild(scroll)
Xiiph@0 1572 container = scroll
Xiiph@0 1573 end
Xiiph@0 1574 end
Xiiph@0 1575
Xiiph@0 1576 FeedOptions(appName,options,container,rootframe,path,group,nil)
Xiiph@0 1577
Xiiph@0 1578 if scroll then
Xiiph@0 1579 container:PerformLayout()
Xiiph@0 1580 local status = self:GetStatusTable(appName, path)
Xiiph@0 1581 if not status.scroll then
Xiiph@0 1582 status.scroll = {}
Xiiph@0 1583 end
Xiiph@0 1584 scroll:SetStatusTable(status.scroll)
Xiiph@0 1585 end
Xiiph@0 1586
Xiiph@0 1587 if hasChildGroups and not inline then
Xiiph@0 1588 local name = GetOptionsMemberValue("name", group, options, path, appName)
Xiiph@0 1589 if grouptype == "tab" then
Xiiph@0 1590
Xiiph@0 1591 local tab = gui:Create("TabGroup")
Xiiph@0 1592 InjectInfo(tab, options, group, path, rootframe, appName)
Xiiph@0 1593 tab:SetCallback("OnGroupSelected", GroupSelected)
Xiiph@0 1594 tab:SetCallback("OnTabEnter", TreeOnButtonEnter)
Xiiph@0 1595 tab:SetCallback("OnTabLeave", TreeOnButtonLeave)
Xiiph@0 1596
Xiiph@0 1597 local status = AceConfigDialog:GetStatusTable(appName, path)
Xiiph@0 1598 if not status.groups then
Xiiph@0 1599 status.groups = {}
Xiiph@0 1600 end
Xiiph@0 1601 tab:SetStatusTable(status.groups)
Xiiph@0 1602 tab.width = "fill"
Xiiph@0 1603 tab.height = "fill"
Xiiph@0 1604
Xiiph@0 1605 local tabs = BuildGroups(group, options, path, appName)
Xiiph@0 1606 tab:SetTabs(tabs)
Xiiph@0 1607 tab:SetUserData("tablist", tabs)
Xiiph@0 1608
Xiiph@0 1609 for i = 1, #tabs do
Xiiph@0 1610 local entry = tabs[i]
Xiiph@0 1611 if not entry.disabled then
Xiiph@0 1612 tab:SelectTab((GroupExists(appName, options, path,status.groups.selected) and status.groups.selected) or entry.value)
Xiiph@0 1613 break
Xiiph@0 1614 end
Xiiph@0 1615 end
Xiiph@0 1616
Xiiph@0 1617 container:AddChild(tab)
Xiiph@0 1618
Xiiph@0 1619 elseif grouptype == "select" then
Xiiph@0 1620
Xiiph@0 1621 local select = gui:Create("DropdownGroup")
Xiiph@0 1622 select:SetTitle(name)
Xiiph@0 1623 InjectInfo(select, options, group, path, rootframe, appName)
Xiiph@0 1624 select:SetCallback("OnGroupSelected", GroupSelected)
Xiiph@0 1625 local status = AceConfigDialog:GetStatusTable(appName, path)
Xiiph@0 1626 if not status.groups then
Xiiph@0 1627 status.groups = {}
Xiiph@0 1628 end
Xiiph@0 1629 select:SetStatusTable(status.groups)
Xiiph@0 1630 local grouplist, orderlist = BuildSelect(group, options, path, appName)
Xiiph@0 1631 select:SetGroupList(grouplist, orderlist)
Xiiph@0 1632 select:SetUserData("grouplist", grouplist)
Xiiph@0 1633 select:SetUserData("orderlist", orderlist)
Xiiph@0 1634
Xiiph@0 1635 local firstgroup = orderlist[1]
Xiiph@0 1636 if firstgroup then
Xiiph@0 1637 select:SetGroup((GroupExists(appName, options, path,status.groups.selected) and status.groups.selected) or firstgroup)
Xiiph@0 1638 end
Xiiph@0 1639
Xiiph@0 1640 select.width = "fill"
Xiiph@0 1641 select.height = "fill"
Xiiph@0 1642
Xiiph@0 1643 container:AddChild(select)
Xiiph@0 1644
Xiiph@0 1645 --assume tree group by default
Xiiph@0 1646 --if parenttype is tree then this group is already a node on that tree
Xiiph@0 1647 elseif (parenttype ~= "tree") or isRoot then
Xiiph@0 1648 local tree = gui:Create("TreeGroup")
Xiiph@0 1649 InjectInfo(tree, options, group, path, rootframe, appName)
Xiiph@0 1650 tree:EnableButtonTooltips(false)
Xiiph@0 1651
Xiiph@0 1652 tree.width = "fill"
Xiiph@0 1653 tree.height = "fill"
Xiiph@0 1654
Xiiph@0 1655 tree:SetCallback("OnGroupSelected", GroupSelected)
Xiiph@0 1656 tree:SetCallback("OnButtonEnter", TreeOnButtonEnter)
Xiiph@0 1657 tree:SetCallback("OnButtonLeave", TreeOnButtonLeave)
Xiiph@0 1658
Xiiph@0 1659 local status = AceConfigDialog:GetStatusTable(appName, path)
Xiiph@0 1660 if not status.groups then
Xiiph@0 1661 status.groups = {}
Xiiph@0 1662 end
Xiiph@0 1663 local treedefinition = BuildGroups(group, options, path, appName, true)
Xiiph@0 1664 tree:SetStatusTable(status.groups)
Xiiph@0 1665
Xiiph@0 1666 tree:SetTree(treedefinition)
Xiiph@0 1667 tree:SetUserData("tree",treedefinition)
Xiiph@0 1668
Xiiph@0 1669 for i = 1, #treedefinition do
Xiiph@0 1670 local entry = treedefinition[i]
Xiiph@0 1671 if not entry.disabled then
Xiiph@0 1672 tree:SelectByValue((GroupExists(appName, options, path,status.groups.selected) and status.groups.selected) or entry.value)
Xiiph@0 1673 break
Xiiph@0 1674 end
Xiiph@0 1675 end
Xiiph@0 1676
Xiiph@0 1677 container:AddChild(tree)
Xiiph@0 1678 end
Xiiph@0 1679 end
Xiiph@0 1680 end
Xiiph@0 1681
Xiiph@0 1682 local old_CloseSpecialWindows
Xiiph@0 1683
Xiiph@0 1684
Xiiph@0 1685 local function RefreshOnUpdate(this)
Xiiph@0 1686 for appName in pairs(this.closing) do
Xiiph@0 1687 if AceConfigDialog.OpenFrames[appName] then
Xiiph@0 1688 AceConfigDialog.OpenFrames[appName]:Hide()
Xiiph@0 1689 end
Xiiph@0 1690 if AceConfigDialog.BlizOptions and AceConfigDialog.BlizOptions[appName] then
Xiiph@0 1691 for key, widget in pairs(AceConfigDialog.BlizOptions[appName]) do
Xiiph@0 1692 if not widget:IsVisible() then
Xiiph@0 1693 widget:ReleaseChildren()
Xiiph@0 1694 end
Xiiph@0 1695 end
Xiiph@0 1696 end
Xiiph@0 1697 this.closing[appName] = nil
Xiiph@0 1698 end
Xiiph@0 1699
Xiiph@0 1700 if this.closeAll then
Xiiph@0 1701 for k, v in pairs(AceConfigDialog.OpenFrames) do
Xiiph@0 1702 if not this.closeAllOverride[k] then
Xiiph@0 1703 v:Hide()
Xiiph@0 1704 end
Xiiph@0 1705 end
Xiiph@0 1706 this.closeAll = nil
Xiiph@0 1707 wipe(this.closeAllOverride)
Xiiph@0 1708 end
Xiiph@0 1709
Xiiph@0 1710 for appName in pairs(this.apps) do
Xiiph@0 1711 if AceConfigDialog.OpenFrames[appName] then
Xiiph@0 1712 local user = AceConfigDialog.OpenFrames[appName]:GetUserDataTable()
Xiiph@0 1713 AceConfigDialog:Open(appName, unpack(user.basepath or emptyTbl))
Xiiph@0 1714 end
Xiiph@0 1715 if AceConfigDialog.BlizOptions and AceConfigDialog.BlizOptions[appName] then
Xiiph@0 1716 for key, widget in pairs(AceConfigDialog.BlizOptions[appName]) do
Xiiph@0 1717 local user = widget:GetUserDataTable()
Xiiph@0 1718 if widget:IsVisible() then
Xiiph@0 1719 AceConfigDialog:Open(widget:GetUserData("appName"), widget, unpack(user.basepath or emptyTbl))
Xiiph@0 1720 end
Xiiph@0 1721 end
Xiiph@0 1722 end
Xiiph@0 1723 this.apps[appName] = nil
Xiiph@0 1724 end
Xiiph@0 1725 this:SetScript("OnUpdate", nil)
Xiiph@0 1726 end
Xiiph@0 1727
Xiiph@0 1728 -- Upgrade the OnUpdate script as well, if needed.
Xiiph@0 1729 if AceConfigDialog.frame:GetScript("OnUpdate") then
Xiiph@0 1730 AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate)
Xiiph@0 1731 end
Xiiph@0 1732
Xiiph@0 1733 --- Close all open options windows
Xiiph@0 1734 function AceConfigDialog:CloseAll()
Xiiph@0 1735 AceConfigDialog.frame.closeAll = true
Xiiph@0 1736 AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate)
Xiiph@0 1737 if next(self.OpenFrames) then
Xiiph@0 1738 return true
Xiiph@0 1739 end
Xiiph@0 1740 end
Xiiph@0 1741
Xiiph@0 1742 --- Close a specific options window.
Xiiph@0 1743 -- @param appName The application name as given to `:RegisterOptionsTable()`
Xiiph@0 1744 function AceConfigDialog:Close(appName)
Xiiph@0 1745 if self.OpenFrames[appName] then
Xiiph@0 1746 AceConfigDialog.frame.closing[appName] = true
Xiiph@0 1747 AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate)
Xiiph@0 1748 return true
Xiiph@0 1749 end
Xiiph@0 1750 end
Xiiph@0 1751
Xiiph@0 1752 -- Internal -- Called by AceConfigRegistry
Xiiph@0 1753 function AceConfigDialog:ConfigTableChanged(event, appName)
Xiiph@0 1754 AceConfigDialog.frame.apps[appName] = true
Xiiph@0 1755 AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate)
Xiiph@0 1756 end
Xiiph@0 1757
Xiiph@0 1758 reg.RegisterCallback(AceConfigDialog, "ConfigTableChange", "ConfigTableChanged")
Xiiph@0 1759
Xiiph@0 1760 --- Sets the default size of the options window for a specific application.
Xiiph@0 1761 -- @param appName The application name as given to `:RegisterOptionsTable()`
Xiiph@0 1762 -- @param width The default width
Xiiph@0 1763 -- @param height The default height
Xiiph@0 1764 function AceConfigDialog:SetDefaultSize(appName, width, height)
Xiiph@0 1765 local status = AceConfigDialog:GetStatusTable(appName)
Xiiph@0 1766 if type(width) == "number" and type(height) == "number" then
Xiiph@0 1767 status.width = width
Xiiph@0 1768 status.height = height
Xiiph@0 1769 end
Xiiph@0 1770 end
Xiiph@0 1771
Xiiph@0 1772 --- Open an option window at the specified path (if any).
Xiiph@0 1773 -- This function can optionally feed the group into a pre-created container
Xiiph@0 1774 -- instead of creating a new container frame.
Xiiph@0 1775 -- @paramsig appName [, container][, ...]
Xiiph@0 1776 -- @param appName The application name as given to `:RegisterOptionsTable()`
Xiiph@0 1777 -- @param container An optional container frame to feed the options into
Xiiph@0 1778 -- @param ... The path to open after creating the options window (see `:SelectGroup` for details)
Xiiph@0 1779 function AceConfigDialog:Open(appName, container, ...)
Xiiph@0 1780 if not old_CloseSpecialWindows then
Xiiph@0 1781 old_CloseSpecialWindows = CloseSpecialWindows
Xiiph@0 1782 CloseSpecialWindows = function()
Xiiph@0 1783 local found = old_CloseSpecialWindows()
Xiiph@0 1784 return self:CloseAll() or found
Xiiph@0 1785 end
Xiiph@0 1786 end
Xiiph@0 1787 local app = reg:GetOptionsTable(appName)
Xiiph@0 1788 if not app then
Xiiph@0 1789 error(("%s isn't registed with AceConfigRegistry, unable to open config"):format(appName), 2)
Xiiph@0 1790 end
Xiiph@0 1791 local options = app("dialog", MAJOR)
Xiiph@0 1792
Xiiph@0 1793 local f
Xiiph@0 1794
Xiiph@0 1795 local path = new()
Xiiph@0 1796 local name = GetOptionsMemberValue("name", options, options, path, appName)
Xiiph@0 1797
Xiiph@0 1798 --If an optional path is specified add it to the path table before feeding the options
Xiiph@0 1799 --as container is optional as well it may contain the first element of the path
Xiiph@0 1800 if type(container) == "string" then
Xiiph@0 1801 tinsert(path, container)
Xiiph@0 1802 container = nil
Xiiph@0 1803 end
Xiiph@0 1804 for n = 1, select("#",...) do
Xiiph@0 1805 tinsert(path, (select(n, ...)))
Xiiph@0 1806 end
Xiiph@0 1807
Xiiph@0 1808 --if a container is given feed into that
Xiiph@0 1809 if container then
Xiiph@0 1810 f = container
Xiiph@0 1811 f:ReleaseChildren()
Xiiph@0 1812 f:SetUserData("appName", appName)
Xiiph@0 1813 f:SetUserData("iscustom", true)
Xiiph@0 1814 if #path > 0 then
Xiiph@0 1815 f:SetUserData("basepath", copy(path))
Xiiph@0 1816 end
Xiiph@0 1817 local status = AceConfigDialog:GetStatusTable(appName)
Xiiph@0 1818 if not status.width then
Xiiph@0 1819 status.width = 700
Xiiph@0 1820 end
Xiiph@0 1821 if not status.height then
Xiiph@0 1822 status.height = 500
Xiiph@0 1823 end
Xiiph@0 1824 if f.SetStatusTable then
Xiiph@0 1825 f:SetStatusTable(status)
Xiiph@0 1826 end
Xiiph@0 1827 if f.SetTitle then
Xiiph@0 1828 f:SetTitle(name or "")
Xiiph@0 1829 end
Xiiph@0 1830 else
Xiiph@0 1831 if not self.OpenFrames[appName] then
Xiiph@0 1832 f = gui:Create("Frame")
Xiiph@0 1833 self.OpenFrames[appName] = f
Xiiph@0 1834 else
Xiiph@0 1835 f = self.OpenFrames[appName]
Xiiph@0 1836 end
Xiiph@0 1837 f:ReleaseChildren()
Xiiph@0 1838 f:SetCallback("OnClose", FrameOnClose)
Xiiph@0 1839 f:SetUserData("appName", appName)
Xiiph@0 1840 if #path > 0 then
Xiiph@0 1841 f:SetUserData("basepath", copy(path))
Xiiph@0 1842 end
Xiiph@0 1843 f:SetTitle(name or "")
Xiiph@0 1844 local status = AceConfigDialog:GetStatusTable(appName)
Xiiph@0 1845 f:SetStatusTable(status)
Xiiph@0 1846 end
Xiiph@0 1847
Xiiph@0 1848 self:FeedGroup(appName,options,f,f,path,true)
Xiiph@0 1849 if f.Show then
Xiiph@0 1850 f:Show()
Xiiph@0 1851 end
Xiiph@0 1852 del(path)
Xiiph@0 1853
Xiiph@0 1854 if AceConfigDialog.frame.closeAll then
Xiiph@0 1855 -- close all is set, but thats not good, since we're just opening here, so force it
Xiiph@0 1856 AceConfigDialog.frame.closeAllOverride[appName] = true
Xiiph@0 1857 end
Xiiph@0 1858 end
Xiiph@0 1859
Xiiph@0 1860 -- convert pre-39 BlizOptions structure to the new format
Xiiph@0 1861 if oldminor and oldminor < 39 and AceConfigDialog.BlizOptions then
Xiiph@0 1862 local old = AceConfigDialog.BlizOptions
Xiiph@0 1863 local new = {}
Xiiph@0 1864 for key, widget in pairs(old) do
Xiiph@0 1865 local appName = widget:GetUserData("appName")
Xiiph@0 1866 if not new[appName] then new[appName] = {} end
Xiiph@0 1867 new[appName][key] = widget
Xiiph@0 1868 end
Xiiph@0 1869 AceConfigDialog.BlizOptions = new
Xiiph@0 1870 else
Xiiph@0 1871 AceConfigDialog.BlizOptions = AceConfigDialog.BlizOptions or {}
Xiiph@0 1872 end
Xiiph@0 1873
Xiiph@0 1874 local function FeedToBlizPanel(widget, event)
Xiiph@0 1875 local path = widget:GetUserData("path")
Xiiph@0 1876 AceConfigDialog:Open(widget:GetUserData("appName"), widget, unpack(path or emptyTbl))
Xiiph@0 1877 end
Xiiph@0 1878
Xiiph@0 1879 local function ClearBlizPanel(widget, event)
Xiiph@0 1880 local appName = widget:GetUserData("appName")
Xiiph@0 1881 AceConfigDialog.frame.closing[appName] = true
Xiiph@0 1882 AceConfigDialog.frame:SetScript("OnUpdate", RefreshOnUpdate)
Xiiph@0 1883 end
Xiiph@0 1884
Xiiph@0 1885 --- Add an option table into the Blizzard Interface Options panel.
Xiiph@0 1886 -- You can optionally supply a descriptive name to use and a parent frame to use,
Xiiph@0 1887 -- as well as a path in the options table.\\
Xiiph@0 1888 -- If no name is specified, the appName will be used instead.
Xiiph@0 1889 --
Xiiph@0 1890 -- If you specify a proper `parent` (by name), the interface options will generate a
Xiiph@0 1891 -- tree layout. Note that only one level of children is supported, so the parent always
Xiiph@0 1892 -- has to be a head-level note.
Xiiph@0 1893 --
Xiiph@0 1894 -- This function returns a reference to the container frame registered with the Interface
Xiiph@0 1895 -- Options. You can use this reference to open the options with the API function
Xiiph@0 1896 -- `InterfaceOptionsFrame_OpenToCategory`.
Xiiph@0 1897 -- @param appName The application name as given to `:RegisterOptionsTable()`
Xiiph@0 1898 -- @param name A descriptive name to display in the options tree (defaults to appName)
Xiiph@0 1899 -- @param parent The parent to use in the interface options tree.
Xiiph@0 1900 -- @param ... The path in the options table to feed into the interface options panel.
Xiiph@0 1901 -- @return The reference to the frame registered into the Interface Options.
Xiiph@0 1902 function AceConfigDialog:AddToBlizOptions(appName, name, parent, ...)
Xiiph@0 1903 local BlizOptions = AceConfigDialog.BlizOptions
Xiiph@0 1904
Xiiph@0 1905 local key = appName
Xiiph@0 1906 for n = 1, select("#", ...) do
Xiiph@0 1907 key = key.."\001"..select(n, ...)
Xiiph@0 1908 end
Xiiph@0 1909
Xiiph@0 1910 if not BlizOptions[appName] then
Xiiph@0 1911 BlizOptions[appName] = {}
Xiiph@0 1912 end
Xiiph@0 1913
Xiiph@0 1914 if not BlizOptions[appName][key] then
Xiiph@0 1915 local group = gui:Create("BlizOptionsGroup")
Xiiph@0 1916 BlizOptions[appName][key] = group
Xiiph@0 1917 group:SetName(name or appName, parent)
Xiiph@0 1918
Xiiph@0 1919 group:SetTitle(name or appName)
Xiiph@0 1920 group:SetUserData("appName", appName)
Xiiph@0 1921 if select("#", ...) > 0 then
Xiiph@0 1922 local path = {}
Xiiph@0 1923 for n = 1, select("#",...) do
Xiiph@0 1924 tinsert(path, (select(n, ...)))
Xiiph@0 1925 end
Xiiph@0 1926 group:SetUserData("path", path)
Xiiph@0 1927 end
Xiiph@0 1928 group:SetCallback("OnShow", FeedToBlizPanel)
Xiiph@0 1929 group:SetCallback("OnHide", ClearBlizPanel)
Xiiph@0 1930 InterfaceOptions_AddCategory(group.frame)
Xiiph@0 1931 return group.frame
Xiiph@0 1932 else
Xiiph@0 1933 error(("%s has already been added to the Blizzard Options Window with the given path"):format(appName), 2)
Xiiph@0 1934 end
Xiiph@0 1935 end