Up

_SETtextSize

Should set the text content size.

Prototype :

fun [ObjText I] ObjText

• ObjText : any text object


• I : a new size

Return : ObjText the same object or nil if error

See also :

Example :

typeof Win = ObjWin;;
typeof Text = ObjText;;

fun cbWin (obj, user_parameter)=
	_closemachine;;
	
fun cbClick (obj, user_parameter)=
	_DSbutton obj;
	_SETtextSize Text 30;
	0;;
	
fun main ()=
	_showconsole;
	set Win = _CRwindow _channel nil 0 0 300 200 WN_NORMAL "Test  text size window";
	_CBwinDestroy Win @cbWin 0;
	
	set Text = _CReditText _channel Win 5 5 200 20 ET_BORDER|ET_SIZEBOX "Write and click";
	_CBbutton
		_CRbutton _channel Win 210 5 85 20 0 "Ok !"
		@cbClick
		0;
	0;;