in reply to Tk problem: keep sober while in callback

during your lengthy calculations call sometimes 
$widget->update;

[download]
that's all.

In Section Seekers of Perl Wisdom