manager.lua

-------------------------------------------------Parent/Layer Manager
--Speed Up
local tableInsert = table.insert
local tableRemove = table.remove
local tableFind = table.find
local isElement = isElement
local assert = assert
local tostring = tostring
local tonumber = tonumber

BottomFatherTable = {}		--Store Bottom Father Element
CenterFatherTable = {}		--Store Center Father Element (Default)
TopFatherTable = {}			--Store Top Father Element
dx3DInterfaceTable = {}
dx3DTextTable = {}
FatherTable = {}			--Store Father Element
ChildrenTable = {}			--Store Children Element
LayerCastTable = {center=CenterFatherTable,top=TopFatherTable,bottom=BottomFatherTable}

function dgsSetLayer(dgsEle,layer,forceDetatch)
	assert(dgsIsDxElement(dgsEle),"Bad argument @dgsSetLayer at argument 1, expect a dgs-dgsEle element got "..dgsGetType(dgsEle))
	if dgsElementType[dgsEle] == "dgs-dxtab" then return false end
	assert(layer == "center" or layer == "top" or layer == "bottom","Bad argument @dgsSetLayer at argument 2, expect a string(top/center/bottom) got "..dgsGetType(layer))
	local hasParent = isElement(FatherTable[dgsEle])
	if hasParent and not forceDetatch then return false end
	if hasParent then
		local id = tableFind(ChildrenTable[FatherTable[dgsEle]],dgsEle)
		if id then
			tableRemove(ChildrenTable[FatherTable[dgsEle]],id)
		end
		FatherTable[dgsEle] = nil
	end
	local oldLayer = dgsElementData[dgsEle].alwaysOn or "center"
	if oldLayer == layer then return false end
	local id = tableFind(LayerCastTable[oldLayer],dgsEle)
	if id then
		tableRemove(LayerCastTable[oldLayer],id)
	end
	dgsSetData(dgsEle,"alwaysOn",layer == "center" and false or layer)
	tableInsert(LayerCastTable[layer],dgsEle)
	return true
end

function dgsGetLayer(dgsEle)
	assert(dgsIsDxElement(dgsEle),"Bad argument @dgsGetLayer at argument 1, expect a dgs-dgsEle element got "..dgsGetType(dgsEle))
	return dgsElementData[dgsEle].alwaysOn or "center"
end

