Mercurial > wow > hansgar_and_franzok_assist

annotate Libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua @ 44:7f9a7d2000ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag r43-release for changeset 2681843ada1c
author Tercio
date Tue, 28 Mar 2017 19:59:18 -0300
parents 52973d00a183
children dbf04157d63e
rev   line source
Tercio@23 1 --[[-----------------------------------------------------------------------------
Tercio@23 2 Frame Container
Tercio@23 3 -------------------------------------------------------------------------------]]
Tercio@23 4 local Type, Version = "Frame", 24
Tercio@23 5 local AceGUI = LibStub and LibStub("AceGUI-3.0", true)
Tercio@23 6 if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end
Tercio@23 7
Tercio@23 8 -- Lua APIs
Tercio@23 9 local pairs, assert, type = pairs, assert, type
Tercio@23 10 local wipe = table.wipe
Tercio@23 11
Tercio@23 12 -- WoW APIs
Tercio@23 13 local PlaySound = PlaySound
Tercio@23 14 local CreateFrame, UIParent = CreateFrame, UIParent
Tercio@23 15
Tercio@23 16 -- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
Tercio@23 17 -- List them here for Mikk's FindGlobals script
Tercio@23 18 -- GLOBALS: CLOSE
Tercio@23 19
Tercio@23 20 --[[-----------------------------------------------------------------------------
Tercio@23 21 Scripts
Tercio@23 22 -------------------------------------------------------------------------------]]
Tercio@23 23 local function Button_OnClick(frame)
Tercio@23 24 PlaySound("gsTitleOptionExit")
Tercio@23 25 frame.obj:Hide()
Tercio@23 26 end
Tercio@23 27
Tercio@23 28 local function Frame_OnClose(frame)
Tercio@23 29 frame.obj:Fire("OnClose")
Tercio@23 30 end
Tercio@23 31
Tercio@23 32 local function Frame_OnMouseDown(frame)
Tercio@23 33 AceGUI:ClearFocus()
Tercio@23 34 end
Tercio@23 35
Tercio@23 36 local function Title_OnMouseDown(frame)
Tercio@23 37 frame:GetParent():StartMoving()
Tercio@23 38 AceGUI:ClearFocus()
Tercio@23 39 end
Tercio@23 40
Tercio@23 41 local function MoverSizer_OnMouseUp(mover)
Tercio@23 42 local frame = mover:GetParent()
Tercio@23 43 frame:StopMovingOrSizing()
Tercio@23 44 local self = frame.obj
Tercio@23 45 local status = self.status or self.localstatus
Tercio@23 46 status.width = frame:GetWidth()
Tercio@23 47 status.height = frame:GetHeight()
Tercio@23 48 status.top = frame:GetTop()
Tercio@23 49 status.left = frame:GetLeft()
Tercio@23 50 end
Tercio@23 51
Tercio@23 52 local function SizerSE_OnMouseDown(frame)
Tercio@23 53 frame:GetParent():StartSizing("BOTTOMRIGHT")
Tercio@23 54 AceGUI:ClearFocus()
Tercio@23 55 end
Tercio@23 56
Tercio@23 57 local function SizerS_OnMouseDown(frame)
Tercio@23 58 frame:GetParent():StartSizing("BOTTOM")
Tercio@23 59 AceGUI:ClearFocus()
Tercio@23 60 end
Tercio@23 61
Tercio@23 62 local function SizerE_OnMouseDown(frame)
Tercio@23 63 frame:GetParent():StartSizing("RIGHT")
Tercio@23 64 AceGUI:ClearFocus()
Tercio@23 65 end
Tercio@23 66
Tercio@23 67 local function StatusBar_OnEnter(frame)
Tercio@23 68 frame.obj:Fire("OnEnterStatusBar")
Tercio@23 69 end
Tercio@23 70
Tercio@23 71 local function StatusBar_OnLeave(frame)
Tercio@23 72 frame.obj:Fire("OnLeaveStatusBar")
Tercio@23 73 end
Tercio@23 74
Tercio@23 75 --[[-----------------------------------------------------------------------------
Tercio@23 76 Methods
Tercio@23 77 -------------------------------------------------------------------------------]]
Tercio@23 78 local methods = {
Tercio@23 79 ["OnAcquire"] = function(self)
Tercio@23 80 self.frame:SetParent(UIParent)
Tercio@23 81 self.frame:SetFrameStrata("FULLSCREEN_DIALOG")
Tercio@23 82 self:SetTitle()
Tercio@23 83 self:SetStatusText()
Tercio@23 84 self:ApplyStatus()
Tercio@23 85 self:Show()
Tercio@23 86 self:EnableResize(true)
Tercio@23 87 end,
Tercio@23 88
Tercio@23 89 ["OnRelease"] = function(self)
Tercio@23 90 self.status = nil
Tercio@23 91 wipe(self.localstatus)
Tercio@23 92 end,
Tercio@23 93
Tercio@23 94 ["OnWidthSet"] = function(self, width)
Tercio@23 95 local content = self.content
Tercio@23 96 local contentwidth = width - 34
Tercio@23 97 if contentwidth < 0 then
Tercio@23 98 contentwidth = 0
Tercio@23 99 end
Tercio@23 100 content:SetWidth(contentwidth)
Tercio@23 101 content.width = contentwidth
Tercio@23 102 end,
Tercio@23 103
Tercio@23 104 ["OnHeightSet"] = function(self, height)
Tercio@23 105 local content = self.content
Tercio@23 106 local contentheight = height - 57
Tercio@23 107 if contentheight < 0 then
Tercio@23 108 contentheight = 0
Tercio@23 109 end
Tercio@23 110 content:SetHeight(contentheight)
Tercio@23 111 content.height = contentheight
Tercio@23 112 end,
Tercio@23 113
Tercio@23 114 ["SetTitle"] = function(self, title)
Tercio@23 115 self.titletext:SetText(title)
Tercio@23 116 self.titlebg:SetWidth((self.titletext:GetWidth() or 0) + 10)
Tercio@23 117 end,
Tercio@23 118
Tercio@23 119 ["SetStatusText"] = function(self, text)
Tercio@23 120 self.statustext:SetText(text)
Tercio@23 121 end,
Tercio@23 122
Tercio@23 123 ["Hide"] = function(self)
Tercio@23 124 self.frame:Hide()
Tercio@23 125 end,
Tercio@23 126
Tercio@23 127 ["Show"] = function(self)
Tercio@23 128 self.frame:Show()
Tercio@23 129 end,
Tercio@23 130
Tercio@23 131 ["EnableResize"] = function(self, state)
Tercio@23 132 local func = state and "Show" or "Hide"
Tercio@23 133 self.sizer_se[func](self.sizer_se)
Tercio@23 134 self.sizer_s[func](self.sizer_s)
Tercio@23 135 self.sizer_e[func](self.sizer_e)
Tercio@23 136 end,
Tercio@23 137
Tercio@23 138 -- called to set an external table to store status in
Tercio@23 139 ["SetStatusTable"] = function(self, status)
Tercio@23 140 assert(type(status) == "table")
Tercio@23 141 self.status = status
Tercio@23 142 self:ApplyStatus()
Tercio@23 143 end,
Tercio@23 144
Tercio@23 145 ["ApplyStatus"] = function(self)
Tercio@23 146 local status = self.status or self.localstatus
Tercio@23 147 local frame = self.frame
Tercio@23 148 self:SetWidth(status.width or 700)
Tercio@23 149 self:SetHeight(status.height or 500)
Tercio@23 150 frame:ClearAllPoints()
Tercio@23 151 if status.top and status.left then
Tercio@23 152 frame:SetPoint("TOP", UIParent, "BOTTOM", 0, status.top)
Tercio@23 153 frame:SetPoint("LEFT", UIParent, "LEFT", status.left, 0)
Tercio@23 154 else
Tercio@23 155 frame:SetPoint("CENTER")
Tercio@23 156 end
Tercio@23 157 end
Tercio@23 158 }
Tercio@23 159
Tercio@23 160 --[[-----------------------------------------------------------------------------
Tercio@23 161 Constructor
Tercio@23 162 -------------------------------------------------------------------------------]]
Tercio@23 163 local FrameBackdrop = {
Tercio@23 164 bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
Tercio@23 165 edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border",
Tercio@23 166 tile = true, tileSize = 32, edgeSize = 32,
Tercio@23 167 insets = { left = 8, right = 8, top = 8, bottom = 8 }
Tercio@23 168 }
Tercio@23 169
Tercio@23 170 local PaneBackdrop = {
Tercio@23 171 bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
Tercio@23 172 edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
Tercio@23 173 tile = true, tileSize = 16, edgeSize = 16,
Tercio@23 174 insets = { left = 3, right = 3, top = 5, bottom = 3 }
Tercio@23 175 }
Tercio@23 176
Tercio@23 177 local function Constructor()
Tercio@23 178 local frame = CreateFrame("Frame", nil, UIParent)
Tercio@23 179 frame:Hide()
Tercio@23 180
Tercio@23 181 frame:EnableMouse(true)
Tercio@23 182 frame:SetMovable(true)
Tercio@23 183 frame:SetResizable(true)
Tercio@23 184 frame:SetFrameStrata("FULLSCREEN_DIALOG")
Tercio@23 185 frame:SetBackdrop(FrameBackdrop)
Tercio@23 186 frame:SetBackdropColor(0, 0, 0, 1)
Tercio@23 187 frame:SetMinResize(400, 200)
Tercio@23 188 frame:SetToplevel(true)
Tercio@23 189 frame:SetScript("OnHide", Frame_OnClose)
Tercio@23 190 frame:SetScript("OnMouseDown", Frame_OnMouseDown)
Tercio@23 191
Tercio@23 192 local closebutton = CreateFrame("Button", nil, frame, "UIPanelButtonTemplate")
Tercio@23 193 closebutton:SetScript("OnClick", Button_OnClick)
Tercio@23 194 closebutton:SetPoint("BOTTOMRIGHT", -27, 17)
Tercio@23 195 closebutton:SetHeight(20)
Tercio@23 196 closebutton:SetWidth(100)
Tercio@23 197 closebutton:SetText(CLOSE)
Tercio@23 198
Tercio@23 199 local statusbg = CreateFrame("Button", nil, frame)
Tercio@23 200 statusbg:SetPoint("BOTTOMLEFT", 15, 15)
Tercio@23 201 statusbg:SetPoint("BOTTOMRIGHT", -132, 15)
Tercio@23 202 statusbg:SetHeight(24)
Tercio@23 203 statusbg:SetBackdrop(PaneBackdrop)
Tercio@23 204 statusbg:SetBackdropColor(0.1,0.1,0.1)
Tercio@23 205 statusbg:SetBackdropBorderColor(0.4,0.4,0.4)
Tercio@23 206 statusbg:SetScript("OnEnter", StatusBar_OnEnter)
Tercio@23 207 statusbg:SetScript("OnLeave", StatusBar_OnLeave)
Tercio@23 208
Tercio@23 209 local statustext = statusbg:CreateFontString(nil, "OVERLAY", "GameFontNormal")
Tercio@23 210 statustext:SetPoint("TOPLEFT", 7, -2)
Tercio@23 211 statustext:SetPoint("BOTTOMRIGHT", -7, 2)
Tercio@23 212 statustext:SetHeight(20)
Tercio@23 213 statustext:SetJustifyH("LEFT")
Tercio@23 214 statustext:SetText("")
Tercio@23 215
Tercio@23 216 local titlebg = frame:CreateTexture(nil, "OVERLAY")
Tercio@23 217 titlebg:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header")
Tercio@23 218 titlebg:SetTexCoord(0.31, 0.67, 0, 0.63)
Tercio@23 219 titlebg:SetPoint("TOP", 0, 12)
Tercio@23 220 titlebg:SetWidth(100)
Tercio@23 221 titlebg:SetHeight(40)
Tercio@23 222
Tercio@23 223 local title = CreateFrame("Frame", nil, frame)
Tercio@23 224 title:EnableMouse(true)
Tercio@23 225 title:SetScript("OnMouseDown", Title_OnMouseDown)
Tercio@23 226 title:SetScript("OnMouseUp", MoverSizer_OnMouseUp)
Tercio@23 227 title:SetAllPoints(titlebg)
Tercio@23 228
Tercio@23 229 local titletext = title:CreateFontString(nil, "OVERLAY", "GameFontNormal")
Tercio@23 230 titletext:SetPoint("TOP", titlebg, "TOP", 0, -14)
Tercio@23 231
Tercio@23 232 local titlebg_l = frame:CreateTexture(nil, "OVERLAY")
Tercio@23 233 titlebg_l:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header")
Tercio@23 234 titlebg_l:SetTexCoord(0.21, 0.31, 0, 0.63)
Tercio@23 235 titlebg_l:SetPoint("RIGHT", titlebg, "LEFT")
Tercio@23 236 titlebg_l:SetWidth(30)
Tercio@23 237 titlebg_l:SetHeight(40)
Tercio@23 238
Tercio@23 239 local titlebg_r = frame:CreateTexture(nil, "OVERLAY")
Tercio@23 240 titlebg_r:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header")
Tercio@23 241 titlebg_r:SetTexCoord(0.67, 0.77, 0, 0.63)
Tercio@23 242 titlebg_r:SetPoint("LEFT", titlebg, "RIGHT")
Tercio@23 243 titlebg_r:SetWidth(30)
Tercio@23 244 titlebg_r:SetHeight(40)
Tercio@23 245
Tercio@23 246 local sizer_se = CreateFrame("Frame", nil, frame)
Tercio@23 247 sizer_se:SetPoint("BOTTOMRIGHT")
Tercio@23 248 sizer_se:SetWidth(25)
Tercio@23 249 sizer_se:SetHeight(25)
Tercio@23 250 sizer_se:EnableMouse()
Tercio@23 251 sizer_se:SetScript("OnMouseDown",SizerSE_OnMouseDown)
Tercio@23 252 sizer_se:SetScript("OnMouseUp", MoverSizer_OnMouseUp)
Tercio@23 253
Tercio@23 254 local line1 = sizer_se:CreateTexture(nil, "BACKGROUND")
Tercio@23 255 line1:SetWidth(14)
Tercio@23 256 line1:SetHeight(14)
Tercio@23 257 line1:SetPoint("BOTTOMRIGHT", -8, 8)
Tercio@23 258 line1:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
Tercio@23 259 local x = 0.1 * 14/17
Tercio@23 260 line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5)
Tercio@23 261
Tercio@23 262 local line2 = sizer_se:CreateTexture(nil, "BACKGROUND")
Tercio@23 263 line2:SetWidth(8)
Tercio@23 264 line2:SetHeight(8)
Tercio@23 265 line2:SetPoint("BOTTOMRIGHT", -8, 8)
Tercio@23 266 line2:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
Tercio@23 267 local x = 0.1 * 8/17
Tercio@23 268 line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5)
Tercio@23 269
Tercio@23 270 local sizer_s = CreateFrame("Frame", nil, frame)
Tercio@23 271 sizer_s:SetPoint("BOTTOMRIGHT", -25, 0)
Tercio@23 272 sizer_s:SetPoint("BOTTOMLEFT")
Tercio@23 273 sizer_s:SetHeight(25)
Tercio@23 274 sizer_s:EnableMouse(true)
Tercio@23 275 sizer_s:SetScript("OnMouseDown", SizerS_OnMouseDown)
Tercio@23 276 sizer_s:SetScript("OnMouseUp", MoverSizer_OnMouseUp)
Tercio@23 277
Tercio@23 278 local sizer_e = CreateFrame("Frame", nil, frame)
Tercio@23 279 sizer_e:SetPoint("BOTTOMRIGHT", 0, 25)
Tercio@23 280 sizer_e:SetPoint("TOPRIGHT")
Tercio@23 281 sizer_e:SetWidth(25)
Tercio@23 282 sizer_e:EnableMouse(true)
Tercio@23 283 sizer_e:SetScript("OnMouseDown", SizerE_OnMouseDown)
Tercio@23 284 sizer_e:SetScript("OnMouseUp", MoverSizer_OnMouseUp)
Tercio@23 285
Tercio@23 286 --Container Support
Tercio@23 287 local content = CreateFrame("Frame", nil, frame)
Tercio@23 288 content:SetPoint("TOPLEFT", 17, -27)
Tercio@23 289 content:SetPoint("BOTTOMRIGHT", -17, 40)
Tercio@23 290
Tercio@23 291 local widget = {
Tercio@23 292 localstatus = {},
Tercio@23 293 titletext = titletext,
Tercio@23 294 statustext = statustext,
Tercio@23 295 titlebg = titlebg,
Tercio@23 296 sizer_se = sizer_se,
Tercio@23 297 sizer_s = sizer_s,
Tercio@23 298 sizer_e = sizer_e,
Tercio@23 299 content = content,
Tercio@23 300 frame = frame,
Tercio@23 301 type = Type
Tercio@23 302 }
Tercio@23 303 for method, func in pairs(methods) do
Tercio@23 304 widget[method] = func
Tercio@23 305 end
Tercio@23 306 closebutton.obj, statusbg.obj = widget, widget
Tercio@23 307
Tercio@23 308 return AceGUI:RegisterAsContainer(widget)
Tercio@23 309 end
Tercio@23 310
Tercio@23 311 AceGUI:RegisterWidgetType(Type, Constructor, Version)