Up

_TIPbutton

Associate a tool tip to a button.

Prototype :

fun [ObjButton S] ObjButton

• ObjButton : any button object


• S : a string for the tool tip

Return : ObjButton the same object or nil if error

See also :

Example :

typeof Win = ObjWin;;
typeof Button = ObjButton;;

fun cbWin (obj, user_parameter)=
	_closemachine;;
	
fun cbButton (obj, user_parameter)=
	_DSwindow Win;
	0;;
	
fun main ()=
	_showconsole;
	set Win = _CRwindow _channel nil 0 0 300 200 WN_NORMAL "Test TIP";
	_CBwinDestroy Win @cbWin 0;

	set Button = _CRbutton _channel Win 0 0 300 20 PB_DOWN "Click here !";
	_TIPbutton Button "Click to close the window";
	_CBbutton Button @cbButton 0;
	0;;