ESOUI SVN ZAMUnitFramesReactionColors

[/] [trunk/] [ZAM_ReactionColors/] [libs/] [LibAddonMenu-2.0/] [controls/] [dropdown.lua] - Rev 16

Compare with Previous | Blame | View Log

--[[dropdownData = {
        type = "dropdown",
        name = "My Dropdown",
        tooltip = "Dropdown's tooltip text.",
        choices = {"table", "of", "choices"},
        sort = "name-up", --or "name-down", "numeric-up", "numeric-down" (optional) - if not provided, list will not be sorted
        getFunc = function() return db.var end,
        setFunc = function(var) db.var = var doStuff() end,
        width = "full", --or "half" (optional)
        disabled = function() return db.someBooleanSetting end, --or boolean (optional)
        warning = "Will need to reload the UI.",        --(optional)
        default = defaults.var, --(optional)
        reference = "MyAddonDropdown"   --(optional) unique global reference to control
}       ]]


local widgetVersion = 7
local LAM = LibStub("LibAddonMenu-2.0")
if not LAM:RegisterWidget("dropdown", widgetVersion) then return end

local wm = WINDOW_MANAGER
local cm = CALLBACK_MANAGER
local tinsert = table.insert


local function UpdateDisabled(control)
        local disable
        if type(control.data.disabled) == "function" then
                disable = control.data.disabled()
        else
                disable = control.data.disabled
        end
        
        control.dropdown:SetEnabled(not disable)
        if disable then
                control.label:SetColor(ZO_DEFAULT_DISABLED_COLOR:UnpackRGBA())
        else
                control.label:SetColor(ZO_DEFAULT_ENABLED_COLOR:UnpackRGBA())
        end
end

local function UpdateValue(control, forceDefault, value)        
        if forceDefault then    --if we are forcing defaults
                value = control.data.default
                control.data.setFunc(value)
                control.dropdown:SetSelectedItem(value)
        elseif value then
                control.data.setFunc(value)
                --after setting this value, let's refresh the others to see if any should be disabled or have their settings changed
                if control.panel.data.registerForRefresh then
                        cm:FireCallbacks("LAM-RefreshPanel", control)
                end
        else
                value = control.data.getFunc()
                control.dropdown:SetSelectedItem(value)
        end
end

local function DropdownCallback(choice, choiceText, choice)
        choice.control:UpdateValue(false, choiceText)
end

local function UpdateChoices(control, choices)
        control.dropdown:ClearItems()   --remove previous choices       --(need to call :SetSelectedItem()?)
        
        --build new list of choices
        local choices = choices or control.data.choices
        for i = 1, #choices do
                local entry = control.dropdown:CreateItemEntry(choices[i], DropdownCallback)
                entry.control = control
                control.dropdown:AddItem(entry, not control.data.sort and ZO_COMBOBOX_SUPRESS_UPDATE)   --if sort type/order isn't specified, then don't sort
        end
end

local function GrabSortingInfo(sortInfo)
        local t, i = {}, 1
        for info in string.gmatch(sortInfo, "([^%-]+)") do
                t[i] = info
                i = i + 1
        end

        return t
end


local comboboxCount = 1
function LAMCreateControl.dropdown(parent, dropdownData, controlName)
        local control = wm:CreateTopLevelWindow(controlName or dropdownData.reference)
        control:SetParent(parent.scroll or parent)
        control:SetMouseEnabled(true)
        --control.tooltipText = dropdownData.tooltip
        control:SetHandler("OnMouseEnter", ZO_Options_OnMouseEnter)
        control:SetHandler("OnMouseExit", ZO_Options_OnMouseExit)
        
        control.label = wm:CreateControl(nil, control, CT_LABEL)
        local label = control.label
        label:SetAnchor(TOPLEFT)
        label:SetFont("ZoFontWinH4")
        label:SetWrapMode(TEXT_WRAP_MODE_ELLIPSIS)
        label:SetText(dropdownData.name)

        control.combobox = wm:CreateControlFromVirtual(parent:GetName().."Combobox"..comboboxCount, control, "ZO_ComboBox")
        comboboxCount = comboboxCount + 1
        local combobox = control.combobox
        combobox:SetHandler("OnMouseEnter", function() ZO_Options_OnMouseEnter(control) end)
        combobox:SetHandler("OnMouseExit", function() ZO_Options_OnMouseExit(control) end)
        control.dropdown = ZO_ComboBox_ObjectFromContainer(combobox)
        local dropdown = control.dropdown
        if dropdownData.sort then
                local sortInfo = GrabSortingInfo(dropdownData.sort)
                local sortType, sortOrder = sortInfo[1], sortInfo[2]
                dropdown:SetSortOrder(sortOrder == "up" and ZO_SORT_ORDER_UP or ZO_SORT_ORDER_DOWN, sortType == "name" and ZO_SORT_BY_NAME or ZO_SORT_BY_NAME_NUMERIC)
        end
        
        local isHalfWidth = dropdownData.width == "half"
        if isHalfWidth then
                control:SetDimensions(250, 55)
                label:SetDimensions(250, 26)
                combobox:SetDimensions(225, 26)
                combobox:SetAnchor(TOPRIGHT, label, BOTTOMRIGHT)
        else
                control:SetDimensions(510, 30)
                label:SetDimensions(300, 26)
                combobox:SetDimensions(200, 26)
                combobox:SetAnchor(TOPRIGHT)
        end
        
        if dropdownData.warning then
                control.warning = wm:CreateControlFromVirtual(nil, control, "ZO_Options_WarningIcon")
                control.warning:SetAnchor(RIGHT, combobox, LEFT, -5, 0)
                --control.warning.tooltipText = dropdownData.warning
                control.warning.data = {tooltipText = dropdownData.warning}
        end

        control.panel = parent.panel or parent  --if this is in a submenu, panel is its parent
        control.data = dropdownData
        control.data.tooltipText = dropdownData.tooltip
        
        if dropdownData.disabled then
                control.UpdateDisabled = UpdateDisabled
                control:UpdateDisabled()
        end
        control.UpdateChoices = UpdateChoices
        control:UpdateChoices(dropdownData.choices)
        control.UpdateValue = UpdateValue
        control:UpdateValue()
        
        if control.panel.data.registerForRefresh or control.panel.data.registerForDefaults then --if our parent window wants to refresh controls, then add this to the list
                tinsert(control.panel.controlsToRefresh, control)
        end

        return control
end

Compare with Previous | Blame