GUI freeze - Perl Tk
I have developed a small application using Perl/Tk. The application will fetch data from the web when on开发者_JS百科e 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.
Have never tried this, but this PerlMonks thread from 2008 "Perl Tk and Threads" might help you get going.
精彩评论