my $sel =  $t->curselection();