# HG changeset patch
# User Peter Gervai <grin@grin.hu>
# Date 1224163756 -7200
# Node ID e1efc7395f84262e534f3222e7d414d4732424c9
# Parent  689bf4b363c3b9e7cf0d8104cfcb5216d01b1005
Adding sample: image thumbnail viewer

diff -r 689bf4b363c3 -r e1efc7395f84 sample_images_thumbnail.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sample_images_thumbnail.pl	Thu Oct 16 15:29:16 2008 +0200
@@ -0,0 +1,92 @@
+#!/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();
+}