summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/standalone/logdrake3
-rw-r--r--perl-install/ugtk2.pm1
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);