Discussion :

[cyberps2]

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

[djibril]

FAQ

[cyberps2]

Merci,

effectivement en lisant la FAQ ça fonctionne mieux.


Je vais prendre 2 minutes pour la lire!

[djibril]

Merci,

effectivement en lisant la FAQ ça fonctionne mieux.


Je vais prendre 2 minutes pour la lire!