#!/usr/bin/perl -w
#TITLE: GdkPixbuf
#REQUIRES: Gtk GdkPixbuf
use Gtk::Gdk::Pixbuf;
init Gtk;
$file = shift || '../../Gtk/samples/xpm/marble.xpm';
die "Can't find '$file'\n" unless -f $file;
$w = new Gtk::Window;
$w->signal_connect('delete_event', sub {Gtk->exit(0)});
$w->set_app_paintable(1);
$pb = new_from_file Gtk::Gdk::Pixbuf($file);
print "width ", $pb->get_width(), ", height ", $pb->get_height(), "\n" if $pb;
# kill 19, $$;
$w->signal_connect('expose_event', sub {
# slow
$pb->render_to_drawable_alpha($w->window,
0, 0, 0, 0,
$pb->get_width(), $pb->get_height(),
0, 50, 0, 0, 0);
1;
});
$w->set_usize($pb->get_width(), $pb->get_height());
$w->show_all;
#$w2 = new Gtk::Window;
#$w2->signal_connect('delete_event', sub {Gtk->exit(0)});
#$w2->set_app_paintable(1);
Gtk->main();