From 32fc593e57345d141f4d757a2ea0637eb2237aa6 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 9 Jul 2003 17:36:23 +0000 Subject: remove debugging trace --- perl-install/standalone/logdrake | 3 +-- perl-install/ugtk2.pm | 1 - 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 92b429a2f..48563b70d 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -142,7 +142,7 @@ my %files = ( ); my $yy = gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("search")) , clicked => \&search),0); -print "widget is $yy\n"; + my $log_text = gtktext_insert(Gtk2::TextView->new, [ [ '' ] ]); my $log_buf = $log_text->get_buffer; @@ -169,7 +169,6 @@ gtkadd($my_win->{window}, map { $toggle{$_} = gtksignal_connect(new Gtk2::CheckButton($files{$_}{desc}), clicked => sub { $refcount_search++; - print "widget is $yy\n"; gtkset_sensitive($yy, $refcount_search); }) } keys %files, ) diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 9f14d9727..e8ce95bea 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1001,7 +1001,6 @@ sub _ask_okcancel($@) { sub _ask_file { my ($o, $title, $path) = @_; my ($modality, $position) = ($o->{rwindow}->get_modal, $o->{rwindow}->get('window-position')); - print "position is $position\n"; my $f = $o->{rwindow} = Gtk2::FileSelection->new($title); $f->set_modal($modality); $f->set_position($position); -- cgit v1.2.1