ESOUI SVN TaosGroupUltimate

--[[submenuData = {

    type = "submenu",

    name = "Submenu Title", -- or string id or function returning a string

    tooltip = "My submenu tooltip", -- -- or string id or function returning a string (optional)

    controls = {sliderData, buttonData} --(optional) used by LAM

    reference = "MyAddonSubmenu" --(optional) unique global reference to control

} ]]

local widgetVersion = 11

local LAM = LibStub("LibAddonMenu-2.0")

if not LAM:RegisterWidget("submenu", widgetVersion) then return end

local wm = WINDOW_MANAGER

local am = ANIMATION_MANAGER

local function UpdateValue(control)

    control.label:SetText(LAM.util.GetStringFromValue(control.data.name))

    if control.data.tooltip then

        control.label.data.tooltipText = LAM.util.GetStringFromValue(control.data.tooltip)

    end

end

local function AnimateSubmenu(clicked)

    local control = clicked:GetParent()

    control.open = not control.open

    if control.open then

        control.animation:PlayFromStart()

    else

        control.animation:PlayFromEnd()

    end

end

function LAMCreateControl.submenu(parent, submenuData, controlName)

    local width = parent:GetWidth() - 45

    local control = wm:CreateControl(controlName or submenuData.reference, parent.scroll or parent, CT_CONTROL)

    control.panel = parent

    control.data = submenuData

    control.label = wm:CreateControlFromVirtual(nil, control, "ZO_Options_SectionTitleLabel")

    local label = control.label

    label:SetAnchor(TOPLEFT, control, TOPLEFT, 5, 5)

    label:SetDimensions(width, 30)

    label:SetWrapMode(TEXT_WRAP_MODE_ELLIPSIS)

    label:SetText(LAM.util.GetStringFromValue(submenuData.name))

    label:SetMouseEnabled(true)

    if submenuData.tooltip then

        label.data = {tooltipText = LAM.util.GetStringFromValue(submenuData.tooltip)}

        label:SetHandler("OnMouseEnter", ZO_Options_OnMouseEnter)

        label:SetHandler("OnMouseExit", ZO_Options_OnMouseExit)

    end

    control.scroll = wm:CreateControl(nil, control, CT_SCROLL)

    local scroll = control.scroll

    scroll:SetParent(control)

    scroll:SetAnchor(TOPLEFT, label, BOTTOMLEFT, 0, 10)

    scroll:SetDimensionConstraints(width + 5, 0, width + 5, 0)

    control.bg = wm:CreateControl(nil, label, CT_BACKDROP)

    local bg = control.bg

    bg:SetAnchor(TOPLEFT, label, TOPLEFT, -5, -5)

    bg:SetAnchor(BOTTOMRIGHT, scroll, BOTTOMRIGHT, -7, 0)

    bg:SetEdgeTexture("EsoUI\\Art\\Tooltips\\UI-Border.dds", 128, 16)

    bg:SetCenterTexture("EsoUI\\Art\\Tooltips\\UI-TooltipCenter.dds")

    bg:SetInsets(16, 16, -16, -16)

    control.arrow = wm:CreateControl(nil, bg, CT_TEXTURE)

    local arrow = control.arrow

    arrow:SetDimensions(28, 28)

    arrow:SetTexture("EsoUI\\Art\\Miscellaneous\\list_sortdown.dds") --list_sortup for the other way

    arrow:SetAnchor(TOPRIGHT, bg, TOPRIGHT, -5, 5)

    --figure out the cool animation later...

    control.animation = am:CreateTimeline()

    local animation = control.animation

    animation:SetPlaybackType(ANIMATION_SIZE, 0) --2nd arg = loop count

    control:SetResizeToFitDescendents(true)

    control.open = false

    label:SetHandler("OnMouseUp", AnimateSubmenu)

    animation:SetHandler("OnStop", function(self, completedPlaying)

        scroll:SetResizeToFitDescendents(control.open)

        if control.open then

            control.arrow:SetTexture("EsoUI\\Art\\Miscellaneous\\list_sortup.dds")

            scroll:SetResizeToFitPadding(5, 20)

        else

            control.arrow:SetTexture("EsoUI\\Art\\Miscellaneous\\list_sortdown.dds")

            scroll:SetResizeToFitPadding(5, 0)

            scroll:SetHeight(0)

        end

    end)

    --small strip at the bottom of the submenu that you can click to close it

    control.btmToggle = wm:CreateControl(nil, control, CT_TEXTURE)

    local btmToggle = control.btmToggle

    btmToggle:SetMouseEnabled(true)

    btmToggle:SetAnchor(BOTTOMLEFT, control.scroll, BOTTOMLEFT)

    btmToggle:SetAnchor(BOTTOMRIGHT, control.scroll, BOTTOMRIGHT)

    btmToggle:SetHeight(15)

    btmToggle:SetAlpha(0)

    btmToggle:SetHandler("OnMouseUp", AnimateSubmenu)

    control.UpdateValue = UpdateValue

    LAM.util.RegisterForRefreshIfNeeded(control)

    return control

end