Mercurial > wow > askmrrobot

annotate ui/AmrUiTextButton.lua @ 159:a3507735dfd9 v75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed a rendering issue with auto-logging checkboxes.
author yellowfive
date Wed, 24 Apr 2019 18:00:42 -0700
parents a0894ffebd15
children 35612aee8e15
rev   line source
yellowfive@57 1 --[[-----------------------------------------------------------------------------
yellowfive@57 2 Text Button Widget
yellowfive@57 3 Based on the AceGUI button, but a custom look that just shows text.
yellowfive@57 4 -------------------------------------------------------------------------------]]
yellowfive@57 5 local Type, Version = "AmrUiTextButton", 1
yellowfive@57 6 local AceGUI = LibStub and LibStub("AceGUI-3.0", true)
yellowfive@57 7 if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end
yellowfive@57 8
yellowfive@57 9 local Amr = LibStub("AceAddon-3.0"):GetAddon("AskMrRobot")
yellowfive@57 10
yellowfive@57 11 -- Lua APIs
yellowfive@57 12 local pairs = pairs
yellowfive@57 13
yellowfive@57 14 -- WoW APIs
yellowfive@57 15 local _G = _G
yellowfive@133 16 local CreateFrame, UIParent = CreateFrame, UIParent
yellowfive@57 17
yellowfive@57 18
yellowfive@57 19 --[[-----------------------------------------------------------------------------
yellowfive@57 20 Scripts
yellowfive@57 21 -------------------------------------------------------------------------------]]
yellowfive@57 22 local function buttonOnClick(frame, ...)
yellowfive@57 23 AceGUI:ClearFocus()
yellowfive@112 24 --PlaySound("igMainMenuOption")
yellowfive@57 25 frame.obj:Fire("OnClick", ...)
yellowfive@57 26 end
yellowfive@57 27
yellowfive@57 28 local function buttonOnEnter(frame)
yellowfive@57 29 frame.obj.bg:Hide()
yellowfive@57 30 frame.obj.hover:Show()
yellowfive@57 31 frame.obj:Fire("OnEnter")
yellowfive@57 32 end
yellowfive@57 33
yellowfive@57 34 local function buttonOnLeave(frame)
yellowfive@57 35 frame.obj.bg:Show()
yellowfive@57 36 frame.obj.hover:Hide()
yellowfive@57 37 frame.obj:Fire("OnLeave")
yellowfive@57 38 end
yellowfive@57 39
yellowfive@57 40 --[[-----------------------------------------------------------------------------
yellowfive@57 41 Methods
yellowfive@57 42 -------------------------------------------------------------------------------]]
yellowfive@57 43 local methods = {
yellowfive@57 44 ["OnAcquire"] = function(self)
yellowfive@57 45 -- restore default values
yellowfive@57 46 self:SetHeight(24)
yellowfive@57 47 self:SetWidth(200)
yellowfive@57 48 self:SetBackgroundColor(Amr.Colors.Black, 0)
yellowfive@57 49 self:SetHoverBackgroundColor(Amr.Colors.Black, 0)
yellowfive@57 50 self:SetDisabled(false)
yellowfive@57 51
yellowfive@57 52 self:SetFont(Amr.CreateFont("Regular", 16, Amr.Colors.Text))
yellowfive@57 53 self:SetHoverFont(Amr.CreateFont("Regular", 16, Amr.Colors.TextHover))
yellowfive@57 54 self:SetText("")
yellowfive@57 55 self:SetWordWrap(true)
yellowfive@57 56 self:SetJustifyH("CENTER")
yellowfive@57 57 self:SetJustifyV("MIDDLE")
yellowfive@57 58 self:SetTextPadding()
yellowfive@57 59
yellowfive@57 60 self:SetSubtextFont(Amr.CreateFont("Regular", 16, Amr.Colors.Text))
yellowfive@57 61 self:SetSubtext()
yellowfive@57 62 self:SetSubtextWordWrap(true)
yellowfive@57 63 self:SetSubtextJustifyH("CENTER")
yellowfive@57 64 self:SetSubtextJustifyV("MIDDLE")
yellowfive@57 65 self:SetSubtextPadding()
yellowfive@57 66
yellowfive@57 67 self.frame:ClearAllPoints()
yellowfive@57 68 self.bg:Show()
yellowfive@57 69 self.hover:Hide()
yellowfive@57 70 end,
yellowfive@57 71
yellowfive@57 72 ["OnWidthSet"] = function(self, width)
yellowfive@57 73 self.frame:GetFontString():SetWidth(width)
yellowfive@57 74 end,
yellowfive@57 75
yellowfive@57 76 ["OnHeightSet"] = function(self, height)
yellowfive@57 77 self.frame:GetFontString():SetHeight(height)
yellowfive@57 78 end,
yellowfive@57 79
yellowfive@57 80 ["SetBackgroundColor"] = function(self, color, alpha)
yellowfive@81 81 self.bg:SetColorTexture(color.R, color.G, color.B, alpha)
yellowfive@57 82 end,
yellowfive@57 83
yellowfive@57 84 ["SetBackgroundImage"] = function(self, image)
yellowfive@57 85 self.bg:SetTexture(image)
yellowfive@57 86 self.bg:SetDesaturated(false)
yellowfive@57 87 end,
yellowfive@57 88
yellowfive@57 89 ["SetHoverBackgroundColor"] = function(self, color, alpha)
yellowfive@81 90 self.hover:SetColorTexture(color.R, color.G, color.B, alpha)
yellowfive@57 91 end,
yellowfive@57 92
yellowfive@57 93 ["SetHoverBackgroundImage"] = function(self, image)
yellowfive@57 94 self.hover:SetTexture(image)
yellowfive@57 95 end,
yellowfive@57 96
yellowfive@57 97 ["SetText"] = function(self, text)
yellowfive@57 98 self.frame:SetText(text)
yellowfive@57 99 end,
yellowfive@57 100
yellowfive@57 101 ["SetWordWrap"] = function(self, enable)
yellowfive@57 102 self.frame:GetFontString():SetWordWrap(enable)
yellowfive@57 103 end,
yellowfive@57 104
yellowfive@57 105 ["SetJustifyH"] = function(self, val)
yellowfive@57 106 self.frame:GetFontString():SetJustifyH(val)
yellowfive@57 107 end,
yellowfive@57 108
yellowfive@57 109 ["SetJustifyV"] = function(self, val)
yellowfive@57 110 self.frame:GetFontString():SetJustifyV(val)
yellowfive@57 111 end,
yellowfive@57 112
yellowfive@57 113 ["SetTextPadding"] = function(self, top, right, bottom, left)
yellowfive@57 114 local f = self.frame:GetFontString()
yellowfive@57 115 f:ClearAllPoints()
yellowfive@57 116
yellowfive@57 117 if not top and not right and not bottom and not left then
yellowfive@57 118 f:SetPoint("CENTER")
yellowfive@57 119 end
yellowfive@57 120
yellowfive@57 121 if top then f:SetPoint("TOP", self.frame, "TOP", 0, -top) end
yellowfive@57 122 if right then f:SetPoint("RIGHT", self.frame, "RIGHT", -right, 0) end
yellowfive@57 123 if bottom then f:SetPoint("BOTTOM", self.frame, "BOTTOM", 0, bottom) end
yellowfive@57 124 if left then f:SetPoint("LEFT", self.frame, "LEFT", left, 0) end
yellowfive@57 125 end,
yellowfive@57 126
yellowfive@57 127 ["SetFont"] = function(self, font)
yellowfive@57 128 self.frame:SetNormalFontObject(font)
yellowfive@57 129 end,
yellowfive@57 130
yellowfive@57 131 ["SetHoverFont"] = function(self, font)
yellowfive@57 132 self.frame:SetHighlightFontObject(font)
yellowfive@57 133 end,
yellowfive@57 134
yellowfive@57 135 ["SetSubtext"] = function(self, text)
yellowfive@57 136 self.subtxt:SetText(text)
yellowfive@57 137 if text then
yellowfive@57 138 self.subtxt:Show()
yellowfive@57 139 else
yellowfive@57 140 self.subtxt:Hide()
yellowfive@57 141 end
yellowfive@57 142 end,
yellowfive@57 143
yellowfive@57 144 ["SetSubtextWordWrap"] = function(self, enable)
yellowfive@57 145 self.subtxt:SetWordWrap(enable)
yellowfive@57 146 end,
yellowfive@57 147
yellowfive@57 148 ["SetSubtextJustifyH"] = function(self, val)
yellowfive@57 149 self.subtxt:SetJustifyH(val)
yellowfive@57 150 end,
yellowfive@57 151
yellowfive@57 152 ["SetSubtextJustifyV"] = function(self, val)
yellowfive@57 153 self.subtxt:SetJustifyV(val)
yellowfive@57 154 end,
yellowfive@57 155
yellowfive@57 156 ["SetSubtextPadding"] = function(self, top, right, bottom, left)
yellowfive@57 157 local f = self.subtxt
yellowfive@57 158 f:ClearAllPoints()
yellowfive@57 159 if top then f:SetPoint("TOP", self.frame, "TOP", 0, -top) end
yellowfive@57 160 if right then f:SetPoint("RIGHT", self.frame, "RIGHT", -right, 0) end
yellowfive@57 161 if bottom then f:SetPoint("BOTTOM", self.frame, "BOTTOM", 0, bottom) end
yellowfive@57 162 if left then f:SetPoint("LEFT", self.frame, "LEFT", left, 0) end
yellowfive@57 163 end,
yellowfive@57 164
yellowfive@57 165 ["SetSubtextFont"] = function(self, font)
yellowfive@57 166 self.subtxt:SetFontObject(font)
yellowfive@57 167 end,
yellowfive@57 168
yellowfive@57 169 ["SetDisabled"] = function(self, disabled)
yellowfive@57 170 self.disabled = disabled
yellowfive@57 171 if disabled then
yellowfive@57 172 self.frame:Disable()
yellowfive@57 173 else
yellowfive@57 174 self.frame:Enable()
yellowfive@57 175 end
yellowfive@57 176 end,
yellowfive@57 177
yellowfive@57 178 ["SetVisible"] = function(self, visible)
yellowfive@57 179 if visible then
yellowfive@57 180 self.frame:Show()
yellowfive@57 181 else
yellowfive@57 182 self.frame:Hide()
yellowfive@57 183 end
yellowfive@57 184 end
yellowfive@57 185 }
yellowfive@57 186
yellowfive@57 187 --[[-----------------------------------------------------------------------------
yellowfive@57 188 Constructor
yellowfive@57 189 -------------------------------------------------------------------------------]]
yellowfive@57 190 local function Constructor()
yellowfive@57 191 local name = "AmrUiTextButton" .. AceGUI:GetNextWidgetNum(Type)
yellowfive@57 192 local frame = CreateFrame("Button", name, UIParent)
yellowfive@57 193 frame:Hide()
yellowfive@57 194
yellowfive@57 195 local txt = frame:CreateFontString()
yellowfive@57 196 frame:SetFontString(txt)
yellowfive@57 197
yellowfive@57 198 local subtxt = frame:CreateFontString()
yellowfive@57 199 subtxt:Hide()
yellowfive@57 200
yellowfive@57 201 frame:EnableMouse(true)
yellowfive@57 202 frame:SetScript("OnEnter", buttonOnEnter)
yellowfive@57 203 frame:SetScript("OnLeave", buttonOnLeave)
yellowfive@57 204 frame:SetScript("OnClick", buttonOnClick)
yellowfive@57 205
yellowfive@57 206 local bg = frame:CreateTexture()
yellowfive@57 207 bg:SetAllPoints()
yellowfive@57 208
yellowfive@57 209 local hover = frame:CreateTexture()
yellowfive@57 210 hover:SetAllPoints()
yellowfive@57 211
yellowfive@57 212 local widget = {
yellowfive@57 213 bg = bg,
yellowfive@57 214 subtxt = subtxt,
yellowfive@57 215 hover = hover,
yellowfive@57 216 frame = frame,
yellowfive@57 217 type = Type
yellowfive@57 218 }
yellowfive@57 219 for method, func in pairs(methods) do
yellowfive@57 220 widget[method] = func
yellowfive@57 221 end
yellowfive@57 222
yellowfive@57 223 return AceGUI:RegisterAsWidget(widget)
yellowfive@57 224 end
yellowfive@57 225
yellowfive@57 226 AceGUI:RegisterWidgetType(Type, Constructor, Version)