File: tiehandle

package info (click to toggle)
perl-tk 1%3A400.202-9
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 12,264 kB
  • ctags: 11,716
  • sloc: ansic: 131,714; perl: 27,874; tcl: 622; sh: 72; makefile: 61
file content (14 lines) | stat: -rw-r--r-- 217 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/local/bin/perl -w

use Tk;

my $mw = MainWindow->new;
my $t  = $mw->Scrolled('Text');
$t->pack(-expand => 1, -fill => 'both');

# tie (*TEXT,'Tk::Text',$t);
tie (*TEXT,$t);

print TEXT "Hi there\n";

MainLoop;