Help for this page
$f->Button(-text => "FindSelectionNext", -command => [$t->{'rtext'} => + "FindSelectionNext"])
###################################################################### +## # get current selected text and search for the next occurrence sub FindSelectionNext ... $w->FindNext('-forward', '-exact', '-case', $selected); }