summaryrefslogtreecommitdiffstats
path: root/perl-install/install_gtk.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-22 10:29:14 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-22 10:29:14 +0000
commit8507f5529c1fa95cf068076001adc1dbdc91e4fc (patch)
tree876ee2f2f0e11e80261468a6af017fa1e03970a2 /perl-install/install_gtk.pm
parent2964bfdb899a583e8930740b6d59c1294d723843 (diff)
downloaddrakx-8507f5529c1fa95cf068076001adc1dbdc91e4fc.tar
drakx-8507f5529c1fa95cf068076001adc1dbdc91e4fc.tar.gz
drakx-8507f5529c1fa95cf068076001adc1dbdc91e4fc.tar.bz2
drakx-8507f5529c1fa95cf068076001adc1dbdc91e4fc.tar.xz
drakx-8507f5529c1fa95cf068076001adc1dbdc91e4fc.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_gtk.pm')
-rw-r--r--perl-install/install_gtk.pm2
1 files changed, 2 insertions, 0 deletions
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]);
}