Mercurial > wow > hotcorners

annotate Libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua @ 25:ac501d71c890 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v8.2.0.024 for changeset 389dcaeebc47
author Tercioo
date Fri, 28 Jun 2019 20:07:27 -0300
parents 3000eccbf1a0
children
rev   line source
tercio@0 1 local AceGUI = LibStub("AceGUI-3.0")
tercio@0 2
tercio@0 3 -- Lua APIs
tercio@0 4 local pairs, assert, type = pairs, assert, type
tercio@0 5
tercio@0 6 -- WoW APIs
tercio@0 7 local PlaySound = PlaySound
tercio@0 8 local CreateFrame, UIParent = CreateFrame, UIParent
tercio@0 9
tercio@0 10 -- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
tercio@0 11 -- List them here for Mikk's FindGlobals script
tercio@0 12 -- GLOBALS: GameFontNormal
tercio@0 13
tercio@0 14 ----------------
tercio@0 15 -- Main Frame --
tercio@0 16 ----------------
tercio@0 17 --[[
tercio@0 18 Events :
tercio@0 19 OnClose
tercio@0 20
tercio@0 21 ]]
tercio@0 22 do
tercio@0 23 local Type = "Window"
Tercio@17 24 local Version = 6
Tercio@17 25
Tercio@17 26 local function frameOnShow(this)
Tercio@17 27 this.obj:Fire("OnShow")
Tercio@17 28 end
tercio@0 29
tercio@0 30 local function frameOnClose(this)
tercio@0 31 this.obj:Fire("OnClose")
tercio@0 32 end
tercio@0 33
tercio@0 34 local function closeOnClick(this)
Tercio@17 35 PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT
tercio@0 36 this.obj:Hide()
tercio@0 37 end
tercio@0 38
tercio@0 39 local function frameOnMouseDown(this)
tercio@0 40 AceGUI:ClearFocus()
tercio@0 41 end
tercio@0 42
tercio@0 43 local function titleOnMouseDown(this)
tercio@0 44 this:GetParent():StartMoving()
tercio@0 45 AceGUI:ClearFocus()
tercio@0 46 end
tercio@0 47
tercio@0 48 local function frameOnMouseUp(this)
tercio@0 49 local frame = this:GetParent()
tercio@0 50 frame:StopMovingOrSizing()
tercio@0 51 local self = frame.obj
tercio@0 52 local status = self.status or self.localstatus
tercio@0 53 status.width = frame:GetWidth()
tercio@0 54 status.height = frame:GetHeight()
tercio@0 55 status.top = frame:GetTop()
tercio@0 56 status.left = frame:GetLeft()
tercio@0 57 end
tercio@0 58
tercio@0 59 local function sizerseOnMouseDown(this)
tercio@0 60 this:GetParent():StartSizing("BOTTOMRIGHT")
tercio@0 61 AceGUI:ClearFocus()
tercio@0 62 end
tercio@0 63
tercio@0 64 local function sizersOnMouseDown(this)
tercio@0 65 this:GetParent():StartSizing("BOTTOM")
tercio@0 66 AceGUI:ClearFocus()
tercio@0 67 end
tercio@0 68
tercio@0 69 local function sizereOnMouseDown(this)
tercio@0 70 this:GetParent():StartSizing("RIGHT")
tercio@0 71 AceGUI:ClearFocus()
tercio@0 72 end
tercio@0 73
tercio@0 74 local function sizerOnMouseUp(this)
tercio@0 75 this:GetParent():StopMovingOrSizing()
tercio@0 76 end
tercio@0 77
tercio@0 78 local function SetTitle(self,title)
tercio@0 79 self.titletext:SetText(title)
tercio@0 80 end
tercio@0 81
tercio@0 82 local function SetStatusText(self,text)
tercio@0 83 -- self.statustext:SetText(text)
tercio@0 84 end
tercio@0 85
tercio@0 86 local function Hide(self)
tercio@0 87 self.frame:Hide()
tercio@0 88 end
tercio@0 89
tercio@0 90 local function Show(self)
tercio@0 91 self.frame:Show()
tercio@0 92 end
tercio@0 93
tercio@0 94 local function OnAcquire(self)
tercio@0 95 self.frame:SetParent(UIParent)
tercio@0 96 self.frame:SetFrameStrata("FULLSCREEN_DIALOG")
tercio@0 97 self:ApplyStatus()
tercio@0 98 self:EnableResize(true)
tercio@0 99 self:Show()
tercio@0 100 end
tercio@0 101
tercio@0 102 local function OnRelease(self)
tercio@0 103 self.status = nil
tercio@0 104 for k in pairs(self.localstatus) do
tercio@0 105 self.localstatus[k] = nil
tercio@0 106 end
tercio@0 107 end
tercio@0 108
tercio@0 109 -- called to set an external table to store status in
tercio@0 110 local function SetStatusTable(self, status)
tercio@0 111 assert(type(status) == "table")
tercio@0 112 self.status = status
tercio@0 113 self:ApplyStatus()
tercio@0 114 end
tercio@0 115
tercio@0 116 local function ApplyStatus(self)
tercio@0 117 local status = self.status or self.localstatus
tercio@0 118 local frame = self.frame
tercio@0 119 self:SetWidth(status.width or 700)
tercio@0 120 self:SetHeight(status.height or 500)
tercio@0 121 if status.top and status.left then
tercio@0 122 frame:SetPoint("TOP",UIParent,"BOTTOM",0,status.top)
tercio@0 123 frame:SetPoint("LEFT",UIParent,"LEFT",status.left,0)
tercio@0 124 else
tercio@0 125 frame:SetPoint("CENTER",UIParent,"CENTER")
tercio@0 126 end
tercio@0 127 end
tercio@0 128
tercio@0 129 local function OnWidthSet(self, width)
tercio@0 130 local content = self.content
tercio@0 131 local contentwidth = width - 34
tercio@0 132 if contentwidth < 0 then
tercio@0 133 contentwidth = 0
tercio@0 134 end
tercio@0 135 content:SetWidth(contentwidth)
tercio@0 136 content.width = contentwidth
tercio@0 137 end
tercio@0 138
tercio@0 139
tercio@0 140 local function OnHeightSet(self, height)
tercio@0 141 local content = self.content
tercio@0 142 local contentheight = height - 57
tercio@0 143 if contentheight < 0 then
tercio@0 144 contentheight = 0
tercio@0 145 end
tercio@0 146 content:SetHeight(contentheight)
tercio@0 147 content.height = contentheight
tercio@0 148 end
tercio@0 149
tercio@0 150 local function EnableResize(self, state)
tercio@0 151 local func = state and "Show" or "Hide"
tercio@0 152 self.sizer_se[func](self.sizer_se)
tercio@0 153 self.sizer_s[func](self.sizer_s)
tercio@0 154 self.sizer_e[func](self.sizer_e)
tercio@0 155 end
tercio@0 156
tercio@0 157 local function Constructor()
tercio@0 158 local frame = CreateFrame("Frame",nil,UIParent)
tercio@0 159 local self = {}
tercio@0 160 self.type = "Window"
tercio@0 161
tercio@0 162 self.Hide = Hide
tercio@0 163 self.Show = Show
tercio@0 164 self.SetTitle = SetTitle
tercio@0 165 self.OnRelease = OnRelease
tercio@0 166 self.OnAcquire = OnAcquire
tercio@0 167 self.SetStatusText = SetStatusText
tercio@0 168 self.SetStatusTable = SetStatusTable
tercio@0 169 self.ApplyStatus = ApplyStatus
tercio@0 170 self.OnWidthSet = OnWidthSet
tercio@0 171 self.OnHeightSet = OnHeightSet
tercio@0 172 self.EnableResize = EnableResize
tercio@0 173
tercio@0 174 self.localstatus = {}
tercio@0 175
tercio@0 176 self.frame = frame
tercio@0 177 frame.obj = self
tercio@0 178 frame:SetWidth(700)
tercio@0 179 frame:SetHeight(500)
tercio@0 180 frame:SetPoint("CENTER",UIParent,"CENTER",0,0)
tercio@0 181 frame:EnableMouse()
tercio@0 182 frame:SetMovable(true)
tercio@0 183 frame:SetResizable(true)
tercio@0 184 frame:SetFrameStrata("FULLSCREEN_DIALOG")
tercio@0 185 frame:SetScript("OnMouseDown", frameOnMouseDown)
tercio@0 186
Tercio@17 187 frame:SetScript("OnShow",frameOnShow)
tercio@0 188 frame:SetScript("OnHide",frameOnClose)
tercio@0 189 frame:SetMinResize(240,240)
tercio@0 190 frame:SetToplevel(true)
tercio@0 191
tercio@0 192 local titlebg = frame:CreateTexture(nil, "BACKGROUND")
tercio@0 193 titlebg:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Title-Background]])
tercio@0 194 titlebg:SetPoint("TOPLEFT", 9, -6)
tercio@0 195 titlebg:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", -28, -24)
tercio@0 196
tercio@0 197 local dialogbg = frame:CreateTexture(nil, "BACKGROUND")
tercio@0 198 dialogbg:SetTexture([[Interface\Tooltips\UI-Tooltip-Background]])
tercio@0 199 dialogbg:SetPoint("TOPLEFT", 8, -24)
tercio@0 200 dialogbg:SetPoint("BOTTOMRIGHT", -6, 8)
tercio@0 201 dialogbg:SetVertexColor(0, 0, 0, .75)
tercio@0 202
tercio@0 203 local topleft = frame:CreateTexture(nil, "BORDER")
tercio@0 204 topleft:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
tercio@0 205 topleft:SetWidth(64)
tercio@0 206 topleft:SetHeight(64)
tercio@0 207 topleft:SetPoint("TOPLEFT")
tercio@0 208 topleft:SetTexCoord(0.501953125, 0.625, 0, 1)
tercio@0 209
tercio@0 210 local topright = frame:CreateTexture(nil, "BORDER")
tercio@0 211 topright:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
tercio@0 212 topright:SetWidth(64)
tercio@0 213 topright:SetHeight(64)
tercio@0 214 topright:SetPoint("TOPRIGHT")
tercio@0 215 topright:SetTexCoord(0.625, 0.75, 0, 1)
tercio@0 216
tercio@0 217 local top = frame:CreateTexture(nil, "BORDER")
tercio@0 218 top:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
tercio@0 219 top:SetHeight(64)
tercio@0 220 top:SetPoint("TOPLEFT", topleft, "TOPRIGHT")
tercio@0 221 top:SetPoint("TOPRIGHT", topright, "TOPLEFT")
tercio@0 222 top:SetTexCoord(0.25, 0.369140625, 0, 1)
tercio@0 223
tercio@0 224 local bottomleft = frame:CreateTexture(nil, "BORDER")
tercio@0 225 bottomleft:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
tercio@0 226 bottomleft:SetWidth(64)
tercio@0 227 bottomleft:SetHeight(64)
tercio@0 228 bottomleft:SetPoint("BOTTOMLEFT")
tercio@0 229 bottomleft:SetTexCoord(0.751953125, 0.875, 0, 1)
tercio@0 230
tercio@0 231 local bottomright = frame:CreateTexture(nil, "BORDER")
tercio@0 232 bottomright:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
tercio@0 233 bottomright:SetWidth(64)
tercio@0 234 bottomright:SetHeight(64)
tercio@0 235 bottomright:SetPoint("BOTTOMRIGHT")
tercio@0 236 bottomright:SetTexCoord(0.875, 1, 0, 1)
tercio@0 237
tercio@0 238 local bottom = frame:CreateTexture(nil, "BORDER")
tercio@0 239 bottom:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
tercio@0 240 bottom:SetHeight(64)
tercio@0 241 bottom:SetPoint("BOTTOMLEFT", bottomleft, "BOTTOMRIGHT")
tercio@0 242 bottom:SetPoint("BOTTOMRIGHT", bottomright, "BOTTOMLEFT")
tercio@0 243 bottom:SetTexCoord(0.376953125, 0.498046875, 0, 1)
tercio@0 244
tercio@0 245 local left = frame:CreateTexture(nil, "BORDER")
tercio@0 246 left:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
tercio@0 247 left:SetWidth(64)
tercio@0 248 left:SetPoint("TOPLEFT", topleft, "BOTTOMLEFT")
tercio@0 249 left:SetPoint("BOTTOMLEFT", bottomleft, "TOPLEFT")
tercio@0 250 left:SetTexCoord(0.001953125, 0.125, 0, 1)
tercio@0 251
tercio@0 252 local right = frame:CreateTexture(nil, "BORDER")
tercio@0 253 right:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
tercio@0 254 right:SetWidth(64)
tercio@0 255 right:SetPoint("TOPRIGHT", topright, "BOTTOMRIGHT")
tercio@0 256 right:SetPoint("BOTTOMRIGHT", bottomright, "TOPRIGHT")
tercio@0 257 right:SetTexCoord(0.1171875, 0.2421875, 0, 1)
tercio@0 258
tercio@0 259 local close = CreateFrame("Button", nil, frame, "UIPanelCloseButton")
tercio@0 260 close:SetPoint("TOPRIGHT", 2, 1)
tercio@0 261 close:SetScript("OnClick", closeOnClick)
tercio@0 262 self.closebutton = close
tercio@0 263 close.obj = self
tercio@0 264
tercio@0 265 local titletext = frame:CreateFontString(nil, "ARTWORK")
tercio@0 266 titletext:SetFontObject(GameFontNormal)
tercio@0 267 titletext:SetPoint("TOPLEFT", 12, -8)
tercio@0 268 titletext:SetPoint("TOPRIGHT", -32, -8)
tercio@0 269 self.titletext = titletext
tercio@0 270
tercio@0 271 local title = CreateFrame("Button", nil, frame)
tercio@0 272 title:SetPoint("TOPLEFT", titlebg)
tercio@0 273 title:SetPoint("BOTTOMRIGHT", titlebg)
tercio@0 274 title:EnableMouse()
tercio@0 275 title:SetScript("OnMouseDown",titleOnMouseDown)
tercio@0 276 title:SetScript("OnMouseUp", frameOnMouseUp)
tercio@0 277 self.title = title
tercio@0 278
tercio@0 279 local sizer_se = CreateFrame("Frame",nil,frame)
tercio@0 280 sizer_se:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,0)
tercio@0 281 sizer_se:SetWidth(25)
tercio@0 282 sizer_se:SetHeight(25)
tercio@0 283 sizer_se:EnableMouse()
tercio@0 284 sizer_se:SetScript("OnMouseDown",sizerseOnMouseDown)
tercio@0 285 sizer_se:SetScript("OnMouseUp", sizerOnMouseUp)
tercio@0 286 self.sizer_se = sizer_se
tercio@0 287
tercio@0 288 local line1 = sizer_se:CreateTexture(nil, "BACKGROUND")
tercio@0 289 self.line1 = line1
tercio@0 290 line1:SetWidth(14)
tercio@0 291 line1:SetHeight(14)
tercio@0 292 line1:SetPoint("BOTTOMRIGHT", -8, 8)
tercio@0 293 line1:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
tercio@0 294 local x = 0.1 * 14/17
tercio@0 295 line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5)
tercio@0 296
tercio@0 297 local line2 = sizer_se:CreateTexture(nil, "BACKGROUND")
tercio@0 298 self.line2 = line2
tercio@0 299 line2:SetWidth(8)
tercio@0 300 line2:SetHeight(8)
tercio@0 301 line2:SetPoint("BOTTOMRIGHT", -8, 8)
tercio@0 302 line2:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
tercio@0 303 local x = 0.1 * 8/17
tercio@0 304 line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5)
tercio@0 305
tercio@0 306 local sizer_s = CreateFrame("Frame",nil,frame)
tercio@0 307 sizer_s:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-25,0)
tercio@0 308 sizer_s:SetPoint("BOTTOMLEFT",frame,"BOTTOMLEFT",0,0)
tercio@0 309 sizer_s:SetHeight(25)
tercio@0 310 sizer_s:EnableMouse()
tercio@0 311 sizer_s:SetScript("OnMouseDown",sizersOnMouseDown)
tercio@0 312 sizer_s:SetScript("OnMouseUp", sizerOnMouseUp)
tercio@0 313 self.sizer_s = sizer_s
tercio@0 314
tercio@0 315 local sizer_e = CreateFrame("Frame",nil,frame)
tercio@0 316 sizer_e:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,25)
tercio@0 317 sizer_e:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0)
tercio@0 318 sizer_e:SetWidth(25)
tercio@0 319 sizer_e:EnableMouse()
tercio@0 320 sizer_e:SetScript("OnMouseDown",sizereOnMouseDown)
tercio@0 321 sizer_e:SetScript("OnMouseUp", sizerOnMouseUp)
tercio@0 322 self.sizer_e = sizer_e
tercio@0 323
tercio@0 324 --Container Support
tercio@0 325 local content = CreateFrame("Frame",nil,frame)
tercio@0 326 self.content = content
tercio@0 327 content.obj = self
tercio@0 328 content:SetPoint("TOPLEFT",frame,"TOPLEFT",12,-32)
tercio@0 329 content:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-12,13)
tercio@0 330
tercio@0 331 AceGUI:RegisterAsContainer(self)
tercio@0 332 return self
tercio@0 333 end
tercio@0 334
tercio@0 335 AceGUI:RegisterWidgetType(Type,Constructor,Version)
tercio@0 336 end