File: tiny

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 (17 lines) | stat: -rwxr-xr-x 281 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/local/bin/perl -w

use Tk;
use Tk::Xrm;

{
 my $top = MainWindow->new();
 my $w = $top->Button(-text => 'Quit',-command => ['destroy',$top])->pack;
 while (MainWindow->Count)
  {
   Tk->DoOneEvent;
  }
}
print "done:  Enter text:";
print "Text is: ",scalar(<STDIN>),"\n";