Mercurial > wow > icu

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