function dgsSetCurrentLayerIndex(dgsEle,index)
	assert(dgsIsDxElement(dgsEle),"Bad argument @dgsSetCurrentLayerIndex at argument 1, expect a dgs-dgsEle element got "..dgsGetType(dgsEle))
	assert(type(index) == "number" ,"Bad argument @dgsSetCurrentLayerIndex at argument 2, expect a number got "..dgsGetType(index))
	local layer = dgsElementData[dgsEle].alwaysOn or "center"
	local hasParent = isElement(FatherTable[dgsEle])
	local theTable = hasParent and ChildrenTable[FatherTable[dgsEle]] or LayerCastTable[layer]
	local index = math.restrict(1,#theTable+1,index)
	local id = tableFind(theTable,dgsEle)
	if id then
		tableRemove(theTable,id)
	end
	tableInsert(theTable,index,dgsEle)
	return true
end

function dgsGetCurrentLayerIndex(dgsEle)
	assert(dgsIsDxElement(dgsEle),"Bad argument @dgsGetCurrentLayerIndex at argument 1, expect a dgs-dgsEle element got "..dgsGetType(dgsEle))
	local layer = dgsElementData[dgsEle].alwaysOn or "center"
	local hasParent = isElement(FatherTable[dgsEle])
	local theTable = hasParent and ChildrenTable[FatherTable[dgsEle]] or LayerCastTable[layer]
	return tableFind(theTable,dgsEle) or false
end

function dgsGetLayerElements(layer)
	assert(layer == "center" or layer == "top" or layer == "bottom","Bad argument @dgsGetLayerElements at argument 1, expect a string(top/center/bottom) got "..dgsGetType(layer))
	return #LayerCastTable[layer] or false
end

function dgsGetChild(parent,id)
	return ChildrenTable[parent][id] or false
end

function dgsGetChildren(parent)
	return ChildrenTable[parent] or {}
end

function dgsGetParent(child)
	return FatherTable[child] or false
end

function dgsGetDxGUIFromResource(res)
	local res = res or sourceResource
	if res then
		local serialized = {}
		local cnt = 0
		for k,v in pairs(boundResource[res] or {}) do
			cnt = cnt+1
			serialized[cnt] = k
		end
		return serialized
	end
end

function dgsGetDxGUINoParent(alwaysBottom)
	return alwaysBottom and BottomFatherTable or CenterFatherTable
end

function dgsSetParent(child,parent,nocheckfather,noUpdatePosSize)
	assert(not dgsElementData[child] or not dgsElementData[child].attachTo, "Bad argument @dgsSetParent at argument 1, attached dgs element shouldn't have a parent")
	if isElement(child) then
		local _parent = FatherTable[child]
		local parentTable = isElement(_parent) and ChildrenTable[_parent] or CenterFatherTable
		if isElement(parent) then
			if not dgsIsDxElement(parent) then return end
			if not nocheckfather then
				local id = tableFind(parentTable,child)
				if id then
					tableRemove(parentTable,id)
				end
			end
			FatherTable[child] = parent
			ChildrenTable[parent] = ChildrenTable[parent] or {}
			tableInsert(ChildrenTable[parent],child)
		else
			local id = tableFind(parentTable,child)
			if id then
				tableRemove(parentTable,id)
			end
			FatherTable[id] = nil
			tableInsert(CenterFatherTable,child) 
		end
		setElementParent(child,parent)
		---Update Position and Size
		if not noUpdatePosSize then
			local rlt = dgsElementData[child].relative
			if rlt[1] then
				local pos = dgsElementData[child].rltPos
				calculateGuiPositionSize(child,pos[1],pos[2],true)
			else
				local pos = dgsElementData[child].absPos
				calculateGuiPositionSize(child,pos[1],pos[2],false)
			end
			if rlt[2] then
				local size = dgsElementData[child].rltSize
				calculateGuiPositionSize(child,_,_,_,size[1],size[2],true)
			else
				local size = dgsElementData[child].absSize
				calculateGuiPositionSize(child,_,_,_,size[1],size[2],false)
			end
		end
		if dgsElementType[child] == "dgs-dxscrollpane" then
			local scrollbars = (dgsElementData[child] or {}).scrollbars
			if scrollbars then
				dgsSetParent(scrollbars[1],parent)
				dgsSetParent(scrollbars[2],parent)
				configScrollPane(child)
			end
		end
		return true
	end
	return false
end

function blurEditMemo()
	local dgsType = dgsGetType(MouseData.nowShow)
	if dgsType == "dgs-dxedit" then
		guiBlur(GlobalEdit)
	elseif dgsType == "dgs-dxmemo" then
		guiBlur(GlobalMemo)
	end
end

function dgsBringToFront(dgsEle,mouse,dontMoveParent,dontChangeData)
	assert(dgsIsDxElement(dgsEle),"Bad argument @dgsBringToFront at argument 1, expect a dgs-dgsEle element got "..dgsGetType(dgsEle))
	local parent = FatherTable[dgsEle]	--Get Parent
	local lastFront = MouseData.nowShow
	if not dontChangeData then
		MouseData.nowShow = dgsEle
		if dgsGetType(dgsEle) == "dgs-dxedit" then
			MouseData.editCursor = true
			resetTimer(MouseData.EditMemoTimer)
			guiFocus(GlobalEdit)
			dgsElementData[GlobalEdit].linkedDxEdit = dgsEle
		elseif dgsElementType[dgsEle] == "dgs-dxmemo" then
			MouseData.editCursor = true
			resetTimer(MouseData.EditMemoTimer)
			guiFocus(GlobalMemo)
			dgsElementData[GlobalMemo].linkedDxMemo = dgsEle
		elseif dgsEle ~= lastFront then
			local dgsType = dgsGetType(lastFront)
			if dgsType == "dgs-dxedit" then
				guiBlur(GlobalEdit)
			elseif dgsType == "dgs-dxmemo" then
				guiBlur(GlobalMemo)
			end
		end
		if isElement(lastFront) and dgsElementData[lastFront].clearSelection then
			dgsSetData(lastFront,"selectfrom",dgsElementData[lastFront].cursorpos)
		end
	end
	if dgsElementData[dgsEle].changeOrder then
		if not isElement(parent) then
			local layer = dgsElementData[dgsEle].alwaysOn or "center"
			local layerTable = LayerCastTable[layer]
			local id = tableFind(layerTable,dgsEle)
			if id then
				tableRemove(layerTable,id)
				tableInsert(layerTable,dgsEle)
			end
		else
			local parents = dgsEle
			while true do
				local uparents = FatherTable[parents]	--Get Parent
				if isElement(uparents) then
					local children = ChildrenTable[uparents]
					local id = tableFind(children,parents)
					if id then
						tableRemove(children,id)
						tableInsert(children,parents)
						if dgsElementType[parents] == "dgs-dxscrollpane" then
							local scrollbar = dgsElementData[parents].scrollbars
							dgsBringToFront(scrollbar[1],"left",_,true)
							dgsBringToFront(scrollbar[2],"left",_,true)
						end
					end
					parents = uparents
				else
					local id = tableFind(CenterFatherTable,parents)
					if id then
						tableRemove(CenterFatherTable,id)
						tableInsert(CenterFatherTable,parents)
						if dgsElementType[parents] == "dgs-dxscrollpane" then
							local scrollbar = dgsElementData[parents].scrollbars
							dgsBringToFront(scrollbar[1],"left",_,true)
							dgsBringToFront(scrollbar[2],"left",_,true)
						end
					end
					break
				end
				if dontMoveParent then
					break
				end
			end
		end
	end
	dgsFocus(dgsEle)
	lastFront = dgsEle
	if mouse == "left" then
		MouseData.clickl = dgsEle
		if MouseData.interfaceHit and MouseData.interfaceHit[5] then
			MouseData.lock3DInterface = MouseData.interfaceHit[5]
		end
		MouseData.clickData = nil
	elseif mouse == "right" then
		MouseData.clickr = dgsEle
	end
	return true
end

function dgsMoveToBack(dgsEle)
	assert(dgsIsDxElement(dgsEle),"Bad argument @dgsMoveToBack at argument 1, expect a dgs-dgsEle element got "..dgsGetType(dgsEle))
	if dgsElementData[dgsEle].changeOrder then
		local parent = FatherTable[dgsEle]	--Get Parent
		if isElement(parent) then
			local children = ChildrenTable[parent]
			local id = tableFind(children,dgsEle)
			if id then
				tableRemove(children,id)
				tableInsert(children,1,dgsEle)
				return true
			end
			return false
		else
			local layer = dgsElementData[dgsEle].alwaysOn or "center"
			local layerTable = LayerCastTable[layer]
			local id = tableFind(layerTable,dgsEle)
			if id then
				tableRemove(layerTable,id)
				tableInsert(layerTable,1,dgsEle)
				return true
			end
			return false
		end
	end
end

------------------------------------------------Type Manager
dgsElementType = {}
dgsType = {
	"dgs-dx3dinterface",
	"dgs-dx3dtext",
	"dgs-dxbutton",
	"dgs-dxedit",
	"dgs-dxexternal",
	"dgs-dxmemo",
	"dgs-dxdetectarea",
	"dgs-dxgridlist",
	"dgs-dximage",
	"dgs-dxradiobutton",
	"dgs-dxcheckbox",
	"dgs-dxlabel",
	"dgs-dxscrollbar",
	"dgs-dxscrollpane",
	"dgs-dxselector",
	"dgs-dxswitchbutton",
	"dgs-dxwindow",
	"dgs-dxprogressbar",
	"dgs-dxtabpanel",
	"dgs-dxtab",
	"dgs-dxcombobox",
	"dgs-dxcombobox-Box",
	"dgs-dxcustomrenderer",
	"dgs-dxbrowser",
}

function dgsGetType(dgsEle)
	if isElement(dgsEle) then return tostring(dgsElementType[dgsEle] or getElementType(dgsEle)) end
	local theType = type(dgsEle)
	if theType == "userdata" and dgsElementType[dgsEle] then return "garbage (destroyed)" end
	return theType
end

function dgsIsDxElement(dgsEle) return isElement(dgsEle) and ((dgsElementType[dgsEle] or (dgsElementData[dgsEle] and dgsElementData[dgsEle].asPlugin) or ""):sub(1,6) == "dgs-dx") end
function dgsGetPluginType(dgsEle) return dgsEle and (dgsElementData[dgsEle] and dgsElementData[dgsEle].asPlugin or false) or dgsGetType(dgsEle) end

function dgsSetType(dgsEle,myType)
	if isElement(dgsEle) and type(myType) == "string" then
		dgsElementType[dgsEle] = myType
		return true
	end
	return false
end

function dgsIsMaterialElement(ele)
	if isElement(ele) then
		local eleType = getElementType(ele)
		return eleType == "shader" or eleType == "texture"
	end
	return false
end

------------------------------------------------Property Manager
dgsElementData = {[resourceRoot] = {}}		----The Global BuiltIn DGS Element Data Table

function dgsGetData(element,key)
	return dgsElementData[element] and dgsElementData[element][key] or false
end

function dgsSetData(element,key,value,nocheck)
	local dgsType,key = dgsGetType(element),tostring(key)
	if isElement(element) and dgsType then
		dgsElementData[element] = dgsElementData[element] or {}
		local oldValue = dgsElementData[element][key]
		if oldValue ~= value then
			dgsElementData[element][key] = value
			if not nocheck then
				if dgsType == "dgs-dxscrollbar" then
					if key == "length" then
						local w,h = dgsGetSize(element,false)
						local isHorizontal = dgsElementData[element].isHorizontal
						if (value[2] and value[1]*(isHorizontal and w-h*2 or h-w*2) or value[1]) < dgsElementData[element].minLength then
							dgsElementData[element].length = {dgsElementData[element].minLength,false}
						end
					elseif key == "position" then
						if not dgsElementData[element].locked then
							if oldValue and oldValue ~= value then
								local grades = dgsElementData[element].grades
								if grades then
									local currentGrade = math.floor(value/100*grades+0.5)
									dgsSetData(element,"currentGrade",currentGrade)
									dgsElementData[element][key] = currentGrade/grades*100
									triggerEvent("onDgsElementScroll",element,element,dgsElementData[element][key],oldValue)
								else
									triggerEvent("onDgsElementScroll",element,element,value,oldValue)
								end
							end
						else
							dgsElementData[element][key] = oldValue
						end
					elseif key == "grades" then
						if value then
							local pos = dgsElementData[element].position
							local currentGrade = math.floor(pos/100*value+0.5)
							dgsSetData(element,"currentGrade",currentGrade)
						else
							dgsSetData(element,"currentGrade",false)
						end
					end
				elseif dgsType == "dgs-dxgridlist" then
					if key == "columnHeight" or key == "mode" or key== "scrollBarThick" or key== "leading" then
						configGridList(element)
					elseif key == "rowData" then
						if dgsElementData[element].autoSort then
							dgsElementData[element].nextRenderSort = true
						end
					elseif key == "rowMoveOffset" then
						dgsGridListUpdateRowMoveOffset(element)
					end
				elseif dgsType == "dgs-dxscrollpane" then
					if key == "scrollBarThick" or key == "scrollBarState" or key == "scrollBarOffset" or key == "scrollBarLength" then
						configScrollPane(element)
					end
				elseif dgsType == "dgs-dxswitchbutton" then
					if key == "state" then
						triggerEvent("onDgsSwitchButtonStateChange",element,value,oldValue)
					end
				elseif dgsType == "dgs-dxcombobox" then
					if key == "scrollBarThick" then
						assert(type(value) == "number","Bad argument 'dgsSetData' at 3,expect number got"..type(value))
						local scrollbar = dgsElementData[element].scrollbar
						configComboBox(element)
					elseif key == "listState" then
						triggerEvent("onDgsComboBoxStateChange",element,value == 1 and true or false)
					end
				elseif dgsType == "dgs-dxtabpanel" then
					if key == "selected" then
						local old,new = oldValue,value
						local tabs = dgsElementData[element].tabs
						triggerEvent("onDgsTabPanelTabSelect",element,new,old,tabs[new],tabs[old])
						if isElement(tabs[new]) then
							triggerEvent("onDgsTabSelect",tabs[new],new,old,tabs[new],tabs[old])
						end
					elseif key == "tabPadding" then
						local width = dgsElementData[element].absSize[1]
						local change = value[2] and value[1]*width or value[1]
						local old = oldValue[2] and oldValue[1]*width or oldValue[1]
						local tabs = dgsElementData[element].tabs
						dgsSetData(element,"tabLengthAll",dgsElementData[element].tabLengthAll+(change-old)*#tabs*2)
					elseif key == "tabGapSize" then
						local width = dgsElementData[element].absSize[1]
						local change = value[2] and value[1]*width or value[1]
						local old = oldValue[2] and oldValue[1]*width or oldValue[1]
						local tabs = dgsElementData[element].tabs
						dgsSetData(element,"tabLengthAll",dgsElementData[element].tabLengthAll+(change-old)*math.max((#tabs-1),1))
					end
				elseif dgsType == "dgs-dxtab" then
					if key == "text" then
						if type(value) == "table" then
							dgsElementData[element]._translationText = value
							value = dgsTranslate(element,value,sourceResource)
						else
							dgsElementData[element]._translationText = nil
						end
						local tabpanel = dgsElementData[element].parent
						local w = dgsElementData[tabpanel].absSize[1]
						local t_minWid = dgsElementData[tabpanel].tabMinWidth
						local t_maxWid = dgsElementData[tabpanel].tabMaxWidth
						local minwidth = t_minWid[2] and t_minWid[1]*w or t_minWid[1]
						local maxwidth = t_maxWid[2] and t_maxWid[1]*w or t_maxWid[1]
						dgsElementData[element].text = tostring(value)
						dgsSetData(element,"width",math.restrict(dxGetTextWidth(tostring(value),dgsElementData[element].textSize[1],dgsElementData[element].font or dgsElementData[tabpanel].font),minwidth,maxwidth))
						
						return triggerEvent("onDgsTextChange",element)
					elseif key == "width" then
						local tabpanel = dgsElementData[element].parent
						dgsSetData(tabpanel,"tabLengthAll",dgsElementData[tabpanel].tabLengthAll+(value-oldValue))
					end
				elseif dgsType == "dgs-dxedit" then
					if key == "text" then
						local txtSize = dgsElementData[element].textSize
						local success = handleDxEditText(element,value)
						return success
					elseif key == "textSize" then
						dgsElementData[element].textFontLen = dxGetTextWidth(dgsElementData[element].text,value[1],dgsElementData[element].font)
					elseif key == "font" then
						local txtSize = dgsElementData[element].textSize
						dgsElementData[element].textFontLen = dxGetTextWidth(dgsElementData[element].text,txtSize[1],dgsElementData[element].font)
					elseif key == "padding" then
						configEdit(element)
					end
				elseif dgsType == "dgs-dxmemo" then
					if key == "text" then
						return handleDxMemoText(element,value)
					elseif key == "scrollBarThick" then
						configMemo(element)
					elseif key == "textSize" then
						dgsMemoRebuildTextTable(element)
					elseif key == "font" then
						dgsMemoRebuildTextTable(element)
					elseif key == "wordWrap" then
						if value then
							dgsMemoRebuildWordWrapMapTable(element)
						end
					end
				elseif dgsType == "dgs-dxprogressbar" then
					if key == "progress" then
						triggerEvent("onDgsProgressBarChange",element,value,oldValue)
					end
				elseif dgsType == "dgs-dx3dinterface" then
					if key == "size" then
						local temprt = dgsElementData[element].renderTarget
						if isElement(temprt) then
							destroyElement(temprt)
						end
						local renderTarget = dxCreateRenderTarget(value[1],value[2],true)
						dgsSetData(element,"renderTarget",renderTarget)
					end
				elseif dgsType == "dgs-dximage" then
					if key == "UVSize" then
						local sx,sy,relative = value[1],value[2],value[3]
						if not sx and not sy then
							dgsElementData[element].renderBuffer.UVSize = {}
						else
							local texture = dgsElementData[element].image
							if isElement(texture) and getElementType(texture) ~= "shader" then
								local mx,my = dxGetMaterialSize(texture)
								local sx,sy = tonumber(sx),tonumber(sy)
								local sx,sy = relative and (sx or 1)*mx or (sx or mx),relative and (sy or 1)*my or (sy or my)
								dgsElementData[element].renderBuffer.UVSize = {sx,sy}
							end
						end
					elseif key == "UVPos" then
						local x,y,relative = value[1],value[2],value[3]
						if not x and not y then
							dgsElementData[element].renderBuffer.UVPos = {}
						else
							local texture = dgsElementData[element].image
							if isElement(texture) and getElementType(texture) ~= "shader" then
								local x,y,relative = value[1],value[2],value[3]
								local mx,my = dxGetMaterialSize(texture)
								local x,y = tonumber(x),tonumber(y)
								local x,y = relative and (x or 0)*mx or (x or mx),relative and (y or 0)*my or (y or my)
								dgsElementData[element].renderBuffer.UVPos = {x,y}
							end
						end
					elseif key == "image" then
						local imgType = dgsGetType(value)
						if isElement(value) and imgType ~= "shader" and imgType ~= "dgs-dxcustomrenderer" then
							local UVPos,UVSize = dgsElementData[element].UVPos or {0,0,true},dgsElementData[element].UVSize or {1,1,true}
							local x,y,relative = UVPos[1],UVPos[2],UVPos[3]
							local sx,sy,relative = UVSize[1],UVSize[2],UVSize[3]
							local mx,my = dxGetMaterialSize(value)
							local x,y = tonumber(x),tonumber(y)
							local sx,sy = tonumber(sx),tonumber(sy)
							local x,y = relative and (x or 0)*mx or (x or mx),relative and (y or 0)*my or (y or my)
							local sx,sy = relative and (sx or 1)*mx or (sx or mx),relative and (sy or 1)*my or (sy or my)
							dgsElementData[element].renderBuffer.UVPos = {x,y}
							dgsElementData[element].renderBuffer.UVSize = {sx,sy}
						end
					end
				end
				if key == "text" then
					if type(value) == "table" then
						dgsElementData[element]._translationText = value
						value = dgsTranslate(element,value,sourceResource)
					else
						dgsElementData[element]._translationText = nil
					end
					dgsElementData[element].text = tostring(value)
					triggerEvent("onDgsTextChange",element)
				elseif key == "caption" then
					if type(value) == "table" then
						dgsElementData[element]._translationText = value
						value = dgsTranslate(element,value,sourceResource)
					else
						dgsElementData[element]._translationText = nil
					end
					dgsElementData[element].caption = tostring(value)
				elseif key == "ignoreParentTitle" then
					configPosSize(element,false,true)
					if dgsType == "dgs-dxscrollpane" then
						configScrollPane(element)
					end
				elseif key == "ignoreTitle" then
					local children = dgsGetChildren(element)
					for i=1,#children do
						if not dgsElementData[children[i]].ignoreParentTitle then
							configPosSize(children[i],false,true)
							if dgsElementType[children[i]] == "dgs-dxscrollpane" then
								configScrollPane(children[i])
							end
						end
					end
				end
			end
		end
		return true
	end
	return false
end

compatibility = {
	["dgs-dxscrollbar"] = {
		image = "arrowImage/cursorImage/troughImage",
	},
	["dgs-dxswitchbutton"] = {
		textColor_t = "textColorOn",
		textColor_f = "textColorOff",
		image_t = "imageOn",
		image_f = "imageOff",
		textColor_t = "textColorOn",
		textColor_f = "textColorOff",
	},
	["dgs-dxcheckbox"] = {
		textImageSpace = "textPadding",
	},
	["dgs-dxradiobutton"] = {
		textImageSpace = "textPadding",
	}
}

function checkCompatibility(dxgui,key)
	local eleTyp = dgsGetType(dxgui)
	if compatibility[eleTyp] then
		for k,v in pairs(compatibility[eleTyp]) do
			if key == k then
				if not getElementData(localPlayer,"DGS-DEBUG-C") then
					outputDebugString("Deprecated property '"..k.."' @dgsSetProperty with "..eleTyp..", run it again with command /debugdgs c",2)
					return true
				else
					outputDebugString("Found deprecated property '"..k.."' @dgsSetProperty with "..eleTyp..", replace with "..v,2)
					return false
				end
			end
		end
	end
	return true
end

function dgsSetProperty(dxgui,key,value,...)
	local isTable = type(dxgui) == "table"
	assert(dgsIsDxElement(dxgui) or isTable,"Bad argument @dgsSetProperty at argument 1, expect a dgs-dxgui element/table got "..dgsGetType(dxgui))
	if isTable then
		if key == "functions" then
			local fnc = loadstring(value)
			assert(fnc,"Bad argument @dgsSetProperty at argument 2, failed to load function")
			value = {fnc,{...}}
		end
		for k,v in ipairs(dxgui) do
			assert(checkCompatibility(v,key),"DGS Compatibility Check")
			if key == "textColor" then
				assert(tonumber(value),"Bad argument @dgsSetProperty at argument 3, expect a number got "..type(value))
			elseif key == "text" then
				if dgsElementType[v] == "dgs-dxmemo" then
					return handleDxMemoText(v,value)
				elseif dgsElementType[v] == "dgs-dxedit" then
					return handleDxEditText(v,value)
				end
			elseif key == "absPos" then
				dgsSetPosition(v,value[1],value[2],false)
			elseif key == "rltPos" then
				dgsSetPosition(v,value[1],value[2],true)
			elseif key == "absSize" then
				dgsSetSize(v,value[1],value[2],false)
			elseif key == "rltSize" then
				dgsSetSize(v,value[1],value[2],true)
			end
			dgsSetData(v,tostring(key),value)
		end
		return true
	else
		assert(checkCompatibility(dxgui,key),"DGS Compatibility Check")
		if key == "functions" then
			if value then
				local fnc
				if type(value) == "function" then
					fnc = value
				else
					fnc = loadstring(value)
				end
				assert(fnc,"Bad argument @dgsSetProperty at argument 2, failed to load function")
				value = {fnc,{...}}
			end
		elseif key == "textColor" then
			assert(tonumber(value),"Bad argument @dgsSetProperty at argument 3, expect a number got "..type(value))
		elseif key == "text" then
			if dgsElementType[dxgui] == "dgs-dxmemo" then
				return handleDxMemoText(dxgui,value)
			elseif dgsElementType[dxgui] == "dgs-dxedit" then
				return handleDxEditText(dxgui,value)
			end
		elseif key == "absPos" then
			dgsSetPosition(dxgui,value[1],value[2],false)
		elseif key == "rltPos" then
			dgsSetPosition(dxgui,value[1],value[2],true)
		elseif key == "absSize" then
			dgsSetSize(dxgui,value[1],value[2],false)
		elseif key == "rltSize" then
			dgsSetSize(dxgui,value[1],value[2],true)
		end
		return dgsSetData(dxgui,tostring(key),value)
	end
end

function dgsGetProperty(dxgui,key)
	assert(dgsIsDxElement(dxgui),"Bad argument @dgsGetProperty at argument 1, expect a dgs-dxgui element got "..dgsGetType(dxgui))
	if not dgsElementData[dxgui] then return false end
	return dgsElementData[dxgui][key]
end

function dgsSetProperties(dxgui,theTable,additionArg)
	local isTable = type(dxgui) == "table"
	assert(dgsIsDxElement(dxgui) or isTable,"Bad argument @dgsSetProperties at argument 1, expect a dgs-dxgui element got "..dgsGetType(dxgui))
	assert(type(theTable)=="table","Bad argument @dgsSetProperties at argument 2, expect a table got "..type(theTable))
	assert((additionArg and type(additionArg)=="table") or additionArg == nil,"Bad argument @dgsSetProperties at argument 3, expect a table or nil/none got "..type(additionArg))
	if isTable then
		local success = true
		for k,v in ipairs(dxgui) do
			local dgsType = dgsElementType[v]
			for key,value in pairs(theTable) do
				local skip = false
				if key == "functions" and type(value) == "string" then
					value = {loadstring(value),additionArg.functions or {}}
				elseif key == "textColor" then
					if not tonumber(value) then
						assert(false,"Bad argument @dgsSetProperties at argument 2 with property 'textColor', expect a number got "..type(value))
					end
				elseif key == "text" then
					if dgsType == "dgs-dxtab" then
						local tabpanel = dgsElementData[v].parent
						local minW,maxW = dgsElementData[tabpanel].tabMinWidth,dgsElementData[tabpanel].tabMaxWidth
						local wid = math.restrict(dxGetTextWidth(value,dgsElementData[v].textSize[1],dgsElementData[v].font or dgsElementData[tabpanel].font),minW,maxW)
						local owid = dgsElementData[tab].width
						dgsSetData(tabpanel,"tabLengthAll",dgsElementData[tabpanel].tabLengthAll-owid+wid)
						dgsSetData(v,"width",wid)
					elseif dgsType == "dgs-dxmemo" then
						success = success and handleDxMemoText(v,value)
						skip = true
					elseif dgsType == "dgs-dxedit" then
						success = success and handleDxEditText(v,value)
						skip = true
					end
				elseif key == "absPos" then
					dgsSetPosition(v,value[1],value[2],false)
				elseif key == "rltPos" then
					dgsSetPosition(v,value[1],value[2],true)
				elseif key == "absSize" then
					dgsSetSize(v,value[1],value[2],false)
				elseif key == "rltSize" then
					dgsSetSize(v,value[1],value[2],true)
				end
				if not skip then
					success = success and dgsSetData(v,tostring(key),value)
				end
			end
		end
		return success
	else
		local success = true
		local dgsType = dgsElementType[dxgui]
		for key,value in pairs(theTable) do
			local skip = false
			if key == "functions" then
				value = {loadstring(value),additionArg.functions or {}}
			elseif key == "textColor" then
				if not tonumber(value) then
					assert(false,"Bad argument @dgsSetProperties at argument 2 with property 'textColor', expect a number got "..type(value))
				end
			elseif key == "text" then
				if dgsType == "dgs-dxtab" then
					local tabpanel = dgsElementData[dxgui].parent
					local minW,maxW = dgsElementData[tabpanel].tabMinWidth,dgsElementData[tabpanel].tabMaxWidth
					local wid = math.restrict(dxGetTextWidth(value,dgsElementData[dxgui].textSize[1],dgsElementData[dxgui].font or dgsElementData[tabpanel].font),minW,maxW)
					local owid = dgsElementData[tab].width
					dgsSetData(tabpanel,"tabLengthAll",dgsElementData[tabpanel].tabLengthAll-owid+wid)
					dgsSetData(dxgui,"width",wid)
				elseif dgsType == "dgs-dxmemo" then
					success = success and handleDxMemoText(dxgui,value)
					skip = true	
				elseif dgsType == "dgs-dxedit" then
					success = success and handleDxEditText(dxgui,value)
					skip = true
				end
			elseif key == "absPos" then
				dgsSetPosition(dxgui,value[1],value[2],false)
			elseif key == "rltPos" then
				dgsSetPosition(dxgui,value[1],value[2],true)
			elseif key == "absSize" then
				dgsSetSize(dxgui,value[1],value[2],false)
			elseif key == "rltSize" then
				dgsSetSize(dxgui,value[1],value[2],true)
			end
			if not skip then
				success = success and dgsSetData(dxgui,tostring(key),value)
			end
		end
		return success
	end
end

function dgsGetProperties(dgsElement,properties)
	assert(dgsIsDxElement(dgsElement),"Bad argument @dgsGetProperties at argument 1, expect a dgs-dxgui element got "..dgsGetType(dgsElement))
	assert(not properties or type(properties) == "table","Bad argument @dgsGetProperties at argument 2, expect none or table got "..type(properties))
	if not dgsElementData[dgsElement] then return false end
	if not properties then
		return dgsElementData[dgsElement]
	else
		local data = {}
		for k,key in ipairs(properties) do
			data[key] = dgsElementData[dgsElement][key]
		end
		return data
	end
end

function dgsSetPropertyInherit(dxgui,key,value,...)
	local isTable = type(dxgui) == "table"
	assert(dgsIsDxElement(dxgui) or isTable,"Bad argument @dgsSetPropertyInherit at argument 1, expect a dgs-dxgui element/table got "..dgsGetType(dxgui))
	if isTable then
		for k,v in ipairs(dxgui) do
			if key == "functions" then
				local fnc = loadstring(value)
				assert(fnc,"Bad argument @dgsSetPropertyInherit at argument 2, failed to load function")
				value = {fnc,{...}}
			elseif key == "textColor" then
				assert(tonumber(value),"Bad argument @dgsSetPropertyInherit at argument 3, expect a number got "..type(value))
			elseif key == "text" then
				if dgsElementType[v] == "dgs-dxmemo" then
					return handleDxMemoText(v,value)
				elseif dgsElementType[v] == "dgs-dxedit" then
					return handleDxEditText(v,value)
				end
			elseif key == "absPos" then
				dgsSetPosition(v,value[1],value[2],false)
			elseif key == "rltPos" then
				dgsSetPosition(v,value[1],value[2],true)
			elseif key == "absSize" then
				dgsSetSize(v,value[1],value[2],false)
			elseif key == "rltSize" then
				dgsSetSize(v,value[1],value[2],true)
			end
			dgsSetData(v,tostring(key),value)
			for index,child in ipairs(dgsGetChildren(v)) do
				dgsSetPropertyInherit(child,key,value,...)
			end
		end
		return true
	else
		if key == "functions" then
			local fnc = loadstring(value)
			assert(fnc,"Bad argument @dgsSetPropertyInherit at argument 2, failed to load function")
			value = {fnc,{...}}
		elseif key == "textColor" then
			assert(tonumber(value),"Bad argument @dgsSetPropertyInherit at argument 3, expect a number got "..type(value))
		elseif key == "text" then
			if dgsElementType[dxgui] == "dgs-dxmemo" then
				return handleDxMemoText(dxgui,value)
			elseif dgsElementType[dxgui] == "dgs-dxedit" then
				return handleDxEditText(dxgui,value)
			end
		elseif key == "absPos" then
			dgsSetPosition(dxgui,value[1],value[2],false)
		elseif key == "rltPos" then
			dgsSetPosition(dxgui,value[1],value[2],true)
		elseif key == "absSize" then
			dgsSetSize(dxgui,value[1],value[2],false)
		elseif key == "rltSize" then
			dgsSetSize(dxgui,value[1],value[2],true)
		end
		dgsSetData(dxgui,tostring(key),value)
		for index,child in ipairs(dgsGetChildren(dxgui)) do
			dgsSetPropertyInherit(child,key,value,...)
		end
	end
end