WoWInterface SVN HealMeNow

[/] [trunk/] [Libs/] [AceGUI-3.0/] [widgets/] [AceGUIWidget-EditBox.lua] - Rev 3

Compare with Previous | Blame | View Log

local AceGUI = LibStub("AceGUI-3.0")

--------------------------
-- Edit box                      --
--------------------------
--[[
        Events :
                OnTextChanged
                OnEnterPressed

]]
do
        local Type = "EditBox"
        local Version = 8

        local function OnAcquire(self)
                self:SetDisabled(false)
                self.showbutton = true
        end
        
        local function OnRelease(self)
                self.frame:ClearAllPoints()
                self.frame:Hide()
                self:SetDisabled(false)
        end
        
        local function Control_OnEnter(this)
                this.obj:Fire("OnEnter")
        end
        
        local function Control_OnLeave(this)
                this.obj:Fire("OnLeave")
        end
        
        local function EditBox_OnEscapePressed(this)
                this:ClearFocus()
        end
        
        local function ShowButton(self)
                if self.showbutton then
                        self.button:Show()
                        self.editbox:SetTextInsets(0,20,3,3)
                end
        end
        
        local function HideButton(self)
                self.button:Hide()
                self.editbox:SetTextInsets(0,0,3,3)
        end
        
        local function EditBox_OnEnterPressed(this)
                local self = this.obj
                local value = this:GetText()
                local cancel = self:Fire("OnEnterPressed",value)
                if not cancel then
                        HideButton(self)
                end
        end
        
        local function Button_OnClick(this)
                local editbox = this.obj.editbox
                editbox:ClearFocus()
                EditBox_OnEnterPressed(editbox)
        end
        
        local function EditBox_OnReceiveDrag(this)
                local self = this.obj
                local type, id, info = GetCursorInfo()
                if type == "item" then
                        self:SetText(info)
                        self:Fire("OnEnterPressed",info)
                        ClearCursor()
                elseif type == "spell" then
                        local name, rank = GetSpellName(id, info)
                        if rank and rank:match("%d") then
                                name = name.."("..rank..")"
                        end
                        self:SetText(name)
                        self:Fire("OnEnterPressed",name)
                        ClearCursor()
                end
                HideButton(self)
                AceGUI:ClearFocus()
        end
        
        local function EditBox_OnTextChanged(this)
                local self = this.obj
                local value = this:GetText()
                if value ~= self.lasttext then
                        self:Fire("OnTextChanged",value)
                        self.lasttext = value
                        ShowButton(self)
                end
        end
        
        local function SetDisabled(self, disabled)
                self.disabled = disabled
                if disabled then
                        self.editbox:EnableMouse(false)
                        self.editbox:ClearFocus()
                        self.editbox:SetTextColor(0.5,0.5,0.5)
                        self.label:SetTextColor(0.5,0.5,0.5)
                else
                        self.editbox:EnableMouse(true)
                        self.editbox:SetTextColor(1,1,1)
                        self.label:SetTextColor(1,.82,0)
                end
        end
        
        local function SetText(self, text)
                self.lasttext = text or ""
                self.editbox:SetText(text or "")
                self.editbox:SetCursorPosition(0)
                HideButton(self)
        end
        
        local function SetWidth(self, width)
                self.frame:SetWidth(width)
        end
        
        local function SetLabel(self, text)
                if text and text ~= "" then
                        self.label:SetText(text)
                        self.label:Show()
                        self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,-18)
                        self.frame:SetHeight(44)
                else
                        self.label:SetText("")
                        self.label:Hide()
                        self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,0)
                        self.frame:SetHeight(26)
                end
        end
        

        local function Constructor()
                local num  = AceGUI:GetNextWidgetNum(Type)
                local frame = CreateFrame("Frame",nil,UIParent)
                local editbox = CreateFrame("EditBox","AceGUI-3.0EditBox"..num,frame,"InputBoxTemplate")
                
                local self = {}
                self.type = Type
                self.num = num

                self.OnRelease = OnRelease
                self.OnAcquire = OnAcquire

                self.SetDisabled = SetDisabled
                self.SetText = SetText
                self.SetWidth = SetWidth
                self.SetLabel = SetLabel
                
                self.frame = frame
                frame.obj = self
                self.editbox = editbox
                editbox.obj = self
                
                self.alignoffset = 30
                
                frame:SetHeight(44)
                frame:SetWidth(200)

                editbox:SetScript("OnEnter",Control_OnEnter)
                editbox:SetScript("OnLeave",Control_OnLeave)
                
                editbox:SetAutoFocus(false)
                editbox:SetFontObject(ChatFontNormal)
                editbox:SetScript("OnEscapePressed",EditBox_OnEscapePressed)
                editbox:SetScript("OnEnterPressed",EditBox_OnEnterPressed)
                editbox:SetScript("OnTextChanged",EditBox_OnTextChanged)
                editbox:SetScript("OnReceiveDrag", EditBox_OnReceiveDrag)
                editbox:SetScript("OnMouseDown", EditBox_OnReceiveDrag)

                editbox:SetTextInsets(0,0,3,3)
                editbox:SetMaxLetters(256)
                
                editbox:SetPoint("BOTTOMLEFT",frame,"BOTTOMLEFT",6,0)
                editbox:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,0)
                editbox:SetHeight(19)
                
                local label = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall")
                label:SetPoint("TOPLEFT",frame,"TOPLEFT",0,-2)
                label:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,-2)
                label:SetJustifyH("LEFT")
                label:SetHeight(18)
                self.label = label
                
                local button = CreateFrame("Button",nil,editbox,"UIPanelButtonTemplate")
                button:SetWidth(40)
                button:SetHeight(20)
                button:SetPoint("RIGHT",editbox,"RIGHT",-2,0)
                button:SetText(OKAY)
                button:SetScript("OnClick", Button_OnClick)
                button:Hide()
                
                self.button = button
                button.obj = self

                AceGUI:RegisterAsWidget(self)
                return self
        end
        
        AceGUI:RegisterWidgetType(Type,Constructor,Version)
end

Compare with Previous | Blame