move tlperl.straw to tlperl

git-svn-id: svn://tug.org/texlive/trunk@18210 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 0 insertions, 83 deletions

diff --git a/Master/tlpkg/tlperl.straw/bin/tkjpeg.bat b/Master/tlpkg/tlperl.straw/bin/tkjpeg.bat
deleted file mode 100755
index a09abd6075a..00000000000
--- a/Master/tlpkg/tlperl.straw/bin/tkjpeg.bat
+++ /dev/null
@@ -1,83 +0,0 @@
-@rem = '--*-Perl-*--

-@echo off

-if "%OS%" == "Windows_NT" goto WinNT

-perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9

-goto endofperl

-:WinNT

-perl -x -S %0 %*

-if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl

-if %errorlevel% == 9009 echo You do not have Perl in your PATH.

-if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul

-goto endofperl

-@rem ';

-#!/usr/local/bin/perl -w

-#line 15

-use strict;

-use Tk;

-use Tk::JPEG;

-use Getopt::Std;

-eval { require Tk::PNG; };

-

-my $mw  = MainWindow->new();

-print "vis=",$mw->visual," d=",$mw->depth,"\n";

-my ($vis) = grep(!/\b8\b/,grep(/truecolor/,$mw->visualsavailable));

-my @args = ();

-if ($vis)

- {

-  # print $vis,"\n";

-  $mw->destroy;

-  $mw = MainWindow->new(-visual => $vis);

- }

-else

- {

-  @args = (-palette => '4/4/4');

- }

-# print "vis=",$mw->visual," d=",$mw->depth,' "',join('" "',$mw->visualsavailable),"\"\n";

-my %opt;

-getopts('f:',\%opt);

-if ($opt{'f'})

- {

-  push(@args,'-format' => $opt{'f'});

- }

-unless (@ARGV)

- {

-  warn "usage $0 [-f format] <imagefile>\n";

-  exit 1;

- }

-my $file = shift;

-my $image = $mw->Photo(-file => $file, @args);

-#print join(' ',$image->formats),"\n";

-print "w=",$image->width," h=",$image->height,"\n";

-$mw->Label(-image => $image)->pack(-expand => 1, -fill => 'both');

-$mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack;

-MainLoop;

-

-__END__

-

-=head1 NAME

-

-tkjpeg - simple JPEG viewer using perl/Tk

-

-=head1 SYNOPSIS

-

-  tkjpeg imagefile.jpg

-

-=head1 DESCRIPTION

-

-Very simplistic image viewer that loads JPEG image, (well actually

-anything for which Photo has a handler) and puts it into a

-Label for display.

-

-It tries to find a fullcolour visual to use if display is deeper than

-8-bit. (On 8-bit it uses a 4/4/4 palette.)

-

-=head1 AUTHOR

-

-Nick Ing-Simmons <nick@ing-simmons.net>

-

-=cut

-

-

-

-__END__

-:endofperl