summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-23 01:17:48 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:53:09 +0100
commit78397d458e73613f1440c0aeb0e87e0c5b31ebc9 (patch)
tree85963e4fb79c025281f7a2bfdbfd78bf1ca0b90a /perl-install
parent4c69b2e8d998d594564508ce31d69b720b02ed00 (diff)
downloaddrakx-78397d458e73613f1440c0aeb0e87e0c5b31ebc9.tar
drakx-78397d458e73613f1440c0aeb0e87e0c5b31ebc9.tar.gz
drakx-78397d458e73613f1440c0aeb0e87e0c5b31ebc9.tar.bz2
drakx-78397d458e73613f1440c0aeb0e87e0c5b31ebc9.tar.xz
drakx-78397d458e73613f1440c0aeb0e87e0c5b31ebc9.zip
create_factory_*: drop them
rationale: ItemFactory was deprecated prior to Gtk3 and we must migrate to UIManager or Builder anyway...
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk3.pm13
1 files changed, 1 insertions, 12 deletions
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", '<main>', @_) }
-sub create_factory_menu { create_factory_menu_("Gtk3::MenuBar", '<main>', @_) }
-
sub create_menu {
my $title = shift;
my $w = Gtk3::MenuItem->new($title);