vanilla-wow-addons – Rev 1

Subversion Repositories:
Rev:
--$Id: tsf-gui.lua 2106 2006-05-24 03:47:06Z kaelten $
local locals = KC_ET_LOCALS
local tablet = TabletLib:GetInstance('1.0')

KC_EnhancedTrades.tsf = {}
local tsf = KC_EnhancedTrades.tsf

tsf.frame = AceGUI:new()

tsf.config = {
        name = "TSF_",
        elements = {
                ClearButton   = {
                        type     = ACEGUI_BUTTON,
                        title    = "Clear Cache",
                        disabled = FALSE,
                        OnClick  = "ClearClick",
                        width    = 120,
                        height   = 22,
                        anchors  = {
                                right = {
                                        relTo    = "TSF_OptionsButton",
                                        relPoint = "left",
                                        xOffset  = 5,
                                        yOffset  = 0,
                                }
                        },
                },
                OptionsButton   = {
                        type     = ACEGUI_BUTTON,
                        title    = "Trades Option",
                        disabled = FALSE,
                        OnClick  = "OptionsClick",
                        width    = 135,
                        height   = 22,
                        anchors  = {
                                bottomright = {
                                        relTo    = "TradeSkillCancelButton",
                                        relPoint = "topleft",
                                        xOffset  = 0,
                                        yOffset  = 1,
                                }
                        },
                },
        },
}

function tsf.frame:SetParents()
        TSF_ClearButton:RegisterForClicks("LeftButtonDown", "RightButtonDown")
        TSF_ClearButton:SetParent("TradeSkillFrame")
        TSF_OptionsButton:SetParent("TradeSkillFrame")

        tablet:Register(TSF_ClearButton, 'children', function() tablet:SetTitle("Clear Cache") tablet:SetHint("Left-Click to clear cache for the item.\nRight-Click to clear entire cache.") end, 'data', {},  'point', function() return "TOPLEFT", "TOPRIGHT" end)
        tablet:Register(TSF_OptionsButton, 'children', function() tablet:SetTitle("Options") tablet:SetHint("Opens the options frame.") end, 'data', {},  'point', function() return "TOPLEFT", "TOPRIGHT" end)
end

function tsf.frame:ClearClick()
        if (arg1 == "LeftButton") then
                local skillName = GetTradeSkillInfo(self.app.tsfid)
                self.app.cache[skillName] = nil
                self.app:Msg(format("The Datacache for \"%s\" has been purged.", skillName))
        elseif (arg1 == "RightButton") then
                self.app.cache = nil
                self.app:Msg("The complete Datacache has been purged.")
        end

        self.app:Update()
end

function tsf.frame:OptionsClick()
        self.app.opt.frame:Initialize(self.app, self.app.opt.config)
        self.app.opt.frame:Show()
end

Generated by GNU Enscript 1.6.5.90.