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
|
#!/usr/bin/perl -w
# vim: set ft=perl :
use strict;
use Gtk2::TestHelper
tests => 21,
at_least_version => [2, 10, 0, "GtkAssistant is new in 2.10"];
#struct _GtkAssistant
#{
# GtkWindow parent;
#
# GtkWidget *cancel;
# GtkWidget *forward;
# GtkWidget *back;
# GtkWidget *apply;
# GtkWidget *close;
# GtkWidget *last;
#
# /*< private >*/
# GtkAssistantPrivate *priv;
#};
#typedef gint (*GtkAssistantPageFunc) (gint current_page, gpointer data);
my $assistant = Gtk2::Assistant->new;
isa_ok ($assistant, 'Gtk2::Assistant');
isa_ok ($assistant, 'Gtk2::Window');
# add some pages...
sub make_a_page {
my $label = Gtk2::Label->new (shift);
$label->show;
return $label;
}
is ($assistant->append_page (make_a_page ("appended")), 0);
is ($assistant->prepend_page (make_a_page ("prepended")), 0);
is ($assistant->insert_page (make_a_page ("inserted first"), 0), 0);
is ($assistant->insert_page (make_a_page ("inserted at 2"), 2), 2);
is ($assistant->insert_page (make_a_page ("inserted last"), -1), 4);
is ($assistant->get_n_pages, 5);
is ($assistant->get_current_page (), -1, "none set yet");
$assistant->set_current_page (3);
is ($assistant->get_current_page (), 3);
ok (! $assistant->get_nth_page (-1));
my $page = $assistant->get_nth_page (2);
isa_ok ($page, 'Gtk2::Widget');
$assistant->set_page_title ($page, "a title");
is ($assistant->get_page_title ($page), "a title");
$assistant->set_page_type ($page, "content");
is ($assistant->get_page_type ($page), "content");
ok (!$assistant->get_page_complete ($page));
$assistant->set_page_complete ($page, TRUE);
ok ($assistant->get_page_complete ($page));
my $header_image = Gtk2::Gdk::Pixbuf->new ('rgb', FALSE, 8, 45, 20);
my $side_image = Gtk2::Gdk::Pixbuf->new ('rgb', FALSE, 8, 20, 45);
ok (!$assistant->get_page_header_image ($page));
$assistant->set_page_header_image ($page, $header_image);
is ($assistant->get_page_header_image ($page), $header_image);
ok (!$assistant->get_page_side_image ($page));
$assistant->set_page_side_image ($page, $side_image);
is ($assistant->get_page_side_image ($page), $side_image);
my $button = Gtk2::Button->new ("extra");
$assistant->add_action_widget ($button);
$assistant->remove_action_widget ($button);
$assistant->update_buttons_state ();
$assistant->set_forward_page_func (\&page_func);
sub page_func {
ok (1);
}
|
