get() sur un widget text

Bonjour,

Je n'arrive pas à récupérer la valeur du widget text.
voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my $MessTab2 = $w_frame2->Scrolled('Text', -wrap => 'none', -scrollbars => 'osoe', -width => 30, -height => 3, ); $MessTab2->insert('end', 'Saisissez le message ...'); $MessTab2->grid(-column =>1, -row => 3);   my $ButtonTab2 = $w_frame2->Button(-text => "OK", -command => [ \&Send, $MessTab2 ],)->grid(-column =>1, -row =>4); $w_frame2->pack();

---

la fonction qui utilise la valeur du widget

Code:

---

1 2 3 4 5

sub Send { my ( $EntryMess ) = @_; my $Message = $EntryMess->get; print $Message; }

---

Mais j'obtiens ceci ...

Citation:

---

Tk::Error: wrong # args: should be ".notebook.sheet_2.frame.frame.text get index1 ?index2 ...?" at /usr/lib/perl5/Tk.pm line 250.

---

Si je ne fais pas le get j'obtiens la valeur du Hash ...

Citation:

---

Tk::Frame=HASH(0x8ef84d8)

---

Je ne vois pas trop

FAQ :aie:

Merci,

effectivement en lisant la FAQ ça fonctionne mieux. :lol:


Je vais prendre 2 minutes pour la lire!

Citation:

---

Envoyé par cyberps2

Merci,

effectivement en lisant la FAQ ça fonctionne mieux. :lol:


Je vais prendre 2 minutes pour la lire!

---

:lol: