aux-addon-ClassicAPI/gui/core.lua

module 'aux.gui'

local T = require 'T'
local aux = require 'aux'

M.font = [[Fonts\ARIALN.TTF]]

M.font_size = aux.immutable-{
	small = 13,
	medium = 15,
	large = 18,
}

--function aux.handle.LOAD()
--	do
--		local blizzard_backdrop, aux_background, aux_border
--
--		aux_border = DropDownList1:CreateTexture()
--		aux_border:SetTexture(1, 1, 1, .02)
--		aux_border:SetPoint('TOPLEFT', DropDownList1Backdrop, 'TOPLEFT', -2, 2)
--		aux_border:SetPoint('BOTTOMRIGHT', DropDownList1Backdrop, 'BOTTOMRIGHT', 1.5, -1.5)
--		aux_border:SetBlendMode('ADD')
--		aux_background = DropDownList1:CreateTexture(nil, 'OVERLAY')
--		aux_background:SetTexture(aux.color.content.background())
--		aux_background:SetAllPoints(DropDownList1Backdrop)
--		blizzard_backdrop = DropDownList1Backdrop:GetBackdrop()
--		aux.hook('ToggleDropDownMenu', function(...)
--			T.temp(arg)
--			local ret = T.temp-T.list(aux.orig.ToggleDropDownMenu(unpack(arg)))
--			local dropdown = _G[arg[4] or ''] or this:GetParent()
--			if strfind(dropdown:GetName() or '', '^aux.frame%d+$') then
--				set_aux_dropdown_style(dropdown)
--			else
--				set_blizzard_dropdown_style()
--			end
--			return unpack(ret)
--		end)
--
--		function set_aux_dropdown_style(dropdown)
--			DropDownList1Backdrop:SetBackdrop(T.empty)
--			aux_border:Show()
--			aux_background:Show()
--			DropDownList1:SetWidth(dropdown:GetWidth() * .9)
--			DropDownList1:SetHeight(DropDownList1:GetHeight() - 10)
--			DropDownList1:ClearAllPoints()
--			DropDownList1:SetPoint('TOPLEFT', dropdown, 'BOTTOMLEFT', -2, -2)
--			for i = 1, UIDROPDOWNMENU_MAXBUTTONS do
--				local button = _G['DropDownList1Button' .. i]
--				button:SetPoint('TOPLEFT', 0, -((button:GetID() - 1) * UIDROPDOWNMENU_BUTTON_HEIGHT) - 7)
--				button:SetPoint('TOPRIGHT', 0, -((button:GetID() - 1) * UIDROPDOWNMENU_BUTTON_HEIGHT) - 7)
--				local text = button:GetFontString()
--				text:SetFont(font, 14)
--				text:SetPoint('TOPLEFT', 18, 0)
--				text:SetPoint('BOTTOMRIGHT', -8, 0)
--				local highlight = _G['DropDownList1Button' .. i .. 'Highlight']
--				highlight:ClearAllPoints()
--				highlight:SetDrawLayer('OVERLAY')
--				highlight:SetHeight(14)
--				highlight:SetPoint('LEFT', 5, 0)
--				highlight:SetPoint('RIGHT', -3, 0)
--				local check = _G['DropDownList1Button' .. i .. 'Check']
--				check:SetWidth(16)
--				check:SetHeight(16)
--				check:SetPoint('LEFT', 3, -1)
--			end
--		end
--
--		function set_blizzard_dropdown_style()
--			DropDownList1Backdrop:SetBackdrop(blizzard_backdrop)
--			aux_border:Hide()
--			aux_background:Hide()
--			for i = 1, UIDROPDOWNMENU_MAXBUTTONS do
--				local button = _G['DropDownList1Button' .. i]
--				local text = button:GetFontString()
--				text:SetFont([[Fonts\FRIZQT__.ttf]], 10)
--				text:SetShadowOffset(1, -1)
--				local highlight = _G['DropDownList1Button' .. i .. 'Highlight']
--				highlight:SetAllPoints()
--				highlight:SetDrawLayer('BACKGROUND')
--				local check = _G['DropDownList1Button' .. i .. 'Check']
--				check:SetWidth(24)
--				check:SetHeight(24)
--				check:SetPoint('LEFT', 0, 0)
--			end
--		end
--	end
--end

