Mercurial > wow > itemauditor

annotate Libs/AceGUI-3.0/widgets/AceGUIWidget-Heading.lua @ 0:169f5211fc7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First public revision. At this point ItemAuditor watches mail for auctions sold or purchased, watches for buy/sell (money and 1 item type change) and conversions/tradeskills. Milling isn't working yet because there is too much time between the first event and the last event.
author Asa Ayers <Asa.Ayers@Gmail.com>
date Thu, 20 May 2010 19:22:19 -0700
parents
children
rev   line source
Asa@0 1 local AceGUI = LibStub("AceGUI-3.0")
Asa@0 2
Asa@0 3 -- WoW APIs
Asa@0 4 local CreateFrame, UIParent = CreateFrame, UIParent
Asa@0 5
Asa@0 6 --------------------------
Asa@0 7 -- Heading --
Asa@0 8 --------------------------
Asa@0 9 do
Asa@0 10 local Type = "Heading"
Asa@0 11 local Version = 5
Asa@0 12
Asa@0 13 local function OnAcquire(self)
Asa@0 14 self:SetText("")
Asa@0 15 self:SetFullWidth()
Asa@0 16 self:SetHeight(18)
Asa@0 17 end
Asa@0 18
Asa@0 19 local function OnRelease(self)
Asa@0 20 self.frame:ClearAllPoints()
Asa@0 21 self.frame:Hide()
Asa@0 22 end
Asa@0 23
Asa@0 24 local function SetText(self, text)
Asa@0 25 self.label:SetText(text or "")
Asa@0 26 if (text or "") == "" then
Asa@0 27 self.left:SetPoint("RIGHT",self.frame,"RIGHT",-3,0)
Asa@0 28 self.right:Hide()
Asa@0 29 else
Asa@0 30 self.left:SetPoint("RIGHT",self.label,"LEFT",-5,0)
Asa@0 31 self.right:Show()
Asa@0 32 end
Asa@0 33 end
Asa@0 34
Asa@0 35 local function Constructor()
Asa@0 36 local frame = CreateFrame("Frame",nil,UIParent)
Asa@0 37 local self = {}
Asa@0 38 self.type = Type
Asa@0 39
Asa@0 40 self.OnRelease = OnRelease
Asa@0 41 self.OnAcquire = OnAcquire
Asa@0 42 self.SetText = SetText
Asa@0 43 self.frame = frame
Asa@0 44 frame.obj = self
Asa@0 45
Asa@0 46 frame:SetHeight(18)
Asa@0 47
Asa@0 48 local label = frame:CreateFontString(nil,"BACKGROUND","GameFontNormal")
Asa@0 49 label:SetPoint("TOP",frame,"TOP",0,0)
Asa@0 50 label:SetPoint("BOTTOM",frame,"BOTTOM",0,0)
Asa@0 51 label:SetJustifyH("CENTER")
Asa@0 52 label:SetHeight(18)
Asa@0 53 self.label = label
Asa@0 54
Asa@0 55 local left = frame:CreateTexture(nil, "BACKGROUND")
Asa@0 56 self.left = left
Asa@0 57 left:SetHeight(8)
Asa@0 58 left:SetPoint("LEFT",frame,"LEFT",3,0)
Asa@0 59 left:SetPoint("RIGHT",label,"LEFT",-5,0)
Asa@0 60 left:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
Asa@0 61 left:SetTexCoord(0.81, 0.94, 0.5, 1)
Asa@0 62
Asa@0 63 local right = frame:CreateTexture(nil, "BACKGROUND")
Asa@0 64 self.right = right
Asa@0 65 right:SetHeight(8)
Asa@0 66 right:SetPoint("RIGHT",frame,"RIGHT",-3,0)
Asa@0 67 right:SetPoint("LEFT",label,"RIGHT",5,0)
Asa@0 68 right:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
Asa@0 69 right:SetTexCoord(0.81, 0.94, 0.5, 1)
Asa@0 70
Asa@0 71 AceGUI:RegisterAsWidget(self)
Asa@0 72 return self
Asa@0 73 end
Asa@0 74
Asa@0 75 AceGUI:RegisterWidgetType(Type,Constructor,Version)
Asa@0 76 end