Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
$t->pack(-expand => 1, -fill => 'both');

Tk::MainLoop;
  2. or download this
    #!/usr/bin/perl
use warnings;
...
print $text->eventInfo('<<Bogus>>');

MainLoop;
  3. or download this
    #!/usr/bin/perl
use warnings;
...
print $text->eventInfo('<<Bogus>>');

MainLoop;