InputEX={}

function InputEX.SetWordWrap(sObject,bWrap)
	Input.SetProperties(sObject,{HScrollbar = bWrap});
	return Application.GetLastError();
end

function InputEX.GetWordWrap(sObject)
	return Input.GetProperties(sObject).HScrollbar;
end

function InputEX.SaveToFile(sObject,sFile,bAppend)
	local sText = Input.GetText(sObject);
	TextFile.WriteFromString(sFile, sText, bAppend);
	return Application.GetLastError();
end

function InputEX.LoadFromFile(sObject,sFile)
	local sText = TextFile.ReadToString(sFile);
	Input.SetText(sObject,sText);
	return Application.GetLastError();
end

function InputEX.AlignText(sObject,cAlign)
	Input.SetProperties(sObject,{Alignment = cAlign});
	return Application.GetLastError();
end

function InputEX.SetFont(sObject,sFontName.nFontSize,bFontWeight,bFontItalic,bFontStrikeout,bFontUnderline,nFontColor)
	local tbFont={}
	tbFont.FontName=sFontName
	tbFont.FontSize=nFontSize
	tbFont.FontWeight=bFontWeight
	tbFont.FontItalic=bFontItalic
	tbFont.FontStrikeout=bFontStrikeout
	tbFont.FontUnderline=bFontUnderline
	tbFont.FontColor=nFontColor	
	Input.SetProperties(sObject, tbFont);
	return Application.GetLastError();
end

function InputEX.GetFont(sObject)
	local tbFont=Input.GetProperties(sObject);
	local tbRet={}
	tbFont.FontName=tbRet.FontName
	tbFont.FontSize=tbRet.FontSize
	tbFont.FontWeight=tbRet.FontWeight
	tbFont.FontItalic=tbRet.FontItalic
	tbFont.FontStrikeout=tbRet.FontStrikeout
	tbFont.FontUnderline=tbRet.FontUnderline
	tbFont.FontColor=tbRet.FontColor	
	return tbRet
end