encube={}

-- gets a listbox items data
function encube.GetItemData(sObject)
	local tbSel = ListBox.GetSelected(sObject);
	if tbSel then
		return ListBox.GetItemData(sObject, tbSel[1]);
	else
		return ""
	end
end

-- gets a listbox items text
function encube.GetItemText(sObject)
	local tbSel = ListBox.GetSelected(sObject);
	if tbSel then
		return ListBox.GetItemText(sObject, tbSel[1]);
	else
		return ""
	end
end

-- sets a listbox items data
function encube.SetItemData(sObject,sData)
	local tbSel = ListBox.GetSelected(sObject);
	if tbSel then
		ListBox.SetItemData(sObject, tbSel[1], sData);
		local err = Application.GetLastError();
		if err == 0 then
			return 0
		else
			return -1
		end
	else
		return -1
	end
end

-- sets a listbox items text
function encube.SetItemText(sObject,sText)
	local tbSel = ListBox.GetSelected(sObject);
	if tbSel then
		ListBox.SetItemText(sObject, tbSel[1], sText);
		local err = Application.GetLastError();
		if err == 0 then
			return 0;
		else
			return -1;
		end
	else
		return -1;
	end
end

-- returns a tabel of a listbox items
function encube.GetData(sObject)
	local tbTmp={}
	local nCount = ListBox.GetCount(sObject);
	if nCount > 0 then
		for i=1, nCount do
			local nIndex = Table.Count(tbTmp) + 1;
			Table.Insert(tbTmp, nIndex, {})
			tbTmp[nIndex].Text = ListBox.GetItemText(sObject,i);
			tbTmp[nIndex].Data = ListBox.GetItemData(sObject,i);
		end
		return tbTmp
	end
end

-- sets a listbox items from a tabel
function encube.SetData(sObject,tbTable)
	if Table.Count(tbTable) > 0 then
		for i,k in tbTable do
			ListBox.AddItem(sObject, tbTable[i].Text, tbTable[i].Data);
		end
	end
end