do
	local id = 1
	function M.unique_name()
		id = id + 1
		return 'aux.frame' .. id
	end
end

do
	local menu = CreateFrame('Frame', unique_name(), UIParent, 'UIDropDownMenuTemplate')
	M.menu = T.vararg-function(arg)
		HideDropDownMenu(1)
		UIDropDownMenu_Initialize(menu, function()
			for i = 1, getn(arg), 2 do
				UIDropDownMenu_AddButton(T.map('text', arg[i], 'notCheckable', true, 'func', arg[i + 1]))
			end
		end, 'MENU')
		ToggleDropDownMenu(1, nil, menu, 'cursor')
	end
end

local using_blizzard_theme = false

function M.set_global_theme(theme)
    using_blizzard_theme = theme == 'blizzard'
end

function M.is_blizzard()
    return using_blizzard_theme
end

function M.set_size(frame, width, height)
	frame:SetWidth(width)
	frame:SetHeight(height or width)
end

function M.set_frame_style(frame, backdrop_color, border_color, left, right, top, bottom)
    if not is_blizzard() then
        frame:SetBackdrop{bgFile=[[Interface\Buttons\WHITE8X8]], edgeFile=[[Interface\Buttons\WHITE8X8]], edgeSize=1.5, tile=true, insets={left=left, right=right, top=top, bottom=bottom}}
        frame:SetBackdropColor(backdrop_color())
        frame:SetBackdropBorderColor(border_color())
    else
        frame:SetBackdrop({
            bgFile = [[Interface\Tooltips\UI-Tooltip-Background]],
            edgeSize = 11,
            tile = true
        })
        frame:SetBackdropColor(0.09, 0.09, 0.19)

        local border = CreateFrame('Frame', nil, frame)
        border:SetPoint('TOPLEFT', frame, 'TOPLEFT', -3, 3)
        border:SetPoint('BOTTOMRIGHT', frame, 'BOTTOMRIGHT', 3, -3)
        border:SetBackdrop({
            edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]],
            edgeSize = 11,
            tileSize = 11,
            tile = true
        })
        border:SetBackdropBorderColor(0.6, 0.6, 0.6)
    end
end

function M.set_window_style(frame, left, right, top, bottom)
    set_frame_style(frame, aux.color.window.background, aux.color.window.border, left, right, top, bottom)
end

function M.set_panel_style(frame, left, right, top, bottom)
    set_frame_style(frame, aux.color.panel.background, aux.color.panel.border, left, right, top, bottom)
end

function M.set_content_style(frame, left, right, top, bottom)
    set_frame_style(frame, aux.color.content.background, aux.color.content.border, left, right, top, bottom)
end

