sub nextText
{

   my $string = ${$searchText->cget(-textvariable)};
   $textWindow->FindNext("-forwards","-exact", '-nocase',  $string );

}