aux-addon-ClassicAPI/gui.lua

local m, public, private = Aux.module'gui'

public.config = {
    link_color = { 153, 255, 255, 1 }, -- TODO inline color needs 255, others need /255
    edge_size = 1.5,
    window_color = { backdrop = {24/255, 24/255, 24/255, .93}, border = {30/255, 30/255, 30/255, 1} },
    panel_color = { backdrop = {24/255, 24/255, 24/255, 1}, border = {1, 1, 1, .03} },
    content_color = { backdrop = {42/255, 42/255, 42/255, 1}, border = {0, 0, 0, 0} },
    font = [[Fonts\ARIALN.TTF]],
    tiny_font_size = 12,
    small_font_size = 13,
    medium_font_size = 15,
    large_font_size = 18,
    huge_font_size = 23,
    text_color = { enabled = { 255/255, 254/255, 250/255, 1 }, disabled = { 147/255, 151/255, 139/255, 1 } },
    label_color = { enabled = { 216/255, 225/255, 211/255, 1 }, disabled = { 150/255, 148/255, 140/255, 1 } },
    on_color  = {0.3, 0.7, 0.3},
    off_color  = {0.7, 0.3, 0.3},
}

function public.inline_color(color)
    local r, g, b, a = unpack(color)
    return format('|c%02X%02X%02X%02X', a, r, g, b)
end

function public.set_frame_style(frame, backdrop_color, border_color)
    frame:SetBackdrop{bgFile=[[Interface\Buttons\WHITE8X8]], edgeFile=[[Interface\Buttons\WHITE8X8]], edgeSize=m.config.edge_size, tile=true}
    frame:SetBackdropColor(unpack(backdrop_color))
    frame:SetBackdropBorderColor(unpack(border_color))
end

function public.set_window_style(frame)
    m.set_frame_style(frame, m.config.window_color.backdrop, m.config.window_color.border)
end

function public.set_panel_style(frame)
    m.set_frame_style(frame, m.config.panel_color.backdrop, m.config.panel_color.border)
end

function public.set_content_style(frame)
    m.set_frame_style(frame, m.config.content_color.backdrop, m.config.content_color.border)
end

function public.panel(parent)
    local panel = CreateFrame('Frame', nil, parent)
    m.set_panel_style(panel)
    return panel
end

function public.checkbutton(parent, text_height)
    local button = m.button(parent, text_height)
    button.state = false
    button:SetBackdropColor(unpack(m.config.off_color))
    function button:SetChecked(state)
        if state then
            self:SetBackdropColor(unpack(m.config.on_color))
            self.state = true
        else
            self:SetBackdropColor(unpack(m.config.off_color))
            self.state = false
        end
    end
    function button:GetChecked()
        return self.state
    end
    return button
end

function public.button(parent, text_height)
    local button = CreateFrame('Button', nil, parent)
    m.set_content_style(button)
    local highlight = button:CreateTexture(nil, 'HIGHLIGHT')
    highlight:SetAllPoints()
    highlight:SetTexture(1, 1, 1, .2)
    highlight:SetBlendMode('BLEND')
    button.highlight = highlight
    do
        local label = button:CreateFontString()
        label:SetFont(m.config.font, text_height)
        label:SetPoint('CENTER', 0, 0)
        label:SetJustifyH('CENTER')
        label:SetJustifyV('CENTER')
        label:SetHeight(text_height)
        label:SetTextColor(unpack(m.config.text_color.enabled))
        button:SetFontString(label)
    end
    button.default_Enable = button.Enable
    function button:Enable()
        self:GetFontString():SetTextColor(unpack(m.config.text_color.enabled))
        return self:default_Enable()
    end
    button.default_Disable = button.Disable
    function button:Disable()
        self:GetFontString():SetTextColor(unpack(m.config.text_color.disabled))
        return self:default_Disable()
    end

    return button
end


function public.resize_tab(tab, width, padding)
    tab:SetWidth(width + padding + 10)
end

function public.update_tab(tab)

end

