Re: clickable slide show perl

[pg]

Take a look at Tk::Thumbnail, which can easily be used to render your list of pictures.

The thumbnails are by default clickable.

use Tk;
use Tk::Thumbnail;
use strict;

my @thumbnails = ("ant_logo_small.gif", "current.gif", "group-logo.gif
+");
my $mw = MainWindow->new;
$mw->geometry("600x400");
my $thumb = $mw->Thumbnail(-images => \@thumbnails, -labels =>0, -widt
+h => '50', -height => '50', -command =>\&openwin)->pack;

MainLoop;

sub openwin {
    my $tw = MainWindow->new;
    my $pic = $tw->Photo(-file=>$_[1]);
    $tw->Label(-image => $pic)->pack;
};

[jwlarson3rd]

thanks for input unfortunately that module TK::Thumbnail doesn't exists on the server. I can already populate a generated page with image buttons using the info from the database. what I need to do is when the the onclick event is generated a slide show with next prev and exit button is generated. I was thinking sub routine jwlarson3rd