[Tkx] Buffering/Updating issue for text element

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

Hi, Monks!

I have this code:

#!/usr/bin/perl

use strict;
use Tkx;

my $mw = Tkx::widget->new('.');

$mw->g_wm_minsize( 400, 350 );

my $btn_start = $mw->new_ttk__button( -text => "Start", -width => 60, 
+-command => sub { start(); } );

my $txt_processed_domains = $mw->new_tk__text( -width => 40, -height =
+> 10, -state => "disabled", -wrap => "none" );

Tkx::grid( $btn_start, -row => 2, -columnspan => 3, -padx => 10, -pady
+ => 10 );

Tkx::grid( $txt_processed_domains, -row => 3, -columnspan => 3, -padx 
+=> 10, -pady => 10 );

Tkx::MainLoop();

sub start {
    
    foreach my $id ( 1.. 10 ) {
    
    $txt_processed_domains->configure(-state => "normal");
    $txt_processed_domains->insert_end( "$id => Available\n" );
    $txt_processed_domains->configure(-state => "disabled");
    
    sleep 1;
    }
    
    Tkx::tk___messageBox( -message => "Completed!" );
}
[download]

I need to see which ids are processed but only get whole list at the end. It's like buffering with filehandles but i'm not sure. How to see text in the text box just after inserting it?

Update: I find Tkx::update(); do what i want!

Comment on [Tkx] Buffering/Updating issue for text element Select or Download Code

Replies are listed 'Best First'.
Re: [Tkx] Buffering/Updating issue for text element by zentara (Archbishop) on Aug 27, 2010 at 11:31 UTC
I'm not a Tkx guru, but you should never use "sleep" in a GUI app, as it will interfere with the eventloop. As others have pointed out, you can hack around a sleep statement usage, with "$mw->updates" sprinkled around, but that is a poor way to write the code. Almost always, you avoid the problem by setting up a timer, rather than use sleep. Try taking the sleep(1) out of your code, and see if that speeds up the text inserts. A timer in Tkx would look something like the following. See Tkx repeat in case you are forced to use after to simulate repeat. I don't know if Tkx has a repeat `# untested pseudocode sub start{ my @ids = (1..10); # repeat may not be available in Tkx.... see link above Tkx::repeat(1000, sub { my $id = shift @ids; if ($id <= 10){ $txt_processed_domains->configure(-state => "normal"); $txt_processed_domains->insert_end( "$id => Available\n" ); $txt_processed_domains->configure(-state => "disabled"); } else { Tkx::tk___messageBox( -message => "Completed!" ); } }); }` [download] I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply] [d/l]
Re^2: [Tkx] Buffering/Updating issue for text element by Gangabass (Vicar) on Aug 28, 2010 at 00:19 UTC
Thanks for `Tkx::repeat` but i use `sleep` only to show the issue. In real code i have HTTP request and text insert after it.	[reply] [d/l] [select]
Re^3: [Tkx] Buffering/Updating issue for text element by zentara (Archbishop) on Aug 28, 2010 at 11:46 UTC
Not to be picky about it, but don't even use sleep to demonstrate a slowdown..... in a GUI it completely gives you bad behavior. Here is one way to make a non-blocking delay without sleep #!/usr/bin/perl use warnings; use strict; use Tk; $\|=1; my $count = 0; my $loop = 0; my $mw = new MainWindow(); $mw->Label( -textvariable => \$count )->pack; $mw->Button( -text => 'Start', -command => \&long_job ) ->pack( -side => 'left' ); $mw->Button( -text => 'Stop', -command => sub { $loop = 0; print "$cou +nt\n"; } ) ->pack( -side => 'left' ); MainLoop(); sub long_job { my $var; my $timer = $mw->repeat(1000, sub{$var++} ); $loop =1; while($loop){ $loop++; $mw->waitVariable(\$var); $count++; } DoOneEvent(); } [download] I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply] [d/l]
Re^4: [Tkx] Buffering/Updating issue for text element by Anonymous Monk on Aug 28, 2010 at 11:52 UTC
Re^5: [Tkx] Buffering/Updating issue for text element by zentara (Archbishop) on Aug 28, 2010 at 12:08 UTC
Re: [Tkx] Buffering/Updating issue for text element by Anonymous Monk on Aug 27, 2010 at 10:05 UTC
If you want your widgets to change while in callbacks, you have to update, ie `$widget->update`	[reply] [d/l]
Re^2: [Tkx] Buffering/Updating issue for text element by Gangabass (Vicar) on Aug 27, 2010 at 10:23 UTC
By widget you mean whole window or only text box? For text box (`$txt_processed_domains->update;`) `bad option "update": must be bbox, cget, compare, configure, count, de +bug, delete, dlineinfo, dump, edit, get, image, index, insert, mark, +peer, replace, scan, search, see, tag, window, xview, or yview` [download] For window (`$mw->update;`): `bad option "update": must be cget or configure` [download]	[reply] [d/l] [select]
Re^3: [Tkx] Buffering/Updating issue for text element by Anonymous Monk on Aug 27, 2010 at 10:41 UTC
That was perl-Tk-ism, for Tkx apparently it is Tkx::update();	[reply]


No such thing as a small change
	PerlMonks