Up

Tips

A tooltip is a small 'window' that appears automatically when the user pauses the mouse pointer over a control. A same tip can be common in several controls.

At this time, this works only with the 2d OS controls.

API

• ObjTip : a Tooltip control Scol object


• _ADDtip
  fun [ObjTip u0] ObjTip


• _CRtip
  fun [Chn u0 S I] ObjTip


• _DELtip
  fun [ObjTip u0] ObjTip


• _DStip
  fun [ObjTip] I


• _ENtip
  fun [ObjTip I] ObjTip


• _GETtipColor
  fun [ObjTip] [[I I I] [I I I]]


• _GETtipCount
  fun [ObjTip] I


• _PAINTtip
  fun [ObjTip] ObjTip


• _SETtip
  fun [ObjTip S u0] ObjTip


• _SETtipColor
  fun [ObjTip [I I I] [I I I]] ObjTip


• _SETtipRectangle
  fun [ObjTip u0 I I I I] ObjTip


• _SETtipTitle
  fun [ObjTip S I I] ObjTip


• _SETtipTrack
  fun [ObjTip I] ObjTip

Example

fun main ()=
	_showconsole;
	
	let _CRwindow _channel nil 50 50 300 250 WN_NORMAL "test tip" -> win in
	let _CRbutton _channel win 5 5 200 50 0 "BOUTON 1" -> b1 in
	let _CRbutton _channel win 5 60 200 50 0 "BOUTON 2" -> b2 in
	let _CRbutton _channel win 5 115 200 50 0 "BOUTON 3" -> b3 in
	let _CRtip _channel b1 "This is a button !" TIP_ALWAYS|TIP_BALLOON -> tip1 in
	let _CRtip _channel b2 "This is also a button !" TIP_ALWAYS|TIP_CENTERBELOW -> tip2 in
	(
	_ADDtip tip1 b3;
	_SETtipColor tip1 [0 255 255] [0 0 0];
	_SETtipTitle tip1 "A new information" TIP_INFOICON TIP_SMALLICON;
	_fooId _GETtipCount tip1;
	0
	);;

Note