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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
#!/usr/bin/perl -w
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/02.GtkContainer.t,v 1.5 2004/02/03 22:27:20 kaffeetisch Exp $
use Gtk2::TestHelper tests => 23, noinit => 1;
# we'll create some containers (windows and boxes are containers) and
# mess around with some of the methods to make sure they do things.
my $window = Gtk2::Window->new;
my $vbox = Gtk2::VBox->new;
is ($window->child_type, 'Gtk2::Widget', 'a window wants a widget');
# i think we'd know if $container->add didn't work
$window->add ($vbox);
ok (1, 'added a widget to the window');
$window->set_focus_child($vbox);
ok(1);
my $adjustment = Gtk2::Adjustment->new(0, 0, 100, 5, 10, 20);
$window->set_focus_vadjustment($adjustment);
is($window->get_focus_vadjustment, $adjustment);
$window->set_focus_hadjustment($adjustment);
is($window->get_focus_hadjustment, $adjustment);
$window->resize_children;
ok(1);
$window->set_border_width(10);
is($window->get_border_width, 10);
my $expose_event = Gtk2::Gdk::Event->new("expose");
$window->propagate_expose($vbox, $expose_event);
ok(1);
# child_type returns undef when no more children may be added
#ok (!defined ($window->child_type),
# 'child_type returns undef when the container is full');
is ($window->get_child, $vbox,
'the window\'s child is set');
is ($vbox->child_type, 'Gtk2::Widget', 'a box wants a widget');
$vbox->pack_start (Gtk2::Label->new ("one"), 1, 1, 0);
is ($vbox->child_type, 'Gtk2::Widget', 'a box is always hungry');
my $entry = Gtk2::Entry->new ();
# let's dump in a few more quickly
$vbox->pack_start (Gtk2::Button->new ("two"), 1, 1, 0);
$vbox->pack_start (Gtk2::ToggleButton->new ("three"), 1, 1, 0);
$vbox->pack_start (Gtk2::CheckButton->new ("four"), 1, 1, 0);
$vbox->pack_start ($entry, 1, 1, 0);
is_deeply ([$vbox->child_get ($entry, qw(expand fill pack-type padding position))],
[1, 1, "start", 0, 4]);
$vbox->child_set ($entry, expand => 0, position => 2);
$vbox->child_set_property ($entry, fill => 0);
is_deeply ([$vbox->child_get_property ($entry, qw(expand fill pack-type padding position))],
[0, 0, "start", 0, 2]);
my $label = Gtk2::Label->new ("Blub");
$vbox->add_with_properties ($label, pack_type => "end", position => 4);
is_deeply ([$vbox->child_get ($label, qw(pack-type position))],
["end", 4]);
$vbox->remove ($label);
my @children = $vbox->get_children;
is (scalar (@children), 5, 'we packed five children');
my @chain = $vbox->get_focus_chain;
is (scalar (@chain), 0, 'we have not set a focus chain');
# set focus chain to focusable children in reverse order
@chain = reverse map { $_->can_focus ? $_ : () } @children;
$vbox->set_focus_chain (@chain);
eq_array( [$vbox->get_focus_chain], \@chain, 'focus chain took');
$vbox->unset_focus_chain;
is_deeply([$vbox->get_focus_chain], []);
# togglebuttons suck. wipe them out... all of them.
my $nremoved = 0;
$vbox->foreach (sub {
if ('Gtk2::ToggleButton' eq ref $_[0]) {
$vbox->remove ($_[0]);
$nremoved++;
}
});
is ($nremoved, 1, 'removed one toggle');
@children = $vbox->get_children;
is (scalar (@children), 4, 'four children remain');
is ($vbox->get_resize_mode, 'parent');
$vbox->set_resize_mode ('queue');
is ($vbox->get_resize_mode, 'queue');
$vbox->check_resize;
ok(1);
$vbox->set_reallocate_redraws(1);
ok(1);
#$window->show_all;
#Gtk2->main;
__END__
Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.
|
