diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 92e1f0d40..a0d051ed7 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -243,17 +243,19 @@ sub parse_file { my ($file) = @_;#$_[0]; $file =~ s/\.gz$//; - gtkadd(my $win_pb = gtkset_modal(new Gtk2::Window('toplevel'), 1), - gtkpack(new Gtk2::VBox(2,0), - new Gtk2::Label(" " . N("please wait, parsing file: %s", $files{$_}{desc}) . " "), - my $pbar = new Gtk2::ProgressBar() - ) - ); - $win_pb->set_transient_for($my_win->{rwindow}) unless $::isEmbedded; - $win_pb->set_modal(1); - $win_pb->set_position('center'); - $win_pb->realize(); - $win_pb->show_all(); + unless ($::isEmbedded) { + gtkadd(my $win_pb = gtkset_modal(new Gtk2::Window('toplevel'), 1), + gtkpack(new Gtk2::VBox(2,0), + new Gtk2::Label(" " . N("please wait, parsing file: %s", $files{$_}{desc}) . " "), + my $pbar = new Gtk2::ProgressBar() + ) + ); + $win_pb->set_transient_for($my_win->{rwindow}) unless $::isEmbedded; + $win_pb->set_modal(1); + $win_pb->set_position('center'); + $win_pb->realize(); + $win_pb->show_all(); + } my $ey = $e_yes->get_chars(0, -1); my $en = $e_no->get_chars(0, -1); $ey =~ s/ OR /\|/; @@ -283,7 +285,7 @@ sub parse_file { my $i = 0; foreach (@all) { $i++; - if ($i % 10) { + if (!$::isEmbedded && $i % 10) { $pbar->set_fraction($i/$taille); gtkflush(); } @@ -292,7 +294,7 @@ sub parse_file { if (! /$en/i and /$ey/i) { logcolorize($_); next } if (! /$en/i and $ey eq "") { logcolorize($_); next } } - $win_pb->destroy(); + $win_pb->destroy() unless $::isEmbedded; if ($::isTail) { close F; |