diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-02-26 17:39:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-02-26 17:39:37 +0000 |
| commit | 45d1eaa53682429655f3c4332f92754528593106 (patch) | |
| tree | 68a35e79e98baf7ada693ca7be955590cc12c65c /perl-install/install_steps_gtk.pm | |
| parent | 22848164af8c8e0c26a831bc63a1558f24e4ca00 (diff) | |
| download | drakx-backup-do-not-use-45d1eaa53682429655f3c4332f92754528593106.tar drakx-backup-do-not-use-45d1eaa53682429655f3c4332f92754528593106.tar.gz drakx-backup-do-not-use-45d1eaa53682429655f3c4332f92754528593106.tar.bz2 drakx-backup-do-not-use-45d1eaa53682429655f3c4332f92754528593106.tar.xz drakx-backup-do-not-use-45d1eaa53682429655f3c4332f92754528593106.zip | |
(copy_advertising): fix changing for advertising_images
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 0f94910ef..3683678e7 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -472,6 +472,8 @@ sub beforeInstallPackages { $o->SUPER::beforeInstallPackages; $o->copy_advertising; } + +my @advertising_images; sub copy_advertising { my ($o) = @_; @@ -484,6 +486,7 @@ sub copy_advertising { chomp; install_any::getAndSaveFile("Mandrake/share/advertising/$_", "$dir/$_"); } + @advertising_images = map { "$dir/$_" } @files; } } @@ -517,8 +520,7 @@ sub installPackages { $cancel->signal_connect(clicked => sub { $pkgs::cancel_install = 1 }); my ($change_time, $i); - my @images = glob_("$o->{prefix}/tmp/drakx-images/*"); - if (@images) { + if (@advertising_images) { log::l("hiding"); $msg->hide; $progress->hide; @@ -543,9 +545,9 @@ sub installPackages { $last_size = c::headerGetEntry(pkgs::packageHeader($p), 'size'); $text->set((split /\n/, c::headerGetEntry(pkgs::packageHeader($p), 'summary'))[0] || ''); - if (@images && time() - $change_time > 20) { + if (@advertising_images && time() - $change_time > 20) { $change_time = time(); - my $f = $images[$i++ % @images]; + my $f = $advertising_images[$i++ % @advertising_images]; log::l("advertising $f"); gtkdestroy($advertising); gtkpack($box, $advertising = gtkpng($f)); |