perltk: выделение текста в текстовом поле и обновление меток

Question

Использование TK в Windows XP.

my $mw = new MainWindow; 
my $text1 = $mw->Text(-width=>20, -height=>10) 
      ->place(-x=>350, -y=>460); 

my $showlabel = $mw->Label(-text => "nothing selected") 
      ->place(-x=>50, -y=>120); 

$text1->configure(-command => sub { 
    $showlabel->configure(-text => "You selected:\t" . 
          $text1->getSelected() 
         ) 
    } 
); 

После выполнения кода, $showlabel не обновляется всякий раз, когда я выделяю любой текст. Может ли кто-нибудь помочь?

Answer 1

EDIT: код без кнопки.

И не забудьте позвонить MainLoop в конце вашей программы, чтобы отобразить окно. Без этого ничего никогда не произойдет.

Попробуйте это:

use strict; 
use warnings; 

use Tk; 

my $mw = new MainWindow; 
my $text1 = $mw->Text(-width => 20, -height => 10) 
        ->place(-x => 350, -y => 460); 
my $showlabel = $mw->Label(-text => "nothing selectd") 
         ->place(-x => 50, -y => 120); 
$text1->bind('<KeyPress>'  , \&sel); 
$text1->bind('<ButtonPress>' , \&sel); 
$text1->bind('<ButtonRelease>', \&sel); 

MainLoop; 

sub sel 
{ 
    $showlabel->configure(-text => "You selected:\t" . $text1->getSelected); 
} 

Answer 2

Используйте это:

$text1->bind('<<Selection>>', sub { 
    $showlabel->configure(-text => "You selected:\t".$text1->getSelected()) 
});