summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-11 17:36:59 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-11 17:36:59 +0000
commit1f41eda539f23fae9b61e8b8fba16caf592aa739 (patch)
tree30e856e2c4b44f28ac455fc7c1e6ef93b244f6da /perl-install/install
parent3f7dac3adcf9a91d5d9106c46fc48dcbf805d5ab (diff)
downloaddrakx-1f41eda539f23fae9b61e8b8fba16caf592aa739.tar
drakx-1f41eda539f23fae9b61e8b8fba16caf592aa739.tar.gz
drakx-1f41eda539f23fae9b61e8b8fba16caf592aa739.tar.bz2
drakx-1f41eda539f23fae9b61e8b8fba16caf592aa739.tar.xz
drakx-1f41eda539f23fae9b61e8b8fba16caf592aa739.zip
(reallyChooseDesktop) add better title to preview popup
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/steps_gtk.pm9
2 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 5fdf0cdb4..56c907cea 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -6,6 +6,7 @@
o add a separator before "Close" button
o fix displaying "Help" Button for HTML help
o put "Close" button of help at right end
+- small improvements in many steps (desktop, ...)
- services (thanks to spuk):
o list ip6tables in "Internet" category
o list nfs-common and nfs-server in "File sharing" category
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 8fb1a4973..dbafdcf67 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -255,8 +255,13 @@ sub reallyChooseDesktop {
my $img = gtksignal_connect(
gtkadd(Gtk2::EventBox->new, gtknew('Image', file => "desktop-$val->[0]")),
'button-press-event' => sub {
- my $wp = ugtk2->new(N("Help"), transient => $w->{real_window}, modal => 1,
- );
+ my %title = (
+ KDE => N("KDE Desktop"),
+ GNOME => N("GNOME Desktop"),
+ Custom => N("Custom Desktop"),
+ );
+
+ my $wp = ugtk2->new($title{$val->[1]}, transient => $w->{real_window}, modal => 1,);
gtkadd($wp->{rwindow},
gtkpack_(Gtk2::VBox->new,
0, N("Here's a preview of the '%s' desktop.", $val->[1]),