diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-30 17:27:04 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-30 17:27:04 +0000 |
| commit | 4962a631ecc5cba4867b2b475f3688526572a96d (patch) | |
| tree | 1c35324162b628aeee171339a2f0719630bc9bb8 /perl-install/standalone | |
| parent | 4f505cf68feb4378693ef60323c2c2b5d3b27dc8 (diff) | |
| download | drakx-backup-do-not-use-4962a631ecc5cba4867b2b475f3688526572a96d.tar drakx-backup-do-not-use-4962a631ecc5cba4867b2b475f3688526572a96d.tar.gz drakx-backup-do-not-use-4962a631ecc5cba4867b2b475f3688526572a96d.tar.bz2 drakx-backup-do-not-use-4962a631ecc5cba4867b2b475f3688526572a96d.tar.xz drakx-backup-do-not-use-4962a631ecc5cba4867b2b475f3688526572a96d.zip | |
- perl_checker fixes
- fix non embedded case :-(
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/logdrake | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 64cd37efd..35d2829f8 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -214,7 +214,7 @@ $::isFile and gtkset_size_request($log_text, 400, 500); $my_win->{window}->realize; $my_win->{window}->show_all(); search() if $::isFile; -kill 'USR2', $::CCPID unless $::isExplain; # special case because logdrake is also embedded for logs +kill 'USR2', $::CCPID unless $::isExplain || !$::isEmbedded; # special case because logdrake is also embedded for logs $my_win->main; sub quit { ugtk2->exit(0) } @@ -244,11 +244,12 @@ sub parse_file { my ($file) = @_;#$_[0]; $file =~ s/\.gz$//; + my ($pbar, $win_pb); unless ($::isEmbedded) { - gtkadd(my $win_pb = gtkset_modal(new Gtk2::Window('toplevel'), 1), + 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}) . " "), - my $pbar = new Gtk2::ProgressBar() + $pbar = new Gtk2::ProgressBar() ) ); $win_pb->set_transient_for($my_win->{rwindow}) unless $::isEmbedded; |