Mercurial > wow > icu

annotate Libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua @ 0:98c6f55e6619

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First commit
author Xiiph
date Sat, 05 Feb 2011 16:45:02 +0100
parents
children
rev   line source
Xiiph@0 1 --[[-----------------------------------------------------------------------------
Xiiph@0 2 Slider Widget
Xiiph@0 3 Graphical Slider, like, for Range values.
Xiiph@0 4 -------------------------------------------------------------------------------]]
Xiiph@0 5 local Type, Version = "Slider", 20
Xiiph@0 6 local AceGUI = LibStub and LibStub("AceGUI-3.0", true)
Xiiph@0 7 if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end
Xiiph@0 8
Xiiph@0 9 -- Lua APIs
Xiiph@0 10 local min, max, floor = math.min, math.max, math.floor
Xiiph@0 11 local tonumber, pairs = tonumber, pairs
Xiiph@0 12
Xiiph@0 13 -- WoW APIs
Xiiph@0 14 local PlaySound = PlaySound
Xiiph@0 15 local CreateFrame, UIParent = CreateFrame, UIParent
Xiiph@0 16
Xiiph@0 17 -- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
Xiiph@0 18 -- List them here for Mikk's FindGlobals script
Xiiph@0 19 -- GLOBALS: GameFontHighlightSmall
Xiiph@0 20
Xiiph@0 21 --[[-----------------------------------------------------------------------------
Xiiph@0 22 Support functions
Xiiph@0 23 -------------------------------------------------------------------------------]]
Xiiph@0 24 local function UpdateText(self)
Xiiph@0 25 local value = self.value or 0
Xiiph@0 26 if self.ispercent then
Xiiph@0 27 self.editbox:SetText(("%s%%"):format(floor(value * 1000 + 0.5) / 10))
Xiiph@0 28 else
Xiiph@0 29 self.editbox:SetText(floor(value * 100 + 0.5) / 100)
Xiiph@0 30 end
Xiiph@0 31 end
Xiiph@0 32
Xiiph@0 33 local function UpdateLabels(self)
Xiiph@0 34 local min, max = (self.min or 0), (self.max or 100)
Xiiph@0 35 if self.ispercent then
Xiiph@0 36 self.lowtext:SetFormattedText("%s%%", (min * 100))
Xiiph@0 37 self.hightext:SetFormattedText("%s%%", (max * 100))
Xiiph@0 38 else
Xiiph@0 39 self.lowtext:SetText(min)
Xiiph@0 40 self.hightext:SetText(max)
Xiiph@0 41 end
Xiiph@0 42 end
Xiiph@0 43
Xiiph@0 44 --[[-----------------------------------------------------------------------------
Xiiph@0 45 Scripts
Xiiph@0 46 -------------------------------------------------------------------------------]]
Xiiph@0 47 local function Control_OnEnter(frame)
Xiiph@0 48 frame.obj:Fire("OnEnter")
Xiiph@0 49 end
Xiiph@0 50
Xiiph@0 51 local function Control_OnLeave(frame)
Xiiph@0 52 frame.obj:Fire("OnLeave")
Xiiph@0 53 end
Xiiph@0 54
Xiiph@0 55 local function Frame_OnMouseDown(frame)
Xiiph@0 56 frame.obj.slider:EnableMouseWheel(true)
Xiiph@0 57 AceGUI:ClearFocus()
Xiiph@0 58 end
Xiiph@0 59
Xiiph@0 60 local function Slider_OnValueChanged(frame)
Xiiph@0 61 local self = frame.obj
Xiiph@0 62 if not frame.setup then
Xiiph@0 63 local newvalue = frame:GetValue()
Xiiph@0 64 if newvalue ~= self.value and not self.disabled then
Xiiph@0 65 self.value = newvalue
Xiiph@0 66 self:Fire("OnValueChanged", newvalue)
Xiiph@0 67 end
Xiiph@0 68 if self.value then
Xiiph@0 69 UpdateText(self)
Xiiph@0 70 end
Xiiph@0 71 end
Xiiph@0 72 end
Xiiph@0 73
Xiiph@0 74 local function Slider_OnMouseUp(frame)
Xiiph@0 75 local self = frame.obj
Xiiph@0 76 self:Fire("OnMouseUp", self.value)
Xiiph@0 77 end
Xiiph@0 78
Xiiph@0 79 local function Slider_OnMouseWheel(frame, v)
Xiiph@0 80 local self = frame.obj
Xiiph@0 81 if not self.disabled then
Xiiph@0 82 local value = self.value
Xiiph@0 83 if v > 0 then
Xiiph@0 84 value = min(value + (self.step or 1), self.max)
Xiiph@0 85 else
Xiiph@0 86 value = max(value - (self.step or 1), self.min)
Xiiph@0 87 end
Xiiph@0 88 self.slider:SetValue(value)
Xiiph@0 89 end
Xiiph@0 90 end
Xiiph@0 91
Xiiph@0 92 local function EditBox_OnEscapePressed(frame)
Xiiph@0 93 frame:ClearFocus()
Xiiph@0 94 end
Xiiph@0 95
Xiiph@0 96 local function EditBox_OnEnterPressed(frame)
Xiiph@0 97 local self = frame.obj
Xiiph@0 98 local value = frame:GetText()
Xiiph@0 99 if self.ispercent then
Xiiph@0 100 value = value:gsub('%%', '')
Xiiph@0 101 value = tonumber(value) / 100
Xiiph@0 102 else
Xiiph@0 103 value = tonumber(value)
Xiiph@0 104 end
Xiiph@0 105
Xiiph@0 106 if value then
Xiiph@0 107 PlaySound("igMainMenuOptionCheckBoxOn")
Xiiph@0 108 self.slider:SetValue(value)
Xiiph@0 109 self:Fire("OnMouseUp", value)
Xiiph@0 110 end
Xiiph@0 111 end
Xiiph@0 112
Xiiph@0 113 local function EditBox_OnEnter(frame)
Xiiph@0 114 frame:SetBackdropBorderColor(0.5, 0.5, 0.5, 1)
Xiiph@0 115 end
Xiiph@0 116
Xiiph@0 117 local function EditBox_OnLeave(frame)
Xiiph@0 118 frame:SetBackdropBorderColor(0.3, 0.3, 0.3, 0.8)
Xiiph@0 119 end
Xiiph@0 120
Xiiph@0 121 --[[-----------------------------------------------------------------------------
Xiiph@0 122 Methods
Xiiph@0 123 -------------------------------------------------------------------------------]]
Xiiph@0 124 local methods = {
Xiiph@0 125 ["OnAcquire"] = function(self)
Xiiph@0 126 self:SetWidth(200)
Xiiph@0 127 self:SetHeight(44)
Xiiph@0 128 self:SetDisabled(false)
Xiiph@0 129 self:SetIsPercent(nil)
Xiiph@0 130 self:SetSliderValues(0,100,1)
Xiiph@0 131 self:SetValue(0)
Xiiph@0 132 self.slider:EnableMouseWheel(false)
Xiiph@0 133 end,
Xiiph@0 134
Xiiph@0 135 -- ["OnRelease"] = nil,
Xiiph@0 136
Xiiph@0 137 ["SetDisabled"] = function(self, disabled)
Xiiph@0 138 self.disabled = disabled
Xiiph@0 139 if disabled then
Xiiph@0 140 self.slider:EnableMouse(false)
Xiiph@0 141 self.label:SetTextColor(.5, .5, .5)
Xiiph@0 142 self.hightext:SetTextColor(.5, .5, .5)
Xiiph@0 143 self.lowtext:SetTextColor(.5, .5, .5)
Xiiph@0 144 --self.valuetext:SetTextColor(.5, .5, .5)
Xiiph@0 145 self.editbox:SetTextColor(.5, .5, .5)
Xiiph@0 146 self.editbox:EnableMouse(false)
Xiiph@0 147 self.editbox:ClearFocus()
Xiiph@0 148 else
Xiiph@0 149 self.slider:EnableMouse(true)
Xiiph@0 150 self.label:SetTextColor(1, .82, 0)
Xiiph@0 151 self.hightext:SetTextColor(1, 1, 1)
Xiiph@0 152 self.lowtext:SetTextColor(1, 1, 1)
Xiiph@0 153 --self.valuetext:SetTextColor(1, 1, 1)
Xiiph@0 154 self.editbox:SetTextColor(1, 1, 1)
Xiiph@0 155 self.editbox:EnableMouse(true)
Xiiph@0 156 end
Xiiph@0 157 end,
Xiiph@0 158
Xiiph@0 159 ["SetValue"] = function(self, value)
Xiiph@0 160 self.slider.setup = true
Xiiph@0 161 self.slider:SetValue(value)
Xiiph@0 162 self.value = value
Xiiph@0 163 UpdateText(self)
Xiiph@0 164 self.slider.setup = nil
Xiiph@0 165 end,
Xiiph@0 166
Xiiph@0 167 ["GetValue"] = function(self)
Xiiph@0 168 return self.value
Xiiph@0 169 end,
Xiiph@0 170
Xiiph@0 171 ["SetLabel"] = function(self, text)
Xiiph@0 172 self.label:SetText(text)
Xiiph@0 173 end,
Xiiph@0 174
Xiiph@0 175 ["SetSliderValues"] = function(self, min, max, step)
Xiiph@0 176 local frame = self.slider
Xiiph@0 177 frame.setup = true
Xiiph@0 178 self.min = min
Xiiph@0 179 self.max = max
Xiiph@0 180 self.step = step
Xiiph@0 181 frame:SetMinMaxValues(min or 0,max or 100)
Xiiph@0 182 UpdateLabels(self)
Xiiph@0 183 frame:SetValueStep(step or 1)
Xiiph@0 184 if self.value then
Xiiph@0 185 frame:SetValue(self.value)
Xiiph@0 186 end
Xiiph@0 187 frame.setup = nil
Xiiph@0 188 end,
Xiiph@0 189
Xiiph@0 190 ["SetIsPercent"] = function(self, value)
Xiiph@0 191 self.ispercent = value
Xiiph@0 192 UpdateLabels(self)
Xiiph@0 193 UpdateText(self)
Xiiph@0 194 end
Xiiph@0 195 }
Xiiph@0 196
Xiiph@0 197 --[[-----------------------------------------------------------------------------
Xiiph@0 198 Constructor
Xiiph@0 199 -------------------------------------------------------------------------------]]
Xiiph@0 200 local SliderBackdrop = {
Xiiph@0 201 bgFile = "Interface\\Buttons\\UI-SliderBar-Background",
Xiiph@0 202 edgeFile = "Interface\\Buttons\\UI-SliderBar-Border",
Xiiph@0 203 tile = true, tileSize = 8, edgeSize = 8,
Xiiph@0 204 insets = { left = 3, right = 3, top = 6, bottom = 6 }
Xiiph@0 205 }
Xiiph@0 206
Xiiph@0 207 local ManualBackdrop = {
Xiiph@0 208 bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
Xiiph@0 209 edgeFile = "Interface\\ChatFrame\\ChatFrameBackground",
Xiiph@0 210 tile = true, edgeSize = 1, tileSize = 5,
Xiiph@0 211 }
Xiiph@0 212
Xiiph@0 213 local function Constructor()
Xiiph@0 214 local frame = CreateFrame("Frame", nil, UIParent)
Xiiph@0 215
Xiiph@0 216 frame:EnableMouse(true)
Xiiph@0 217 frame:SetScript("OnMouseDown", Frame_OnMouseDown)
Xiiph@0 218
Xiiph@0 219 local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal")
Xiiph@0 220 label:SetPoint("TOPLEFT")
Xiiph@0 221 label:SetPoint("TOPRIGHT")
Xiiph@0 222 label:SetJustifyH("CENTER")
Xiiph@0 223 label:SetHeight(15)
Xiiph@0 224
Xiiph@0 225 local slider = CreateFrame("Slider", nil, frame)
Xiiph@0 226 slider:SetOrientation("HORIZONTAL")
Xiiph@0 227 slider:SetHeight(15)
Xiiph@0 228 slider:SetHitRectInsets(0, 0, -10, 0)
Xiiph@0 229 slider:SetBackdrop(SliderBackdrop)
Xiiph@0 230 slider:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Horizontal")
Xiiph@0 231 slider:SetPoint("TOP", label, "BOTTOM")
Xiiph@0 232 slider:SetPoint("LEFT", 3, 0)
Xiiph@0 233 slider:SetPoint("RIGHT", -3, 0)
Xiiph@0 234 slider:SetValue(0)
Xiiph@0 235 slider:SetScript("OnValueChanged",Slider_OnValueChanged)
Xiiph@0 236 slider:SetScript("OnEnter", Control_OnEnter)
Xiiph@0 237 slider:SetScript("OnLeave", Control_OnLeave)
Xiiph@0 238 slider:SetScript("OnMouseUp", Slider_OnMouseUp)
Xiiph@0 239 slider:SetScript("OnMouseWheel", Slider_OnMouseWheel)
Xiiph@0 240
Xiiph@0 241 local lowtext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
Xiiph@0 242 lowtext:SetPoint("TOPLEFT", slider, "BOTTOMLEFT", 2, 3)
Xiiph@0 243
Xiiph@0 244 local hightext = slider:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
Xiiph@0 245 hightext:SetPoint("TOPRIGHT", slider, "BOTTOMRIGHT", -2, 3)
Xiiph@0 246
Xiiph@0 247 local editbox = CreateFrame("EditBox", nil, frame)
Xiiph@0 248 editbox:SetAutoFocus(false)
Xiiph@0 249 editbox:SetFontObject(GameFontHighlightSmall)
Xiiph@0 250 editbox:SetPoint("TOP", slider, "BOTTOM")
Xiiph@0 251 editbox:SetHeight(14)
Xiiph@0 252 editbox:SetWidth(70)
Xiiph@0 253 editbox:SetJustifyH("CENTER")
Xiiph@0 254 editbox:EnableMouse(true)
Xiiph@0 255 editbox:SetBackdrop(ManualBackdrop)
Xiiph@0 256 editbox:SetBackdropColor(0, 0, 0, 0.5)
Xiiph@0 257 editbox:SetBackdropBorderColor(0.3, 0.3, 0.30, 0.80)
Xiiph@0 258 editbox:SetScript("OnEnter", EditBox_OnEnter)
Xiiph@0 259 editbox:SetScript("OnLeave", EditBox_OnLeave)
Xiiph@0 260 editbox:SetScript("OnEnterPressed", EditBox_OnEnterPressed)
Xiiph@0 261 editbox:SetScript("OnEscapePressed", EditBox_OnEscapePressed)
Xiiph@0 262
Xiiph@0 263 local widget = {
Xiiph@0 264 label = label,
Xiiph@0 265 slider = slider,
Xiiph@0 266 lowtext = lowtext,
Xiiph@0 267 hightext = hightext,
Xiiph@0 268 editbox = editbox,
Xiiph@0 269 alignoffset = 25,
Xiiph@0 270 frame = frame,
Xiiph@0 271 type = Type
Xiiph@0 272 }
Xiiph@0 273 for method, func in pairs(methods) do
Xiiph@0 274 widget[method] = func
Xiiph@0 275 end
Xiiph@0 276 slider.obj, editbox.obj = widget, widget
Xiiph@0 277
Xiiph@0 278 return AceGUI:RegisterAsWidget(widget)
Xiiph@0 279 end
Xiiph@0 280
Xiiph@0 281 AceGUI:RegisterWidgetType(Type,Constructor,Version)