Mercurial > wow > icu

annotate Libs/AceGUI-3.0/widgets/AceGUIWidget-ColorPicker.lua @ 5:45a45aa0f492

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Corrected name of Bastion of Twilight ... (returned by GetRealZoneText()) Added confirmation when nobody is missing buffs.
author Xiiph
date Mon, 14 Feb 2011 22:21:15 +0100
parents 98c6f55e6619
children
rev   line source
Xiiph@0 1 --[[-----------------------------------------------------------------------------
Xiiph@0 2 ColorPicker Widget
Xiiph@0 3 -------------------------------------------------------------------------------]]
Xiiph@0 4 local Type, Version = "ColorPicker", 20
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 pairs = pairs
Xiiph@0 10
Xiiph@0 11 -- WoW APIs
Xiiph@0 12 local CreateFrame, UIParent = CreateFrame, UIParent
Xiiph@0 13
Xiiph@0 14 -- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
Xiiph@0 15 -- List them here for Mikk's FindGlobals script
Xiiph@0 16 -- GLOBALS: ShowUIPanel, HideUIPanel, ColorPickerFrame, OpacitySliderFrame
Xiiph@0 17
Xiiph@0 18 --[[-----------------------------------------------------------------------------
Xiiph@0 19 Support functions
Xiiph@0 20 -------------------------------------------------------------------------------]]
Xiiph@0 21 local function ColorCallback(self, r, g, b, a, isAlpha)
Xiiph@0 22 if not self.HasAlpha then
Xiiph@0 23 a = 1
Xiiph@0 24 end
Xiiph@0 25 self:SetColor(r, g, b, a)
Xiiph@0 26 if ColorPickerFrame:IsVisible() then
Xiiph@0 27 --colorpicker is still open
Xiiph@0 28 self:Fire("OnValueChanged", r, g, b, a)
Xiiph@0 29 else
Xiiph@0 30 --colorpicker is closed, color callback is first, ignore it,
Xiiph@0 31 --alpha callback is the final call after it closes so confirm now
Xiiph@0 32 if isAlpha then
Xiiph@0 33 self:Fire("OnValueConfirmed", r, g, b, a)
Xiiph@0 34 end
Xiiph@0 35 end
Xiiph@0 36 end
Xiiph@0 37
Xiiph@0 38 --[[-----------------------------------------------------------------------------
Xiiph@0 39 Scripts
Xiiph@0 40 -------------------------------------------------------------------------------]]
Xiiph@0 41 local function Control_OnEnter(frame)
Xiiph@0 42 frame.obj:Fire("OnEnter")
Xiiph@0 43 end
Xiiph@0 44
Xiiph@0 45 local function Control_OnLeave(frame)
Xiiph@0 46 frame.obj:Fire("OnLeave")
Xiiph@0 47 end
Xiiph@0 48
Xiiph@0 49 local function ColorSwatch_OnClick(frame)
Xiiph@0 50 HideUIPanel(ColorPickerFrame)
Xiiph@0 51 local self = frame.obj
Xiiph@0 52 if not self.disabled then
Xiiph@0 53 ColorPickerFrame:SetFrameStrata("FULLSCREEN_DIALOG")
Xiiph@0 54
Xiiph@0 55 ColorPickerFrame.func = function()
Xiiph@0 56 local r, g, b = ColorPickerFrame:GetColorRGB()
Xiiph@0 57 local a = 1 - OpacitySliderFrame:GetValue()
Xiiph@0 58 ColorCallback(self, r, g, b, a)
Xiiph@0 59 end
Xiiph@0 60
Xiiph@0 61 ColorPickerFrame.hasOpacity = self.HasAlpha
Xiiph@0 62 ColorPickerFrame.opacityFunc = function()
Xiiph@0 63 local r, g, b = ColorPickerFrame:GetColorRGB()
Xiiph@0 64 local a = 1 - OpacitySliderFrame:GetValue()
Xiiph@0 65 ColorCallback(self, r, g, b, a, true)
Xiiph@0 66 end
Xiiph@0 67
Xiiph@0 68 local r, g, b, a = self.r, self.g, self.b, self.a
Xiiph@0 69 if self.HasAlpha then
Xiiph@0 70 ColorPickerFrame.opacity = 1 - (a or 0)
Xiiph@0 71 end
Xiiph@0 72 ColorPickerFrame:SetColorRGB(r, g, b)
Xiiph@0 73
Xiiph@0 74 ColorPickerFrame.cancelFunc = function()
Xiiph@0 75 ColorCallback(self, r, g, b, a, true)
Xiiph@0 76 end
Xiiph@0 77
Xiiph@0 78 ShowUIPanel(ColorPickerFrame)
Xiiph@0 79 end
Xiiph@0 80 AceGUI:ClearFocus()
Xiiph@0 81 end
Xiiph@0 82
Xiiph@0 83 --[[-----------------------------------------------------------------------------
Xiiph@0 84 Methods
Xiiph@0 85 -------------------------------------------------------------------------------]]
Xiiph@0 86 local methods = {
Xiiph@0 87 ["OnAcquire"] = function(self)
Xiiph@0 88 self:SetHeight(24)
Xiiph@0 89 self:SetWidth(200)
Xiiph@0 90 self:SetHasAlpha(false)
Xiiph@0 91 self:SetColor(0, 0, 0, 1)
Xiiph@0 92 self:SetDisabled(nil)
Xiiph@0 93 self:SetLabel(nil)
Xiiph@0 94 end,
Xiiph@0 95
Xiiph@0 96 -- ["OnRelease"] = nil,
Xiiph@0 97
Xiiph@0 98 ["SetLabel"] = function(self, text)
Xiiph@0 99 self.text:SetText(text)
Xiiph@0 100 end,
Xiiph@0 101
Xiiph@0 102 ["SetColor"] = function(self, r, g, b, a)
Xiiph@0 103 self.r = r
Xiiph@0 104 self.g = g
Xiiph@0 105 self.b = b
Xiiph@0 106 self.a = a or 1
Xiiph@0 107 self.colorSwatch:SetVertexColor(r, g, b, a)
Xiiph@0 108 end,
Xiiph@0 109
Xiiph@0 110 ["SetHasAlpha"] = function(self, HasAlpha)
Xiiph@0 111 self.HasAlpha = HasAlpha
Xiiph@0 112 end,
Xiiph@0 113
Xiiph@0 114 ["SetDisabled"] = function(self, disabled)
Xiiph@0 115 self.disabled = disabled
Xiiph@0 116 if self.disabled then
Xiiph@0 117 self.frame:Disable()
Xiiph@0 118 self.text:SetTextColor(0.5, 0.5, 0.5)
Xiiph@0 119 else
Xiiph@0 120 self.frame:Enable()
Xiiph@0 121 self.text:SetTextColor(1, 1, 1)
Xiiph@0 122 end
Xiiph@0 123 end
Xiiph@0 124 }
Xiiph@0 125
Xiiph@0 126 --[[-----------------------------------------------------------------------------
Xiiph@0 127 Constructor
Xiiph@0 128 -------------------------------------------------------------------------------]]
Xiiph@0 129 local function Constructor()
Xiiph@0 130 local frame = CreateFrame("Button", nil, UIParent)
Xiiph@0 131 frame:Hide()
Xiiph@0 132
Xiiph@0 133 frame:EnableMouse(true)
Xiiph@0 134 frame:SetScript("OnEnter", Control_OnEnter)
Xiiph@0 135 frame:SetScript("OnLeave", Control_OnLeave)
Xiiph@0 136 frame:SetScript("OnClick", ColorSwatch_OnClick)
Xiiph@0 137
Xiiph@0 138 local colorSwatch = frame:CreateTexture(nil, "OVERLAY")
Xiiph@0 139 colorSwatch:SetWidth(19)
Xiiph@0 140 colorSwatch:SetHeight(19)
Xiiph@0 141 colorSwatch:SetTexture("Interface\\ChatFrame\\ChatFrameColorSwatch")
Xiiph@0 142 colorSwatch:SetPoint("LEFT")
Xiiph@0 143
Xiiph@0 144 local texture = frame:CreateTexture(nil, "BACKGROUND")
Xiiph@0 145 texture:SetWidth(16)
Xiiph@0 146 texture:SetHeight(16)
Xiiph@0 147 texture:SetTexture(1, 1, 1)
Xiiph@0 148 texture:SetPoint("CENTER", colorSwatch)
Xiiph@0 149 texture:Show()
Xiiph@0 150
Xiiph@0 151 local checkers = frame:CreateTexture(nil, "BACKGROUND")
Xiiph@0 152 checkers:SetWidth(14)
Xiiph@0 153 checkers:SetHeight(14)
Xiiph@0 154 checkers:SetTexture("Tileset\\Generic\\Checkers")
Xiiph@0 155 checkers:SetTexCoord(.25, 0, 0.5, .25)
Xiiph@0 156 checkers:SetDesaturated(true)
Xiiph@0 157 checkers:SetVertexColor(1, 1, 1, 0.75)
Xiiph@0 158 checkers:SetPoint("CENTER", colorSwatch)
Xiiph@0 159 checkers:Show()
Xiiph@0 160
Xiiph@0 161 local text = frame:CreateFontString(nil,"OVERLAY","GameFontHighlight")
Xiiph@0 162 text:SetHeight(24)
Xiiph@0 163 text:SetJustifyH("LEFT")
Xiiph@0 164 text:SetTextColor(1, 1, 1)
Xiiph@0 165 text:SetPoint("LEFT", colorSwatch, "RIGHT", 2, 0)
Xiiph@0 166 text:SetPoint("RIGHT")
Xiiph@0 167
Xiiph@0 168 --local highlight = frame:CreateTexture(nil, "HIGHLIGHT")
Xiiph@0 169 --highlight:SetTexture("Interface\\QuestFrame\\UI-QuestTitleHighlight")
Xiiph@0 170 --highlight:SetBlendMode("ADD")
Xiiph@0 171 --highlight:SetAllPoints(frame)
Xiiph@0 172
Xiiph@0 173 local widget = {
Xiiph@0 174 colorSwatch = colorSwatch,
Xiiph@0 175 text = text,
Xiiph@0 176 frame = frame,
Xiiph@0 177 type = Type
Xiiph@0 178 }
Xiiph@0 179 for method, func in pairs(methods) do
Xiiph@0 180 widget[method] = func
Xiiph@0 181 end
Xiiph@0 182
Xiiph@0 183 return AceGUI:RegisterAsWidget(widget)
Xiiph@0 184 end
Xiiph@0 185
Xiiph@0 186 AceGUI:RegisterWidgetType(Type, Constructor, Version)