From 3cadca720b447f23c15e15197ae0cdd0ff31a053 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 6 Mar 2003 12:48:55 +0000
Subject: - display "wait while searching" message also when embedded: we do
 not   want it only when embedded for explanations - flush this wait dialog
 draw queue on each update so that it get   displayed when embedded

---
 perl-install/standalone/logdrake | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1