#!/usr/bin/perl -w

use Gtk2 -init;
use Glib qw(TRUE FALSE);

use Image::Base;
use Image::Base::Imlib2;
use Image::Base::Gtk2::Gdk::Image;
use Image::Base::Gtk2::Gdk::Drawable;

$win = Gtk2::Window->new;

my $vbox = Gtk2::VBox->new;
$win->add($vbox);

my $canvas = Image::Base::Gtk2::Gdk::Drawable->new ( -window => $win, -width => 800, -height => 700 );

$vbox->pack_start($canvas, FALSE, FALSE, 5 );

$filename = "01.Kudu.jpeg";
my $image = Image::Base::Imlib2->new (-file => $filename );

#$canvas = $image->clone;

$win->show_all;

Gtk2->main;