TimerBars_Options.lua

local trace = print

TIMERBARS.MAXBARSPACING = 24;
TIMERBARS.MAXBARPADDING = 12;

local GetActiveTalentGroup = _G.GetActiveSpecGroup

local LSM = LibStub("LibSharedMedia-3.0", true);
local textureList = LSM:List("statusbar");
local fontList = LSM:List("font");
local TimerBars_OldProfile = nil;
local TimerBars_OldSettings = nil;

TimerBarsOptions = {}
TimerBarsRMB = {}

function TimerBars.FindProfileByName(profName)
    local key
    for k,t in pairs(TimerBars_Profiles) do
        if t.name == profName then
            return k
        end
    end
end

function TimerBars.SlashCommand(cmd)
    local args = {}
    for arg in cmd:gmatch("(%S+)") do
        table.insert(args, arg)
    end

    cmd = args[1]
    table.remove(args,1)

    if not cmd then
        TimerBars.LockToggle();
    elseif ( cmd == TIMERBARS.CMD_RESET ) then
        TimerBars.Reset();
    elseif ( cmd == TIMERBARS.CMD_SHOW ) then
        TimerBars.Show(true);
    elseif ( cmd == TIMERBARS.CMD_HIDE ) then
        TimerBars.Show(false);
    elseif ( cmd == TIMERBARS.CMD_PROFILE ) then
        if args[1] then
            local profileName = table.concat(args, " ")
            local key = TimerBars.FindProfileByName( profileName )
            if key then
                TimerBars.ChangeProfile(key)
                TimerBarsOptions.UIPanel_Profile_Update()
            else
                print("Could not find a profile named '",profileName,"'");
            end
        else
            local spec = GetActiveTalentGroup()
            local profile = TimerBars.CharSettings.Specs[spec]
            print("Current TimerBars profile is \""..profile.."\"") -- LOCME!
        end
    else
        print("Unknown TimerBars command",cmd)
    end
end

function TimerBars.LockToggle(bLock)
    if nil == bLock then
        if TimerBars.CharSettings["Locked"] then
            bLock = false;
        else
            bLock = true;
        end
    end

    TimerBars.Show(true);

    if TimerBars.CharSettings["Locked"] ~= bLock then
        TimerBars.CharSettings["Locked"] = bLock;
        TimerBars.last_cast = {};
        TimerBars.Update();
    end
end


-- -----------------------------
-- INTERFACE OPTIONS PANEL: MAIN
-- -----------------------------

function TimerBarsOptions.UIPanel_OnLoad(self)
    local panelName = self:GetName();
    local numberbarsLabel = _G[panelName.."NumberbarsLabel"];
    local fixedDurationLabel = _G[panelName.."FixedDurationLabel"];
    _G[panelName.."Version"]:SetText(TIMERBARS.VERSION);
    _G[panelName.."SubText1"]:SetText(TIMERBARS.UIPANEL_SUBTEXT1);
    numberbarsLabel:SetText(TIMERBARS.UIPANEL_NUMBERBARS);
    numberbarsLabel:SetWidth(50);
    fixedDurationLabel:SetText(TIMERBARS.UIPANEL_FIXEDDURATION);
    fixedDurationLabel:SetWidth(50);
end

function TimerBarsOptions.UIPanel_OnShow()
    TimerBars_OldProfile =TimerBars.ProfileSettings;
    TimerBars_OldSettings = CopyTable(TimerBars.ProfileSettings);
    TimerBarsOptions.UIPanel_Update();
end

function TimerBarsOptions.UIPanel_Update()
    local panelName = "InterfaceOptionsTimerBarsPanel";
    if not _G[panelName]:IsVisible() then return end

    local settings = TimerBars.ProfileSettings;

    for groupID = 1, settings.nGroups do
        TimerBarsOptions.GroupEnableButton_Update(groupID);
        TimerBarsOptions.NumberbarsWidget_Update(groupID);
        _G[panelName.."Group"..groupID.."FixedDurationBox"]:SetText(settings.Groups[groupID]["FixedDuration"] or "");
    end
end

function TimerBarsOptions.GroupEnableButton_Update(groupID)
    local button = _G["InterfaceOptionsTimerBarsPanelGroup"..groupID.."EnableButton"];
    button:SetChecked(TimerBars.ProfileSettings.Groups[groupID]["Enabled"]);
end

function TimerBarsOptions.GroupEnableButton_OnClick(self)
    local groupID = self:GetParent():GetID();
    if ( self:GetChecked() ) then
        if groupID > TimerBars.ProfileSettings.nGroups then
            TimerBars.ProfileSettings.nGroups = groupID
        end
        TimerBars.ProfileSettings.Groups[groupID]["Enabled"] = true;
    else
        TimerBars.ProfileSettings.Groups[groupID]["Enabled"] = false;
    end
    TimerBars.Update();
end

function TimerBarsOptions.NumberbarsWidget_Update(groupID)
    local widgetName = "InterfaceOptionsTimerBarsPanelGroup"..groupID.."NumberbarsWidget";
    local text = _G[widgetName.."Text"];
    local leftButton = _G[widgetName.."LeftButton"];
    local rightButton = _G[widgetName.."RightButton"];
    local numberBars = TimerBars.ProfileSettings.Groups[groupID]["NumberBars"];
    text:SetText(numberBars);
    leftButton:Enable();
    rightButton:Enable();
    if ( numberBars == 1 ) then
        leftButton:Disable();
    elseif ( numberBars == TIMERBARS.MAXBARS ) then
        rightButton:Disable();
    end
end

function TimerBarsOptions.NumberbarsButton_OnClick(self, increment)
    local groupID = self:GetParent():GetParent():GetID();
    local oldNumber = TimerBars.ProfileSettings.Groups[groupID]["NumberBars"];
    if ( oldNumber == 1 ) and ( increment < 0 ) then
        return;
    elseif ( oldNumber == TIMERBARS.MAXBARS ) and ( increment > 0 ) then
        return;
    end
    TimerBars.ProfileSettings.Groups[groupID]["NumberBars"] = oldNumber + increment;
    TimerBars.Group_Update(groupID);
    TimerBarsOptions.NumberbarsWidget_Update(groupID);
end

function TimerBarsOptions.FixedDurationEditBox_OnTextChanged(self)
    local enteredText = self:GetText();
    if enteredText == "" then
        TimerBars.ProfileSettings.Groups[self:GetParent():GetID()]["FixedDuration"] = nil;
    else
        TimerBars.ProfileSettings.Groups[self:GetParent():GetID()]["FixedDuration"] = enteredText;
    end
    TimerBars.Update();
end

function TimerBarsOptions.Cancel()
    -- Can't copy the table here since ProfileSettings needs to point to the right place in
    -- TimerBars_Globals.Profiles or in TimerBars_CharSettings.Profiles
	-- FIXME: This is only restoring a small fraction of the total settings.
    TimerBars.RestoreTableFromCopy(TimerBars_OldProfile, TimerBars_OldSettings);
    -- FIXME: Close context menu if it's open; it may be referring to bar that doesn't exist
    TimerBars.Update();
end


-- -----------------------------------
-- INTERFACE OPTIONS PANEL: APPEARANCE
-- -----------------------------------
TimerBarsOptions.DefaultSelectedColor =   { 0.1, 0.6, 0.8, 1 }
TimerBarsOptions.DefaultNormalColor = { 0.7, 0.7, 0.7, 0 }

function TimerBarsOptions.UIPanel_Appearance_OnLoad(self)
    self.name = TIMERBARS.UIPANEL_APPEARANCE;
    self.parent = "TimerBars"
    self.default = TimerBars.ResetCharacter
    self.cancel = TimerBarsOptions.Cancel
    -- need different way to handle cancel?  users might open appearance panel without opening main panel
    InterfaceOptions_AddCategory(self)

    local panelName = self:GetName()
    _G[panelName.."Version"]:SetText(TIMERBARS.VERSION)
    _G[panelName.."SubText1"]:SetText(TIMERBARS.UIPANEL_APPEARANCE_SUBTEXT1)

    self.Textures.fnClick = TimerBarsOptions.OnClickTextureItem
    self.Textures.configure = function(i, btn, label)
        btn.Bg:SetTexture(TimerBars.LSM:Fetch("statusbar",label))
    end
    self.Textures.List.update = TimerBarsOptions.UpdateBarTextureDropDown
    self.Textures.normal_color =  { 0.7, 0.7, 0.7, 1 }

    self.Fonts.fnClick = TimerBarsOptions.OnClickFontItem
    self.Fonts.configure = function(i, btn, label)
        local fontPath = TimerBars.LSM:Fetch("font",label)
        btn.text:SetFont(fontPath, 12)
        btn.Bg:SetTexture(TimerBars.LSM:Fetch("statusbar","Minimalist"))
    end
    self.Fonts.List.update = TimerBarsOptions.UpdateBarFontDropDown

    _G[panelName.."TexturesTitle"]:SetText("Texture:") -- LOCME
    _G[panelName.."FontsTitle"]:SetText("Font:") -- LOCME
