diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 3 | ||||
| -rw-r--r-- | perl-install/ugtk2.pm | 1 |
2 files changed, 1 insertions, 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); |