Re^2: Creating a non-UI event in Perl/Tk

Thank you! I now do this, and it solves my issue:

my $mw = Tk::MainWindow;
# set up all the widgets...
$mw->after(0,\&main_loop);

sub main_loop { ... }
[download]

Each iteration of the loop is a few ms, and I call $mw->update after adjusting the ProgressBar once each loop. Works like a charm, thank you again!

^{--

$me = rand($hacker{perl});}
All code, unless otherwise noted, is untested
"All it will give you though, are headaches after headaches as it misinterprets your instructions in the most innovative yet useless ways." - Maypole and I - Tales from the Frontier of a Relationship (by Corion)

Comment on Re^2: Creating a non-UI event in Perl/Tk Download Code