Quote

TIED INTERFACE

The Perl/Tk Text widget also has built-in TIEHANDLE methods for print and printf statements. This means you can print to file handles tied to a Text widget, and the tied methods automatically insert the print statement's arguments into the Text widget.

For example:

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14

 #!/usr/local/bin/perl -w
 use POSIX 'acos';
 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";
 printf "pi ~= %1.5f", acos(-1.0);

 MainLoop;