my @ranges = $txtBox->tagRanges('sel');
my $text   = $txtBox->get(@ranges[0,1]);