do
    local id = 0
    function public.tab_group(parent, orientation)
        id = id + 1

        local frame = CreateFrame('Frame', nil, parent)
        frame:SetHeight(100)
        frame:SetWidth(100)

        local self = {
            id = id,
            frame = parent,
            tabs = {},
            on_select = Aux.util.pass,
        }

        function self:create_tab(text)
            local id = getn(self.tabs) + 1

            local tab = CreateFrame('Button', 'aux_tab_group'..self.id..'_tab'..id, self.frame)
            tab.id = id
            tab.group = self
            tab:SetHeight(24)
            tab:SetBackdrop{bgFile=[[Interface\Buttons\WHITE8X8]], edgeFile=[[Interface\Buttons\WHITE8X8]], edgeSize=m.config.edge_size}
            tab:SetBackdropBorderColor(unpack(m.config.panel_color.border))
            local dock = tab:CreateTexture(nil, 'OVERLAY')
            dock:SetHeight(3)
            if orientation == 'UP' then
                dock:SetPoint('BOTTOMLEFT', 1, -1)
                dock:SetPoint('BOTTOMRIGHT', -1, -1)
            elseif orientation == 'DOWN' then
                dock:SetPoint('TOPLEFT', 1, 1)
                dock:SetPoint('TOPRIGHT', -1, 1)
            end
            dock:SetTexture(unpack(m.config.panel_color.backdrop))
            tab.dock = dock
            local highlight = tab:CreateTexture(nil, 'HIGHLIGHT')
            highlight:SetAllPoints()
            highlight:SetTexture(1, 1, 1, .2)
            highlight:SetBlendMode('BLEND')
            tab.highlight = highlight

            tab.text = tab:CreateFontString()
            tab.text:SetPoint('LEFT', 3, -1)
            tab.text:SetPoint('RIGHT', -3, -1)
            tab.text:SetJustifyH('CENTER')
            tab.text:SetJustifyV('CENTER')
            tab.text:SetFont(m.config.font, m.config.large_font_size)
            tab:SetFontString(tab.text)

            tab:SetText(text)

            tab:SetScript('OnClick', function()
                if this.id ~= this.group.selected then
--                    PlaySound('igCharacterInfoTab')
                    this.group:set_tab(this.id)
                end
            end)

            if getn(self.tabs) == 0 then
                if orientation == 'UP' then
                    tab:SetPoint('BOTTOMLEFT', self.frame, 'TOPLEFT', 4, -1)
                elseif orientation == 'DOWN' then
                    tab:SetPoint('TOPLEFT', self.frame, 'BOTTOMLEFT', 4, 1)
                end
            else
                if orientation == 'UP' then
                    tab:SetPoint('BOTTOMLEFT', self.tabs[getn(self.tabs)], 'BOTTOMRIGHT', 4, 0)
                elseif orientation == 'DOWN' then
                    tab:SetPoint('TOPLEFT', self.tabs[getn(self.tabs)], 'TOPRIGHT', 4, 0)
                end
            end

            m.resize_tab(tab, tab:GetFontString():GetStringWidth(), 4)

            -- tab:Show()
            tinsert(self.tabs, tab)
        end

        function self:set_tab(id)
            self.selected = id
            self.update_tabs()
            self.on_select(id)
        end

        function self.update_tabs()
            for _, tab in ipairs(self.tabs) do
                if tab.group.selected == tab.id then
                    tab.text:SetTextColor(unpack(m.config.label_color.enabled))
                    tab:Disable()
                    tab:SetBackdropColor(unpack(m.config.panel_color.backdrop))
                    tab.dock:Show()
                    tab:SetHeight(29)
                else
                    tab.text:SetTextColor(unpack(m.config.text_color.enabled))
                    tab:Enable()
                    tab:SetBackdropColor(unpack(m.config.content_color.backdrop))
                    tab.dock:Hide()
                    tab:SetHeight(24)
                end
            end
        end

        return self
    end
end

