Thank you. I catch your mind, this is just a demo. I need display info on text widget immediately after insert method,no buffer,not wait 3 seconds and then display whole info. Can I?
| [reply] [Watch: Dir/Any] |
#!/usr/bin/perl -w
use strict;
use Tk;
$| = 1;
my $mw = MainWindow->new;
my $text = $mw->Text->pack;
my $bt = $mw->Button(-text => 'insert',
-command => sub {&test_insert})->pack;
MainLoop;
sub test_insert{
for (1..3){
$text->insert('end', "$_\n");
}
}
or you may not be showing the real code you need to use. If you are trying to display something from some other source, and the Text widget isn't displaying it right away, you can try putting a "$mw->update" or a "$text->update" right after your insert statement. This timer may be what you are looking for, otherwise explain in greater detail what you are actually trying to display.
#!/usr/bin/perl -w
use strict;
use Tk;
$| = 1;
my $mw = MainWindow->new;
my $text = $mw->Text->pack;
my $repeater = $mw->repeat(1000, \&test_insert);
MainLoop;
sub test_insert{
$text->insert('end', time."\n");
}
| [reply] [Watch: Dir/Any] [d/l] [select] |
Thank you very , the update method is my need,
add code '$text->update' after '$text->insert(...)', It works perfect, thanks again!
| [reply] [Watch: Dir/Any] |