Asa@0: local AceGUI = LibStub("AceGUI-3.0")
Asa@0: 
Asa@0: -- WoW APIs
Asa@0: local CreateFrame, UIParent = CreateFrame, UIParent
Asa@0: 
Asa@0: --------------------------
Asa@0: -- Heading 	 			--
Asa@0: --------------------------
Asa@0: do
Asa@0: 	local Type = "Heading"
Asa@0: 	local Version = 5
Asa@0: 	
Asa@0: 	local function OnAcquire(self)
Asa@0: 		self:SetText("")
Asa@0: 		self:SetFullWidth()
Asa@0: 		self:SetHeight(18)
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function OnRelease(self)
Asa@0: 		self.frame:ClearAllPoints()
Asa@0: 		self.frame:Hide()
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function SetText(self, text)
Asa@0: 		self.label:SetText(text or "")
Asa@0: 		if (text or "") == "" then
Asa@0: 			self.left:SetPoint("RIGHT",self.frame,"RIGHT",-3,0)
Asa@0: 			self.right:Hide()
Asa@0: 		else
Asa@0: 			self.left:SetPoint("RIGHT",self.label,"LEFT",-5,0)
Asa@0: 			self.right:Show()
Asa@0: 		end
Asa@0: 	end
Asa@0: 
Asa@0: 	local function Constructor()
Asa@0: 		local frame = CreateFrame("Frame",nil,UIParent)
Asa@0: 		local self = {}
Asa@0: 		self.type = Type
Asa@0: 		
Asa@0: 		self.OnRelease = OnRelease
Asa@0: 		self.OnAcquire = OnAcquire
Asa@0: 		self.SetText = SetText
Asa@0: 		self.frame = frame
Asa@0: 		frame.obj = self
Asa@0: 		
Asa@0: 		frame:SetHeight(18)
Asa@0: 		
Asa@0: 		local label = frame:CreateFontString(nil,"BACKGROUND","GameFontNormal")
Asa@0: 		label:SetPoint("TOP",frame,"TOP",0,0)
Asa@0: 		label:SetPoint("BOTTOM",frame,"BOTTOM",0,0)
Asa@0: 		label:SetJustifyH("CENTER")
Asa@0: 		label:SetHeight(18)
Asa@0: 		self.label = label
Asa@0: 		
Asa@0: 		local left = frame:CreateTexture(nil, "BACKGROUND")
Asa@0: 		self.left = left
Asa@0: 		left:SetHeight(8)
Asa@0: 		left:SetPoint("LEFT",frame,"LEFT",3,0)
Asa@0: 		left:SetPoint("RIGHT",label,"LEFT",-5,0)
Asa@0: 		left:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
Asa@0: 		left:SetTexCoord(0.81, 0.94, 0.5, 1)
Asa@0: 
Asa@0: 		local right = frame:CreateTexture(nil, "BACKGROUND")
Asa@0: 		self.right = right
Asa@0: 		right:SetHeight(8)
Asa@0: 		right:SetPoint("RIGHT",frame,"RIGHT",-3,0)
Asa@0: 		right:SetPoint("LEFT",label,"RIGHT",5,0)
Asa@0: 		right:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
Asa@0: 		right:SetTexCoord(0.81, 0.94, 0.5, 1)
Asa@0: 		
Asa@0: 		AceGUI:RegisterAsWidget(self)
Asa@0: 		return self
Asa@0: 	end
Asa@0: 	
Asa@0: 	AceGUI:RegisterWidgetType(Type,Constructor,Version)
Asa@0: end