function public.editbox(parent)

    local editbox = CreateFrame('EditBox', nil, parent)
    editbox:SetAutoFocus(false)
    editbox:SetTextInsets(0, 0, 3, 3)
    editbox:SetMaxLetters(256)
    editbox:SetHeight(19)
    editbox:SetFont(m.config.font, m.config.medium_font_size)
    editbox:SetShadowColor(0, 0, 0, 0)
    m.set_content_style(editbox)

    editbox:SetScript('OnEditFocusLost', Aux.f(editbox.HighlightText, editbox, 0, 0))

    editbox:SetScript('OnEscapePressed', Aux.f(editbox.ClearFocus, editbox))

    do
        local last_time, last_x, last_y

        editbox:SetScript('OnEditFocusGained', Aux.f(editbox.HighlightText, editbox))

        editbox:SetScript('OnMouseUp', function()
            local x, y = GetCursorPosition()
            if last_time and last_time > GetTime() - .5 and abs(x - last_x) < 10 and abs(y - last_y) < 10 then
                this:HighlightText()
                last_time = nil
            else
                last_time = GetTime()
                last_x, last_y = GetCursorPosition()
            end
        end)
    end

    return editbox
end

function public.status_bar(parent)
    local self = CreateFrame('Frame', nil, parent)

    local level = parent:GetFrameLevel()

    self:SetFrameLevel(level + 1)

    do
        -- minor status bar (gray one)
        local status_bar = CreateFrame('STATUSBAR', nil, self, 'TextStatusBar')
        status_bar:SetOrientation('HORIZONTAL')
        status_bar:SetMinMaxValues(0, 100)
        status_bar:SetAllPoints()
        status_bar:SetStatusBarTexture([[Interface\Buttons\WHITE8X8]])
        status_bar:SetStatusBarColor(.42, .42, .42, .7)
        status_bar:SetFrameLevel(level + 2)
        status_bar:SetScript('OnUpdate', function()
            if this:GetValue() < 100 then
                this:SetAlpha(1 - ((math.sin(GetTime()*math.pi)+1)/2)/2)
            else
                this:SetAlpha(1)
            end
        end)
        self.minor_status_bar = status_bar
    end

    do
        -- major status bar (main blue one)
        local status_bar = CreateFrame('STATUSBAR', nil, self, 'TextStatusBar')
        status_bar:SetOrientation('HORIZONTAL')
        status_bar:SetMinMaxValues(0, 100)
        status_bar:SetAllPoints()
        status_bar:SetStatusBarTexture([[Interface\Buttons\WHITE8X8]])
        status_bar:SetStatusBarColor(.19, .22, .33, .9)
        status_bar:SetFrameLevel(level + 3)
        status_bar:SetScript('OnUpdate', function()
            if this:GetValue() < 100 then
                this:SetAlpha(1 - ((math.sin(GetTime()*math.pi)+1)/2)/2)
            else
                this:SetAlpha(1)
            end
        end)
        self.major_status_bar = status_bar
    end

    do
        local text_frame = CreateFrame('Frame', nil, self)
        text_frame:SetFrameLevel(level + 4)
        text_frame:SetAllPoints(self)
        local text = m.label(text_frame)
        text:SetTextColor(unpack(m.config.text_color.enabled))
        text:SetPoint('CENTER', 0, 0)
        self.text = text
    end

    function self:update_status(major_status, minor_status)
        if major_status then
            self.major_status_bar:SetValue(major_status)
        end
        if minor_status then
            self.minor_status_bar:SetValue(minor_status)
        end
    end

    function self:set_text(text)
        self.text:SetText(text)
    end

    return self
end

