TK screen problem

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: TK screen problem by Sandy (Curate) on Oct 31, 2008 at 14:37 UTC
If your Tk program is busy doing stuff when you switch to and from another window, then the Tk image will not be re-drawn. So, as anon suggested, pepper your code with $mw->update() in long loops, or processing sections etc. For efficiency sake (i.e. don't slow down your program) do NOT `foreach my $i (1..10000) { ... do stuff $mw->update(); }` [download] instead, only update sometimes (every 100 iterations perhaps?) `foreach my $i (1..10000) { ... do stuff if (int($i/100)*100 == $i) { $mw->update(); } }` [download]	[reply] [d/l] [select]
Re^2: TK screen problem by lostjimmy (Chaplain) on Oct 31, 2008 at 16:18 UTC
`if (int($i/100)*100 == $i) {` [download] That can be more concisely written as `if ($i % 100 == 0) {`	[reply] [d/l] [select]
Re^3: TK screen problem by Lawliet (Curate) on Oct 31, 2008 at 18:42 UTC
Or: `unless ($i % 100) {` :P I'm so adjective, I verb nouns! chomp; # nom nom nom	[reply] [d/l]
Re: TK screen problem by zentara (Cardinal) on Oct 31, 2008 at 20:28 UTC
The advice to use "mw->update;" sprinkled everywhere indicates a bad Tk program design. You are blocking the eventloop somewhere, and you can probably write your code differently to avoid the problem. You need to show all your code, or a smaller version that demonstrates the problem. I'm not really a human, but I play one on earth Remember How Lucky You Are	[reply]
Re: TK screen problem by Anonymous Monk on Oct 31, 2008 at 14:19 UTC
Bug in your code or bug in tk, try `$mw->update`	[reply] [d/l]