function M.set_scrollbar_style(scrollFrame, points)
    local scrollBar = _G[scrollFrame:GetName() .. 'ScrollBar']

    scrollBar:ClearAllPoints()
    for _, pt in ipairs(points) do
        scrollBar:SetPoint(unpack(pt))
    end
    
    if not is_blizzard() then
        scrollBar:SetWidth(10)
        local thumbTex = scrollBar:GetThumbTexture()
        thumbTex:SetPoint('CENTER', 0, 0)
        thumbTex:SetTexture(aux.color.content.background())
        thumbTex:SetHeight(150)
        thumbTex:SetWidth(scrollBar:GetWidth())
        _G[scrollBar:GetName() .. 'ScrollUpButton']:Hide()
        _G[scrollBar:GetName() .. 'ScrollDownButton']:Hide()
    else
        -- A hacky dynamicly sized scrollbar background

        local scrollUpButton = _G[scrollBar:GetName() .. 'ScrollUpButton']
        local scrollDownButton = _G[scrollBar:GetName() .. 'ScrollDownButton']

        local backgroundTop = scrollFrame:CreateTexture(nil, 'BACKGROUND')
        backgroundTop:SetTexture([[Interface\PaperDollInfoFrame\UI-Character-ScrollBar]])
        backgroundTop:SetWidth(31)
        backgroundTop:SetHeight(128)
        backgroundTop:SetPoint('BOTTOM', scrollUpButton, 'TOP', 0, -128 + 4)
        backgroundTop:SetTexCoord(0, 0.484375, 0, 0.5)

        local backgroundBottom = scrollFrame:CreateTexture(nil, 'BACKGROUND')
        backgroundBottom:SetTexture([[Interface\PaperDollInfoFrame\UI-Character-ScrollBar]])
        backgroundBottom:SetWidth(31)
        backgroundBottom:SetHeight(106)
        backgroundBottom:SetPoint('TOP', scrollDownButton, 'BOTTOM', 0, 106 - 2)
        backgroundBottom:SetTexCoord(0.515625, 1.0, 0, 0.4140625)

        local backgroundMiddle = scrollFrame:CreateTexture(nil, 'BACKGROUND')
        backgroundMiddle:SetTexture([[Interface\PaperDollInfoFrame\UI-Character-ScrollBar]])
        backgroundMiddle:SetWidth(31)
        backgroundMiddle:SetPoint('TOP', backgroundTop, 'BOTTOM', 0, 0)
        backgroundMiddle:SetTexCoord(0, 0.484375, 0.125, 0.875)
        backgroundMiddle:Hide()

        scrollBar:SetScript('OnSizeChanged', function()
            -- Scrollbar height value is scaled, but the button heights aren't..
            local missingSpace = (scrollBar:GetHeight() / scrollBar:GetEffectiveScale()) + 
                scrollUpButton:GetHeight() + scrollDownButton:GetHeight() + 10 - 
                (backgroundTop:GetHeight() + backgroundBottom:GetHeight())
            if missingSpace > 0 then
                backgroundMiddle:SetHeight(missingSpace)
                backgroundMiddle:SetTexCoord(0, 0.484375, 0.125, 0.125 + (missingSpace / 256))
                backgroundMiddle:Show()
            else
                backgroundMiddle:Hide()
            end
        end)
    end
end

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

function M.checkbutton(parent, text_height)
    local button = button(parent, text_height)
    button.state = false
    if not is_blizzard() then
        button:SetBackdropColor(aux.color.state.disabled())
    end
    function button:SetChecked(state)
        if state then
            if not is_blizzard() then
                self:SetBackdropColor(aux.color.state.enabled())
            end
            self.state = true
        else
            if not is_blizzard() then
                self:SetBackdropColor(aux.color.state.disabled())
            end
            self.state = false
        end
    end
    function button:GetChecked()
        return self.state
    end
    return button
end

function M.button(parent, text_height)
    text_height = text_height or font_size.large
    local button = CreateFrame('Button', unique_name(), parent, is_blizzard() and "UIPanelButtonTemplate2" or nil)
    set_size(button, 80, 24)
    
    if not is_blizzard() then
        set_content_style(button)
        local highlight = button:CreateTexture(nil, 'HIGHLIGHT')
        highlight:SetAllPoints()
        highlight:SetTexture(1, 1, 1, .2)
        button.highlight = highlight
        do
            local label = button:CreateFontString()
            label:SetFont(font, text_height)
            label:SetAllPoints(button)
            label:SetJustifyH('CENTER')
            label:SetJustifyV('CENTER')
            label:SetTextColor(aux.color.text.enabled())
            button:SetFontString(label)
        end
    end
    
    local buttonParts = is_blizzard() and {_G[button:GetName() .. "Left"], 
        _G[button:GetName() .. "Middle"], _G[button:GetName() .. "Right"]}
    -- Shenanigans to make UIPanelButtonTemplate2 use the disabled texture when disabled
    local realSetTexture = is_blizzard() and buttonParts[1].SetTexture
    local textureLock = function() end

    button.default_Enable = button.Enable
    function button:Enable()
	    if self:IsEnabled() == 1 then return end
        if not is_blizzard() then
            self:GetFontString():SetTextColor(aux.color.text.enabled())
        else
            for _, part in ipairs(buttonParts) do
                part.SetTexture = realSetTexture
                part:SetTexture([[Interface\Buttons\UI-Panel-Button-Up]])
            end
        end
        return self:default_Enable()
    end
    button.default_Disable = button.Disable
    function button:Disable()
	    if self:IsEnabled() == 0 then return end
        if not is_blizzard() then
            self:GetFontString():SetTextColor(aux.color.text.disabled())
        else
            for _, part in ipairs(buttonParts) do
                part:SetTexture([[Interface\Buttons\UI-Panel-Button-Disabled]])
                part.SetTexture = textureLock
            end
        end
        return self:default_Disable()
    end

    return button
