WoWInterface SVN GuildBankList

Compare Revisions

  • This comparison shows the changes necessary to convert path
    /trunk
    from Rev 3 to Rev 4
    Reverse comparison

Rev 3 → Rev 4

GuildBankList/gbl.lua New file
0,0 → 1,159
print("GBL loaded!")
local GBLnametexts = {}
local GBLilvltexts = {}
local GBLtypetexts = {}
local GBLpricetexts = {}
local GBLcounttexts = {}
 
local gbl = CreateFrame("ScrollFrame", "GBLScrollFrame", GuildBankFrame, "UIPanelScrollFrameTemplate")
gbl:SetWidth(694)
gbl:SetHeight(279)
gbl:SetPoint("LEFT", 30, -20)
local scrollchild = CreateFrame("Frame", "GBLScrollChild", gbl)
scrollchild:SetPoint("TOPLEFT")
scrollchild:SetWidth(685)
scrollchild:SetHeight(750)
scrollchild:EnableMouse(true)
gbl:SetScrollChild(scrollchild)
local nametitle = gbl:CreateFontString(nil,nil,"GameFontNormalLeft")
nametitle:SetPoint("BOTTOMLEFT", gbl, "TOPLEFT", 90, 10)
nametitle:SetHeight(20)
nametitle:SetWidth(100)
nametitle:SetText("Item")
local ilvltitle = gbl:CreateFontString(nil,nil,"GameFontNormal")
ilvltitle:SetFont("Fonts\\FRIZQT__.ttf", 11)
ilvltitle:SetPoint("LEFT", nametitle, "RIGHT", 135, 0)
ilvltitle:SetHeight(25)
ilvltitle:SetWidth(100)
ilvltitle:SetText("iLevel / useLevel")
local typetitle = gbl:CreateFontString(nil,nil,"GameFontNormalLeft")
typetitle:SetPoint("LEFT", ilvltitle, "RIGHT", 5, 0)
typetitle:SetHeight(20)
typetitle:SetWidth(125)
typetitle:SetJustifyH("LEFT")
typetitle:SetText("Item Type")
local pricetitle = gbl:CreateFontString(nil,nil,"GameFontNormalLeft")
pricetitle:SetPoint("LEFT", typetitle, "RIGHT", 40, 0)
pricetitle:SetHeight(60)
pricetitle:SetWidth(125)
pricetitle:SetText("Vendor Price")
local separator = gbl:CreateTexture()
separator:SetWidth(741)
separator:SetHeight(30)
separator:SetTexture("Interface\\MailFrame\\UI-MailFrame-InvoiceLine")
separator:SetPoint("TOP", 14, 20)
separator:SetAlpha(1)
 
local link, ilvl, itype, isubtype, price, count
local function UpdateTexts(tab, id)
link = GetGuildBankItemLink(tab ,id)
if link then
_,_,_,ilvl,reqlvl,itype,isubtype,_,_,_,price = GetItemInfo(link)
_,count,_ = GetGuildBankItemInfo(tab,id)
GBLcounttexts[id]:SetText("x"..count)
GBLnametexts[id]:SetText(link)
GBLtypetexts[id]:SetText(itype..": "..isubtype)
if ilvl then
GBLilvltexts[id]:SetText(ilvl.." / "..reqlvl)
end
if price then
GBLpricetexts[id]:SetText(GetCoinTextureString(price*count))
end
else
GBLcounttexts[id]:SetText("")
GBLnametexts[id]:SetText("<empty slot>")
GBLilvltexts[id]:SetText("")
GBLtypetexts[id]:SetText("")
GBLpricetexts[id]:SetText("")
end
end
 
