[pERl TK] Obtenir le texte sélectionné d'un widget entry

Bonjour,

Je cherche déspéremment à extraire le texte selectionné d'un widget Entry.
J'ai trouvé la fonction get qui renvoie toute la chaine, les fonctions selectionClear, selectionRange et compagnie qui permettent de définir ce qui sélectionné, mais rien pour trouver ce qui est sélectionné !!

Il doit y avoir quelque chose de trop évident pour que je puisse le voir.

Help please !!

ça y est j'ai trouvé !
Alors :

Code:

---

1 2 3 4 5 6 7

my $texte=$myentry->get(); my $show = $myentry->cget('-show'); $texte = $show x length($texte) if (defined $show); my $deb= $myentry->index('sel.first'); my $fin = $myentry->index('sel.last'); my $texteSelectionne=substr($texte,$deb,$fin-$deb);

---

ça a l'air tout con comme ça, mais j'ai eu du mal à trouver....surtout du point de vue de la syntaxe précise.
Bref voilà !