GUI 冻结 - Perl Tk

发布于 2024-11-07 17:01:43 字数 437 浏览 0 评论 0原文

我使用 Perl/Tk 开发了一个小型应用程序。当按下应用程序中的按钮之一时，应用程序将从网络获取数据。但问题是 GUI 会挂起，直到控制权返回为止。我知道这是由于延迟导致主窗口没有响应。我使用了 update() 函数，但问题仍然存在。所以我谷歌了一下，发现我们可以使用线程来解决这个问题。但我不确定如何在 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
}

提前致谢。

原文

I have developed a small application using Perl/Tk. The application will fetch data from the web when one of the buttons in the application is pressed. But the problem is that the GUI gets hang until control is returned. I know this is due to delay so the main window goes unresponsive. I used the update() function but still the problem persists. So I google around and came to know we can use threads to overcome this problem. But I am not sure how to use threads in Perl/Tk. Here is my sample code

use warnings;
use Tk;

my $mw = new MainWindow;

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

sub FetchData
{
//Fetching data from Web
}

Thanks in advance.

分享到QQ

分享到微博