Mercurial > wow > hansgar_and_franzok_assist

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