Community  »  Perl: Allgemeines Forum

Perl/TK Frage (insert)	Seitenanfang
hallo! ich habe mit hilfe des Tk-moduls eine grafische oberfläche programmiert. dabei bin ich auf ein problem gestoßen. [code]sub PrintText { while(1) { $log->insert("end", "Text"); } } [code] $log ist einfaches text-widget. PrintText wird über ein einfachen button aufgerufen. ich möchte einfach, dass solange das wort in das text-widget geschrieben wird bis ich das programme beende. beim drücken des button hängt das programm und im text-widget erscheint gar nichts. habe ich irgendwas nicht bedacht? Datum: 19.06.2006-19:03
re: Perl/TK Frage (insert)	Seitenanfang
hier das gesamte programm. #!/usr/bin/perl -w use strict; use Tk; $| = 1; # Schreib-Buffer deaktivieren my $mw = MainWindow->new(); my $frame_bottom=$mw->Frame()->pack( -side => "top" ); my $log = $mw->Text( -background => "white" ); $log->pack( -side => "top", -fill => "both" ); my $submitbutton = $frame_bottom->Button( -text => "Go", -command => \&PrintText, -width => "20" ); my $exitbutton = $frame_bottom->Button( -text => "Exit", -width => "20", -command => sub { exit; } ); $submitbutton->pack( -side => "left" ); $exitbutton->pack( -side => "left" ); MainLoop; sub PrintText { while(1) { $log->insert("end", "Text"); } Datum: 19.06.2006-19:08
re: Perl/TK Frage (insert)	Seitenanfang
Du musst das Widget updaten... sub PrintText { while(1) { $log->insert("end", "Text"); $mw->update(); # $mw ist das Hauptfenster } } Datum: 20.06.2006-09:20