summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-20 20:03:44 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-20 20:03:44 +0000
commit3fd861fe33eaf6cc35e05bf46cb39fc147f13c90 (patch)
treebd1e70bb85cf26190b366e1def2ac9bbe2dfaf32 /perl-install
parent9771f3b895a9a872f303baf814dc3cefdef0f98e (diff)
downloaddrakx-3fd861fe33eaf6cc35e05bf46cb39fc147f13c90.tar
drakx-3fd861fe33eaf6cc35e05bf46cb39fc147f13c90.tar.gz
drakx-3fd861fe33eaf6cc35e05bf46cb39fc147f13c90.tar.bz2
drakx-3fd861fe33eaf6cc35e05bf46cb39fc147f13c90.tar.xz
drakx-3fd861fe33eaf6cc35e05bf46cb39fc147f13c90.zip
kill debugging prints
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk.pm2
1 files changed, 0 insertions, 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