GUI заморозить - Perl Tk - PullRequest
1 голос
/ 13 мая 2011

Я разработал небольшое приложение, используя Perl / Tk.Приложение будет извлекать данные из Интернета при нажатии одной из кнопок в приложении.Но проблема в том, что GUI зависает до тех пор, пока управление не будет возвращено.Я знаю, что это связано с задержкой, поэтому главное окно не отвечает.Я использовал функцию update (), но проблема остается.Так что я заглянул в Google и узнал, что мы можем использовать темы, чтобы преодолеть эту проблему.Но я не уверен, как использовать потоки в Perl / Tk.Вот мой пример кода

use warnings;
use Tk;

my $mw = new MainWindow;

my $button = $mw -> Button(-text => "Fetch", 
        -command => \&FetchData)
    -> pack();
MainLoop;

sub FetchData
{
//Fetching data from Web
}

Заранее спасибо.

1 Ответ

3 голосов
/ 13 мая 2011

Никогда не пробовал этого, но этот поток PerlMonks 2008 года "Perl Tk and Threads" может помочь вам начать работу.

...