[EMAIL PROTECTED] wrote: >> Hi All! >> In the following snippet: >> ==== >> use strict; >> use Tk; >> require Tk::LabFrame; >> my $top = new MainWindow; >> my $bar=$top->LabFrame(-label => 'buttons bar'); >> $bar->pack; >> my $exi=$bar->Button(-command=>\&exi,-text=>'exit'); >> $exi->pack(-side=>'left'); >> my $prg=$bar->Button(-command=>\&prg,-text=>'prg'); >> $prg->pack(-side=>'left'); >> my $fr=$top->LabFrame(); >> $fr->configure(-height=>'5',-width=>"30"); >> $fr->pack(-fill=>'none'); >> my $text0=$fr->Text(); >> $text0->configure(-height=>'10',-width=>"20"); >> $text0->pack(-side=>'top',-fill=>'none'); >> MainLoop; >> sub exi{ >> $top->destroy; >> } >> sub prg{ >> for (my $i=0;$i<20;$i++){ >> $text0->delete('0.0','end'); >> $text0->insert('end',"$i\n"); >> sleep 1; >> } >> } >> ==== >> When executing this snippet >> I see in text0 only the last $i /in for cycle/ >> What I must add to prg code >> in order to see all consequtive values of $i ?
I believe it's becuase you're not getting back to MainLoop to update the display. You could put the prg sub on a timer and handle it that way or force a screen update with '$text0->update;' in the prg loop. ++++++++++++++++++++++++++++++++ Thanks to all ! I received even more than I asked for ! It is a Great List! update is the answer. ======= I looked for no special effects - I only wanted to implement status line in my perl-Tk to register starting -stopping of applications ...etc _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs