NAME

Tk - a graphical user interface toolkit for Perl

SYNOPSIS

            

              
              
use Tk;
$top = new MainWindow;
MainLoop;
            
          

DESCRIPTION

The Perl/Tk manual is split up into a number of sections:

END

            

              
              
my $no_link = 0;
foreach my $cat (@cat)
 {
  $no_link = ($cat =~ /C Programming/);
  print POD "=head2 $cat\n\n=over 4\n\n";
  foreach my $file (sort { lc($a) cmp lc($b) } @{$cat{$cat}})
   {
    my($base) = fileparse($file, ".(pod|pm)");
    if ($no_link)
     {
      print POD "=item *\n\n$base\n\n";
     }
    else
     {
      my $mod = "Tk::" . $base;
      print POD "=item *\n\nL<$mod|$mod>\n\n";
     }
   }
  print POD "=back\n\n";
 }
print POD <<END;
            
          

AUTHOR

Nick Ing-Simmons

SEE ALSO

perl(1), wish(1).