vanilla-wow-addons – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1  
2 AceGUIFrame = AceGUIElement:new()
3  
4 function AceGUIFrame:Configure()
5 if( self._def.backdropColor and self.SetBackdropColor ) then
6 self:SetBackdropColor(unpack(self._def.backdropColor))
7 end
8 if( self._def.backdropBorderColor and self.SetBackdropBorderColor ) then
9 self:SetBackdropBorderColor(unpack(self._def.backdropBorderColor))
10 end
11 end
12  
13  
14 AceGUIBorderFrame = AceGUIElement:new()
15  
16 function AceGUIBorderFrame:Setup()
17 if( not self._def.elements ) then self._def.elements = {} end
18 local elements = self._def.elements
19 elements.NormalBackdrop = {type = ACEGUI_FRAME}
20 elements.SmallBackdrop = {type = ACEGUI_FRAME}
21 end
22  
23 function AceGUIBorderFrame:Configure()
24 if( self._def.backdrop == "small" ) then
25 self:ShowSmallBackdrop()
26 elseif( self._def.backdrop == "none" ) then
27 self:HideBackdrop()
28 else
29 self:ShowNormalBackdrop()
30 end
31 self:SetBackdropColor()
32 self:SetBackdropBorderColor()
33 end
34  
35 function AceGUIBorderFrame:ShowSmallBackdrop()
36 self.NormalBackdrop:Hide()
37 self.SmallBackdrop:Show()
38 self.Backdrop = self.SmallBackdrop
39 self.backdropColor = self.defSmallBackdropColor
40 self.backdropBorderColor = self.defSmallBackdropBorderColor
41 end
42  
43 function AceGUIBorderFrame:ShowNormalBackdrop()
44 self.SmallBackdrop:Hide()
45 self.NormalBackdrop:Show()
46 self.Backdrop = self.NormalBackdrop
47 self.backdropColor = nil
48 self.backdropBorderColor = nil
49 end
50  
51 function AceGUIBorderFrame:HideBackdrop()
52 self.SmallBackdrop:Hide()
53 self.NormalBackdrop:Hide()
54 self.Backdrop = nil
55 self.backdropColor = nil
56 self.backdropBorderColor = nil
57 end
58  
59 function AceGUIBorderFrame:SetBackdropColor(r, g, b)
60 if( r and g and b ) then
61 self.Backdrop:SetBackdropColor(r, g, b)
62 elseif( self._def.backdropColor or self.backdropColor ) then
63 self.Backdrop:SetBackdropColor(unpack(self._def.backdropColor or self.backdropColor))
64 end
65 end
66  
67 function AceGUIBorderFrame:SetBackdropBorderColor(r, g, b)
68 if( r and g and b ) then
69 self.Backdrop:SetBackdropBorderColor(r, g, b)
70 elseif( self._def.backdropBorderColor or self.backdropBorderColor ) then
71 self.Backdrop:SetBackdropBorderColor(
72 unpack(self._def.backdropBorderColor or self.backdropBorderColor)
73 )
74 end
75 end