Opened by pktm at 2007-11-07 13:55
User since
2007-09-24
70 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-09-24
70 Artikel
BenutzerIn
Hallo,
falls du so etwas meinst:
aus perldoc Tk::Text :
falls du so etwas meinst:
aus perldoc Tk::Text :
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
use Tk;
use strict;
my $mw = MainWindow->new;
my $text = $mw->Text(qw/-width 40 -height 10/)->pack;
tie *STDOUT, ref $text, $text;
print "Hello Text World!\n";
MainLoop;