- if ($? == -1) {
- # We are going to save the entire screen.
- my $root = Gtk2::Gdk->get_default_root_window ();
- my ($width, $height) = $root->get_size;
-
- # Create blank pixbuf to hold the image.
- my $gdkpixbuf = Gtk2::Gdk::Pixbuf->new ('rgb',
- 0, 8, $width, $height);
-
- $gdkpixbuf->get_from_drawable ($root, $root->get_colormap (),
- 0, 0, 0, 0, $width, $height);
-
- my $i = 0;
- $i++ while -f "screenshot$i.png";
- $gdkpixbuf->save ("screenshot$i.png", 'png');
- }
-