diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 1506b6f7f..6a83ed901 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -238,18 +238,19 @@ sub parse_file { $file =~ s/\.gz$//; my ($pbar, $win_pb); - unless ($::isEmbedded) { + unless ($::isEmbedded && $::isExplain) { gtkadd($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}) . " "), $pbar = new Gtk2::ProgressBar() ) ); - $win_pb->set_transient_for($my_win->{rwindow}); + $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(); + gtkflush(); } my $ey = $e_yes->get_chars(0, -1); my $en = $e_no->get_chars(0, -1); @@ -280,16 +281,16 @@ sub parse_file { my $i = 0; foreach (@all) { $i++; - if (!$::isEmbedded && $i % 10) { + if ($pbar && $i % 10) { $pbar->set_fraction($i/$taille); - gtkflush(); + $win_pb->window->process_updates(1); # no gtkflush() because we do not want to refresh the TextView } if ($en eq "" and /$ey/i) { logcolorize($_); next } if (! /$en/i and /$ey/i) { logcolorize($_); next } if (! /$en/i and $ey eq "") { logcolorize($_); next } } - $win_pb->destroy() unless $::isEmbedded; + $win_pb->destroy() unless $::isEmbedded && $::isExplain; if ($::isTail) { close F; |