This is the code sample to make work the style-tooltip.r script.

REBOL [] 	
 	
do %style-tooltip.r ; on execute le tooltip 	
 	
fen: layout/size [ 	
origin 20x20 	
zt: field 100x20 "Essai" 	
pad 0x40 b2: btn "Quitter" [quit] 	

tooltip with [ data: compose [ (b2) "ceci est un bouton" ]] ;widget-object 
tooltip 	

tooltip with [ data: compose [ (zt) "ceci est champs de saisie"]] 
	
] 200x150 	
 	
view center-face fen