end

do
	local mt = {__index=T.acquire()}
	function mt.__index:create_tab(text)
		local id = getn(self._tabs) + 1

		local tab = CreateFrame('Button', "$parentTab"..id, self._frame, is_blizzard() and "CharacterFrameTabButtonTemplate" or nil)
		tab.id = id
		tab.group = self

        if not is_blizzard() then
            tab:SetHeight(24)
            set_panel_style(tab)
            local dock = tab:CreateTexture(nil, 'OVERLAY')
            dock:SetHeight(3)
            if self._orientation == 'UP' then
                dock:SetPoint('BOTTOMLEFT', 1, -1)
                dock:SetPoint('BOTTOMRIGHT', -1, -1)
            elseif self._orientation == 'DOWN' then
                dock:SetPoint('TOPLEFT', 1, 1)
                dock:SetPoint('TOPRIGHT', -1, 1)
            end
            dock:SetTexture(aux.color.panel.background())
            tab.dock = dock
            local highlight = tab:CreateTexture(nil, 'HIGHLIGHT')
            highlight:SetAllPoints()
            highlight:SetTexture(1, 1, 1, .2)
            tab.highlight = highlight

            tab.text = tab:CreateFontString()
            tab.text:SetAllPoints()
            tab.text:SetJustifyH('CENTER')
            tab.text:SetJustifyV('CENTER')
            tab.text:SetFont(font, font_size.large)
            tab:SetFontString(tab.text)
        else
            tab:RegisterForClicks("LeftButtonUp")
        end

		tab:SetText(text)

		tab:SetScript('OnClick', function()
			if this.id ~= this.group.selected then
				PlaySound('igCharacterInfoTab')
				this.group:select(this.id)
                if is_blizzard() then
                    PanelTemplates_SetTab(self._frame, this.id)
                end
			end
		end)

		if getn(self._tabs) == 0 then
			if self._orientation == 'UP' then
				tab:SetPoint('BOTTOMLEFT', self._frame, 'TOPLEFT', 4, is_blizzard() and -8 or -1)
			elseif self._orientation == 'DOWN' then
				tab:SetPoint('TOPLEFT', self._frame, 'BOTTOMLEFT', 4, is_blizzard() and -8 or 1)
            end
		else
			if self._orientation == 'UP' then
				tab:SetPoint('BOTTOMLEFT', self._tabs[getn(self._tabs)], 'BOTTOMRIGHT', is_blizzard() and 0 or 4, 0)
			elseif self._orientation == 'DOWN' then
				tab:SetPoint('TOPLEFT', self._tabs[getn(self._tabs)], 'TOPRIGHT', is_blizzard() and 0 or 4, 0)
			end
		end

        if not is_blizzard() then
		    tab:SetWidth(tab:GetFontString():GetStringWidth() + 14)
        end

		tinsert(self._tabs, tab)

        if is_blizzard() then
            PanelTemplates_SetNumTabs(self._frame, getn(self._tabs))
            PanelTemplates_SetTab(self._frame, 1)
        end
	end
	function mt.__index:select(id)
		self._selected = id
		self:update()
        if is_blizzard() then
            PanelTemplates_SetTab(self._frame, id)
        end
		do (self._on_select or pass)(id) end
	end
	function mt.__index:update()
        if not is_blizzard() then
            for _, tab in self._tabs do
                if tab.group._selected == tab.id then
                    tab.text:SetTextColor(aux.color.label.enabled())
                    tab:Disable()
                    tab:SetBackdropColor(aux.color.panel.background())
                    tab.dock:Show()
                    tab:SetHeight(29)
                else
                    tab.text:SetTextColor(aux.color.text.enabled())
                    tab:Enable()
                    tab:SetBackdropColor(aux.color.content.background())
                    tab.dock:Hide()
                    tab:SetHeight(24)
                end
            end
        end
	end
	function M.tabs(parent, orientation)
		local self = {
			_frame = parent,
			_orientation = orientation,
			_tabs = T.acquire(),
		}
	    return setmetatable(self, mt)
	end
