#!/usr/bin/perl -w
use strict;
use Gtk2::TestHelper tests => 6;
# $Id$
my $window = Gtk2::Window -> new();
$window -> realize();
SKIP: {
skip("I need X11 for this", 6)
unless ($window -> window() -> can("get_xid"));
my $xid = $window -> window() -> get_xid();
isa_ok(Gtk2::Gdk::Pixmap -> foreign_new($xid), "Gtk2::Gdk::Pixmap");
isa_ok(Gtk2::Gdk::Pixmap -> lookup($xid), "Gtk2::Gdk::Pixmap");
SKIP: {
skip("GdkDisplay is new in 2.2", 3)
unless Gtk2 -> CHECK_VERSION(2, 2, 0);
my $display = Gtk2::Gdk::Display -> get_default();
isa_ok(Gtk2::Gdk::Pixmap -> foreign_new_for_display($display, $xid), "Gtk2::Gdk::Pixmap");
isa_ok(Gtk2::Gdk::Pixmap -> lookup_for_display($display, $xid), "Gtk2::Gdk::Pixmap");
ok (! Gtk2::Gdk::Pixmap->create_from_xpm ($window->window, undef,
'non-existent.xpm'),
'asking for non-existent xpm returns undef');
# XXX missing tests for the rest of the GdkPixmap API.
}
SKIP: {
skip("2.10 stuff", 1)
unless Gtk2 -> CHECK_VERSION(2, 10, 0);
my $screen = Gtk2::Gdk::Screen -> get_default();
my $pixmap =
Gtk2::Gdk::Pixmap -> foreign_new_for_screen($screen, $xid, 23, 42, 16);
isa_ok($pixmap, "Gtk2::Gdk::Pixmap");
}
}
__END__
Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.