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
|
#!/usr/bin/perl -w
use strict;
use Gnome2;
use constant TESTS => 2;
use Test::More tests => TESTS;
# $Id$
###############################################################################
SKIP: {
our $application;
do "t/TestBoilerplate";
#############################################################################
my $menubar_info = [
{ type => "item", label => "Item", callback => sub { warn @_; } },
{ type => "toggleitem", label => "Toggle", callback => sub { warn @_; } },
{
type => "subtree",
label => "Radio Items",
subtree => [
{
type => "radioitems",
moreinfo => [
{
type => "item",
label => "A",
callback => sub { warn @_; },
hint => "Don't click me!"
},
{
type => "item",
label => "B"
},
{
type => "item",
label => "C"
},
{
type => "item",
label => "D"
},
{
type => "item",
label => "E"
}
]
}
]
},
{
type => "subtree",
label => "Help Me, PLEASE!",
subtree => [
{
type => "help",
moreinfo => "test"
}
]
},
];
my $toolbar_info = [
[ "item", "Item", undef, sub { warn @_; }, undef, undef, undef, undef ],
{ type => "separator" },
{ type => "toggleitem", label => "Toggle", callback => sub { warn @_; } }
];
#############################################################################
Gnome2 -> accelerators_sync();
my $app = Gnome2::App -> new("test", "Test");
my $accel_group = Gtk2::AccelGroup -> new();
my $menubar = Gtk2::MenuBar -> new();
my $toolbar = Gtk2::Toolbar -> new();
$menubar -> fill_menu($menubar_info, $accel_group, 1, 1);
$toolbar -> fill_toolbar($toolbar_info, $accel_group);
$app -> create_menus($menubar_info);
$app -> create_toolbar($toolbar_info);
$app -> insert_menus("Toggle", $menubar_info);
my ($widget, $pos) = $menubar -> find_menu_pos("Item");
isa_ok($widget, "Gtk2::MenuBar");
is($pos, 1);
$app -> remove_menus("Item", 1);
$app -> remove_menu_range("Toggle", 1, 2);
my $dock_item = Gnome2::Bonobo::DockItem -> new("dock item", "normal");
my $dock_toolbar = Gtk2::Toolbar -> new();
$dock_item -> add($dock_toolbar);
$app -> setup_toolbar($dock_toolbar, $dock_item);
my $appbar = Gnome2::AppBar -> new(1, 1, "always");
my $statusbar = Gtk2::Statusbar -> new();
$app -> set_statusbar($appbar);
$appbar -> install_menu_hints($menubar_info);
$statusbar -> install_menu_hints($menubar_info);
$app -> install_menu_hints($menubar_info);
}
|
