home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / bin / tkpod.bat < prev    next >
Encoding:
DOS Batch File  |  1997-08-10  |  482 b   |  34 lines
  1. @rem = '--*-Perl-*--
  2. @echo off
  3. perl -x -S %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
  4. goto endofperl
  5. @rem ';
  6. #!/usr/local/bin/perl -w
  7. #line 8
  8. use Tk;
  9. require Tk::ErrorDialog;
  10. require Tk::Pod;
  11.  
  12. $top = MainWindow->new();
  13. $top->withdraw;
  14.  
  15. @ARGV = "Tk" unless (@ARGV);
  16.  
  17. foreach $file (@ARGV)
  18.  {
  19.   if (-d $file)
  20.    {
  21.     Tk::Pod->Dir($file);
  22.    }
  23.   else
  24.    {
  25.     $top->Pod(-file => $file);
  26.    }
  27.  }
  28.  
  29. $top->destroy unless ($top->children);
  30.  
  31. MainLoop;
  32. __END__
  33. :endofperl
  34.