1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#!/usr/bin/perl -w
# vim: set ft=perl :
use strict;
use Gtk2::TestHelper
tests => 25,
at_least_version => [2, 2, 0, "GdkScreen is new in 2.2"];
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkScreen.t,v 1.7 2006/08/07 18:36:02 kaffeetisch Exp $
my $screen = Gtk2::Gdk::Screen -> get_default();
isa_ok($screen, "Gtk2::Gdk::Screen");
my $colormap = $screen -> get_default_colormap();
isa_ok($colormap, "Gtk2::Gdk::Colormap");
$screen -> set_default_colormap($colormap);
isa_ok($screen -> get_system_colormap(), "Gtk2::Gdk::Colormap");
isa_ok($screen -> get_system_visual(), "Gtk2::Gdk::Visual");
isa_ok($screen -> get_rgb_colormap(), "Gtk2::Gdk::Colormap");
isa_ok($screen -> get_rgb_visual(), "Gtk2::Gdk::Visual");
isa_ok($screen -> get_root_window(), "Gtk2::Gdk::Window");
isa_ok($screen -> get_display(), "Gtk2::Gdk::Display");
like($screen -> get_number(), qr/^\d+$/);
like($screen -> get_width(), qr/^\d+$/);
like($screen -> get_height(), qr/^\d+$/);
like($screen -> get_width_mm(), qr/^\d+$/);
like($screen -> get_height_mm(), qr/^\d+$/);
like($screen -> get_n_monitors(), qr/^\d+$/);
like($screen -> get_monitor_at_point(10, 10), qr/^\d+$/);
like($screen -> get_monitor_at_window($screen -> get_root_window()), qr/^\d+$/);
isa_ok(($screen -> list_visuals())[0], "Gtk2::Gdk::Visual");
$screen -> get_toplevel_windows(); # check retval?
ok(defined($screen -> make_display_name()));
isa_ok($screen -> get_monitor_geometry(0), "Gtk2::Gdk::Rectangle");
# i'm not sure if it's good to do that.
$screen -> broadcast_client_message(Gtk2::Gdk::Event -> new("expose"));
# FIXME: warn $screen -> get_setting("double_click_interval");
SKIP: {
skip("new 2.8 stuff", 2)
unless Gtk2->CHECK_VERSION (2, 8, 0);
my $visual = $screen -> get_rgba_visual();
skip "visual stuff", 2
unless defined $visual;
isa_ok($visual, "Gtk2::Gdk::Visual");
isa_ok($screen -> get_rgba_colormap(), "Gtk2::Gdk::Colormap");
}
SKIP: {
skip "new 2.10 stuff", 4
unless Gtk2->CHECK_VERSION (2, 10, 0);
my $dpi = $screen->get_resolution;
ok ($dpi);
$screen->set_resolution ($dpi);
my @stack = $screen->get_window_stack;
if (@stack > 0) {
isa_ok ($stack[0], "Gtk2::Gdk::Window");
} else {
ok (1);
}
skip "cairo stuff", 2
unless UNIVERSAL::can("Cairo::FontOptions", "create");
my $options = Cairo::FontOptions->create;
$screen->set_font_options (undef);
is ($screen->get_font_options, undef);
$screen->set_font_options ($options);
isa_ok ($screen->get_font_options, "Cairo::FontOptions");
}
__END__
Copyright (C) 2003-2005 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.
|
