From 1f41eda539f23fae9b61e8b8fba16caf592aa739 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 11 Sep 2008 17:36:59 +0000
Subject: (reallyChooseDesktop) add better title to preview popup

---
 perl-install/install/steps_gtk.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'perl-install/install/steps_gtk.pm')

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]),
-- 
cgit v1.2.1