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
122
123
124
125
126
127
|
#!/usr/bin/env perl
#
# Based on Gtk2/t/GtkDialog.t
#
BEGIN { require './t/inc/setup.pl' };
use strict;
use warnings;
plan tests => 49;
my $win = Gtk3::Window->new ('toplevel');
# a constructor-made dialog, run
my $d1 = Gtk3::Dialog->new ('Test Dialog', $win,
[qw/destroy-with-parent/],
'gtk-cancel', 2, 'gtk-quit', 3);
my $btn1 = $d1->add_button ('Another', 4);
Glib::Idle->add (sub { $btn1->clicked; 0; });
is ($d1->run, 4);
$d1->hide;
# a hand-made dialog, run
my $d2 = Gtk3::Dialog->new;
$d2->set_transient_for ($win);
$d2->add_button ('First Button', 0);
my $btn2 = $d2->add_button ('gtk-ok', 1);
$d2->add_buttons ('gtk-cancel', 2, 'gtk-quit', 3, 'Last Button', 4);
$d2->add_action_widget (Gtk3::Button->new('Uhh'), 'help');
$d2->set_default_response ('cancel');
$d2->set_response_sensitive (4, Glib::TRUE);
$d2->signal_connect (response => sub { is ($_[1], 1); 1; });
Glib::Idle->add (sub { $btn2->clicked; 0; });
is ($d2->run, 1);
$d2->hide;
# a constructor-made dialog, show
my $d3 = Gtk3::Dialog->new_with_buttons ('Test Dialog', $win,
[qw/destroy-with-parent/],
'gtk-ok', 22, 'gtk-quit', 33);
my $btn3 = $d3->add_button('Another', 44);
my $btn4 = $d3->add_button('Help', 'help');
$d3->set_response_sensitive ('help', Glib::TRUE);
is ($d3->get_response_for_widget ($btn3), 44);
is ($d3->get_response_for_widget ($btn4), 'help');
is ($d3->get_widget_for_response (44), $btn3);
is ($d3->get_widget_for_response ('help'), $btn4);
$d3->get_content_area->pack_start (Gtk3::Label->new ('This is just a test.'), 0, 0, 0);
$d3->get_action_area->pack_start (Gtk3::Label->new ('<- Actions'), 0, 0, 0);
$d3->signal_connect (response => sub { is ($_[1], 44); 1; });
$btn3->clicked;
# test whether user data are passed to the callback functions
{
my $d = Gtk3::Dialog->new;
$d->set_transient_for ($win);
my $b = $d->add_button ('First Button', 'ok');
# pass user data to the callback function
$d->signal_connect('response'=> sub {
is ($_[2], 'DATA', 'user data are passed to the callback function');
Gtk3::EVENT_STOP;
}, 'DATA');
Glib::Idle->add( sub {
$b->clicked;
Glib::SOURCE_REMOVE;
});
is ($d->run, 'ok');
$d->hide;
}
# make sure that known response types are converted to strings for the reponse
# signal of Gtk3::Dialog and its ancestors
SKIP: {
skip 'Need generic signal marshaller', 4
unless check_gi_version (1, 33, 10);
foreach my $package (qw/Gtk3::Dialog Gtk3::AboutDialog/) {
my $d = $package->new;
$d->set_transient_for ($win);
my $b = $d->add_button ('First Button', 'ok');
$d->signal_connect (response => sub {
is ($_[1], 'ok', "$package response");
Gtk3::EVENT_STOP;
});
Glib::Idle->add( sub {
$b->clicked;
Glib::SOURCE_REMOVE;
});
is ($d->run, 'ok', "$package run");
$d->hide;
}
}
{
my $d = Gtk3::Dialog->new;
$d->set_alternative_button_order (2, 3);
$d->set_alternative_button_order (qw(ok cancel accept), 3);
$d->set_alternative_button_order;
my $screen = Gtk3::Gdk::Screen::get_default;
ok (defined Gtk3::alternative_dialog_button_order ($screen));
ok (defined Gtk3::alternative_dialog_button_order (undef));
ok (defined Gtk3::alternative_dialog_button_order);
}
{
my @expectations = (
[[], Glib::FALSE, Glib::FALSE],
[['modal'], Glib::TRUE, Glib::FALSE],
[['destroy-with-parent'], Glib::FALSE, Glib::TRUE],
[['modal', 'destroy-with-parent'], Glib::TRUE, Glib::TRUE],
[Gtk3::DialogFlags->new ([]), Glib::FALSE, Glib::FALSE],
[Gtk3::DialogFlags->new (['modal']), Glib::TRUE, Glib::FALSE],
[Gtk3::DialogFlags->new (['destroy-with-parent']), Glib::FALSE, Glib::TRUE],
[Gtk3::DialogFlags->new (['modal', 'destroy-with-parent']), Glib::TRUE, Glib::TRUE],
);
foreach my $e (@expectations) {
my $d = Gtk3::Dialog->new ('Test Dialog', $win, $e->[0], 'gtk-ok', 1);
is ($d->get_modal, $e->[1]);
is ($d->get_destroy_with_parent, $e->[2]);
}
foreach my $e (@expectations) {
my $d = Gtk3::MessageDialog->new ($win, $e->[0], 'info', 'ok');
is ($d->get_modal, $e->[1]);
is ($d->get_destroy_with_parent, $e->[2]);
}
}
|
