home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / bin / tkpod < prev    next >
Encoding:
Text File  |  1997-08-10  |  327 b   |  26 lines
  1. #!/usr/local/bin/perl -w
  2. use Tk;
  3. require Tk::ErrorDialog;
  4. require Tk::Pod;
  5.  
  6. $top = MainWindow->new();
  7. $top->withdraw;
  8.  
  9. @ARGV = "Tk" unless (@ARGV);
  10.  
  11. foreach $file (@ARGV)
  12.  {
  13.   if (-d $file)
  14.    {
  15.     Tk::Pod->Dir($file);
  16.    }
  17.   else
  18.    {
  19.     $top->Pod(-file => $file);
  20.    }
  21.  }
  22.  
  23. $top->destroy unless ($top->children);
  24.  
  25. MainLoop;
  26.