From 8507f5529c1fa95cf068076001adc1dbdc91e4fc Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 22 Sep 2000 10:29:14 +0000
Subject: *** empty log message ***

---
 perl-install/install_gtk.pm | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 92b1ef797..9b16f93f4 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -12,6 +12,7 @@ use devices;
 #-INTERN CONSTANT
 #-#####################################################################################
 my @themes_vga16 = qw(blue blackwhite savane);
+my @themes_desktop = qw(mdk-Desktop DarkMarble marble3d blueHeart);
 my @themes = qw(mdk DarkMarble marble3d blueHeart);
 
 my (@background1, @background2);
@@ -34,6 +35,7 @@ sub load_rc {
 
 sub default_theme {
     my ($o) = @_;
+    @themes = @themes_desktop if $o->{meta_class} eq 'desktop';
     @themes = @themes_vga16 if $o->{simple_themes} || $o->{vga16};
     install_theme($o, $o->{theme} || $themes[0]);
 }
-- 
cgit v1.2.1