60 lines of Perl code, but I don't have the text portion, so it is now the time for you to modify it:

use Tk;
use Tk::JPEG;
use File::Glob ':glob';

my $automode = 0;

my @jpgs = bsd_glob("9???.jpg");
my $index = -1;

my $mw = MainWindow->new(title => "JPEG");
$mw->geometry("800x800"); 
my $f = $mw->Frame()->pack(-fill => "both");
$f->Button(-text => "Load", -command => \&load)->pack(-side => "left",
+ -fill => "both");
my $pattern = $f->Entry(-width => 10, -text => '*')->pack(-side => "le
+ft", -fill => "both");
my $step;
$f->Button(-text => "<<", -command => sub {prev_image($step->get())})-
+>pack(-side => "left", -fill => "both");
$f->Button(-text => "<", -command => sub {prev_image(0)})->pack(-side 
+=> "left", -fill => "both");
$step = $f->Entry(-width => 3, -text => 10)->pack(-side => "left", -fi
+ll => "both");
$f->Button(-text => ">", -command => sub {next_image(0)})->pack(-side 
+=> "left", -fill => "both");
$f->Button(-text => ">>", -command => sub {next_image($step->get())})-
+>pack(-side => "left", -fill => "both");
$f->Checkbutton(-text => "Auto Mode", -onvalue => 1, -offvalue => 0, -
+variable => \$automode, -command => sub {if ($automode) {print $autom
+ode; next_image()}})->pack(-side => "left", -fill => "both");
$f->Label(-text => "Delay")->pack(-side => "left", -fill => "both");
my $delay = $f->Entry(-width => 4, -text => 1000)->pack(-side => "left
+", -fill => "both");
$f->Label(-text => "milli-second(s)")->pack(-side => "left", -fill => 
+"both");
my $image = $mw->Photo();
next_image(0);
my $button = $mw->Label(-image => $image)->pack(-side => "top", -fill 
+=> "both");

MainLoop;

sub load {
    @jpgs = bsd_glob($pattern->get());
    $index = -1;
    next_image(0);
}

sub next_image {
    $index += shift;
    $index = $#jpgs if ($index > $#jpgs);
    while ((($index + 1)<= $#jpgs) && !eval {$image->read($jpgs[++ $in
+dex], -shrink); 1}) {
    }
    if ($automode) {
        $mw->after($delay->get(), \&next_image) if (($index + 1) <= $#
+jpgs);
    }
    $mw->configure(-title => $jpgs[$index]);
    $std = undef;
}

sub prev_image {
    $index -= shift;
    $index = 0 if ($index < 0);
    $automode = 0;
    while ((($index - 1) >= 0) && !eval {$image->read($jpgs[-- $index]
+, -shrink); 1}) {
    }
    if ($index >= 0) {
        $mw->configure(-title => $jpgs[$index]);
        $std = undef;
    } 
}

[download]

In reply to Re: Using Perl to create a PowerPoint presentation by pg
in thread Using Perl to create a PowerPoint presentation by watcher@LBK

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.