end

function TimerBarsOptions.UIPanel_Appearance_OnShow(self)
    TimerBarsOptions.UIPanel_Appearance_Update();

    -- todo: Cache this? Update needs it to
    local idxCurrent = 1
    for i = 1, #textureList do
        if TimerBars.ProfileSettings["BarTexture"] == textureList[i] then
            idxCurrent = i
            break;
        end
    end
    local idxScroll = idxCurrent - 3
    if idxScroll < 0 then
        idxScroll = 0
    end
    self.Textures.List.scrollBar:SetValue(idxScroll * self.Textures.List.buttonHeight+0.1)
    HybridScrollFrame_OnMouseWheel(self.Textures.List, 1, 0.1);

    for i = 1, #fontList do
        if TimerBars.ProfileSettings["BarFont"] == fontList[i] then
            idxCurrent = i
            break;
        end
    end
    idxScroll = idxCurrent - 3
    if idxScroll < 0 then
        idxScroll = 0
    end
    self.Fonts.List.scrollBar:SetValue(idxScroll * self.Fonts.List.buttonHeight+0.1)
    HybridScrollFrame_OnMouseWheel(self.Fonts.List, 1, 0.1);
end

function TimerBarsOptions.UIPanel_Appearance_Update()
    local panelName = "InterfaceOptionsTimerBarsAppearancePanel";
    local panel = _G[panelName]
    if not panel or not panel:IsVisible() then return end

    local settings = TimerBars.ProfileSettings;
    local barSpacingSlider = _G[panelName.."BarSpacingSlider"];
    local barPaddingSlider = _G[panelName.."BarPaddingSlider"];
    local fontSizeSlider = _G[panelName.."FontSizeSlider"];
    local fontOutlineSlider = _G[panelName.."FontOutlineSlider"];

    -- Mimic the behavior of the context menu, and force the alpha to one in the swatch
    local r,g,b = unpack(settings.BkgdColor);
    _G[panelName.."BackgroundColorButtonNormalTexture"]:SetVertexColor(r,g,b,1);

    barSpacingSlider:SetMinMaxValues(0, TIMERBARS.MAXBARSPACING);
    barSpacingSlider:SetValue(settings.BarSpacing);
    barSpacingSlider:SetValueStep(0.25);
    barPaddingSlider:SetMinMaxValues(0, TIMERBARS.MAXBARPADDING);
    barPaddingSlider:SetValue(settings.BarPadding);
    barPaddingSlider:SetValueStep(0.25);
    fontSizeSlider:SetMinMaxValues(5,20);
    fontSizeSlider:SetValue(settings.FontSize);
    fontSizeSlider:SetValueStep(0.5);
    fontOutlineSlider:SetMinMaxValues(0,2);
    fontOutlineSlider:SetValue(settings.FontOutline);
    fontOutlineSlider:SetValueStep(1);

    TimerBarsOptions.UpdateBarTextureDropDown(_G[panelName.."Textures"]);
    TimerBarsOptions.UpdateBarFontDropDown(_G[panelName.."Fonts"]);
end

-- -----------------------------------
-- INTERFACE OPTIONS PANEL: PROFILE
-- -----------------------------------

function TimerBarsOptions.UIPanel_Profile_OnLoad(self)
    self.name = TIMERBARS.UIPANEL_PROFILE;
    self.parent = "TimerBars";
    self.default = TimerBars.ResetCharacter;
    ---- self.cancel = TimerBars.Cancel;
    ---- need different way to handle cancel?  users might open appearance panel without opening main panel
    InterfaceOptions_AddCategory(self);

    local panelName = self:GetName();
    _G[panelName.."Version"]:SetText(TIMERBARS.VERSION);
    _G[panelName.."SubText1"]:SetText(TIMERBARS.UIPANEL_PROFILES_SUBTEXT1);

    self.Profiles.configure = function(i, btn, label)
        btn.Bg:SetTexture(TimerBars.LSM:Fetch("statusbar","Minimalist"))
    end
    self.Profiles.List.update = TimerBarsOptions.UpdateProfileList
    self.Profiles.fnClick = function(self)
        local scrollPanel = self:GetParent():GetParent():GetParent()
        scrollPanel.curSel = self.text:GetText()
        TimerBarsOptions.UpdateProfileList()
    end
end

function TimerBarsOptions.UIPanel_Profile_OnShow(self)
    TimerBarsOptions.RebuildProfileList(self)
    TimerBarsOptions.UIPanel_Profile_Update();
end

function TimerBarsOptions.UIPanel_Profile_Update()
    local panelName = "InterfaceOptionsTimerBarsProfilePanel";
    local title
	-- FIXME: Use GetSpecializationInfoForClassID(UnitClass("player"), GetSpecialization()) instead of primary
    _G[panelName.."ProfilesTitle"]:SetText(TIMERBARS.UIPANEL_CURRENTPRIMARY)
    local self = _G[panelName]
    if not self:IsVisible() then return end
    TimerBarsOptions.UpdateProfileList()
end

function TimerBarsOptions.RebuildProfileList(profilePanel)
    local scrollPanel = profilePanel.Profiles
    local oldKey
    if ( scrollPanel.curSel and scrollPanel.profileMap ) then
        oldKey = scrollPanel.profileMap[scrollPanel.curSel].key
    end

    if not scrollPanel.profileNames then
        scrollPanel.profileNames = { }
    end
    scrollPanel.profileMap = { }

    local allNames = scrollPanel.profileNames
    local allRefs = scrollPanel.profileMap

    local n = 0
    local subList = TimerBars_Profiles
    if subList then
        for profKey, rProfile in pairs(subList) do
            n = n + 1
            local profName
            if TimerBars_Globals.Profiles[profKey] == rProfile then
                profName = 'Account: '..rProfile.name -- FIXME Localization
            else
                profName = 'Character: '..rProfile.name -- Fixme: Character-Server:
            end
            allNames[n] = profName
            allRefs[profName] = { ref = rProfile, global=true, key=profKey }
            if ( profKey == oldKey ) then
                scrollPanel.curSel = profName;
            end
        end
    end
    while n < #allNames do
        table.remove(allNames)
    end

    table.sort(allNames, function(lhs,rhs) return string.upper(lhs)<string.upper(rhs) end )
    TimerBarsOptions.UpdateProfileList()
end

function TimerBarsOptions.IsProfileNameAvailable(newName)
    if not newName or newName == "" then
        return false;
    end

    for k, profile in pairs(TimerBars_Profiles) do
        if profile.name == newName then
            return false;
        end
    end
    return true;
end

function TimerBarsOptions.UpdateProfileList()
    local panel = _G["InterfaceOptionsTimerBarsProfilePanel"]
    local scrollPanel = panel.Profiles
    if scrollPanel.profileNames then
        local curProfile
        for n,r in pairs(scrollPanel.profileMap) do
            if r.ref == TimerBars.ProfileSettings then
                curProfile = n
                break;
            end
        end

	if not scrollPanel.curSel or not scrollPanel.profileMap[scrollPanel.curSel] then
            scrollPanel.curSel = curProfile
        end
        local curSel = scrollPanel.curSel

        TimerBarsOptions.UpdateScrollPanel(scrollPanel, scrollPanel.profileNames, curSel, curProfile)

        local optionsPanel = scrollPanel:GetParent()
        if curSel == curProfile then
            optionsPanel.SwitchToBtn:Disable()
        else
            optionsPanel.SwitchToBtn:Enable()
        end

        if curSel == curProfile then
            optionsPanel.DeleteBtn:Disable()
        else
            optionsPanel.DeleteBtn:Enable()
        end

        local curEntry = optionsPanel.NewName:GetText()
        if TimerBarsOptions.IsProfileNameAvailable(curEntry) then
            optionsPanel.RenameBtn:Enable()
            optionsPanel.CopyBtn:Enable()
        else
            optionsPanel.RenameBtn:Disable()
            optionsPanel.CopyBtn:Disable()
        end

        local rSelectedProfile = scrollPanel.profileMap[curSel].ref;
        local rSelectedKey = scrollPanel.profileMap[curSel].key;
        if ( rSelectedProfile and rSelectedKey and TimerBars_Globals.Profiles[rSelectedKey] == rSelectedProfile ) then
            optionsPanel.PrivateBtn:Show();
            optionsPanel.PublicBtn:Hide();
        else
            optionsPanel.PrivateBtn:Hide();
            optionsPanel.PublicBtn:Show();
        end
    end
