From 3fd861fe33eaf6cc35e05bf46cb39fc147f13c90 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 20 Aug 2002 20:03:44 +0000 Subject: kill debugging prints --- perl-install/ugtk.pm | 2 -- 1 file changed, 2 deletions(-) diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index 4b097514f..1c38b9b6c 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -273,9 +273,7 @@ sub create_hbox { gtkset_layout(gtkset_border_width(new Gtk::HButtonBox, 3), $_[ 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 -- cgit v1.2.1