summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-12 15:52:42 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-12 15:52:42 +0000
commitea701902bc237d6f335c1cc471b3c2d3fff591b4 (patch)
tree94cf6ee361e2946b19b58e5ef6bd43c57cf23756 /perl-install/install
parent4d8c52da4724607b01ea288253d87581047fd485 (diff)
downloaddrakx-ea701902bc237d6f335c1cc471b3c2d3fff591b4.tar
drakx-ea701902bc237d6f335c1cc471b3c2d3fff591b4.tar.gz
drakx-ea701902bc237d6f335c1cc471b3c2d3fff591b4.tar.bz2
drakx-ea701902bc237d6f335c1cc471b3c2d3fff591b4.tar.xz
drakx-ea701902bc237d6f335c1cc471b3c2d3fff591b4.zip
(reallyChooseDesktop) add tool tips
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/steps_gtk.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 60dafbc29..c464535f7 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -224,11 +224,17 @@ sub reallyChooseDesktop {
my $w = ugtk2->new($title);
my $choice = $choices->[0];
+ my %tips = (
+ KDE => N("Install Mandriva KDE Desktop"),
+ GNOME => N("Install Mandriva GNOME Desktop"),
+ Custom => N("Custom install"),
+ );
my $prev;
my @l = map {
my $val = $_;
$prev = gtknew('RadioButton', child =>
gtknew('Label', text => $val->[1]),
+ tip => $tips{$val->[0]},
toggled => sub { $choice = $val if $_[0]->get_active },
$prev ? (group => $prev->get_group) : ());
$prev->signal_connect(key_press_event => sub {