Mercurial > wow > icu

annotate Libs/AceGUI-3.0/widgets/AceGUIContainer-Window.lua @ 15:21cefa363c73 tip

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