end

function M.editbox(parent)
    local editbox = CreateFrame('EditBox', unique_name(), parent, is_blizzard() and "InputBoxTemplate" or nil)
    editbox:SetAutoFocus(false)
    editbox:SetTextInsets(1.5, 1.5, 3, 3)
    editbox:SetMaxLetters(nil)
    editbox:SetHeight(24)
    editbox:SetTextColor(0, 0, 0, 0)
    if not is_blizzard() then
        set_content_style(editbox)
    end
    editbox:SetScript('OnEscapePressed', function()
        this:ClearFocus()
	    do (this.escape or pass)() end
    end)
    editbox:SetScript('OnEnterPressed', function() (this.enter or pass)() end)
    editbox:SetScript('OnEditFocusGained', function()
	    if this.block_focus then
		    this.block_focus = false
		    this:ClearFocus()
		    return
	    end
	    this.overlay:Hide()
	    this:SetTextColor(aux.color.text.enabled())
	    this.focused = true
	    this:HighlightText()
	    do (this.focus_gain or pass)() end
    end)
    editbox:SetScript('OnEditFocusLost', function()
	    this.overlay:Show()
	    this:SetTextColor(0, 0, 0, 0)
	    this.focused = false
	    this:HighlightText(0, 0)
	    this:SetScript('OnUpdate', nil)
	    do (this.focus_loss or pass)() end
    end)
    editbox:SetScript('OnTextChanged', function()
	    this.overlay:SetText(this.formatter and this.formatter(this:GetText()) or this:GetText())
	    do (this.change or pass)() end
    end)
    editbox:SetScript('OnChar', function() (this.char or pass)() end)
    do
        local last_click = T.map('t', 0)
        editbox:SetScript('OnMouseDown', function()
	        if arg1 == 'RightButton' then
		        this:SetText('')
		        this:ClearFocus()
		        this.block_focus = true
	        else
	            local x, y = GetCursorPosition()
	            -- local offset = x - editbox:GetLeft()*editbox:GetEffectiveScale() TODO use a fontstring to measure getstringwidth for structural highlighting
	            -- or use an overlay with itemlinks
	            if GetTime() - last_click.t < .5 and x == last_click.x and y == last_click.y then
	                aux.thread(function() editbox:HighlightText() end)
	            end
	            T.wipe(last_click)
	            last_click.t = GetTime()
	            last_click.x = x
	            last_click.y = y
	        end
        end)
    end
    function editbox:SetAlignment(alignment)
	    self:SetJustifyH(alignment)
	    self.overlay:SetJustifyH(alignment)
    end
    function editbox:SetFontSize(size)
	    self:SetFont(font, size)
	    self.overlay:SetFont(font, size)
    end
    local overlay = label(editbox)
    overlay:SetPoint('LEFT', 1.5, 0)
    overlay:SetPoint('RIGHT', -1.5, 0)
    overlay:SetTextColor(aux.color.text.enabled())
    editbox.overlay = overlay
    editbox:SetAlignment('LEFT')
    editbox:SetFontSize(font_size.medium)
    return editbox
end

