From 78397d458e73613f1440c0aeb0e87e0c5b31ebc9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 23 Nov 2013 01:17:48 +0100 Subject: create_factory_*: drop them rationale: ItemFactory was deprecated prior to Gtk3 and we must migrate to UIManager or Builder anyway... --- perl-install/ugtk3.pm | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'perl-install/ugtk3.pm') diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index 0fab42f84..75d6ca5c7 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -21,7 +21,7 @@ use locale; get_default_step_items set_default_step_items string_size string_width) ], - create => [ qw(create_adjustment create_box_with_title create_dialog create_factory_menu create_factory_popup_menu + create => [ qw(create_adjustment create_box_with_title create_dialog create_hbox create_hpaned create_menu create_notebook create_okcancel create_packtable create_scrolled_window create_vbox create_vpaned _create_dialog gtkcreate_frame) ], @@ -453,17 +453,6 @@ sub err_dialog { sub create_hbox { gtknew('HButtonBox', layout => $_[0]) } sub create_vbox { gtknew('VButtonBox', layout => $_[0]) } -sub create_factory_menu_ { - my ($type, $name, $window, @menu_items) = @_; - my $widget = Gtk3::ItemFactory->new($type, $name, my $accel_group = Gtk3::AccelGroup->new); - $widget->create_items($window, @menu_items); - $window->add_accel_group($accel_group); - ($widget->get_widget($name), $widget); -} - -sub create_factory_popup_menu { create_factory_menu_("Gtk3::Menu", '
', @_) } -sub create_factory_menu { create_factory_menu_("Gtk3::MenuBar", '
', @_) } - sub create_menu { my $title = shift; my $w = Gtk3::MenuItem->new($title); -- cgit v1.2.1