end

function TimerBarsOptions.UIPanel_Profile_SwitchToSelected(panel)
    local scrollPanel = panel.Profiles
    local curSel = scrollPanel.curSel
    if curSel then
        TimerBars.ChangeProfile( scrollPanel.profileMap[curSel].key )
        TimerBarsOptions.UpdateProfileList()
    end
end

StaticPopupDialogs["TIMERBARS.CONFIRMDLG"] = {
    button1 = YES,
    button2 = NO,
    timeout = 0,
    hideOnEscape = 1,
    OnShow = function(self)
        self.oldStrata = self:GetFrameStrata()
        self:SetFrameStrata("TOOLTIP")
    end,
    OnHide = function(self)
        if self.oldStrata then
            self:SetFrameStrata(self.oldStrata)
        end
    end
};
function TimerBarsOptions.UIPanel_Profile_DeleteSelected(panel)
    local scrollPanel = panel.Profiles
    local curSel = scrollPanel.curSel
    if curSel then
        local k = scrollPanel.profileMap[curSel].key
        local dlgInfo = StaticPopupDialogs["TIMERBARS.CONFIRMDLG"]
        dlgInfo.text = "Are you sure you want to delete the profile: ".. curSel .."?"
        dlgInfo.OnAccept = function(self, data)
            if TimerBars_Profiles[k] == TimerBars.ProfileSettings then
                print("TimerBars: Won't delete the active profile!")
            else
                TimerBars_Profiles[k] = nil;
                if TimerBars_Globals.Profiles[k] then
                    print("TimerBars: deleted account-wide profile", TimerBars_Globals.Profiles[k].name) -- LOCME
                    TimerBars_Globals.Profiles[k] = nil;
                elseif TimerBars_CharSettings.Profiles[k] then
                    print("TimerBars: deleted character profile", TimerBars_CharSettings.Profiles[k].name) -- LOCME
                    TimerBars_CharSettings.Profiles[k] = nil;
                end
                TimerBarsOptions.RebuildProfileList(panel)
            end
        end
        StaticPopup_Show("TIMERBARS.CONFIRMDLG");
    end
end

function TimerBarsOptions.UIPanel_Profile_CopySelected(panel)
    local scrollPanel = panel.Profiles
    local curSel = scrollPanel.curSel
    local edit = panel.NewName
    local newName = edit:GetText()
    edit:ClearFocus()
    if scrollPanel.curSel and TimerBarsOptions.IsProfileNameAvailable(newName) then
        local keyNew = TimerBars.CreateProfile(CopyTable(scrollPanel.profileMap[curSel].ref), nil, newName)
        TimerBars.ChangeProfile(keyNew)
        TimerBarsOptions.RebuildProfileList(panel)
        edit:SetText("");
        print("TimerBars: Copied",curSel,"to",newName,"and made it the active profile")
    end
end


function TimerBarsOptions.UIPanel_Profile_RenameSelected(panel)
    local scrollPanel = panel.Profiles
    local edit = panel.NewName
    local newName = edit:GetText()
    edit:ClearFocus()
    if scrollPanel.curSel and TimerBarsOptions.IsProfileNameAvailable(newName) then
        local key = scrollPanel.profileMap[scrollPanel.curSel].key
        print("TimerBars: Renaming profile",TimerBars_Profiles[key].name,"to",newName)
        TimerBars_Profiles[key].name = newName;
        edit:SetText("");
        TimerBarsOptions.RebuildProfileList(panel)
    end
end

function TimerBarsOptions.UIPanel_Profile_PublicizeSelected(panel)
    local scrollPanel = panel.Profiles
    if scrollPanel.curSel then
        local ref = scrollPanel.profileMap[scrollPanel.curSel].ref
        local key = scrollPanel.profileMap[scrollPanel.curSel].key
        TimerBars_Globals.Profiles[key] = ref
        TimerBars_CharSettings.Profiles[key] = nil
        TimerBarsOptions.RebuildProfileList(panel)
    end
end

function TimerBarsOptions.UIPanel_Profile_PrivatizeSelected(panel)
    local scrollPanel = panel.Profiles
    if scrollPanel.curSel then
        local ref = scrollPanel.profileMap[scrollPanel.curSel].ref
        local key = scrollPanel.profileMap[scrollPanel.curSel].key
        TimerBars_Globals.Profiles[key] = nil
        TimerBars_CharSettings.Profiles[key] = ref
        TimerBarsOptions.RebuildProfileList(panel)
    end
end

-----

function TimerBarsOptions.OnClickTextureItem(self)
    TimerBars.ProfileSettings["BarTexture"] = self.text:GetText()
    TimerBars.Update()
    TimerBarsOptions.UIPanel_Appearance_Update()
end


function TimerBarsOptions.OnClickFontItem(self)
    TimerBars.ProfileSettings["BarFont"] = self.text:GetText()
    TimerBars.Update()
    TimerBarsOptions.UIPanel_Appearance_Update()
end



function TimerBarsOptions.ChooseColor(variable)
    info = UIDropDownMenu_CreateInfo();
    info.r, info.g, info.b, info.opacity = unpack(TimerBars.ProfileSettings[variable]);
    info.opacity = 1 - info.opacity;
    info.hasOpacity = true;
    info.opacityFunc = TimerBarsOptions.SetOpacity;
    info.swatchFunc = TimerBarsOptions.SetColor;
    info.cancelFunc = TimerBarsOptions.CancelColor;
    info.extraInfo = variable;
    -- Not sure if I should leave this state around or not.  It seems like the
    -- correct strata to have it at anyway, so I'm going to leave it there for now
    ColorPickerFrame:SetFrameStrata("FULLSCREEN_DIALOG");
    OpenColorPicker(info);
end

function TimerBarsOptions.SetColor()
    local variable = ColorPickerFrame.extraInfo;
    local r,g,b = ColorPickerFrame:GetColorRGB();
    TimerBars.ProfileSettings[variable][1] = r;
    TimerBars.ProfileSettings[variable][2] = g;
    TimerBars.ProfileSettings[variable][3] = b;
    TimerBars.Update();
    TimerBarsOptions.UIPanel_Appearance_Update();
end

function TimerBarsOptions.SetOpacity()
    local variable = ColorPickerFrame.extraInfo;
    TimerBars.ProfileSettings[variable][4] = 1 - OpacitySliderFrame:GetValue();
    TimerBars.Update();
    TimerBarsOptions.UIPanel_Appearance_Update();
end

function TimerBarsOptions.CancelColor(previousValues)
    if ( previousValues ) then
        local variable = ColorPickerFrame.extraInfo;
        TimerBars.ProfileSettings[variable] = {previousValues.r, previousValues.g, previousValues.b, previousValues.opacity};
        TimerBars.Update();
        TimerBarsOptions.UIPanel_Appearance_Update();
    end
end

function TimerBarsOptions.UIPanel_Appearance_OnSizeChanged(self)
    -- Despite my best efforts, the scroll bars insist on being outside the width of their
    local mid = self:GetWidth()/2 --+ _G[self:GetName().."TexturesListScrollBar"]:GetWidth()
    local textures = self.Textures
    local leftTextures = textures:GetLeft()
    if mid and mid > 0 and textures and leftTextures then
        local ofs = leftTextures - self:GetLeft()
        textures:SetWidth(mid - ofs)
    end
end


function TimerBarsOptions.OnScrollFrameSized(self)
    local old_value = self.scrollBar:GetValue();
    local scrollFrame = self:GetParent();

    HybridScrollFrame_CreateButtons(self, "TimerBarsScrollItemTemplate")
    --scrollFrame.Update(scrollFrame)

    local max_value = self.range or self:GetHeight()
    self.scrollBar:SetValue(min(old_value, max_value));
    -- Work around a bug in HybridScrollFrame; it can't scroll by whole items (wow 4.1)
    --self.stepSize = self.buttons[1]:GetHeight()*.9
end


