1. $w->selectionIncludes( '@' . $Ev->x . "," . $Ev->y )
2. $w->selectionSet( '@' . $Ev->x . "," . $Ev->y )
3. my ($rc) = @{ $w->curselection };