For some reason the callback function is now executed immediately... $button->after(0, [\&update, \$prog ]);
What do you think that 0 (zero) that you have as the first argument to ->after() means?
In reply to Re^3: Perl Tk Asynchronous Progress Updates
by BrowserUk
in thread Perl Tk Asynchronous Progress Updates
by hermes1908
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |