WoWInterface SVN MultiScreenSupport

[/] [trunk/] [Libs/] [AceGUI-3.0/] [widgets/] [AceGUIWidget-Slider.lua] - Rev 2

Go to most recent revision | Compare with Previous | Blame | View Log

--[[-----------------------------------------------------------------------------
Slider Widget
Graphical Slider, like, for Range values.
-------------------------------------------------------------------------------]]
local Type, Version = "Slider", 21
local AceGUI = LibStub and LibStub("AceGUI-3.0", true)
if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end

-- Lua APIs
local min, max, floor = math.min, math.max, math.floor
local tonumber, pairs = tonumber, pairs

-- WoW APIs
local PlaySound = PlaySound
local CreateFrame, UIParent = CreateFrame, UIParent

-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
-- List them here for Mikk's FindGlobals script
-- GLOBALS: GameFontHighlightSmall

--[[-----------------------------------------------------------------------------
Support functions
-------------------------------------------------------------------------------]]
local function UpdateText(self)
        local value = self.value or 0
        if self.ispercent then
                self.editbox:SetText(("%s%%"):format(floor(value * 1000 + 0.5) / 10))
        else
                self.editbox:SetText(floor(value * 100 + 0.5) / 100)
        end
end

local function UpdateLabels(self)
        local min, max = (self.min or 0), (self.max or 100)
        if self.ispercent then
                self.lowtext:SetFormattedText("%s%%", (min * 100))
                self.hightext:SetFormattedText("%s%%", (max * 100))
        else
                self.lowtext:SetText(min)
                self.hightext:SetText(max)
        end
end

--[[-----------------------------------------------------------------------------
Scripts
-------------------------------------------------------------------------------]]
local function Control_OnEnter(frame)
        frame.obj:Fire("OnEnter")
end

local function Control_OnLeave(frame)
        frame.obj:Fire("OnLeave")
end

local function Frame_OnMouseDown(frame)
        frame.obj.slider:EnableMouseWheel(true)
        AceGUI:ClearFocus()
end

local function Slider_OnValueChanged(frame)
        local self = frame.obj
        if not frame.setup then
                local newvalue = frame:GetValue()
                if self.step and self.step > 0 then
                        local min_value = self.min or 0
                        newvalue = floor((newvalue - min_value) / self.step + 0.5) * self.step + min_value
                end
                if newvalue ~= self.value and not self.disabled then
                        self.value = newvalue
                        self:Fire("OnValueChanged", newvalue)
                end
                if self.value then
                        UpdateText(self)
                end
        end
end

local function Slider_OnMouseUp(frame)
        local self = frame.obj
        self:Fire("OnMouseUp", self.value)
end

local function Slider_OnMouseWheel(frame, v)
        local self = frame.obj
        if not self.disabled then
                local value = self.value
                if v > 0 then
                        value = min(value + (self.step or 1), self.max)
                else
                        value = max(value - (self.step or 1), self.min)
                end
                self.slider:SetValue(value)
        end
end

local function EditBox_OnEscapePressed(frame)
        frame:ClearFocus()
end

local function EditBox_OnEnterPressed(frame)
        local self = frame.obj
        local value = frame:GetText()
        if self.ispercent then
                value = value:gsub('%%', '')
                value = tonumber(value) / 100
        else
                value = tonumber(value)
        end
        
        if value then
                PlaySound("igMainMenuOptionCheckBoxOn")
                self.slider:SetValue(value)
                self:Fire("OnMouseUp", value)
        end
end

local function EditBox_OnEnter(frame)
        frame:SetBackdropBorderColor(0.5, 0.5, 0.5, 1)
end

local function EditBox_OnLeave(frame)
        frame:SetBackdropBorderColor(0.3, 0.3, 0.3, 0.8)
end