local function FrameFactory(btn)
local div = btn:CreateTexture()
div:SetWidth(1000)
div:SetHeight(30)
div:SetTexture("Interface\\MailFrame\\UI-MailFrame-InvoiceLine")
div:SetPoint("LEFT", -25, -22)
div:SetAlpha(.75)
local id = btn:GetID()
local counttext = btn:CreateFontString()
GBLcounttexts[id] = counttext
counttext:SetFont("Fonts\\ARIALN.ttf", 14)
counttext:SetPoint("LEFT", btn, "RIGHT", 5, 0)
counttext:SetHeight(37)
counttext:SetWidth(50)
counttext:SetJustifyH("LEFT")
local nametext = btn:CreateFontString()
GBLnametexts[id] = nametext
nametext:SetFont("Fonts\\ARIALN.ttf", 15)
nametext:SetPoint("LEFT", counttext, "RIGHT", 20, 0)
nametext:SetHeight(37)
nametext:SetWidth(300)
nametext:SetJustifyH("LEFT")
local ilvltext = btn:CreateFontString()
GBLilvltexts[id] = ilvltext
ilvltext:SetFont("Fonts\\ARIALN.ttf", 14)
ilvltext:SetPoint("LEFT", nametext, "RIGHT", 15, 0)
ilvltext:SetHeight(37)
ilvltext:SetWidth(125)
local typetext = btn:CreateFontString()
GBLtypetexts[id] = typetext
typetext:SetFont("Fonts\\ARIALN.ttf", 14)
typetext:SetPoint("LEFT", ilvltext, "RIGHT", 15, 0)
typetext:SetHeight(37)
typetext:SetWidth(200)
typetext:SetJustifyH("LEFT")
local pricetext = btn:CreateFontString()
GBLpricetexts[id] = pricetext
pricetext:SetFont("Fonts\\ARIALN.ttf", 15)
pricetext:SetPoint("LEFT", typetext, "RIGHT", 20, 0)
pricetext:SetHeight(37)
pricetext:SetWidth(150)
pricetext:SetJustifyH("LEFT")
local highlight = btn:CreateTexture()
btn.highlight = highlight
highlight:SetHeight(43)
highlight:SetWidth(900)
highlight:SetPoint("LEFT", btn, "RIGHT")
highlight:SetTexture("Interface\\FriendsFrame\\UI-FriendsFrame-HighlightBar")
highlight:SetAlpha(0)
btn:HookScript("OnEnter", function(self) self.highlight:SetAlpha(.3) end)
btn:HookScript("OnLeave", function(self) self.highlight:SetAlpha(0) end)
highlight:SetBlendMode("ADD")
_G[btn:GetName().."Count"]:SetAlpha(0)
btn:SetHeight(33)
btn:SetWidth(33)
btn:SetHitRectInsets(0, -400, 0, 0)
--btn:SetHitRectInsets(0, -900, 0, 0)
end
 
for col=1,7 do
_G["GuildBankColumn"..col.."Background"]:Hide()
_G["GuildBankColumn"..col]:SetParent(scrollchild)
_G["GuildBankColumn"..col]:ClearAllPoints()
_G["GuildBankColumn"..col]:SetScale(.75)
_G["GuildBankColumn"..col.."Button8"]:ClearAllPoints()
_G["GuildBankColumn"..col.."Button8"]:SetPoint("TOPLEFT", _G["GuildBankColumn"..col.."Button7"], "BOTTOMLEFT", 0, -7)
if col == 1 then
_G["GuildBankColumn"..col]:SetPoint("TOPLEFT", 5, 0)
_G["GuildBankColumn"..col.."Button1"]:HookScript("OnHide", function() gbl:Hide() end)
_G["GuildBankFrameTab1"]:HookScript("OnClick", function() gbl:Show() end)
else
_G["GuildBankColumn"..col]:SetPoint("TOPLEFT", _G["GuildBankColumn"..(col-1).."Button14"], "BOTTOMLEFT", -7, -4)
end
for btn=1,14 do
FrameFactory(_G["GuildBankColumn"..col.."Button"..btn])
end
end
 
 
gbl:SetScript("OnEvent", function(self,event)
gbl:SetVerticalScroll(1)
gbl:Show()
local tab = GetCurrentGuildBankTab()
for i=1,98 do
UpdateTexts(tab, i)
end
end)
 
gbl:RegisterEvent("GUILDBANKBAGSLOTS_CHANGED")
GuildBankList/GuildBankList.toc New file
0,0 → 1,9
## Interface: 30300
## Title: GuildBankList
## Author: Seerah
## Notes: The guild bank in list form.
## Version: 0.1
## LoadOnDemand: 1
## LoadWith: Blizzard_GuildBankUI
 
gbl.lua
\ No newline at end of file