From 4f768533afa7fb2342c8e77f84f3c400ffefab66 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 12 Aug 2002 13:44:04 +0000 Subject: consolidate create_factory_menu --- perl-install/harddrake/ui.pm | Bin 9352 -> 9154 bytes perl-install/ugtk.pm | 12 ++++++++++++ 2 files changed, 12 insertions(+) diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm index 0848510e1..29453ef17 100644 Binary files a/perl-install/harddrake/ui.pm and b/perl-install/harddrake/ui.pm differ diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index 0da69e483..4b097514f 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -271,6 +271,18 @@ sub create_box_with_title { sub create_hbox { gtkset_layout(gtkset_border_width(new Gtk::HButtonBox, 3), $_[0] || 'spread') } +sub create_factory_menu_ { + my ($type, $name, $window, @menu_items) = @_; + print "TOTO - $type - $name - $window - @menu_items - \n\n"; + my $widget = new Gtk::ItemFactory($type, $name, my $accel_group = new Gtk::AccelGroup); + use Data::Dumper; print "\n\nMenu =", Dumper(\@menu_items),"\n\n"; + $widget->create_items(@menu_items); + $window->add_accel_group($accel_group); #$accel_group->attach($main_win); + $widget->get_widget($name); # return menu bar +} + +sub create_factory_menu { create_factory_menu_('Gtk::MenuBar', '
', @_) } + sub create_menu { my $title = shift; my $w = new Gtk::MenuItem($title); -- cgit v1.2.1