summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/logdrake11
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;