From 755df002ff6e794dd19bbb5d32906bc4305a8c21 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 17 Sep 2007 09:28:00 +0000 Subject: - advertising: restore support for $title in .pl files (wrongly dropped in 10.4.195) --- perl-install/install/NEWS | 2 ++ perl-install/install/any.pm | 2 ++ perl-install/install/steps_gtk.pm | 8 ++++++++ 3 files changed, 12 insertions(+) (limited to 'perl-install') diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index b297cb884..2255a8b28 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- advertising: restore support for $title in .pl files (wrongly dropped in 10.4.195) + Version 10.4.199 - 17 September 2007, by Olivier "blino" Blin - fix loading of tifm_sd module diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 82d7048a5..15e58d428 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -1293,6 +1293,8 @@ sub copy_advertising { foreach (@files) { chomp; install::media::getAndSaveFile_($o->{stage2_phys_medium}, "$source_dir/$_", "$dir/$_"); + (my $pl = $_) =~ s/\.png/.pl/; + install::media::getAndSaveFile_($o->{stage2_phys_medium}, "$source_dir/$pl", "$dir/$pl"); } @advertising_images = map { "$dir/$_" } @files; } diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 3501b7f73..dd3a96d8d 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -484,6 +484,14 @@ sub installPackages { my $f = $install::any::advertising_images[$i++ % @install::any::advertising_images]; log::l("advertising $f"); gtkval_modify(\$advertising_image, $f); + + if (my $banner = $w->{window}{banner}) { + my ($title); + my $pl = $f; $pl =~ s/\.png$/.pl/; + eval(cat_($pl)) if -e $pl; + $banner->{text} = $title; + Gtk2::Banner::set_pixmap($banner); + } }; my $cancel = gtknew('Button', text => N("Cancel"), clicked => sub { $install::pkgs::cancel_install = 1 }); -- cgit v1.2.1