Mercurial > wow > icu

annotate Libs/AceGUI-3.0/widgets/AceGUIWidget-Slider.lua @ 15:21cefa363c73 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Last modification to ready checking broke something ... Now its fixed and ready checking is working as intended.
author Xiiph
date Fri, 25 Feb 2011 01:21:13 +0100
parents 98c6f55e6619
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)