From d3fe097e870dc1131b75bf1c9ca2f643b6098cb5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 5 Oct 2004 11:13:53 +0000 Subject: (font_choice) remove debug message --- perl-install/standalone/drakfont | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 138746f0f..57df30e9f 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -587,7 +587,7 @@ sub font_choice() { my $file_dialog; $select_font_msg = N("Select the font file or directory and click on 'Add'"); $file_dialog = Gtk2::FileSelection->new(N("File Selection")); - $file_dialog->signal_connect(delete_event => sub { print "DESTROY\n"; $file_dialog->response('close') }); + $file_dialog->signal_connect(delete_event => sub { $file_dialog->response('close') }); $file_dialog->ok_button->signal_connect(clicked => \&file_ok_sel, $file_dialog); $file_dialog->ok_button->set_label(N("Add")); $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->response('cancel') }); -- cgit v1.2.1