function public.item(parent)
    local item = CreateFrame('Button', nil, parent)
    item:SetWidth(193)
    item:SetHeight(40)
    local icon = CreateFrame('CheckButton', 'aux_frame'..Aux.unique(), item, 'ActionButtonTemplate')
    icon:SetPoint('LEFT', 2, 0.5)
    icon:SetHighlightTexture(nil)
    icon:RegisterForClicks()
    icon:EnableMouse(nil)
    item.texture = getglobal(icon:GetName()..'Icon')
    item.texture:SetTexCoord(0.06,0.94,0.06,0.94)
    item.name = Aux.gui.label(icon)
    item.name:SetJustifyH('LEFT')
    item.name:SetPoint('LEFT', icon, 'RIGHT', 10, 0)
    item.name:SetPoint('RIGHT', item, 'RIGHT', -10, 0.5)
    item.name:SetPoint('TOP', item, 'TOP', -5, 0)
    item.name:SetPoint('BOTTOM', item, 'BOTTOM', 5, 0)
    item.count = getglobal(icon:GetName()..'Count')
    return item
end

function public.label(parent, size)
    local label = parent:CreateFontString()
    label:SetFont(m.config.font, size or m.config.medium_font_size)
    label:SetTextColor(unpack(m.config.label_color.enabled))
    return label
end

function public.horizontal_line(parent, y_offset, inverted_color)
    local texture = parent:CreateTexture()
    texture:SetPoint('TOPLEFT', parent, 'TOPLEFT', 2, y_offset)
    texture:SetPoint('TOPRIGHT', parent, 'TOPRIGHT', -2, y_offset)
    texture:SetHeight(2)
    if inverted_color then
        texture:SetTexture(unpack(m.config.panel_color.backdrop))
    else
        texture:SetTexture(unpack(m.config.content_color.backdrop))
    end
    return texture
end

function public.vertical_line(parent, x_offset, top_offset, bottom_offset, inverted_color)
    local texture = parent:CreateTexture()
    texture:SetPoint('TOPLEFT', parent, 'TOPLEFT', x_offset, top_offset or -2)
    texture:SetPoint('BOTTOMLEFT', parent, 'BOTTOMLEFT', x_offset, bottom_offset or 2)
    texture:SetWidth(2)
    if inverted_color then
        texture:SetTexture(unpack(m.config.panel_color.backdrop))
    else
        texture:SetTexture(unpack(m.config.content_color.backdrop))
    end
    return texture
end


function public.dropdown(parent)
    local dropdown = CreateFrame('Frame', 'aux_frame'..Aux.unique(), parent, 'UIDropDownMenuTemplate')

    dropdown:SetBackdrop{bgFile=[[Interface\Buttons\WHITE8X8]], edgeFile=[[Interface\Buttons\WHITE8X8]], edgeSize=m.config.edge_size, insets={top=5,bottom=5}}
    dropdown:SetBackdropColor(unpack(m.config.content_color.backdrop))
    dropdown:SetBackdropBorderColor(unpack(m.config.content_color.border))
    local left = getglobal(dropdown:GetName()..'Left'):Hide()
    local middle = getglobal(dropdown:GetName()..'Middle'):Hide()
    local right = getglobal(dropdown:GetName()..'Right'):Hide()

    local button = getglobal(dropdown:GetName()..'Button')
    button:ClearAllPoints()
    button:SetPoint('RIGHT', dropdown, 0, 0)

    local text = getglobal(dropdown:GetName()..'Text')
    text:ClearAllPoints()
    text:SetPoint('RIGHT', button, 'LEFT', -2, 0)
    text:SetPoint('LEFT', dropdown, 'LEFT', 8, 0)
    text:SetFont(m.config.font, m.config.small_font_size)
    text:SetShadowColor(0, 0, 0, 0)

--
--    dropdown:ClearAllPoints()
--    dropdown:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -7, 0)
--    dropdown:SetScript("OnHide", nil)
--    dropdown:SetScript("OnEnter", Control_OnEnter)
--    dropdown:SetScript("OnLeave", Control_OnLeave)
--    dropdown:SetScript("OnMouseUp", function(self, button) Dropdown_TogglePullout(self.obj.button, button) end)
--    TSMAPI.Design:SetContentColor(dropdown)
--
--    middle:ClearAllPoints()
--    right:ClearAllPoints()
--
--    middle:SetPoint("LEFT", left, "RIGHT", 0, 0)
--    middle:SetPoint("RIGHT", right, "LEFT", 0, 0)
--    right:SetPoint("TOPRIGHT", dropdown, "TOPRIGHT", 0, 17)
--
--    local button = _G[dropdown:GetName().."Button"]
--    button:RegisterForClicks("AnyUp")
--    button:SetScript("OnEnter", Control_OnEnter)
--    button:SetScript("OnLeave", Control_OnLeave)
--    button:SetScript("OnClick", Dropdown_TogglePullout)
--    button:ClearAllPoints()
--    button:SetPoint("RIGHT", dropdown, 0, 0)

    return dropdown
