Perl/Tk Message buffering

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

Replies are listed 'Best First'.
Re: Perl/Tk Message buffering by SuicideJunkie (Vicar) on Dec 15, 2010 at 15:58 UTC
If you mean buffered messages to the console, then `$\|` is the special variable you're looking for. If you want text boxes in your gui to update while doing a long operation, then the Tk `DoOneEvent()` function will help.	[reply] [d/l] [select]
Re^2: Perl/Tk Message buffering by martyandpeg (Initiate) on Dec 15, 2010 at 16:21 UTC
This is a snippet of the code I was referring to. I was just starting to look at DoOneEvent(), but it did not seem to help. if ($progress_count eq '500') { print "Records processed : $record_1_count \n"; $txt -> insert('end',"Records processed : $record_1_count \n"); $progress_count = 0; DoOneEvent(); } A mainframe programmer trying to do Perl!	[reply]
Re^3: Perl/Tk Message buffering by SuicideJunkie (Vicar) on Dec 15, 2010 at 18:19 UTC
Note: Use `<code></code>` tags around your code to keep it legible. One single event isn't enough to react to updates and repaint the whole window among responding to all the minor events Windows may throw at your app. Put the DoOneEvent inside the loop you didn't show, rather than the if. That way, you'll interleave small bits of GUI action between record processing, and they'll both share the CPU. Also, look up the parameters for DoOneEvent to find the best set of options for your situation. Not waiting if there are no pending events, for example.	[reply] [d/l]
Re^3: Perl/Tk Message buffering by lamprecht (Friar) on Dec 15, 2010 at 18:10 UTC
`$txt->update` Cheers, Christoph	[reply] [d/l]
Re: Perl/Tk Message buffering by MidLifeXis (Monsignor) on Dec 15, 2010 at 15:57 UTC
See the documentation on autoflush. Update: Hmm, Tk application - not sure if this will work (I have not yet had an opportunity to write Tk), but it is worth a try. --MidLifeXis	[reply]