sub hide_text {  
   my @r = $text->tagRanges('sel'); 
   print "@r\n"; 
   return unless @r; 
   $text->tagAdd('hide',@r); 
   return;   
}