Mercurial > wow > icu

annotate Libs/AceGUI-3.0/widgets/AceGUIContainer-Frame.lua @ 0:98c6f55e6619

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First commit
author Xiiph
date Sat, 05 Feb 2011 16:45:02 +0100
parents
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)