end

function public.slider(parent)

    local slider = CreateFrame('Slider', nil, parent)
    slider:SetOrientation('HORIZONTAL')
    slider:SetHeight(6)
    slider:SetHitRectInsets(0, 0, -8, -8)
    slider:SetValue(0)
    m.set_panel_style(slider)
    local thumb_texture = slider:CreateTexture(nil, 'ARTWORK')
    thumb_texture:SetPoint('CENTER', 0, 0)
    thumb_texture:SetTexture(unpack(m.config.content_color.backdrop))
    thumb_texture:SetHeight(15)
    thumb_texture:SetWidth(8)
    slider:SetThumbTexture(thumb_texture)

    local label = slider:CreateFontString(nil, 'OVERLAY')
    label:SetPoint('BOTTOMLEFT', slider, 'TOPLEFT', -3, 6)
    label:SetPoint('BOTTOMRIGHT', slider, 'TOPRIGHT', 6, 6)
    label:SetJustifyH('LEFT')
    label:SetHeight(13)
    label:SetFont(m.config.font, m.config.small_font_size)
    label:SetTextColor(unpack(m.config.label_color.enabled))

    local editbox = m.editbox(slider)
    editbox:SetPoint('LEFT', slider, 'RIGHT', 5, 0)
    editbox:SetWidth(50)
    editbox:SetJustifyH('CENTER')

    slider.label = label
    slider.editbox = editbox
    return slider
end

--function m.checkbox()
--    local frame = CreateFrame('Button', nil, UIParent)
--    frame:Hide()
--    frame:EnableMouse(true)
--    frame:SetScript("OnEnter", Control_OnEnter)
--    frame:SetScript("OnLeave", Control_OnLeave)
--    frame:SetScript("OnMouseDown", CheckBox_OnMouseDown)
--    frame:SetScript("OnMouseUp", CheckBox_OnMouseUp)
--
--    local checkbox = CreateFrame('Button', nil, frame)
--    checkbox:EnableMouse(false)
--    checkbox:SetWidth(16)
--    checkbox:SetHeight(16)
--    checkbox:SetPoint('TOPLEFT', 4, -4)
--    checkbox:SetBackdrop({ bgFile=[[Interface\Buttons\WHITE8X8]], edgeFile=[[Interface\Buttons\WHITE8X8]], edgeSize=m.config.edge_size })
--    checkbox:SetBackdropColor(unpack(m.config.content_color.backdrop))
--    checkbox:SetBackdropBorderColor(unpack(m.config.content_color.border))
--    local highlight = checkbox:CreateTexture(nil, 'HIGHLIGHT')
--    highlight:SetAllPoints()
--    highlight:SetTexture(1, 1, 1, .2)
--    highlight:SetBlendMode('BLEND')
--
--    local check = checkbox:CreateTexture(nil, 'OVERLAY')
--    check:SetTexture([[Interface\Buttons\UI-CheckBox-Check]])
--    check:SetTexCoord(.12, .88, .12, .88)
--    check:SetBlendMode('BLEND')
--    check:SetPoint('BOTTOMRIGHT')
--
--    local text = frame:CreateFontString(nil, 'OVERLAY')
--    text:SetJustifyH('LEFT')
--    text:SetHeight(18)
--    text:SetPoint('LEFT', checkbox, 'RIGHT')
--    text:SetPoint('RIGHT')
--    text:SetFont(m.config.font, m.config.medium_font_size)
--
--    checkbox.text = text
--    return checkbox
--end