#!/usr/local/bin/perl -w
use Tk;
use Tk::widgets qw/ Thumbnail /;
use strict;

die "Usage: tkthumb (v $Tk::Thumbnail::VERSION) image-file1 image-file2 ..." unless @ARGV;

my $mw = MainWindow->new;

$mw->Scrolled(
    'Thumbnail',
    -images  => [ @ARGV ],
    -ilabels => 1,
    qw/ -width 300 -height 300 -scrollbars osow /,
)->pack( qw/ -fill both -expand 1 / );

MainLoop;