do
	local function update_bar()
		if this:GetValue() < 1 then
			this:SetAlpha(1 - (sin(GetTime() * 180) + 1) / 4)
		else
			this:SetAlpha(1)
		end
	end
	function M.status_bar(parent)
	    local self = CreateFrame('Frame', nil, parent)
	    local level = parent:GetFrameLevel()
	    self:SetFrameLevel(level + 1)
	    do
	        local status_bar = CreateFrame('StatusBar', nil, self, 'TextStatusBar')
	        status_bar:SetOrientation('HORIZONTAL')
	        status_bar:SetMinMaxValues(0, 1)
	        status_bar:SetAllPoints()
	        status_bar:SetStatusBarTexture(is_blizzard() and [[Interface\Glues\LoadingBar\Loading-BarFill]] or 
                [[Interface\Buttons\WHITE8X8]])
            if not is_blizzard() then
	            status_bar:SetStatusBarColor(.42, .42, .42, 1)
            end
	        status_bar:SetFrameLevel(level + 2)
	        status_bar:SetScript('OnUpdate', update_bar)
	        self.secondary_status_bar = status_bar
	    end
	    do
	        local status_bar = CreateFrame('StatusBar', nil, self, 'TextStatusBar')
	        status_bar:SetOrientation('HORIZONTAL')
	        status_bar:SetMinMaxValues(0, 1)
	        status_bar:SetAllPoints()
	        status_bar:SetStatusBarTexture(is_blizzard() and [[Interface\Glues\LoadingBar\Loading-BarFill]] or 
                [[Interface\Buttons\WHITE8X8]])
            if not is_blizzard() then
	            status_bar:SetStatusBarColor(.19, .22, .33, 1)
            end
	        status_bar:SetFrameLevel(level + 3)
	        status_bar:SetScript('OnUpdate', update_bar)
	        self.primary_status_bar = status_bar
	    end
	    do
	        local text_frame = CreateFrame('Frame', nil, self)
	        text_frame:SetFrameLevel(level + 4)
	        text_frame:SetAllPoints(self)
	        local text = label(text_frame, font_size.medium)
	        text:SetTextColor(aux.color.text.enabled())
	        text:SetPoint('CENTER', 0, 0)
	        self.text = text
	    end
        
        if is_blizzard() then
            local statusBarBorder = CreateFrame("Frame", nil, self)
            statusBarBorder:SetPoint("TOPLEFT", self, "TOPLEFT", -4, 4)
            statusBarBorder:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", 4, -4)

            statusBarBorder:SetFrameLevel(level + 5)
            statusBarBorder:SetBackdrop({edgeFile="Interface\\DialogFrame\\UI-DialogBox-Border", edgeSize = 20, 
                tile = true, tileSize = 20})
        end

	    function self:update_status(primary_status, secondary_status)
	        if primary_status then
	            self.primary_status_bar:SetValue(primary_status)
	        end
	        if secondary_status then
	            self.secondary_status_bar:SetValue(secondary_status)
	        end
	    end
	    function self:set_text(text)
	        self.text:SetText(text)
	    end
	    return self
	end
end

function M.item(parent)
    local item = CreateFrame('Frame', nil, parent)
    set_size(item, 260, 40)
    local btn = CreateFrame('CheckButton', unique_name(), item, 'ActionButtonTemplate')
    item.button = btn
    btn:SetPoint('LEFT', 2, .5)
    btn:SetHighlightTexture(nil)
    btn:RegisterForClicks()
    item.texture = _G[btn:GetName() .. 'Icon']
    item.texture:SetTexCoord(.06, .94, .06, .94)
    item.name = label(btn, font_size.medium)
    item.name:SetJustifyH('LEFT')
    item.name:SetPoint('LEFT', btn, 'RIGHT', 10, 0)
    item.name:SetPoint('RIGHT', item, 'RIGHT', -10, .5)
    item.count = _G[btn:GetName() .. 'Count']
    item.count:SetTextHeight(17)
    return item
end

function M.label(parent, size)
    local label = parent:CreateFontString()
    label:SetFont(font, size or font_size.small)
    label:SetTextColor(aux.color.label.enabled())
    return label
end

function M.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(aux.color.panel.background())
    else
        texture:SetTexture(aux.color.content.background())
    end
    return texture
end

function M.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(aux.color.panel.background())
    else
        texture:SetTexture(aux.color.content.background())
    end
    return texture
end

