Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
sub Send {
  my ( $EntryMess ) = @_;
  my $Message = $EntryMess->get;
  print $Message;
}
Mais j'obtiens ceci ...

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 ...

Tk::Frame=HASH(0x8ef84d8)
Je ne vois pas trop