function TimerBarsOptions.UpdateScrollPanel(panel, list, selected, checked)
    local Value = _G[panel:GetName().."Value"]
    Value:SetText(checked)

    local PanelList = panel.List
    local buttons = PanelList.buttons
    HybridScrollFrame_Update(PanelList, #(list) * buttons[1]:GetHeight() , PanelList:GetHeight())

    local numButtons = #buttons;
    local scrollOffset = HybridScrollFrame_GetOffset(PanelList);
    local label;
    for i = 1, numButtons do
        local idx = i + scrollOffset
        label = list[idx]
        if ( label ) then
            buttons[i]:Show();
            buttons[i].text:SetText(label);

            if ( label == checked ) then
                buttons[i].Check:Show();
            else
                buttons[i].Check:Hide();
            end
            if ( label == selected ) then
                local color = panel.selected_color
                if not color then color = TimerBarsOptions.DefaultSelectedColor end
                buttons[i].Bg:SetVertexColor(unpack(color));
            else
                local color = panel.normal_color
                if not color then color = TimerBarsOptions.DefaultNormalColor end
                buttons[i].Bg:SetVertexColor(unpack(color));
            end

            panel.configure(i, buttons[i], label)
        else
            buttons[i]:Hide();
        end
    end
end

--function TimerBarsOptions.OnScrollFrameScrolled(self)
    --local scrollPanel = self:GetParent()
    --local fn = scrollPanel.Update
    --if fn then fn(scrollPanel) end
--end
--
function TimerBarsOptions.UpdateBarTextureDropDown()
    local scrollPanel = _G["InterfaceOptionsTimerBarsAppearancePanelTextures"]
    TimerBarsOptions.UpdateScrollPanel(scrollPanel, textureList, TimerBars.ProfileSettings.BarTexture, TimerBars.ProfileSettings.BarTexture)
end

function TimerBarsOptions.UpdateBarFontDropDown()
    local scrollPanel = _G["InterfaceOptionsTimerBarsAppearancePanelFonts"]
    TimerBarsOptions.UpdateScrollPanel(scrollPanel, fontList, nil, TimerBars.ProfileSettings.BarFont)
end

-- --------
-- BAR GUI
-- --------

TimerBarsRMB.CurrentBar = { groupID = 1, barID = 1 };        -- a dirty hack, i know.

StaticPopupDialogs["TIMERBARS.CHOOSENAME_DIALOG"] = {
    text = TIMERBARS.CHOOSENAME_DIALOG,
    button1 = ACCEPT,
    button2 = CANCEL,
    hasEditBox = 1,
    editBoxWidth = 300,
    maxLetters = 0,
    OnAccept = function(self)
        local text = self.editBox:GetText();
        local variable = self.variable;
        if ( nil ~= variable ) then
            TimerBarsRMB.BarMenu_ChooseName(text, variable);
        end
    end,
    EditBoxOnEnterPressed = function(self)
        StaticPopupDialogs["TIMERBARS.CHOOSENAME_DIALOG"].OnAccept(self:GetParent())
        self:GetParent():Hide();
    end,
    EditBoxOnEscapePressed = function(self)
        self:GetParent():Hide();
    end,
    OnHide = function(self)
    -- Removed for wow 3.3.5, it seems like there is a focu stack
    -- now that obsoletes this anyway.  If not, there isn't a
    -- single ChatFrameEditBox anymore, there's ChatFrame1EditBox etc.
        -- if ( ChatFrameEditBox:IsVisible() ) then
        --    ChatFrameEditBox:SetFocus();
        -- end
        self.editBox:SetText("");
    end,
    timeout = 0,
    whileDead = 1,
    hideOnEscape = 1,
};

TimerBarsRMB.BarMenu_MoreOptions = {
    { VariableName = "Enabled", MenuText = TIMERBARS.BARMENU_ENABLE },
    { VariableName = "AuraName", MenuText = TIMERBARS.BARMENU_CHOOSENAME, Type = "Dialog", DialogText = "CHOOSENAME_DIALOG" },
    { VariableName = "BuffOrDebuff", MenuText = TIMERBARS.BARMENU_BUFFORDEBUFF, Type = "Submenu" },
    { VariableName = "Options", MenuText = "Settings", Type = "Submenu" },
    {},
    { VariableName = "TimeFormat", MenuText = TIMERBARS.BARMENU_TIMEFORMAT, Type = "Submenu" },
    { VariableName = "Show", MenuText = TIMERBARS.BARMENU_SHOW, Type = "Submenu" },
    { VariableName = "VisualCastTime", MenuText = TIMERBARS.BARMENU_VISUALCASTTIME, Type = "Submenu" },
    { VariableName = "BlinkSettings", MenuText = "Blink Settings", Type = "Submenu" }, -- LOCME
    { VariableName = "BarColor", MenuText = TIMERBARS.BARMENU_BARCOLOR, Type = "Color" },
    {},
    { VariableName = "ImportExport", MenuText = "Import/Export Bar Settings", Type = "Dialog", DialogText = "IMPORTEXPORT_DIALOG" },
}

TimerBarsRMB.BarMenu_SubMenus = {
    -- the keys on this table need to match the settings variable names
    BuffOrDebuff = {
          { Setting = "HELPFUL", MenuText = TIMERBARS.BARMENU_HELPFUL },
          { Setting = "HARMFUL", MenuText = TIMERBARS.BARMENU_HARMFUL },
          { Setting = "TOTEM", MenuText = TIMERBARS.BARMENU_TOTEM },
          { Setting = "CASTCD", MenuText = TIMERBARS.BARMENU_CASTCD },
          { Setting = "BUFFCD", MenuText = TIMERBARS.BARMENU_BUFFCD },
-- Now that Victory Rush adds a buff when you can use it, this confusing option is being removed.
-- The code that drives it remains so that any existing users' bars won't break.
--          { Setting = "USABLE", MenuText = TIMERBARS.BARMENU_USABLE },
          { Setting = "EQUIPSLOT", MenuText = TIMERBARS.BARMENU_EQUIPSLOT },
        --   { Setting = "POWER", MenuText = TIMERBARS.BARMENU_POWER }
    },
    TimeFormat = {
          { Setting = "Fmt_SingleUnit", MenuText = TIMERBARS.FMT_SINGLEUNIT },
          { Setting = "Fmt_TwoUnits", MenuText = TIMERBARS.FMT_TWOUNITS },
          { Setting = "Fmt_Float", MenuText = TIMERBARS.FMT_FLOAT },
    },
    Unit = {
        { Setting = "player", MenuText = TIMERBARS.BARMENU_PLAYER },
        { Setting = "target", MenuText = TIMERBARS.BARMENU_TARGET },
        { Setting = "targettarget", MenuText = TIMERBARS.BARMENU_TARGETTARGET },
        { Setting = "focus", MenuText = TIMERBARS.BARMENU_FOCUS },
        { Setting = "pet", MenuText = TIMERBARS.BARMENU_PET },
        { Setting = "vehicle", MenuText = TIMERBARS.BARMENU_VEHICLE },
        { Setting = "lastraid", MenuText = TIMERBARS.BARMENU_LAST_RAID },
    },
    DebuffUnit = {
        { Setting = "player", MenuText = TIMERBARS.BARMENU_PLAYER },
        { Setting = "target", MenuText = TIMERBARS.BARMENU_TARGET },
        { Setting = "targettarget", MenuText = TIMERBARS.BARMENU_TARGETTARGET },
        { Setting = "focus", MenuText = TIMERBARS.BARMENU_FOCUS },
        { Setting = "pet", MenuText = TIMERBARS.BARMENU_PET },
        { Setting = "vehicle", MenuText = TIMERBARS.BARMENU_VEHICLE },
    },
    Opt_HELPFUL = {
      { VariableName = "Unit", MenuText = TIMERBARS.BARMENU_CHOOSEUNIT, Type = "Submenu" },
      { VariableName = "bDetectExtends", MenuText = "Track duration increases" }, -- LOCME
      { VariableName = "OnlyMine", MenuText = TIMERBARS.BARMENU_ONLYMINE },
      { VariableName = "show_all_stacks", MenuText = "Sum stacks from all casters" },
    },
    Opt_HARMFUL = {
      { VariableName = "DebuffUnit", MenuText = TIMERBARS.BARMENU_CHOOSEUNIT, Type = "Submenu" },
      { VariableName = "bDetectExtends", MenuText = "Track duration increases" }, -- LOCME
      { VariableName = "OnlyMine", MenuText = TIMERBARS.BARMENU_ONLYMINE },
      { VariableName = "show_all_stacks", MenuText = "Sum stacks from all casters" },
    },
    Opt_TOTEM = {},
    Opt_CASTCD =
    {
        { VariableName = "append_cd", MenuText = "Append \"CD\"" }, -- LOCME
        { VariableName = "show_charges", MenuText = "Show first and last charge CD" }, -- LOCME
    },
    Opt_EQUIPSLOT =
    {
        { VariableName = "append_cd", MenuText = "Append \"CD\"" }, -- LOCME
    },
    -- Opt_POWER =
    -- {
    --   { VariableName = "Unit", MenuText = TIMERBARS.BARMENU_CHOOSEUNIT, Type = "Submenu" },
    --   { VariableName = "power_sole", MenuText = "Only Show When Primary" }, -- LOCME
    -- },
    Opt_BUFFCD =
    {
        { VariableName = "buffcd_duration", MenuText = "Cooldown duration...", Type = "Dialog", DialogText = "BUFFCD_DURATION_DIALOG", Numeric=true },
        { VariableName = "buffcd_reset_spells", MenuText = "Reset on buff...", Type = "Dialog", DialogText = "BUFFCD_RESET_DIALOG" },
        { VariableName = "append_cd", MenuText = "Append \"CD\"" }, -- LOCME
    },
    Opt_USABLE =
    {
        { VariableName = "usable_duration", MenuText = "Usable duration...",  Type = "Dialog", DialogText = "USABLE_DURATION_DIALOG", Numeric=true },
        { VariableName = "append_usable", MenuText = "Append \"Usable\"" }, -- LOCME
    },
    EquipmentSlotList =
    {
        { Setting = "1", MenuText = TIMERBARS.ITEM_NAMES[1] },
        { Setting = "2", MenuText = TIMERBARS.ITEM_NAMES[2] },
        { Setting = "3", MenuText = TIMERBARS.ITEM_NAMES[3] },
        { Setting = "4", MenuText = TIMERBARS.ITEM_NAMES[4] },
        { Setting = "5", MenuText = TIMERBARS.ITEM_NAMES[5] },
        { Setting = "6", MenuText = TIMERBARS.ITEM_NAMES[6] },
        { Setting = "7", MenuText = TIMERBARS.ITEM_NAMES[7] },
        { Setting = "8", MenuText = TIMERBARS.ITEM_NAMES[8] },
        { Setting = "9", MenuText = TIMERBARS.ITEM_NAMES[9] },
        { Setting = "10", MenuText = TIMERBARS.ITEM_NAMES[10] },
        { Setting = "11", MenuText = TIMERBARS.ITEM_NAMES[11] },
        { Setting = "12", MenuText = TIMERBARS.ITEM_NAMES[12] },
        { Setting = "13", MenuText = TIMERBARS.ITEM_NAMES[13] },
        { Setting = "14", MenuText = TIMERBARS.ITEM_NAMES[14] },
        { Setting = "15", MenuText = TIMERBARS.ITEM_NAMES[15] },
        { Setting = "16", MenuText = TIMERBARS.ITEM_NAMES[16] },
        { Setting = "17", MenuText = TIMERBARS.ITEM_NAMES[17] },
        { Setting = "18", MenuText = TIMERBARS.ITEM_NAMES[18] },
        { Setting = "19", MenuText = TIMERBARS.ITEM_NAMES[19] },
    },
    VisualCastTime = {
        { VariableName = "vct_enabled", MenuText = TIMERBARS.BARMENU_VCT_ENABLE },
        { VariableName = "vct_color", MenuText = TIMERBARS.BARMENU_VCT_COLOR, Type = "Color" },
        { VariableName = "vct_spell", MenuText = TIMERBARS.BARMENU_VCT_SPELL, Type = "Dialog", DialogText = "CHOOSE_VCT_SPELL_DIALOG" },
        { VariableName = "vct_extra", MenuText = TIMERBARS.BARMENU_VCT_EXTRA, Type = "Dialog", DialogText = "CHOOSE_VCT_EXTRA_DIALOG", Numeric=true },
    },
    Show = {
        { VariableName = "show_icon",      MenuText = TIMERBARS.BARMENU_SHOW_ICON },
        { VariableName = "show_text",      MenuText = TIMERBARS.BARMENU_SHOW_TEXT },
        { VariableName = "show_count",     MenuText = TIMERBARS.BARMENU_SHOW_COUNT },
        { VariableName = "show_time",      MenuText = TIMERBARS.BARMENU_SHOW_TIME },
        { VariableName = "show_spark",     MenuText = TIMERBARS.BARMENU_SHOW_SPARK },
        { VariableName = "show_mypip",     MenuText = TIMERBARS.BARMENU_SHOW_MYPIP },
        { VariableName = "show_ttn1",      MenuText = TIMERBARS.BARMENU_SHOW_TTN1 },
        { VariableName = "show_ttn2",      MenuText = TIMERBARS.BARMENU_SHOW_TTN2 },
        { VariableName = "show_ttn3",      MenuText = TIMERBARS.BARMENU_SHOW_TTN3 },
        { VariableName = "show_text_user", MenuText = TIMERBARS.BARMENU_SHOW_TEXT_USER, Type = "Dialog", DialogText = "CHOOSE_OVERRIDE_TEXT", Checked = function(settings) return "" ~= settings.show_text_user end },
    },
    BlinkSettings = {
        { VariableName = "blink_enabled", MenuText = TIMERBARS.BARMENU_VCT_ENABLE },
        { VariableName = "blink_label", MenuText = "Bar text while blinking...", Type = "Dialog", DialogText="CHOOSE_BLINK_TITLE_DIALOG" },
        { VariableName = "MissingBlink", MenuText = "Bar color when blinking...", Type = "Color" }, -- LOCME
        { VariableName = "blink_ooc", MenuText = "Blink out of combat" }, -- LOCME
        { VariableName = "blink_boss", MenuText = "Blink only for bosses" }, -- LOCME
    },
};

TimerBarsRMB.VariableRedirects =
{
  DebuffUnit = "Unit",
  EquipmentSlotList = "AuraName",
}

function TimerBarsRMB.ShowMenu(bar)
    TimerBarsRMB.CurrentBar["barID"] = bar:GetID();
    TimerBarsRMB.CurrentBar["groupID"] = bar:GetParent():GetID();
    if not TimerBarsRMB.DropDown then
        TimerBarsRMB.DropDown = CreateFrame("Frame", "TimerBarsDropDown", nil, "TimerBars_DropDownTemplate")
    end

    -- There's no OpenDropDownMenu that forces it to show in the new place,
    -- so we have to check if the first Toggle opened or closed it
    ToggleDropDownMenu(1, nil, TimerBarsRMB.DropDown, "cursor", 0, 0);
    if not DropDownList1:IsShown() then
        ToggleDropDownMenu(1, nil, TimerBarsRMB.DropDown, "cursor", 0, 0);
    end
end

function TimerBarsRMB.BarMenu_AddButton(barSettings, i_desc, i_parent)
    info = UIDropDownMenu_CreateInfo();
    local item_type = i_desc["Type"];
    info.text = i_desc["MenuText"];
    local varSettings
    if ( nil ~= i_desc["Setting"]) then
        item_type = "SetVar"
        local v = TimerBarsRMB.VariableRedirects[i_parent] or i_parent
        varSettings = barSettings[v]
    else
        info.value = i_desc["VariableName"];
        varSettings = barSettings[info.value];
    end

    if ( not varSettings and (item_type == "Check" or item_type == "Color") ) then
        print (string.format("TB: Could not find %s in", info.value), barSettings);
        return
    end

    info.hasArrow = false;
    local b = i_desc["Checked"]
    if b then
        if type(b) == "function" then
            info.checked = b(barSettings)
        else
            info.checked = b
        end
    end

    info.keepShownOnClick = true;
    info.notCheckable = false; -- indent everything
    info.hideUnCheck = true; -- but hide the empty checkbox/radio

    if ( not item_type and not text and not info.value ) then
        info.func = TimerBarsRMB.BarMenu_IgnoreToggle;
        info.disabled = true;
    elseif ( nil == item_type or item_type == "Check" ) then
        info.func = TimerBarsRMB.BarMenu_ToggleSetting;
        info.checked = (nil ~= varSettings and varSettings);
        info.hideUnCheck = nil;
        info.isNotRadio = true;
    elseif ( item_type == "SetVar" ) then
        info.func = TimerBarsRMB.BarMenu_ChooseSetting;
        info.value = i_desc["Setting"];
        info.checked = (varSettings == info.value);
        info.hideUnCheck = nil;
        info.keepShownOnClick = false;
    elseif ( item_type == "Submenu" ) then
        info.hasArrow = true;
        info.isNotRadio = true;
        info.func = TimerBarsRMB.BarMenu_IgnoreToggle;
    elseif ( item_type == "Dialog" ) then
        info.func = TimerBarsRMB.BarMenu_ShowNameDialog;
        info.keepShownOnClick = false;
        info.value = {variable = i_desc.VariableName, text = i_desc.DialogText, numeric = i_desc.Numeric };
    elseif ( item_type == "Color" ) then
        info.hasColorSwatch = 1;
        info.hasOpacity = true;
        info.r = varSettings.r;
        info.g = varSettings.g;
        info.b = varSettings.b;
        info.opacity = 1 - varSettings.a;
        info.swatchFunc = TimerBarsRMB.BarMenu_SetColor;
        info.opacityFunc = TimerBarsRMB.BarMenu_SetOpacity;
        info.cancelFunc = TimerBarsRMB.BarMenu_CancelColor;

        info.func = UIDropDownMenuButton_OpenColorPicker;
        info.keepShownOnClick = false;
    end

    UIDropDownMenu_AddButton(info, UIDROPDOWNMENU_MENU_LEVEL);

    -- Code to get the button copied from UIDropDownMenu_AddButton
    local level = UIDROPDOWNMENU_MENU_LEVEL;
    local listFrame = _G["DropDownList"..level];
    local index = listFrame and (listFrame.numButtons) or 1;
    local listFrameName = listFrame:GetName();
    local buttonName = listFrameName.."Button"..index;
    if ( item_type == "Color" ) then
        -- Sadly, extraInfo isn't a field propogated to the button
        local button = _G[buttonName];
        button.extraInfo = info.value;
    end
    if ( info.hideUnCheck ) then
        local checkBG = _G[buttonName.."UnCheck"];
        checkBG:Hide();
    end
end

function TimerBarsRMB.BarMenu_Initialize()
    local groupID = TimerBarsRMB.CurrentBar["groupID"];
    local barID = TimerBarsRMB.CurrentBar["barID"];
    local barSettings = TimerBars.ProfileSettings.Groups[groupID]["Bars"][barID];

    if ( barSettings.MissingBlink.a == 0 ) then
        barSettings.blink_enabled = false;
    end
    TimerBarsRMB.BarMenu_SubMenus.Options = TimerBarsRMB.BarMenu_SubMenus["Opt_"..barSettings.BuffOrDebuff];

    if ( UIDROPDOWNMENU_MENU_LEVEL > 1 ) then
        if ( UIDROPDOWNMENU_MENU_VALUE == "VisualCastTime" ) then
            -- Create a summary title for the visual cast time submenu
            local title = "";
            if ( barSettings.vct_spell and "" ~= barSettings.vct_spell ) then
                title = title .. barSettings.vct_spell;
            end
            local fExtra = tonumber(barSettings.vct_extra);
            if ( fExtra and fExtra > 0 ) then
                if ("" ~= title) then
                    title = title .. " + ";
                end
                title = title .. string.format("%0.1fs", fExtra);
            end
            if ( "" ~= title ) then
                local info = UIDropDownMenu_CreateInfo();
                info.text = title;
                info.isTitle = true;
                info.notCheckable = true; -- unindent
                UIDropDownMenu_AddButton(info, UIDROPDOWNMENU_MENU_LEVEL);
            end
        end

        local subMenus = TimerBarsRMB.BarMenu_SubMenus;
        for index, value in ipairs(subMenus[UIDROPDOWNMENU_MENU_VALUE]) do
            TimerBarsRMB.BarMenu_AddButton(barSettings, value, UIDROPDOWNMENU_MENU_VALUE);
        end

        if ( false == barSettings.OnlyMine and UIDROPDOWNMENU_MENU_LEVEL == 2 ) then
            TimerBarsRMB.BarMenu_UncheckAndDisable(2, "bDetectExtends", false);
        end
        return;
    end

    -- show name
    if ( barSettings.AuraName ) and ( barSettings.AuraName ~= "" ) then
        local info = UIDropDownMenu_CreateInfo();
        info.text = TimerBars.PrettyName(barSettings);
        info.isTitle = true;
        info.notCheckable = true; --unindent
        UIDropDownMenu_AddButton(info);
    end

    local moreOptions = TimerBarsRMB.BarMenu_MoreOptions;
    for index, value in ipairs(moreOptions) do
        TimerBarsRMB.BarMenu_AddButton(barSettings, moreOptions[index]);
    end

    TimerBarsRMB.BarMenu_UpdateSettings(barSettings);
end

function TimerBarsRMB.BarMenu_IgnoreToggle(self, a1, a2, checked)
    local button = TimerBarsRMB.BarMenu_GetItem(TimerBarsRMB.BarMenu_GetItemLevel(self), self.value);
    if ( button ) then
        local checkName = button:GetName() .. "Check";
        _G[checkName]:Hide();
        button.checked = false;
    end
end

function TimerBarsRMB.BarMenu_ToggleSetting(self, a1, a2, checked)
    local groupID = TimerBarsRMB.CurrentBar["groupID"];
    local barID = TimerBarsRMB.CurrentBar["barID"];
    local barSettings = TimerBars.ProfileSettings.Groups[groupID]["Bars"][barID];
    barSettings[self.value] = self.checked;
    local level = TimerBarsRMB.BarMenu_GetItemLevel(self);

    if ( self.value == "OnlyMine" ) then
        if ( false == self.checked ) then
            TimerBarsRMB.BarMenu_UncheckAndDisable(level, "bDetectExtends", false);
        else
            TimerBarsRMB.BarMenu_EnableItem(level, "bDetectExtends");
            TimerBarsRMB.BarMenu_CheckItem(level, "show_all_stacks", false);
        end
    elseif ( self.value == "blink_enabled" ) then
        if ( true == self.checked and barSettings.MissingBlink.a == 0 ) then
            barSettings.MissingBlink.a = 0.5
        end
    elseif ( self.value == "show_all_stacks" ) then
        if ( true == self.checked ) then
            TimerBarsRMB.BarMenu_CheckItem(level, "OnlyMine", false);
        end
    end
    TimerBars.Bar_Update(groupID, barID);
end

function TimerBarsRMB.BarMenu_GetItemLevel(i_button)
    local path = i_button:GetName();
    local levelStr = path:match("%d+");
    return tonumber(levelStr);
end

function TimerBarsRMB.BarMenu_GetItem(i_level, i_valueName)
    local listFrame = _G["DropDownList"..i_level];
    local listFrameName = listFrame:GetName();
    local n = listFrame.numButtons;
    for index=1,n do
        local button = _G[listFrameName.."Button"..index];
        local txt;
        if ( type(button.value) == "table" ) then
            txt = button.value.variable;
        else
            txt = button.value;
        end
        if ( txt == i_valueName ) then
            return button;
        end
    end
    return nil;
end

function TimerBarsRMB.BarMenu_CheckItem(i_level, i_valueName, i_bCheck)
    local button = TimerBarsRMB.BarMenu_GetItem(i_level, i_valueName);
    if ( button ) then
        local checkName = button:GetName() .. "Check";
        local check = _G[checkName];
        if ( i_bCheck ) then
            check:Show();
            button.checked = true;
        else
            check:Hide();
            button.checked = false;
        end
        TimerBarsRMB.BarMenu_ToggleSetting(button);
    end
end

function TimerBarsRMB.BarMenu_EnableItem(i_level, i_valueName)
    local button = TimerBarsRMB.BarMenu_GetItem(i_level, i_valueName)
    if ( button ) then
        button:Enable();
    end
end

function TimerBarsRMB.BarMenu_UncheckAndDisable(i_level, i_valueName)
    local button = TimerBarsRMB.BarMenu_GetItem(i_level, i_valueName);
    if ( button ) then
        TimerBarsRMB.BarMenu_CheckItem(i_level, i_valueName, false);
        button:Disable();
    end
end

function TimerBarsRMB.BarMenu_UpdateSettings(barSettings)
    local type = barSettings.BuffOrDebuff;

    -- Set up the options submenu to the corrent name and contents
    local Opt = TimerBarsRMB.BarMenu_SubMenus["Opt_"..type];
    if ( not Opt ) then Opt = {} end
    TimerBarsRMB.BarMenu_SubMenus.Options = Opt;
    local button = TimerBarsRMB.BarMenu_GetItem(1, "Options");
    if button then
        local arrow = _G[button:GetName().."ExpandArrow"]
        local lbl = ""
        if #Opt == 0 then
            lbl = lbl .. "No "
            button:Disable();
            arrow:Hide();
        else
            button:Enable();
            arrow:Show();
        end
        -- LOCME
        lbl = lbl .. TIMERBARS["BARMENU_"..type].. " Settings";
        button:SetText(lbl);
    end

    -- Set up the aura name menu option to behave the right way
    if ( type == "EQUIPSLOT" ) then
        button = TimerBarsRMB.BarMenu_GetItem(1, "AuraName");
        if ( button ) then
            button.oldvalue = button.value
        end
        if ( button ) then
            local arrow = _G[button:GetName().."ExpandArrow"]
            arrow:Show();
            button.hasArrow = true
            button.value = "EquipmentSlotList"
            button:SetText(TIMERBARS.BARMENU_CHOOSESLOT)
            -- TODO: really should disable the button press verb somehow
        end
    else
        button = TimerBarsRMB.BarMenu_GetItem(1, "EquipmentSlotList");
        -- if not button then button = TimerBarsRMB.BarMenu_GetItem(1, "PowerTypeList") end
        if ( button ) then
            local arrow = _G[button:GetName().."ExpandArrow"]
            arrow:Hide();
            button.hasArrow = false
            if button.oldvalue then button.value = button.oldvalue end
            button:SetText(TIMERBARS.BARMENU_CHOOSENAME)
        end
    end
end

function TimerBarsRMB.BarMenu_ChooseSetting(self, a1, a2, checked)
    local groupID = TimerBarsRMB.CurrentBar["groupID"];
    local barID = TimerBarsRMB.CurrentBar["barID"];
    local barSettings = TimerBars.ProfileSettings.Groups[groupID]["Bars"][barID]
    local v = TimerBarsRMB.VariableRedirects[UIDROPDOWNMENU_MENU_VALUE] or UIDROPDOWNMENU_MENU_VALUE
    barSettings[v] = self.value;
    TimerBars.Bar_Update(groupID, barID);

    if ( v == "BuffOrDebuff" ) then
        TimerBarsRMB.BarMenu_UpdateSettings(barSettings)
    end
end

-- TODO: There has to be a better way to do this, this has pretty bad user feel
function TimerBarsRMB.EditBox_Numeric_OnTextChanged(self, isUserInput)
    if ( isUserInput ) then
        local txt = self:GetText();
        local culled = txt:gsub("[^0-9.]",""); -- Remove non-digits
        local iPeriod = culled:find("[.]");
        if ( nil ~= iPeriod ) then
            local before = culled:sub(1, iPeriod);
            local after = string.gsub( culled:sub(iPeriod+1), "[.]", "" );
            culled = before .. after;
        end
        if ( txt ~= culled ) then
            self:SetText(culled);
        end
    end

    if ( TimerBarsRMB.EditBox_Original_OnTextChanged ) then
        TimerBarsRMB.EditBox_Original_OnTextChanged(self, isUserInput);
    end
end

TimerBarsIE = {}
function TimerBarsIE.CombineKeyValue(key,value)
    local vClean = value
    if type(vClean) == "string" and value:byte(1) ~= 123 then
        if (tostring(tonumber(vClean)) == vClean) or vClean == "true" or vClean == "false" then
            vClean = '"' .. vClean .. '"'
        elseif (vClean:find(",") or vClean:find("}") or vClean:byte(1) == 34) then
            vClean = '"' .. tostring(value):gsub('"', '\\"') .. '"'
        end
    end

    if key then
        -- not possible for key to contain = right now, so we don't have to sanitize it
        return key .. "=" .. tostring(vClean)
    else
        return vClean
    end
end

function TimerBarsIE.TableToString(v)
    local i = 1
    local ret= "{"
    for index, value in pairs(v) do
        if i ~= 1 then
            ret = ret .. ","
        end
        local k
        if index ~= i then
            k = TIMERBARS.SHORTENINGS[index] or index
        end
        if  type(value) == "table" then
            value = TimerBarsIE.TableToString(value)
        end
        ret = ret .. TimerBarsIE.CombineKeyValue(k, value)
        i = i+1;
    end
    ret = ret .. "}"
    return ret
end

function TimerBarsIE.ExportBarSettingsToString(barSettings)
    local pruned = CopyTable(barSettings)
    TimerBars.RemoveDefaultValues(pruned, TIMERBARS.BAR_DEFAULTS)
    return 'bv1:' .. TimerBarsIE.TableToString(pruned);
end

--[[ Test Cases
/script MemberDump( TimerBarsIE.StringToTable( '{a,b,c}' ) )
    members
      1 a
      2 b
      3 c

/script MemberDump( TimerBarsIE.StringToTable( '{Aura=Frost Fever,Unit=target,Clr={g=0.4471,r=0.2784},Typ=HARMFUL}' ) )
    members
      BuffOrDebuff HARMFUL
      BarColor table: 216B04C0
      |  g 0.4471
      |  r 0.2784
      AuraName Frost Fever
      Unit target

/script MemberDump( TimerBarsIE.StringToTable( '{"a","b","c"}' ) )
    members
      1 a
      2 b
      3 c

/script MemberDump( TimerBarsIE.StringToTable( '{"a,b","b=c","{c={d}}"}' ) )
    members
      1 a,b
      2 b=c
      3 {c={d}}

/script local t = {'\\",\'','}'} local p = TimerBarsIE.TableToString(t) print (p) MemberDump( TimerBarsIE.StringToTable( p ) )
    {"\\",'","}"}
    members
      1 \",'
      2 }

/script local p = TimerBarsIE.TableToString( {} ) print (p) MemberDump( TimerBarsIE.StringToTable( p ) )
    {}
    members

    I don't think this can come up, but might as well be robust
/script local p = TimerBarsIE.TableToString( {{{}}} ) print (p) MemberDump( TimerBarsIE.StringToTable( p ) )
    {{{}}}
    members
      1 table: 216A2428
      |  1 table: 216A0510

    I don't think this can come up, but might as well be robust
/script local p = TimerBarsIE.TableToString( {{{"a"}}} ) print (p) MemberDump( TimerBarsIE.StringToTable( p ) )
    {{{a}}}
    members
      1 table: 27D68048
      |  1 table: 27D68098
      |  |  1 a

    User Error                                   1234567890123456789012
/script MemberDump( TimerBarsIE.StringToTable( '{"a,b","b=c","{c={d}}",{' ) )
    Unexpected end of string
    nil

    User Error                                   1234567890123456789012
/script MemberDump( TimerBarsIE.StringToTable( '{"a,b","b=c""{c={d}}"' ) )
    Illegal quote at 12
    nil
]]--
function TimerBarsIE.StringToTable(text, ofs)
    local cur = ofs or 1

    if text:byte(cur+1) == 125 then
        return {},cur+1
    end

    local i = 0
    local ret = {}
    while text:byte(cur) ~= 125 do
        if not text:byte(cur) then
            print("Unexpected end of string")
            return nil,nil
        end
        i = i + 1
        cur = cur + 1 -- advance past the { or ,
        local hasKey, eq, delim
        -- If it's not a quote or a {, it should be a key+equals or value+delimeter
        if text:byte(cur) ~= 34 and text:byte(cur) ~= 123 then
            eq = text:find("=", cur)
            local comma = text:find(",", cur)
            delim = text:find("}", cur) or comma
            if comma and delim > comma then
                delim = comma
            end

            if not delim then
                print("Unexpected end of string")
                return nil, nil
            end
            hasKey = (eq and eq < delim)
        end

        local k,v
        if not hasKey then
            k = i
        else
            k = text:sub(cur,eq-1)
            k = TIMERBARS.LENGTHENINGS[k] or k
            if not k or k == "" then
                print("Error parsing key at", cur)
                return nil,nil
            end
            cur = eq+1
        end

        if not text:byte(cur) then
            print("Unexpected end of string")
            return nil,nil
        elseif text:byte(cur) == 123 then -- '{'
            v, cur = TimerBarsIE.StringToTable(text, cur)
            if not v then return nil,nil end
            cur = cur+1
        else
            if text:byte(cur) == 34 then -- '"'
                -- find the closing quote
                local endq = cur
                delim=nil
                while not delim do
                    endq = text:find('"', endq+1)
                    if not endq then
                        print("Could not find closing quote begun at", cur)
                        return nil, nil
                    end
                    if text:byte(endq-1) ~= 92 then -- \
                        delim = endq+1
                        if text:byte(delim) ~= 125 and text:byte(delim) ~= 44 then
                            print("Illegal quote at", endq)
                            return nil, nil
                        end
                    end
                end
                v = text:sub(cur+1,delim-2)
                v = gsub(v, '\\"', '"')
            else
                v = text:sub(cur,delim-1)
                local n = tonumber(v)
                if tostring(n) == v  then
                    v = n
                elseif v == "true" then
                    v = true
                elseif v == "false" then
                    v = false
                end
            end
            if v==nil or v == "" then
                print("Error parsing value at",cur)
            end
            cur = delim
        end

        ret[k] = v
    end

    return ret,cur
end

function TimerBarsIE.ImportBarSettingsFromString(text, bars, barID)
    local pruned
    if text and text ~= "" then
        local ver, packed = text:match("bv(%d+):(.*)")
        if not ver then
            print("Could not find bar settings header")
        elseif not packed then
            print("Could not find bar settings")
        end
        pruned = TimerBarsIE.StringToTable(packed)
    else
        pruned = {}
    end

    if pruned then
        TimerBars.AddDefaultsToTable(pruned, TIMERBARS.BAR_DEFAULTS)
        bars[barID] = pruned
    end
end

function TimerBarsRMB.BarMenu_ShowNameDialog(self, a1, a2, checked)
    if not self.value.text or not TIMERBARS[self.value.text] then return end

    StaticPopupDialogs["TIMERBARS.CHOOSENAME_DIALOG"].text = TIMERBARS[self.value.text];
    local dialog = StaticPopup_Show("TIMERBARS.CHOOSENAME_DIALOG");
    dialog.variable = self.value.variable;

    local edit = _G[dialog:GetName().."EditBox"];
    local groupID = TimerBarsRMB.CurrentBar["groupID"];
    local barID = TimerBarsRMB.CurrentBar["barID"];
    local barSettings = TimerBars.ProfileSettings.Groups[groupID]["Bars"][barID];

    local numeric = self.value.numeric or false;
    -- TODO: There has to be a better way to do this, this has pretty bad user  feel
    if ( nil == TimerBarsRMB.EditBox_Original_OnTextChanged ) then
        TimerBarsRMB.EditBox_Original_OnTextChanged = edit:GetScript("OnTextChanged");
    end
    if ( numeric ) then
        edit:SetScript("OnTextChanged", TimerBarsRMB.EditBox_Numeric_OnTextChanged);
    else
        edit:SetScript("OnTextChanged", TimerBarsRMB.EditBox_Original_OnTextChanged);
    end

    edit:SetFocus();
    if ( dialog.variable ~= "ImportExport" ) then
        edit:SetText( barSettings[dialog.variable] );
    else
        edit:SetText( TimerBarsIE.ExportBarSettingsToString(barSettings) );
        edit:HighlightText();
    end
end

function TimerBarsRMB.BarMenu_ChooseName(text, variable)
    local groupID = TimerBarsRMB.CurrentBar["groupID"];
    local barID = TimerBarsRMB.CurrentBar["barID"];
    local barSettings = TimerBars.ProfileSettings.Groups[groupID]["Bars"][barID];
    if ( variable ~= "ImportExport" ) then
        barSettings[variable] = text;
    else
        TimerBarsIE.ImportBarSettingsFromString(text, TimerBars.ProfileSettings.Groups[groupID]["Bars"], barID);
    end

    TimerBars.Bar_Update(groupID, barID);
end

function MemberDump(v, bIndex, filter, indent, recurse)
    if v == nil then
        print("nil")
        return
    elseif type(v) == "table" then
		if not indent then
			indent = " "
			print("members")
		end
		for index, value in pairs(v) do
			if (not filter) or (type(index) == "string" and index:find(filter)) then
				print(indent, index, value);
				if (recurse and type(value) == "table") then
				    MemberDump(value, nil, nil, indent.." | ",true)
				end
			end
		end
    else
        if not indent then indent = "" end
        print(indent,v)
    end

	if type(v) == "table" or not recurse then
		local mt = getmetatable(v)
		if ( mt ) then
			print("metatable")
			for index, value in pairs(mt) do
				if (not filter) or (type(index) == "string" and index:find(filter)) then
					print(indent, index, value);
				end
			end
			if ( mt.__index and bIndex) then
				print("__index")
				for index, value in pairs(mt.__index) do
					if (not filter) or (type(index) == "string" and index:find(filter)) then
						print(indent, index, value);
					end
				end
			end
		end
    end
end

function TimerBarsRMB.BarMenu_SetColor()
    local groupID = TimerBarsRMB.CurrentBar["groupID"];
    local barID = TimerBarsRMB.CurrentBar["barID"];
    local varSettings = TimerBars.ProfileSettings.Groups[groupID]["Bars"][barID][ColorPickerFrame.extraInfo];

    varSettings.r,varSettings.g,varSettings.b = ColorPickerFrame:GetColorRGB();
    TimerBars.Bar_Update(groupID, barID);
end

function TimerBarsRMB.BarMenu_SetOpacity()
    local groupID = TimerBarsRMB.CurrentBar["groupID"];
    local barID = TimerBarsRMB.CurrentBar["barID"];
    local varSettings = TimerBars.ProfileSettings.Groups[groupID]["Bars"][barID][ColorPickerFrame.extraInfo];

    varSettings.a = 1 - OpacitySliderFrame:GetValue();
    TimerBars.Bar_Update(groupID, barID);
end

function TimerBarsRMB.BarMenu_CancelColor(previousValues)
    if ( previousValues.r ) then
        local groupID = TimerBarsRMB.CurrentBar["groupID"];
        local barID = TimerBarsRMB.CurrentBar["barID"];
        local varSettings = TimerBars.ProfileSettings.Groups[groupID]["Bars"][barID][ColorPickerFrame.extraInfo];

        varSettings.r = previousValues.r;
        varSettings.g = previousValues.g;
        varSettings.b = previousValues.b;
        varSettings.a = 1 - previousValues.opacity;
        TimerBars.Bar_Update(groupID, barID);
    end
end


-- -------------
-- RESIZE BUTTON
-- -------------

function TimerBars.Resizebutton_OnEnter(self)
    local tooltip = _G["GameTooltip"];
    GameTooltip_SetDefaultAnchor(tooltip, self);
    tooltip:AddLine(TIMERBARS.RESIZE_TOOLTIP, NORMAL_FONT_COLOR.r, NORMAL_FONT_COLOR.g, NORMAL_FONT_COLOR.b, 1);
    tooltip:Show();
end

function TimerBars.StartSizing(self, button)
    local group = self:GetParent();
    local groupID = self:GetParent():GetID();
    group.oldScale = group:GetScale();
    group.oldX = group:GetLeft();
    group.oldY = group:GetTop();
    --    group:ClearAllPoints();
    --    group:SetPoint("TOPLEFT", UIParent, "BOTTOMLEFT", group.oldX, group.oldY);
    self.oldCursorX, self.oldCursorY = GetCursorPosition(UIParent);
    self.oldWidth = _G[group:GetName().."Bar1"]:GetWidth();
    self:SetScript("OnUpdate", TimerBars.Sizing_OnUpdate);
end

function TimerBars.Sizing_OnUpdate(self)
    local uiScale = UIParent:GetScale();
    local cursorX, cursorY = GetCursorPosition(UIParent);
    local group = self:GetParent();
    local groupID = self:GetParent():GetID();

    -- calculate & set new scale
    local newYScale = group.oldScale * (cursorY/uiScale - group.oldY*group.oldScale) / (self.oldCursorY/uiScale - group.oldY*group.oldScale) ;
    local newScale = max(0.25, newYScale);

    -- clamp the scale so the group is a whole number of pixels tall
    local bar1 = _G[group:GetName().."Bar1"]
    local barHeight = bar1:GetHeight()
    local newHeight = newScale * barHeight
    newHeight = math.floor(newHeight + 0.0002)
    newScale = newHeight / barHeight
    group:SetScale(newScale);

    -- set new frame coords to keep same on-screen position
    local newX = group.oldX * group.oldScale / newScale;
    local newY = group.oldY * group.oldScale / newScale;
    group:SetPoint("TOPLEFT", UIParent, "BOTTOMLEFT", newX, newY);

    -- calculate & set new bar width
    local newWidth = max(50, ((cursorX - self.oldCursorX)/uiScale + self.oldWidth * group.oldScale)/newScale);
    TimerBars.SetWidth(groupID, newWidth);

end

function TimerBars.SetWidth(groupID, width)
    for barID = 1, TimerBars.ProfileSettings.Groups[groupID]["NumberBars"] do
        local bar = _G["TimerBars_Group"..groupID.."Bar"..barID];
        local background = _G[bar:GetName().."Background"];
        local text = _G[bar:GetName().."Text"];
        bar:SetWidth(width);
        text:SetWidth(width-60);
        TimerBars.SizeBackground(bar, bar.settings.show_icon);
    end
    TimerBars.ProfileSettings.Groups[groupID]["Width"] = width;        -- move this to StopSizing?
end

function TimerBars.StopSizing(self, button)
    self:SetScript("OnUpdate", nil)
    local groupID = self:GetParent():GetID();
    TimerBars.ProfileSettings.Groups[groupID]["Scale"] = self:GetParent():GetScale();
    TimerBars.SavePosition(self:GetParent(), groupID);
end

function TimerBars.SavePosition(group, groupID)
    groupID = groupID or group:GetID();
    local point, _, relativePoint, xOfs, yOfs = group:GetPoint();
    TimerBars.ProfileSettings.Groups[groupID]["Position"] = {point, relativePoint, xOfs, yOfs};
end