in reply to Re: Tk::ExecuteCommand - GUI not responding by executing longer running script
in thread Tk::ExecuteCommand - GUI not responding by executing longer running script
and the sleep.pl for testing:use Tk; require Tk::ExecuteCommand; $top = MainWindow->new; $executecommand = $top->ExecuteCommand( -height => 10, -scrollbars => +'se', bg => 'white')->pack( -expand => 'yes', -fill => 'both' ); $executecommand->terse_gui; $executecommand->bell; $executecommand->update; $b_savelog = $top->Button( -text => "Start script", -width => 12, -command => sub { $executecommand->configure( -command => "sleep.pl"); $executecommand->execute_command; } )->pack( -side => 'right' ); MainLoop;
...in the real application I start script which finds specified files in filesystem, parses them and then starts some other scripts ... which takes several minutesprint "Starting..."; sleep 10; print "end\n";
|
|---|