Tercio@11: 
Tercio@11: 
Tercio@11: 
Tercio@11: local DF = _G ["DetailsFramework"]
Tercio@11: local _
Tercio@11: 
Tercio@11: local _rawset = rawset --> lua local
Tercio@11: local _rawget = rawget --> lua local
Tercio@11: local _setmetatable = setmetatable --> lua local
Tercio@11: local _unpack = unpack --> lua local
Tercio@11: local _type = type --> lua local
Tercio@11: local _math_floor = math.floor --> lua local
Tercio@11: local loadstring = loadstring --> lua local
Tercio@11: local _string_len = string.len --> lua local
Tercio@11: 
Tercio@11: local cleanfunction = function() end
Tercio@11: local APITextEntryFunctions = false
Tercio@11: local TextEntryMetaFunctions = {}
Tercio@11: 
Tercio@11: DF.TextEntryCounter = 1
Tercio@11: 
Tercio@11: ------------------------------------------------------------------------------------------------------------
Tercio@11: --> metatables
Tercio@11: 
Tercio@11: 	TextEntryMetaFunctions.__call = function (_table, value)
Tercio@11: 		--> unknow
Tercio@11: 	end
Tercio@11: 	
Tercio@11: ------------------------------------------------------------------------------------------------------------
Tercio@11: --> members
Tercio@11: 
Tercio@11: 	--> tooltip
Tercio@11: 	local gmember_tooltip = function (_object)
Tercio@11: 		return _object:GetTooltip()
Tercio@11: 	end
Tercio@11: 	--> shown
Tercio@11: 	local gmember_shown = function (_object)
Tercio@11: 		return _object:IsShown()
Tercio@11: 	end
Tercio@11: 	--> frame width
Tercio@11: 	local gmember_width = function (_object)
Tercio@11: 		return _object.editbox:GetWidth()
Tercio@11: 	end
Tercio@11: 	--> frame height
Tercio@11: 	local gmember_height = function (_object)
Tercio@11: 		return _object.editbox:GetHeight()
Tercio@11: 	end
Tercio@11: 	--> get text
Tercio@11: 	local gmember_text = function (_object)
Tercio@11: 		return _object.editbox:GetText()
Tercio@11: 	end
Tercio@11: 
Tercio@11: 	local get_members_function_index = {
Tercio@11: 		["tooltip"] = gmember_tooltip,
Tercio@11: 		["shown"] = gmember_shown,
Tercio@11: 		["width"] = gmember_width,
Tercio@11: 		["height"] = gmember_height,
Tercio@11: 		["text"] = gmember_text,
Tercio@11: 	}
Tercio@11: 
Tercio@11: 	TextEntryMetaFunctions.__index = function (_table, _member_requested)
Tercio@11: 
Tercio@11: 		local func = get_members_function_index [_member_requested]
Tercio@11: 		if (func) then
Tercio@11: 			return func (_table, _member_requested)
Tercio@11: 		end
Tercio@11: 		
Tercio@11: 		local fromMe = _rawget (_table, _member_requested)
Tercio@11: 		if (fromMe) then
Tercio@11: 			return fromMe
Tercio@11: 		end
Tercio@11: 		
Tercio@11: 		return TextEntryMetaFunctions [_member_requested]
Tercio@11: 	end
Tercio@11: 	
Tercio@11: -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Tercio@11: 	
Tercio@11: 	--> tooltip
Tercio@11: 	local smember_tooltip = function (_object, _value)
Tercio@11: 		return _object:SetTooltip (_value)
Tercio@11: 	end
Tercio@11: 	--> show
Tercio@11: 	local smember_show = function (_object, _value)
Tercio@11: 		if (_value) then
Tercio@11: 			return _object:Show()
Tercio@11: 		else
Tercio@11: 			return _object:Hide()
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	--> hide
Tercio@11: 	local smember_hide = function (_object, _value)
Tercio@11: 		if (not _value) then
Tercio@11: 			return _object:Show()
Tercio@11: 		else
Tercio@11: 			return _object:Hide()
Tercio@11: 		end
Tercio@11: 	end	
Tercio@11: 	--> frame width
Tercio@11: 	local smember_width = function (_object, _value)
Tercio@11: 		return _object.editbox:SetWidth (_value)
Tercio@11: 	end
Tercio@11: 	--> frame height
Tercio@11: 	local smember_height = function (_object, _value)
Tercio@11: 		return _object.editbox:SetHeight (_value)
Tercio@11: 	end
Tercio@11: 	--> set text
Tercio@11: 	local smember_text = function (_object, _value)
Tercio@11: 		return _object.editbox:SetText (_value)
Tercio@11: 	end
Tercio@11: 	--> set multiline
Tercio@11: 	local smember_multiline = function (_object, _value)
Tercio@11: 		if (_value) then
Tercio@11: 			return _object.editbox:SetMultiLine (true)
Tercio@11: 		else
Tercio@11: 			return _object.editbox:SetMultiLine (false)
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	--> text horizontal pos
Tercio@11: 	local smember_horizontalpos = function (_object, _value)
Tercio@11: 		return _object.editbox:SetJustifyH (string.lower (_value))
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local set_members_function_index = {
Tercio@11: 		["tooltip"] = smember_tooltip,
Tercio@11: 		["show"] = smember_show,
Tercio@11: 		["hide"] = smember_hide,
Tercio@11: 		["width"] = smember_width,
Tercio@11: 		["height"] = smember_height,
Tercio@11: 		["text"] = smember_text,
Tercio@11: 		["multiline"] = smember_multiline,
Tercio@11: 		["align"] = smember_horizontalpos,
Tercio@11: 	}
Tercio@11: 	
Tercio@11: 	TextEntryMetaFunctions.__newindex = function (_table, _key, _value)
Tercio@11: 		local func = set_members_function_index [_key]
Tercio@11: 		if (func) then
Tercio@11: 			return func (_table, _value)
Tercio@11: 		else
Tercio@11: 			return _rawset (_table, _key, _value)
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 
Tercio@11: ------------------------------------------------------------------------------------------------------------
Tercio@11: --> methods
Tercio@11: 
Tercio@11: --> set point
Tercio@11: 	function TextEntryMetaFunctions:SetPoint (MyAnchor, SnapTo, HisAnchor, x, y, Width)
Tercio@11: 	
Tercio@11: 		if (type (MyAnchor) == "boolean" and MyAnchor and self.space) then
Tercio@11: 			local textWidth = self.label:GetStringWidth()+2
Tercio@11: 			self.editbox:SetWidth (self.space - textWidth - 15)
Tercio@11: 			return
Tercio@11: 			
Tercio@11: 		elseif (type (MyAnchor) == "boolean" and MyAnchor and not self.space) then
Tercio@11: 			self.space = self.label:GetStringWidth()+2 + self.editbox:GetWidth()
Tercio@11: 		end
Tercio@11: 		
Tercio@11: 		if (Width) then
Tercio@11: 			self.space = Width
Tercio@11: 		end
Tercio@11: 		
Tercio@11: 		MyAnchor, SnapTo, HisAnchor, x, y = DF:CheckPoints (MyAnchor, SnapTo, HisAnchor, x, y, self)
Tercio@11: 		if (not MyAnchor) then
Tercio@11: 			print ("Invalid parameter for SetPoint")
Tercio@11: 			return
Tercio@11: 		end
Tercio@11: 	
Tercio@11: 		if (self.space) then
Tercio@11: 			self.label:ClearAllPoints()
Tercio@11: 			self.editbox:ClearAllPoints()
Tercio@11: 			
Tercio@11: 			self.label:SetPoint (MyAnchor, SnapTo, HisAnchor, x, y)
Tercio@11: 			self.editbox:SetPoint ("left", self.label, "right", 2, 0)
Tercio@11: 			
Tercio@11: 			local textWidth = self.label:GetStringWidth()+2
Tercio@11: 			self.editbox:SetWidth (self.space - textWidth - 15)
Tercio@11: 		else
Tercio@11: 			self.label:ClearAllPoints()
Tercio@11: 			self.editbox:ClearAllPoints()
Tercio@11: 			self.editbox:SetPoint (MyAnchor, SnapTo, HisAnchor, x, y)
Tercio@11: 		end
Tercio@11: 
Tercio@11: 	end
Tercio@11: 	
Tercio@11: --> frame levels
Tercio@11: 	function TextEntryMetaFunctions:GetFrameLevel()
Tercio@11: 		return self.editbox:GetFrameLevel()
Tercio@11: 	end
Tercio@11: 	function TextEntryMetaFunctions:SetFrameLevel (level, frame)
Tercio@11: 		if (not frame) then
Tercio@11: 			return self.editbox:SetFrameLevel (level)
Tercio@11: 		else
Tercio@11: 			local framelevel = frame:GetFrameLevel (frame) + level
Tercio@11: 			return self.editbox:SetFrameLevel (framelevel)
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 
Tercio@11: --> select all text
Tercio@11: 	function TextEntryMetaFunctions:SelectAll()
Tercio@11: 		self.editbox:HighlightText()
Tercio@11: 	end
Tercio@11: 	
Tercio@11: --> set labal description
Tercio@11: 	function TextEntryMetaFunctions:SetLabelText (text)
Tercio@11: 		if (text) then
Tercio@11: 			self.label:SetText (text)
Tercio@11: 		else
Tercio@11: 			self.label:SetText ("")
Tercio@11: 		end
Tercio@11: 		self:SetPoint (true) --> refresh
Tercio@11: 	end
Tercio@11: 
Tercio@11: --> set tab order
Tercio@11: 	function TextEntryMetaFunctions:SetNext (nextbox)
Tercio@11: 		self.next = nextbox
Tercio@11: 	end
Tercio@11: 	
Tercio@11: --> blink
Tercio@11: 	function TextEntryMetaFunctions:Blink()
Tercio@11: 		self.label:SetTextColor (1, .2, .2, 1)
Tercio@11: 	end	
Tercio@11: 	
Tercio@11: --> show & hide
Tercio@11: 	function TextEntryMetaFunctions:IsShown()
Tercio@11: 		return self.editbox:IsShown()
Tercio@11: 	end
Tercio@11: 	function TextEntryMetaFunctions:Show()
Tercio@11: 		return self.editbox:Show()
Tercio@11: 	end
Tercio@11: 	function TextEntryMetaFunctions:Hide()
Tercio@11: 		return self.editbox:Hide()
Tercio@11: 	end
Tercio@11: 	
Tercio@11: -- tooltip
Tercio@11: 	function TextEntryMetaFunctions:SetTooltip (tooltip)
Tercio@11: 		if (tooltip) then
Tercio@11: 			return _rawset (self, "have_tooltip", tooltip)
Tercio@11: 		else
Tercio@11: 			return _rawset (self, "have_tooltip", nil)
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	function TextEntryMetaFunctions:GetTooltip()
Tercio@11: 		return _rawget (self, "have_tooltip")
Tercio@11: 	end
Tercio@11: 	
Tercio@11: --> hooks
Tercio@11: 	function TextEntryMetaFunctions:SetHook (hookType, func)
Tercio@11: 		if (func) then
Tercio@11: 			_rawset (self, hookType.."Hook", func)
Tercio@11: 		else
Tercio@11: 			_rawset (self, hookType.."Hook", nil)
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	function TextEntryMetaFunctions:Enable()
Tercio@11: 		if (not self.editbox:IsEnabled()) then
Tercio@11: 			self.editbox:Enable()
Tercio@11: 			self.editbox:SetBackdropBorderColor (unpack (self.enabled_border_color))
Tercio@11: 			self.editbox:SetBackdropColor (unpack (self.enabled_backdrop_color))
Tercio@11: 			self.editbox:SetTextColor (unpack (self.enabled_text_color))
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	function TextEntryMetaFunctions:Disable()
Tercio@11: 		if (self.editbox:IsEnabled()) then
Tercio@11: 			self.enabled_border_color = {self.editbox:GetBackdropBorderColor()}
Tercio@11: 			self.enabled_backdrop_color = {self.editbox:GetBackdropColor()}
Tercio@11: 			self.enabled_text_color = {self.editbox:GetTextColor()}
Tercio@11: 
Tercio@11: 			self.editbox:Disable()
Tercio@11: 
Tercio@11: 			self.editbox:SetBackdropBorderColor (.5, .5, .5, .5)
Tercio@11: 			self.editbox:SetBackdropColor (.5, .5, .5, .5)
Tercio@11: 			self.editbox:SetTextColor (.5, .5, .5, .5)
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: ------------------------------------------------------------------------------------------------------------
Tercio@11: --> scripts
Tercio@11: 	local OnEnter = function (textentry)
Tercio@11: 
Tercio@11: 		if (textentry.MyObject.OnEnterHook) then
Tercio@11: 			local interrupt = textentry.MyObject.OnEnterHook (textentry)
Tercio@11: 			if (interrupt) then
Tercio@11: 				return
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 	
Tercio@11: 		if (textentry.MyObject.have_tooltip) then 
Tercio@11: 			GameCooltip2:Preset (2)
Tercio@11: 			GameCooltip2:AddLine (textentry.MyObject.have_tooltip)
Tercio@11: 			GameCooltip2:ShowCooltip (textentry, "tooltip")
Tercio@11: 		end
Tercio@11: 		
Tercio@11: 		textentry.mouse_over = true 
Tercio@11: 
Tercio@11: 		if (textentry:IsEnabled()) then 
Tercio@11: 			textentry.current_bordercolor = textentry.current_bordercolor or {textentry:GetBackdropBorderColor()}
Tercio@11: 			textentry:SetBackdropBorderColor (1, 1, 1, 1)
Tercio@11: 		end
Tercio@11: 		
Tercio@11: 		local parent = textentry:GetParent().MyObject
Tercio@11: 		if (parent and parent.type == "panel") then
Tercio@11: 			if (parent.GradientEnabled) then
Tercio@11: 				parent:RunGradient()
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 		
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local OnLeave = function (textentry)
Tercio@11: 		if (textentry.MyObject.OnLeaveHook) then
Tercio@11: 			local interrupt = textentry.MyObject.OnLeaveHook (textentry)
Tercio@11: 			if (interrupt) then
Tercio@11: 				return
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 	
Tercio@11: 		if (textentry.MyObject.have_tooltip) then 
Tercio@11: 			GameCooltip2:ShowMe (false)
Tercio@11: 		end
Tercio@11: 		
Tercio@11: 		textentry.mouse_over = false 
Tercio@11: 		
Tercio@11: 		if (textentry:IsEnabled()) then 
Tercio@11: 			textentry:SetBackdropBorderColor (unpack (textentry.current_bordercolor))
Tercio@11: 		end
Tercio@11: 		
Tercio@11: 		local parent = textentry:GetParent().MyObject
Tercio@11: 		if (parent and parent.type == "panel") then
Tercio@11: 			if (parent.GradientEnabled) then
Tercio@11: 				parent:RunGradient (false)
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local OnHide = function (textentry)
Tercio@11: 		if (textentry.MyObject.OnHideHook) then
Tercio@11: 			local interrupt = textentry.MyObject.OnHideHook (textentry)
Tercio@11: 			if (interrupt) then
Tercio@11: 				return
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local OnShow = function (textentry)
Tercio@11: 		if (textentry.MyObject.OnShowHook) then
Tercio@11: 			local interrupt = textentry.MyObject.OnShowHook (textentry)
Tercio@11: 			if (interrupt) then
Tercio@11: 				return
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 
Tercio@11: 	local OnEnterPressed = function (textentry, byScript) 
Tercio@11: 	
Tercio@11: 		if (textentry.MyObject.OnEnterPressedHook) then
Tercio@11: 			local interrupt = textentry.MyObject.OnEnterPressedHook (textentry)
Tercio@11: 			if (interrupt) then
Tercio@11: 				return
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 	
Tercio@11: 		local texto = DF:trim (textentry:GetText())
Tercio@11: 		if (_string_len (texto) > 0) then 
Tercio@11: 			textentry.text = texto
Tercio@11: 			if (textentry.MyObject.func) then 
Tercio@11: 				textentry.MyObject.func (textentry.MyObject.param1, textentry.MyObject.param2, texto, textentry, byScript or textentry)
Tercio@11: 			end
Tercio@11: 		else
Tercio@11: 			textentry:SetText ("")
Tercio@11: 			textentry.MyObject.currenttext = ""
Tercio@11: 		end
Tercio@11: 		textentry.focuslost = true --> perdeu_focus isso aqui pra quando estiver editando e clicar em outra caixa
Tercio@11: 		textentry:ClearFocus()
Tercio@11: 		
Tercio@11: 		if (textentry.MyObject.tab_on_enter and textentry.MyObject.next) then
Tercio@11: 			textentry.MyObject.next:SetFocus()
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local OnEscapePressed = function (textentry)
Tercio@11: 	
Tercio@11: 		if (textentry.MyObject.OnEscapePressedHook) then
Tercio@11: 			local interrupt = textentry.MyObject.OnEscapePressedHook (textentry)
Tercio@11: 			if (interrupt) then
Tercio@11: 				return
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 	
Tercio@11: 		--textentry:SetText("") 
Tercio@11: 		--textentry.MyObject.currenttext = ""
Tercio@11: 		textentry.focuslost = true
Tercio@11: 		textentry:ClearFocus() 
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local OnEditFocusLost = function (textentry)
Tercio@11: 
Tercio@11: 		if (textentry:IsShown()) then
Tercio@11: 		
Tercio@11: 			if (textentry.MyObject.OnEditFocusLostHook) then
Tercio@11: 				local interrupt = textentry.MyObject.OnEditFocusLostHook (textentry)
Tercio@11: 				if (interrupt) then
Tercio@11: 					return
Tercio@11: 				end
Tercio@11: 			end
Tercio@11: 		
Tercio@11: 			if (not textentry.focuslost) then
Tercio@11: 				local texto = DF:trim (textentry:GetText())
Tercio@11: 				if (_string_len (texto) > 0) then 
Tercio@11: 					textentry.MyObject.currenttext = texto
Tercio@11: 					if (textentry.MyObject.func) then 
Tercio@11: 						textentry.MyObject.func (textentry.MyObject.param1, textentry.MyObject.param2, texto, textentry, nil)
Tercio@11: 					end
Tercio@11: 				else 
Tercio@11: 					textentry:SetText ("") 
Tercio@11: 					textentry.MyObject.currenttext = ""
Tercio@11: 				end 
Tercio@11: 			else
Tercio@11: 				textentry.focuslost = false
Tercio@11: 			end
Tercio@11: 			
Tercio@11: 			textentry.MyObject.label:SetTextColor (.8, .8, .8, 1)
Tercio@11: 
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local OnEditFocusGained = function (textentry)
Tercio@11: 		if (textentry.MyObject.OnEditFocusGainedHook) then
Tercio@11: 			local interrupt = textentry.MyObject.OnEditFocusGainedHook (textentry)
Tercio@11: 			if (interrupt) then
Tercio@11: 				return
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 		textentry.MyObject.label:SetTextColor (1, 1, 1, 1)
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local OnChar = function (textentry, text) 
Tercio@11: 		if (textentry.MyObject.OnCharHook) then
Tercio@11: 			local interrupt = textentry.MyObject.OnCharHook (textentry, text)
Tercio@11: 			if (interrupt) then
Tercio@11: 				return
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local OnTextChanged = function (textentry, byUser) 
Tercio@11: 		if (textentry.MyObject.OnTextChangedHook) then
Tercio@11: 			local interrupt = textentry.MyObject.OnTextChangedHook (textentry, byUser)
Tercio@11: 			if (interrupt) then
Tercio@11: 				return
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local OnTabPressed = function (textentry) 
Tercio@11: 		if (textentry.MyObject.OnTabPressedHook) then
Tercio@11: 			local interrupt = textentry.MyObject.OnTabPressedHook (textentry, byUser)
Tercio@11: 			if (interrupt) then
Tercio@11: 				return
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 		
Tercio@11: 		if (textentry.MyObject.next) then 
Tercio@11: 			OnEnterPressed (textentry, false)
Tercio@11: 			textentry.MyObject.next:SetFocus()
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	function TextEntryMetaFunctions:PressEnter (byScript)
Tercio@11: 		OnEnterPressed (self.editbox, byScript)
Tercio@11: 	end
Tercio@11: 	
Tercio@11: ------------------------------------------------------------------------------------------------------------
Tercio@11: --> object constructor
Tercio@11: 
Tercio@11: function DF:CreateTextEntry (parent, func, w, h, member, name)
Tercio@11: 	return DF:NewTextEntry (parent, parent, name, member, w, h, func)
Tercio@11: end
Tercio@11: 
Tercio@11: function DF:NewTextEntry (parent, container, name, member, w, h, func, param1, param2, space)
Tercio@11: 	
Tercio@11: 	if (not name) then
Tercio@11: 		name = "DetailsFrameworkTextEntryNumber" .. DF.TextEntryCounter
Tercio@11: 		DF.TextEntryCounter = DF.TextEntryCounter + 1
Tercio@11: 		
Tercio@11: 	elseif (not parent) then
Tercio@11: 		return nil
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	if (not container) then
Tercio@11: 		container = parent
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	if (name:find ("$parent")) then
Tercio@11: 		name = name:gsub ("$parent", parent:GetName())
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local TextEntryObject = {type = "textentry", dframework = true}
Tercio@11: 	
Tercio@11: 	if (member) then
Tercio@11: 		parent [member] = TextEntryObject
Tercio@11: 	end
Tercio@11: 
Tercio@11: 	if (parent.dframework) then
Tercio@11: 		parent = parent.widget
Tercio@11: 	end
Tercio@11: 	if (container.dframework) then
Tercio@11: 		container = container.widget
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	--> default members:
Tercio@11: 		--> hooks
Tercio@11: 		TextEntryObject.OnEnterHook = nil
Tercio@11: 		TextEntryObject.OnLeaveHook = nil
Tercio@11: 		TextEntryObject.OnHideHook = nil
Tercio@11: 		TextEntryObject.OnShowHook = nil
Tercio@11: 		TextEntryObject.OnEnterPressedHook = nil
Tercio@11: 		TextEntryObject.OnEscapePressedHook = nil
Tercio@11: 		TextEntryObject.OnEditFocusGainedHook = nil
Tercio@11: 		TextEntryObject.OnEditFocusLostHook = nil
Tercio@11: 		TextEntryObject.OnCharHook = nil
Tercio@11: 		TextEntryObject.OnTextChangedHook = nil
Tercio@11: 		TextEntryObject.OnTabPressedHook = nil
Tercio@11: 
Tercio@11: 		--> misc
Tercio@11: 		TextEntryObject.container = container
Tercio@11: 		TextEntryObject.have_tooltip = nil
Tercio@11: 
Tercio@11: 	TextEntryObject.editbox = CreateFrame ("EditBox", name, parent, "DetailsFrameworkEditBoxTemplate2")
Tercio@11: 	TextEntryObject.widget = TextEntryObject.editbox
Tercio@11: 	
Tercio@11: 	TextEntryObject.editbox:SetTextInsets (3, 0, 0, -3)
Tercio@11: 
Tercio@11: 	if (not APITextEntryFunctions) then
Tercio@11: 		APITextEntryFunctions = true
Tercio@11: 		local idx = getmetatable (TextEntryObject.editbox).__index
Tercio@11: 		for funcName, funcAddress in pairs (idx) do 
Tercio@11: 			if (not TextEntryMetaFunctions [funcName]) then
Tercio@11: 				TextEntryMetaFunctions [funcName] = function (object, ...)
Tercio@11: 					local x = loadstring ( "return _G."..object.editbox:GetName()..":"..funcName.."(...)")
Tercio@11: 					return x (...)
Tercio@11: 				end
Tercio@11: 			end
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	TextEntryObject.editbox.MyObject = TextEntryObject
Tercio@11: 	
Tercio@11: 	if (not w and space) then
Tercio@11: 		w = space
Tercio@11: 	elseif (w and space) then
Tercio@11: 		if (DF.debug) then
Tercio@11: 			print ("warning: you are using width and space, try use only space for better results.")
Tercio@11: 		end
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	TextEntryObject.editbox:SetWidth (w)
Tercio@11: 	TextEntryObject.editbox:SetHeight (h)
Tercio@11: 
Tercio@11: 	TextEntryObject.editbox:SetJustifyH ("center")
Tercio@11: 	TextEntryObject.editbox:EnableMouse (true)
Tercio@11: 	TextEntryObject.editbox:SetText ("")
Tercio@11: 
Tercio@11: 	TextEntryObject.editbox:SetAutoFocus (false)
Tercio@11: 	TextEntryObject.editbox:SetFontObject ("GameFontHighlightSmall")
Tercio@11: 
Tercio@11: 	TextEntryObject.editbox.current_bordercolor = {1, 1, 1, 0.7}
Tercio@11: 	TextEntryObject.editbox:SetBackdropBorderColor (1, 1, 1, 0.7)
Tercio@11: 	TextEntryObject.enabled_border_color = {TextEntryObject.editbox:GetBackdropBorderColor()}
Tercio@11: 	TextEntryObject.enabled_backdrop_color = {TextEntryObject.editbox:GetBackdropColor()}
Tercio@11: 	TextEntryObject.enabled_text_color = {TextEntryObject.editbox:GetTextColor()}
Tercio@11: 	
Tercio@11: 	TextEntryObject.func = func
Tercio@11: 	TextEntryObject.param1 = param1
Tercio@11: 	TextEntryObject.param2 = param2
Tercio@11: 	TextEntryObject.next = nil
Tercio@11: 	TextEntryObject.space = space
Tercio@11: 	TextEntryObject.tab_on_enter = false
Tercio@11: 	
Tercio@11: 	TextEntryObject.label = _G [name .. "_Desc"]
Tercio@11: 	
Tercio@11: 	TextEntryObject.editbox:SetBackdrop ({bgFile = DF.folder .. "background", tileSize = 64, edgeFile = DF.folder .. "border_2", edgeSize = 10, insets = {left = 1, right = 1, top = 1, bottom = 1}})
Tercio@11: 	
Tercio@11: 	--> hooks
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnEnter", OnEnter)
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnLeave", OnLeave)
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnHide", OnHide)
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnShow", OnShow)
Tercio@11: 		
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnEnterPressed", OnEnterPressed)
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnEscapePressed", OnEscapePressed)
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnEditFocusLost", OnEditFocusLost)
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnEditFocusGained", OnEditFocusGained)
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnChar", OnChar)
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnTextChanged", OnTextChanged)
Tercio@11: 		TextEntryObject.editbox:SetScript ("OnTabPressed", OnTabPressed)
Tercio@11: 		
Tercio@11: 	_setmetatable (TextEntryObject, TextEntryMetaFunctions)
Tercio@11: 	
Tercio@11: 	return TextEntryObject	
Tercio@11: 	
Tercio@11: end
Tercio@11: 
Tercio@11: local function_gettext = function (self)
Tercio@11: 	return self.editbox:GetText()
Tercio@11: end
Tercio@11: local function_settext = function (self, text)
Tercio@11: 	return self.editbox:SetText (text)
Tercio@11: end
Tercio@11: local function_clearfocus = function (self)
Tercio@11: 	return self.editbox:ClearFocus()
Tercio@11: end
Tercio@11: local function_setfocus = function (self)
Tercio@11: 	return self.editbox:SetFocus (true)
Tercio@11: end
Tercio@11: 
Tercio@11: function DF:NewSpecialLuaEditorEntry (parent, w, h, member, name, nointent)
Tercio@11: 	
Tercio@11: 	if (name:find ("$parent")) then
Tercio@11: 		name = name:gsub ("$parent", parent:GetName())
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local borderframe = CreateFrame ("Frame", name, parent)
Tercio@11: 	borderframe:SetSize (w, h)
Tercio@11: 
Tercio@11: 	if (member) then
Tercio@11: 		parent [member] = borderframe
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	local scrollframe = CreateFrame ("ScrollFrame", name, borderframe, "DetailsFrameworkEditBoxMultiLineTemplate")
Tercio@11: 
Tercio@11: 	scrollframe:SetScript ("OnSizeChanged", function (self)
Tercio@11: 		scrollframe.editbox:SetSize (self:GetSize())
Tercio@11: 	end)
Tercio@11: 	
Tercio@11: 	scrollframe:SetPoint ("topleft", borderframe, "topleft", 10, -10)
Tercio@11: 	scrollframe:SetPoint ("bottomright", borderframe, "bottomright", -30, 10)
Tercio@11: 	
Tercio@11: 	scrollframe.editbox:SetMultiLine (true)
Tercio@11: 	scrollframe.editbox:SetJustifyH ("left")
Tercio@11: 	scrollframe.editbox:SetJustifyV ("top")
Tercio@11: 	scrollframe.editbox:SetMaxBytes (1024000)
Tercio@11: 	scrollframe.editbox:SetMaxLetters (128000)
Tercio@11: 	
Tercio@11: 	borderframe.GetText = function_gettext
Tercio@11: 	borderframe.SetText = function_settext
Tercio@11: 	borderframe.ClearFocus = function_clearfocus
Tercio@11: 	borderframe.SetFocus = function_setfocus
Tercio@11: 	
Tercio@11: 	if (not nointent) then
Tercio@11: 		IndentationLib.enable (scrollframe.editbox, nil, 4)
Tercio@11: 	end
Tercio@11: 	
Tercio@11: 	borderframe:SetBackdrop ({bgFile = [[Interface\Tooltips\UI-Tooltip-Background]], edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]], 
Tercio@11: 		tile = 1, tileSize = 16, edgeSize = 16, insets = {left = 5, right = 5, top = 5, bottom = 5}})
Tercio@11: 	borderframe:SetBackdropColor (0.090195, 0.090195, 0.188234, 1)
Tercio@11: 	borderframe:SetBackdropBorderColor (1, 1, 1, 1)
Tercio@11: 	
Tercio@11: 	borderframe.scroll = scrollframe
Tercio@11: 	borderframe.editbox = scrollframe.editbox
Tercio@11: 	
Tercio@11: 	return borderframe
Tercio@11: end