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
|
#!/usr/bin/perl -w
use strict;
use Gnome2;
use constant TESTS => 6;
use Test::More tests => TESTS;
# $Id$
###############################################################################
SKIP: {
our $application;
do "t/TestBoilerplate";
#############################################################################
my $uiinfo = [
{ type => "item", label => "Item" },
{ type => "toggleitem", label => "Toggle" },
{
type => "subtree",
label => "Radio Items",
subtree => [
{
type => "radioitems",
moreinfo => [
{
type => "item",
label => "A"
},
{
type => "item",
label => "B",
callback => sub { warn @_; }
}
]
}
]
}
];
my $additional_uiinfo = [
{ type => "item", label => "Really?" }
];
#############################################################################
my $popup = Gnome2::PopupMenu -> new($uiinfo);
isa_ok($popup, "Gtk2::Menu");
isa_ok($popup -> get_accel_group(), "Gtk2::AccelGroup");
$popup = Gnome2::PopupMenu -> new_with_accelgroup($uiinfo);
isa_ok($popup, "Gtk2::Menu");
isa_ok($popup -> get_accel_group(), "Gtk2::AccelGroup");
$popup = Gnome2::PopupMenu -> new_with_accelgroup($uiinfo, Gtk2::AccelGroup -> new());
isa_ok($popup, "Gtk2::Menu");
isa_ok($popup -> get_accel_group(), "Gtk2::AccelGroup");
$popup -> append_from($additional_uiinfo);
my $window = Gtk2::Window -> new("toplevel");
my $button = Gtk2::Button -> new("BUH!");
$window -> add($button);
$popup -> attach_to($button);
$popup -> attach_to($button, "blub");
if (join("", Gtk2 -> get_version_info()) >= 220) {
my $event = Gtk2::Gdk::Event -> new("button_press");
$popup -> do_popup(
sub {
my ($menu) = @_;
return 23, 42;
},
undef,
$event,
"bla",
$button
);
}
# FIXME: how to make it return?
# $popup -> do_popup_modal(
# sub {
# my ($menu) = @_;
# return 23, 42;
# },
# undef,
# $event,
# "bla",
# $button
# );
$window -> add_popup_items($uiinfo);
$window -> add_popup_items($uiinfo, "blab");
}
|
