#!/usr/bin/perl -w

#

# image thumbnails and liststore

#

use strict;

use Gtk2 -init;

my $window = Gtk2::Window->new;

$window->set_default_size( 650, 650 );

# the ListStore model that actually holds the 

#  data ..a picture and a filename

my $model = Gtk2::ListStore->new ('Gtk2::Gdk::Pixbuf', 'Glib::String');

my @files = <*.jpg *.png *.gif>;

#print "@files\n";

foreach my $file (@files){

    print "Processing $file...\n";

    my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file_at_scale($file,100,100,1);

    my $iter = $model->append;

    $model->set($iter,

                0, $pixbuf,

                1, $file,

               );

}

# now make the actual treeview renderer

my $treeview = Gtk2::TreeView->new ($model);

$treeview->set_headers_visible (0);

$treeview->insert_column_with_attributes(

                                         -1, # append

                                         "", # this won't be visible because we turned off headings

                                         Gtk2::CellRendererPixbuf->new,  # the renderer

                                         pixbuf => 0);  # get the pixbuf property from model col 0

$treeview->insert_column_with_attributes(

                                         -1, # append

                                         "", # this won't be visible because we turned off headings

                                         Gtk2::CellRendererText->new(),  # the renderer

                                         text => 1);  # get the property from model col 1

$treeview->get_selection->signal_connect (changed => sub {

                                             my $treeselection = $treeview->get_selection;

                                             #print "$treeselection\n";

                                             $treeselection->selected_foreach (sub{ 

#this sub wil receive the following:

my ($model,$path,$iter) =@_;

#we want data at the model's column 1  

#where the iter is pointing

my $value = $model->get($iter,1);

#print $value."\n";

load_image( "./$value" );

});    

                                         });

my $hbox = Gtk2::HBox->new (0, 4);

my $scwin = Gtk2::ScrolledWindow->new();

$scwin->set_size_request( 250, 250 );

$scwin->add_with_viewport($treeview);

$scwin->set_policy('always', 'always');

$hbox->pack_start($scwin,0,1,1);

my $vp = Gtk2::Viewport->new( undef, undef );

my $scwin1 = Gtk2::ScrolledWindow->new( undef, undef );

$scwin1->set_policy( 'automatic', 'automatic' );

$scwin1->add( $vp );

$hbox->pack_start($scwin1,1,1,1);

my $image = Gtk2::Image->new();

$vp->add($image);

$window->add ($hbox);

$window->show_all;

$window->signal_connect (destroy => sub {Gtk2->main_quit});

Gtk2->main;

###################################

sub load_image {

    my $file = shift  or warn "$!\n";

    $image->set_from_file ($file);

    $window->show_all();

}