Обновление метки Tk с помощью Thread

Question

use Thread; 
use warnings; 
use Tk; 

my $x = 10; 
my $mw = new MainWindow; 
$mw->Label(-text => 'honeywell')->place(-x => $x, -y => 50); 
my $thr = new Thread \&sub1; 

sub sub1 { 
    for ($i = 0 ; $i < 20 ; $i++) { 
     $x += 20; 
     sleep(2);    
     $mw->update; 
    } 
} 

MainLoop;       

Я пытаюсь обновить ярлык так, чтобы текст опускался. Я хочу реализовать его, используя thread.But текст os не сползает вниз. Может ли кто-нибудь мне помочь?

Answer 1

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

use strict; 
use warnings; 

use Tk; 

my $x = 10; 

my $mw = new MainWindow; 
my $label = $mw->Label(-text => 'honeywell')->place(-x => $x, -y => 50); 

$mw->repeat(2000, \&sub1); 

sub sub1 { 
    return if $x >= 400; 
    $x += 20; 
    $label->place(-x => $x, -y => 50); 
    $mw->update; 
} 

MainLoop; 

Answer 2

Я не думаю, что это когда-либо будет работать (с использованием Thread или threads).
place использует содержимое $x и не связывает переменную $x. Поэтому изменение переменной после первоначального размещения ничего не сделает с меткой.