--[[-----------------------------------------------------------------------------
Methods
-------------------------------------------------------------------------------]]
local methods = {
        ["OnAcquire"] = function(self)
                self:SetWidth(200)
                self:SetHeight(44)
                self:SetDisabled(false)
                self:SetIsPercent(nil)
                self:SetSliderValues(0,100,1)
                self:SetValue(0)
                self.slider:EnableMouseWheel(false)
        end,

        -- ["OnRelease"] = nil,

        ["SetDisabled"] = function(self, disabled)
                self.disabled = disabled
                if disabled then
                        self.slider:EnableMouse(false)
                        self.label:SetTextColor(.5, .5, .5)
                        self.hightext:SetTextColor(.5, .5, .5)
                        self.lowtext:SetTextColor(.5, .5, .5)
                        --self.valuetext:SetTextColor(.5, .5, .5)
                        self.editbox:SetTextColor(.5, .5, .5)
                        self.editbox:EnableMouse(false)
                        self.editbox:ClearFocus()
                else
                        self.slider:EnableMouse(true)
                        self.label:SetTextColor(1, .82, 0)
                        self.hightext:SetTextColor(1, 1, 1)
                        self.lowtext:SetTextColor(1, 1, 1)
                        --self.valuetext:SetTextColor(1, 1, 1)
                        self.editbox:SetTextColor(1, 1, 1)
                        self.editbox:EnableMouse(true)
                end
        end,

        ["SetValue"] = function(self, value)
                self.slider.setup = true
                self.slider:SetValue(value)
                self.value = value
                UpdateText(self)
                self.slider.setup = nil
        end,

        ["GetValue"] = function(self)
                return self.value
        end,

        ["SetLabel"] = function(self, text)
                self.label:SetText(text)
        end,

        ["SetSliderValues"] = function(self, min, max, step)
                local frame = self.slider
                frame.setup = true
                self.min = min
                self.max = max
                self.step = step
                frame:SetMinMaxValues(min or 0,max or 100)
                UpdateLabels(self)
                frame:SetValueStep(step or 1)
                if self.value then
                        frame:SetValue(self.value)
                end
                frame.setup = nil
        end,

        ["SetIsPercent"] = function(self, value)
                self.ispercent = value
                UpdateLabels(self)
                UpdateText(self)
        end
}

--[[-----------------------------------------------------------------------------
Constructor
-------------------------------------------------------------------------------]]
local SliderBackdrop  = {
        bgFile = "Interface\\Buttons\\UI-SliderBar-Background",
        edgeFile = "Interface\\Buttons\\UI-SliderBar-Border",
        tile = true, tileSize = 8, edgeSize = 8,
        insets = { left = 3, right = 3, top = 6, bottom = 6 }
}

local ManualBackdrop = {
        bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
        edgeFile = "Interface\\ChatFrame\\ChatFrameBackground",
        tile = true, edgeSize = 1, tileSize = 5,
}

local function Constructor()
        local frame = CreateFrame("Frame", nil, UIParent)

        frame:EnableMouse(true)
        frame:SetScript("OnMouseDown", Frame_OnMouseDown)

        local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal")
        label:SetPoint("TOPLEFT")
        label:SetPoint("TOPRIGHT")
        label:SetJustifyH("CENTER")
        label:SetHeight(15)

        local slider = CreateFrame("Slider", nil, frame)
        slider:SetOrientation("HORIZONTAL")
        slider:SetHeight(15)
        slider:SetHitRectInsets(0, 0, -10, 0)
        slider:SetBackdrop(SliderBackdrop)
        slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Horizontal")
        slider:SetPoint("TOP", label, "BOTTOM")
        slider:SetPoint("LEFT", 3, 0)
        slider:SetPoint("RIGHT", -3, 0)
        slider:SetValue(0)
        slider:SetScript("OnValueChanged",Slider_OnValueChanged)
        slider:SetScript("OnEnter", Control_OnEnter)
        slider:SetScript("OnLeave", Control_OnLeave)
        slider:SetScript("OnMouseUp", Slider_OnMouseUp)
        slider:SetScript("OnMouseWheel", Slider_OnMouseWheel)

        local lowtext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
        lowtext:SetPoint("TOPLEFT", slider, "BOTTOMLEFT", 2, 3)

        local hightext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
        hightext:SetPoint("TOPRIGHT", slider, "BOTTOMRIGHT", -2, 3)

        local editbox = CreateFrame("EditBox", nil, frame)
        editbox:SetAutoFocus(false)
        editbox:SetFontObject(GameFontHighlightSmall)
        editbox:SetPoint("TOP", slider, "BOTTOM")
        editbox:SetHeight(14)
        editbox:SetWidth(70)
        editbox:SetJustifyH("CENTER")
        editbox:EnableMouse(true)
        editbox:SetBackdrop(ManualBackdrop)
        editbox:SetBackdropColor(0, 0, 0, 0.5)
        editbox:SetBackdropBorderColor(0.3, 0.3, 0.30, 0.80)
        editbox:SetScript("OnEnter", EditBox_OnEnter)
        editbox:SetScript("OnLeave", EditBox_OnLeave)
        editbox:SetScript("OnEnterPressed", EditBox_OnEnterPressed)
        editbox:SetScript("OnEscapePressed", EditBox_OnEscapePressed)

        local widget = {
                label       = label,
                slider      = slider,
                lowtext     = lowtext,
                hightext    = hightext,
                editbox     = editbox,
                alignoffset = 25,
                frame       = frame,
                type        = Type
        }
        for method, func in pairs(methods) do
                widget[method] = func
        end
        slider.obj, editbox.obj = widget, widget

        return AceGUI:RegisterAsWidget(widget)
end

AceGUI:RegisterWidgetType(Type,Constructor,Version)

Go to most recent revision | Compare with Previous | Blame