Asa@0: local AceGUI = LibStub("AceGUI-3.0")
Asa@0: 
Asa@0: -- Lua APIs
Asa@0: local tostring = tostring
Asa@0: 
Asa@0: -- WoW APIs
Asa@0: local GetCursorInfo, ClearCursor, GetSpellName = GetCursorInfo, ClearCursor, GetSpellName
Asa@0: local CreateFrame, UIParent = CreateFrame, UIParent
Asa@0: local _G = _G
Asa@0: 
Asa@0: -- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
Asa@0: -- List them here for Mikk's FindGlobals script
Asa@0: -- GLOBALS: AceGUIEditBoxInsertLink, ChatFontNormal, OKAY
Asa@0: 
Asa@0: local Type = "EditBox"
Asa@0: local Version = 13
Asa@0: 
Asa@0: if not AceGUIEditBoxInsertLink then
Asa@0: 	-- upgradeable hook
Asa@0: 	hooksecurefunc("ChatEdit_InsertLink", function(...) return _G.AceGUIEditBoxInsertLink(...) end)
Asa@0: end
Asa@0: 
Asa@0: function _G.AceGUIEditBoxInsertLink(text)
Asa@0: 	for i = 1, AceGUI:GetNextWidgetNum(Type)-1 do
Asa@0: 		local editbox = _G["AceGUI-3.0EditBox"..i]
Asa@0: 		if editbox and editbox:IsVisible() and editbox:HasFocus() then
Asa@0: 			editbox:Insert(text)
Asa@0: 			return true
Asa@0: 		end
Asa@0: 	end
Asa@0: end
Asa@0: 
Asa@0: 
Asa@0: --------------------------
Asa@0: -- Edit box			 --
Asa@0: --------------------------
Asa@0: --[[
Asa@0: 	Events :
Asa@0: 		OnTextChanged
Asa@0: 		OnEnterPressed
Asa@0: 
Asa@0: ]]
Asa@0: do
Asa@0: 	local function OnAcquire(self)
Asa@0: 		self:SetHeight(26)
Asa@0: 		self:SetWidth(200)
Asa@0: 		self:SetDisabled(false)
Asa@0: 		self:SetLabel()
Asa@0: 		self.showbutton = true
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function OnRelease(self)
Asa@0: 		self.frame:ClearAllPoints()
Asa@0: 		self.frame:Hide()
Asa@0: 		self:SetDisabled(false)
Asa@0: 		self:SetText()
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function Control_OnEnter(this)
Asa@0: 		this.obj:Fire("OnEnter")
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function Control_OnLeave(this)
Asa@0: 		this.obj:Fire("OnLeave")
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function EditBox_OnEscapePressed(this)
Asa@0: 		this:ClearFocus()
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function ShowButton(self)
Asa@0: 		if self.showbutton then
Asa@0: 			self.button:Show()
Asa@0: 			self.editbox:SetTextInsets(0,20,3,3)
Asa@0: 		end
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function HideButton(self)
Asa@0: 		self.button:Hide()
Asa@0: 		self.editbox:SetTextInsets(0,0,3,3)
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function EditBox_OnEnterPressed(this)
Asa@0: 		local self = this.obj
Asa@0: 		local value = this:GetText()
Asa@0: 		local cancel = self:Fire("OnEnterPressed",value)
Asa@0: 		if not cancel then
Asa@0: 			HideButton(self)
Asa@0: 		end
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function Button_OnClick(this)
Asa@0: 		local editbox = this.obj.editbox
Asa@0: 		editbox:ClearFocus()
Asa@0: 		EditBox_OnEnterPressed(editbox)
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function EditBox_OnReceiveDrag(this)
Asa@0: 		local self = this.obj
Asa@0: 		local type, id, info = GetCursorInfo()
Asa@0: 		if type == "item" then
Asa@0: 			self:SetText(info)
Asa@0: 			self:Fire("OnEnterPressed",info)
Asa@0: 			ClearCursor()
Asa@0: 		elseif type == "spell" then
Asa@0: 			local name, rank = GetSpellName(id, info)
Asa@0: 			if rank and rank:match("%d") then
Asa@0: 				name = name.."("..rank..")"
Asa@0: 			end
Asa@0: 			self:SetText(name)
Asa@0: 			self:Fire("OnEnterPressed",name)
Asa@0: 			ClearCursor()
Asa@0: 		end
Asa@0: 		HideButton(self)
Asa@0: 		AceGUI:ClearFocus()
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function EditBox_OnTextChanged(this)
Asa@0: 		local self = this.obj
Asa@0: 		local value = this:GetText()
Asa@0: 		if tostring(value) ~= tostring(self.lasttext) then
Asa@0: 			self:Fire("OnTextChanged",value)
Asa@0: 			self.lasttext = value
Asa@0: 			ShowButton(self)
Asa@0: 		end
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function SetDisabled(self, disabled)
Asa@0: 		self.disabled = disabled
Asa@0: 		if disabled then
Asa@0: 			self.editbox:EnableMouse(false)
Asa@0: 			self.editbox:ClearFocus()
Asa@0: 			self.editbox:SetTextColor(0.5,0.5,0.5)
Asa@0: 			self.label:SetTextColor(0.5,0.5,0.5)
Asa@0: 		else
Asa@0: 			self.editbox:EnableMouse(true)
Asa@0: 			self.editbox:SetTextColor(1,1,1)
Asa@0: 			self.label:SetTextColor(1,.82,0)
Asa@0: 		end
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function SetText(self, text)
Asa@0: 		self.lasttext = text or ""
Asa@0: 		self.editbox:SetText(text or "")
Asa@0: 		self.editbox:SetCursorPosition(0)
Asa@0: 		HideButton(self)
Asa@0: 	end
Asa@0: 	
Asa@0: 	local function SetLabel(self, text)
Asa@0: 		if text and text ~= "" then
Asa@0: 			self.label:SetText(text)
Asa@0: 			self.label:Show()
Asa@0: 			self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,-18)
Asa@0: 			self:SetHeight(44)
Asa@0: 			self.alignoffset = 30
Asa@0: 		else
Asa@0: 			self.label:SetText("")
Asa@0: 			self.label:Hide()
Asa@0: 			self.editbox:SetPoint("TOPLEFT",self.frame,"TOPLEFT",7,0)
Asa@0: 			self:SetHeight(26)
Asa@0: 			self.alignoffset = 12
Asa@0: 		end
Asa@0: 	end
Asa@0: 	
Asa@0: 
Asa@0: 	local function Constructor()
Asa@0: 		local num  = AceGUI:GetNextWidgetNum(Type)
Asa@0: 		local frame = CreateFrame("Frame",nil,UIParent)
Asa@0: 		local editbox = CreateFrame("EditBox","AceGUI-3.0EditBox"..num,frame,"InputBoxTemplate")
Asa@0: 		
Asa@0: 		local self = {}
Asa@0: 		self.type = Type
Asa@0: 		self.num = num
Asa@0: 
Asa@0: 		self.OnRelease = OnRelease
Asa@0: 		self.OnAcquire = OnAcquire
Asa@0: 
Asa@0: 		self.SetDisabled = SetDisabled
Asa@0: 		self.SetText = SetText
Asa@0: 		self.SetLabel = SetLabel
Asa@0: 		
Asa@0: 		self.frame = frame
Asa@0: 		frame.obj = self
Asa@0: 		self.editbox = editbox
Asa@0: 		editbox.obj = self
Asa@0: 		
Asa@0: 		self.alignoffset = 30
Asa@0: 		
Asa@0: 		frame:SetHeight(44)
Asa@0: 		frame:SetWidth(200)
Asa@0: 
Asa@0: 		editbox:SetScript("OnEnter",Control_OnEnter)
Asa@0: 		editbox:SetScript("OnLeave",Control_OnLeave)
Asa@0: 		
Asa@0: 		editbox:SetAutoFocus(false)
Asa@0: 		editbox:SetFontObject(ChatFontNormal)
Asa@0: 		editbox:SetScript("OnEscapePressed",EditBox_OnEscapePressed)
Asa@0: 		editbox:SetScript("OnEnterPressed",EditBox_OnEnterPressed)
Asa@0: 		editbox:SetScript("OnTextChanged",EditBox_OnTextChanged)
Asa@0: 		editbox:SetScript("OnReceiveDrag", EditBox_OnReceiveDrag)
Asa@0: 		editbox:SetScript("OnMouseDown", EditBox_OnReceiveDrag)
Asa@0: 
Asa@0: 		editbox:SetTextInsets(0,0,3,3)
Asa@0: 		editbox:SetMaxLetters(256)
Asa@0: 		
Asa@0: 		editbox:SetPoint("BOTTOMLEFT",frame,"BOTTOMLEFT",6,0)
Asa@0: 		editbox:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,0)
Asa@0: 		editbox:SetHeight(19)
Asa@0: 		
Asa@0: 		local label = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall")
Asa@0: 		label:SetPoint("TOPLEFT",frame,"TOPLEFT",0,-2)
Asa@0: 		label:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,-2)
Asa@0: 		label:SetJustifyH("LEFT")
Asa@0: 		label:SetHeight(18)
Asa@0: 		self.label = label
Asa@0: 		
Asa@0: 		local button = CreateFrame("Button",nil,editbox,"UIPanelButtonTemplate")
Asa@0: 		button:SetWidth(40)
Asa@0: 		button:SetHeight(20)
Asa@0: 		button:SetPoint("RIGHT",editbox,"RIGHT",-2,0)
Asa@0: 		button:SetText(OKAY)
Asa@0: 		button:SetScript("OnClick", Button_OnClick)
Asa@0: 		button:Hide()
Asa@0: 		
Asa@0: 		self.button = button
Asa@0: 		button.obj = self
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