Mercurial > wow > icu

annotate Libs/AceGUI-3.0/widgets/AceGUIWidget-CheckBox.lua @ 8:deb31e7b9ae4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tagging as beta
author Xiiph
date Fri, 18 Feb 2011 23:58:47 +0100
parents 98c6f55e6619
children
rev   line source
Xiiph@0 1 --[[-----------------------------------------------------------------------------
Xiiph@0 2 Checkbox Widget
Xiiph@0 3 -------------------------------------------------------------------------------]]
Xiiph@0 4 local Type, Version = "CheckBox", 21
Xiiph@0 5 local AceGUI = LibStub and LibStub("AceGUI-3.0", true)
Xiiph@0 6 if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end
Xiiph@0 7
Xiiph@0 8 -- Lua APIs
Xiiph@0 9 local select, pairs = select, pairs
Xiiph@0 10
Xiiph@0 11 -- WoW APIs
Xiiph@0 12 local PlaySound = PlaySound
Xiiph@0 13 local CreateFrame, UIParent = CreateFrame, UIParent
Xiiph@0 14
Xiiph@0 15 -- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
Xiiph@0 16 -- List them here for Mikk's FindGlobals script
Xiiph@0 17 -- GLOBALS: SetDesaturation, GameFontHighlight
Xiiph@0 18
Xiiph@0 19 --[[-----------------------------------------------------------------------------
Xiiph@0 20 Support functions
Xiiph@0 21 -------------------------------------------------------------------------------]]
Xiiph@0 22 local function AlignImage(self)
Xiiph@0 23 local img = self.image:GetTexture()
Xiiph@0 24 self.text:ClearAllPoints()
Xiiph@0 25 if not img then
Xiiph@0 26 self.text:SetPoint("LEFT", self.checkbg, "RIGHT")
Xiiph@0 27 self.text:SetPoint("RIGHT")
Xiiph@0 28 else
Xiiph@0 29 self.text:SetPoint("LEFT", self.image,"RIGHT", 1, 0)
Xiiph@0 30 self.text:SetPoint("RIGHT")
Xiiph@0 31 end
Xiiph@0 32 end
Xiiph@0 33
Xiiph@0 34 --[[-----------------------------------------------------------------------------
Xiiph@0 35 Scripts
Xiiph@0 36 -------------------------------------------------------------------------------]]
Xiiph@0 37 local function Control_OnEnter(frame)
Xiiph@0 38 frame.obj:Fire("OnEnter")
Xiiph@0 39 end
Xiiph@0 40
Xiiph@0 41 local function Control_OnLeave(frame)
Xiiph@0 42 frame.obj:Fire("OnLeave")
Xiiph@0 43 end
Xiiph@0 44
Xiiph@0 45 local function CheckBox_OnMouseDown(frame)
Xiiph@0 46 local self = frame.obj
Xiiph@0 47 if not self.disabled then
Xiiph@0 48 if self.image:GetTexture() then
Xiiph@0 49 self.text:SetPoint("LEFT", self.image,"RIGHT", 2, -1)
Xiiph@0 50 else
Xiiph@0 51 self.text:SetPoint("LEFT", self.checkbg, "RIGHT", 1, -1)
Xiiph@0 52 end
Xiiph@0 53 end
Xiiph@0 54 AceGUI:ClearFocus()
Xiiph@0 55 end
Xiiph@0 56
Xiiph@0 57 local function CheckBox_OnMouseUp(frame)
Xiiph@0 58 local self = frame.obj
Xiiph@0 59 if not self.disabled then
Xiiph@0 60 self:ToggleChecked()
Xiiph@0 61
Xiiph@0 62 if self.checked then
Xiiph@0 63 PlaySound("igMainMenuOptionCheckBoxOn")
Xiiph@0 64 else -- for both nil and false (tristate)
Xiiph@0 65 PlaySound("igMainMenuOptionCheckBoxOff")
Xiiph@0 66 end
Xiiph@0 67
Xiiph@0 68 self:Fire("OnValueChanged", self.checked)
Xiiph@0 69 AlignImage(self)
Xiiph@0 70 end
Xiiph@0 71 end
Xiiph@0 72
Xiiph@0 73 --[[-----------------------------------------------------------------------------
Xiiph@0 74 Methods
Xiiph@0 75 -------------------------------------------------------------------------------]]
Xiiph@0 76 local methods = {
Xiiph@0 77 ["OnAcquire"] = function(self)
Xiiph@0 78 self:SetType()
Xiiph@0 79 self:SetValue(false)
Xiiph@0 80 self:SetTriState(nil)
Xiiph@0 81 -- height is calculated from the width and required space for the description
Xiiph@0 82 self:SetWidth(200)
Xiiph@0 83 self:SetImage()
Xiiph@0 84 self:SetDisabled(nil)
Xiiph@0 85 self:SetDescription(nil)
Xiiph@0 86 end,
Xiiph@0 87
Xiiph@0 88 -- ["OnRelease"] = nil,
Xiiph@0 89
Xiiph@0 90 ["OnWidthSet"] = function(self, width)
Xiiph@0 91 if self.desc then
Xiiph@0 92 self.desc:SetWidth(width - 30)
Xiiph@0 93 if self.desc:GetText() and self.desc:GetText() ~= "" then
Xiiph@0 94 self:SetHeight(28 + self.desc:GetHeight())
Xiiph@0 95 end
Xiiph@0 96 end
Xiiph@0 97 end,
Xiiph@0 98
Xiiph@0 99 ["SetDisabled"] = function(self, disabled)
Xiiph@0 100 self.disabled = disabled
Xiiph@0 101 if disabled then
Xiiph@0 102 self.frame:Disable()
Xiiph@0 103 self.text:SetTextColor(0.5, 0.5, 0.5)
Xiiph@0 104 SetDesaturation(self.check, true)
Xiiph@0 105 else
Xiiph@0 106 self.frame:Enable()
Xiiph@0 107 self.text:SetTextColor(1, 1, 1)
Xiiph@0 108 if self.tristate and self.checked == nil then
Xiiph@0 109 SetDesaturation(self.check, true)
Xiiph@0 110 else
Xiiph@0 111 SetDesaturation(self.check, false)
Xiiph@0 112 end
Xiiph@0 113 end
Xiiph@0 114 end,
Xiiph@0 115
Xiiph@0 116 ["SetValue"] = function(self,value)
Xiiph@0 117 local check = self.check
Xiiph@0 118 self.checked = value
Xiiph@0 119 if value then
Xiiph@0 120 SetDesaturation(self.check, false)
Xiiph@0 121 self.check:Show()
Xiiph@0 122 else
Xiiph@0 123 --Nil is the unknown tristate value
Xiiph@0 124 if self.tristate and value == nil then
Xiiph@0 125 SetDesaturation(self.check, true)
Xiiph@0 126 self.check:Show()
Xiiph@0 127 else
Xiiph@0 128 SetDesaturation(self.check, false)
Xiiph@0 129 self.check:Hide()
Xiiph@0 130 end
Xiiph@0 131 end
Xiiph@0 132 self:SetDisabled(self.disabled)
Xiiph@0 133 end,
Xiiph@0 134
Xiiph@0 135 ["GetValue"] = function(self)
Xiiph@0 136 return self.checked
Xiiph@0 137 end,
Xiiph@0 138
Xiiph@0 139 ["SetTriState"] = function(self, enabled)
Xiiph@0 140 self.tristate = enabled
Xiiph@0 141 self:SetValue(self:GetValue())
Xiiph@0 142 end,
Xiiph@0 143
Xiiph@0 144 ["SetType"] = function(self, type)
Xiiph@0 145 local checkbg = self.checkbg
Xiiph@0 146 local check = self.check
Xiiph@0 147 local highlight = self.highlight
Xiiph@0 148
Xiiph@0 149 local size
Xiiph@0 150 if type == "radio" then
Xiiph@0 151 size = 16
Xiiph@0 152 checkbg:SetTexture("Interface\\Buttons\\UI-RadioButton")
Xiiph@0 153 checkbg:SetTexCoord(0, 0.25, 0, 1)
Xiiph@0 154 check:SetTexture("Interface\\Buttons\\UI-RadioButton")
Xiiph@0 155 check:SetTexCoord(0.25, 0.5, 0, 1)
Xiiph@0 156 check:SetBlendMode("ADD")
Xiiph@0 157 highlight:SetTexture("Interface\\Buttons\\UI-RadioButton")
Xiiph@0 158 highlight:SetTexCoord(0.5, 0.75, 0, 1)
Xiiph@0 159 else
Xiiph@0 160 size = 24
Xiiph@0 161 checkbg:SetTexture("Interface\\Buttons\\UI-CheckBox-Up")
Xiiph@0 162 checkbg:SetTexCoord(0, 1, 0, 1)
Xiiph@0 163 check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check")
Xiiph@0 164 check:SetTexCoord(0, 1, 0, 1)
Xiiph@0 165 check:SetBlendMode("BLEND")
Xiiph@0 166 highlight:SetTexture("Interface\\Buttons\\UI-CheckBox-Highlight")
Xiiph@0 167 highlight:SetTexCoord(0, 1, 0, 1)
Xiiph@0 168 end
Xiiph@0 169 checkbg:SetHeight(size)
Xiiph@0 170 checkbg:SetWidth(size)
Xiiph@0 171 end,
Xiiph@0 172
Xiiph@0 173 ["ToggleChecked"] = function(self)
Xiiph@0 174 local value = self:GetValue()
Xiiph@0 175 if self.tristate then
Xiiph@0 176 --cycle in true, nil, false order
Xiiph@0 177 if value then
Xiiph@0 178 self:SetValue(nil)
Xiiph@0 179 elseif value == nil then
Xiiph@0 180 self:SetValue(false)
Xiiph@0 181 else
Xiiph@0 182 self:SetValue(true)
Xiiph@0 183 end
Xiiph@0 184 else
Xiiph@0 185 self:SetValue(not self:GetValue())
Xiiph@0 186 end
Xiiph@0 187 end,
Xiiph@0 188
Xiiph@0 189 ["SetLabel"] = function(self, label)
Xiiph@0 190 self.text:SetText(label)
Xiiph@0 191 end,
Xiiph@0 192
Xiiph@0 193 ["SetDescription"] = function(self, desc)
Xiiph@0 194 if desc then
Xiiph@0 195 if not self.desc then
Xiiph@0 196 local desc = self.frame:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
Xiiph@0 197 desc:ClearAllPoints()
Xiiph@0 198 desc:SetPoint("TOPLEFT", self.checkbg, "TOPRIGHT", 5, -21)
Xiiph@0 199 desc:SetWidth(self.frame.width - 30)
Xiiph@0 200 desc:SetJustifyH("LEFT")
Xiiph@0 201 desc:SetJustifyV("TOP")
Xiiph@0 202 self.desc = desc
Xiiph@0 203 end
Xiiph@0 204 self.desc:Show()
Xiiph@0 205 --self.text:SetFontObject(GameFontNormal)
Xiiph@0 206 self.desc:SetText(desc)
Xiiph@0 207 self:SetHeight(28 + self.desc:GetHeight())
Xiiph@0 208 else
Xiiph@0 209 if self.desc then
Xiiph@0 210 self.desc:SetText("")
Xiiph@0 211 self.desc:Hide()
Xiiph@0 212 end
Xiiph@0 213 --self.text:SetFontObject(GameFontHighlight)
Xiiph@0 214 self:SetHeight(24)
Xiiph@0 215 end
Xiiph@0 216 end,
Xiiph@0 217
Xiiph@0 218 ["SetImage"] = function(self, path, ...)
Xiiph@0 219 local image = self.image
Xiiph@0 220 image:SetTexture(path)
Xiiph@0 221
Xiiph@0 222 if image:GetTexture() then
Xiiph@0 223 local n = select("#", ...)
Xiiph@0 224 if n == 4 or n == 8 then
Xiiph@0 225 image:SetTexCoord(...)
Xiiph@0 226 else
Xiiph@0 227 image:SetTexCoord(0, 1, 0, 1)
Xiiph@0 228 end
Xiiph@0 229 end
Xiiph@0 230 AlignImage(self)
Xiiph@0 231 end
Xiiph@0 232 }
Xiiph@0 233
Xiiph@0 234 --[[-----------------------------------------------------------------------------
Xiiph@0 235 Constructor
Xiiph@0 236 -------------------------------------------------------------------------------]]
Xiiph@0 237 local function Constructor()
Xiiph@0 238 local frame = CreateFrame("Button", nil, UIParent)
Xiiph@0 239 frame:Hide()
Xiiph@0 240
Xiiph@0 241 frame:EnableMouse(true)
Xiiph@0 242 frame:SetScript("OnEnter", Control_OnEnter)
Xiiph@0 243 frame:SetScript("OnLeave", Control_OnLeave)
Xiiph@0 244 frame:SetScript("OnMouseDown", CheckBox_OnMouseDown)
Xiiph@0 245 frame:SetScript("OnMouseUp", CheckBox_OnMouseUp)
Xiiph@0 246
Xiiph@0 247 local checkbg = frame:CreateTexture(nil, "ARTWORK")
Xiiph@0 248 checkbg:SetWidth(24)
Xiiph@0 249 checkbg:SetHeight(24)
Xiiph@0 250 checkbg:SetPoint("TOPLEFT")
Xiiph@0 251 checkbg:SetTexture("Interface\\Buttons\\UI-CheckBox-Up")
Xiiph@0 252
Xiiph@0 253 local check = frame:CreateTexture(nil, "OVERLAY")
Xiiph@0 254 check:SetAllPoints(checkbg)
Xiiph@0 255 check:SetTexture("Interface\\Buttons\\UI-CheckBox-Check")
Xiiph@0 256
Xiiph@0 257 local text = frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
Xiiph@0 258 text:SetJustifyH("LEFT")
Xiiph@0 259 text:SetHeight(18)
Xiiph@0 260 text:SetPoint("LEFT", checkbg, "RIGHT")
Xiiph@0 261 text:SetPoint("RIGHT")
Xiiph@0 262
Xiiph@0 263 local highlight = frame:CreateTexture(nil, "HIGHLIGHT")
Xiiph@0 264 highlight:SetTexture("Interface\\Buttons\\UI-CheckBox-Highlight")
Xiiph@0 265 highlight:SetBlendMode("ADD")
Xiiph@0 266 highlight:SetAllPoints(checkbg)
Xiiph@0 267
Xiiph@0 268 local image = frame:CreateTexture(nil, "OVERLAY")
Xiiph@0 269 image:SetHeight(16)
Xiiph@0 270 image:SetWidth(16)
Xiiph@0 271 image:SetPoint("LEFT", checkbg, "RIGHT", 1, 0)
Xiiph@0 272
Xiiph@0 273 local widget = {
Xiiph@0 274 checkbg = checkbg,
Xiiph@0 275 check = check,
Xiiph@0 276 text = text,
Xiiph@0 277 highlight = highlight,
Xiiph@0 278 image = image,
Xiiph@0 279 frame = frame,
Xiiph@0 280 type = Type
Xiiph@0 281 }
Xiiph@0 282 for method, func in pairs(methods) do
Xiiph@0 283 widget[method] = func
Xiiph@0 284 end
Xiiph@0 285
Xiiph@0 286 return AceGUI:RegisterAsWidget(widget)
Xiiph@0 287 end
Xiiph@0 288
Xiiph@0 289 AceGUI:RegisterWidgetType(Type, Constructor, Version)