function M.dropdown(parent)
    local dropdown = CreateFrame('Frame', unique_name(), parent, 'UIDropDownMenuTemplate')

    if not is_blizzard() then
        set_content_style(dropdown, 0, 0, 4, 4)

        _G[dropdown:GetName() .. 'Left']:Hide()
        _G[dropdown:GetName() .. 'Middle']:Hide()
        _G[dropdown:GetName() .. 'Right']:Hide()
    else
        local left = _G[dropdown:GetName() .. 'Left']
        local a,b,c,d,e = left:GetPoint(1)
        left:ClearAllPoints()
        left:SetPoint(a,b,c, -20, e - 1)
    end

    local dropdownSetWidth = dropdown.SetWidth
    dropdown.SetWidth = function(self, width)
        _G[dropdown:GetName() .. 'Middle']:SetWidth(width - 15)
        dropdownSetWidth(self, width)
        _G[dropdown:GetName() .. 'Text']:SetWidth(width - 25)
        dropdown.noResize = 1
    end

    local button = _G[dropdown:GetName() .. 'Button']
    dropdown.button = button

    if not is_blizzard() then
        button:ClearAllPoints()
        button:SetScale(.9)
        button:SetPoint('RIGHT', dropdown, 0, 0)

        local text = _G[dropdown:GetName() .. 'Text']
        text:ClearAllPoints()
        text:SetPoint('RIGHT', button, 'LEFT', -2, 0)
        text:SetPoint('LEFT', 8, 0)
        text:SetFont(font, font_size.medium)
        text:SetShadowColor(0, 0, 0, 0)
    end

    return dropdown
end

function M.slider(parent)

    local slider = CreateFrame('Slider', unique_name(), parent, is_blizzard() and "OptionsSliderTemplate" or nil)
    slider:SetOrientation('HORIZONTAL')
    if not is_blizzard() then
        slider:SetHeight(6)
    end
    slider:SetHitRectInsets(0, 0, -12, -12)
    slider:SetValue(0)

    if not is_blizzard() then
        set_panel_style(slider)
        local thumb_texture = slider:CreateTexture(nil, 'ARTWORK')
        thumb_texture:SetPoint('CENTER', 0, 0)
        thumb_texture:SetTexture(aux.color.content.background())
        thumb_texture:SetHeight(18)
        thumb_texture:SetWidth(8)
        set_size(thumb_texture, 8, 18)
        slider:SetThumbTexture(thumb_texture)
    else
        slider.low = _G[slider:GetName() .. 'Low']
        slider.low:SetText("")
        slider.high = _G[slider:GetName() .. 'High']
        slider.high:SetText("")
    end

    local label = slider:CreateFontString(nil, 'OVERLAY')
    label:SetPoint('BOTTOMLEFT', slider, 'TOPLEFT', -3, 8)
    label:SetPoint('BOTTOMRIGHT', slider, 'TOPRIGHT', 6, 8)
    label:SetJustifyH('LEFT')
    label:SetHeight(13)
    label:SetFont(font, font_size.small)
    label:SetTextColor(aux.color.label.enabled())

    local editbox = editbox(slider)
    editbox:SetPoint('LEFT', slider, 'RIGHT', 5, 0)
    set_size(editbox, 45, 18)
    editbox:SetAlignment('CENTER')
    editbox:SetFontSize(17)

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

function M.checkbox(parent)
    local checkbox = CreateFrame('CheckButton', nil, parent, 'UICheckButtonTemplate')
    local size = is_blizzard() and 24 or 16
    checkbox:SetWidth(size)
    checkbox:SetHeight(size)
    if not is_blizzard() then
        set_content_style(checkbox)
        checkbox:SetNormalTexture(nil)
        checkbox:SetPushedTexture(nil)
        checkbox:GetHighlightTexture():SetAllPoints()
        checkbox:GetHighlightTexture():SetTexture(1, 1, 1, .2)
        checkbox:GetCheckedTexture():SetTexCoord(.12, .88, .12, .88)
        checkbox:GetHighlightTexture('BLEND')
    end
    return checkbox
end

do
	local editbox = CreateFrame'EditBox'
	editbox:SetAutoFocus(false)
	function M.clear_focus()
		editbox:SetFocus()
		editbox:ClearFocus()
	end
end

function M.percentage_historical(pct, bid)
	local text = (pct > 10000 and '>10000' or pct) .. '%'
	if bid then
		return aux.color.gray(text)
	elseif pct < 50 then
		return aux.color.blue(text)
	elseif pct < 80 then
		return aux.color.green(text)
	elseif pct < 110 then
		return aux.color.yellow(text)
	elseif pct < 135 then
		return aux.color.orange(text)
	else
		return aux.color.red(text)
	end
end