From e8e8f3bcbfadcd48ad07137412492835d635e582 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Wed, 13 Mar 2002 16:51:45 +0000
Subject: =?UTF-8?q?removed=20ugly=20themes.=20baaaad=20themes,=20blah.=20d?=
 =?UTF-8?q?ams=20m=EF=BF=BDchant,=20bouh.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 control-center | 40 +++++++++++++++++-----------------------
 1 file changed, 17 insertions(+), 23 deletions(-)

diff --git a/control-center b/control-center
index 0aa5b379..11498c00 100755
--- a/control-center
+++ b/control-center
@@ -28,7 +28,6 @@ my $_wizdir = "/usr/share/wizards";
 
 require Gtk;
 use lib qw(/usr/lib/libDrakX);
-use lib qw(/usr/lib/libDrakX);
 use common;
 use interactive;
 use detect_devices;
@@ -734,14 +733,7 @@ sub more_themes {
     $style1->font(Gtk::Gdk::Font->fontset_load(_("-*-helvetica-medium-r-normal-*-20-*-100-100-p-*-iso8859-1,*-r-*")));
     gtkpack_($window_about->vbox,
 	     0, gtksetstyle(new Gtk::Label(_("Getting new themes")), $style1),
-	     0, gtkadd(gtkset_shadow_type(gtkset_border_width(new Gtk::Frame("Standard themes"), 10), 'etched_out'),
-		       gtkpack_(new Gtk::HBox(0, 10),
-				0, "", 1, _("Click here to install standard themes:"),
-				0, gtksignal_connect(gtkset_border_width(new Gtk::Button(_("Install")), 5), "clicked" => sub { 
-							 system ("urpmi --best-output drakconf-themes &"); })
-			       )
-		      ),
-	     0, gtkadd(gtkset_shadow_type(gtkset_border_width(new Gtk::Frame("Additional themes"), 10), 'etched_out'),
+	     0, gtkadd(gtkset_shadow_type(gtkset_border_width(new Gtk::Frame(_("Additional themes")), 10), 'etched_out'),
 		       gtkpack(new Gtk::HBox(0, 5),
 			       _("Get additional themes on www.damz.net"),
 			      )
@@ -844,21 +836,23 @@ sub get_main_menu {
 				 { path => _("/Options")._("/_Embedded Mode"),
 				   callback => \&embedded_mode,
 				   type => '<ToggleItem>'},
-				 { path => _("/_Themes"),
-				   type => '<Branch>' },
-				 (map { my $l = $_;
-					my %h = (
-						 path => _("/Themes"). "/" .  ($l eq $theme ? " O  " : "      ") . "_$l",
-						 callback => sub {
-						     $theme eq $l and return;
-						     !$pending_app || splash_warning(
+				 if_(all($mcc_dir) > 1,
+				     { path => _("/_Themes"),
+				       type => '<Branch>' },
+				     (map { my $l = $_;
+					    my %h = (
+						     path => _("/Themes"). "/" .  ($l eq $theme ? " O  " : "      ") . "_$l",
+						     callback => sub {
+							 $theme eq $l and return;
+							 !$pending_app || splash_warning(
      _("This action will restart the control center.\nAny change not applied will be lost."), 1) and sig_usr1(), exec "$0 --theme $l";
-						 },
-						);
-				       \%h;
-				   } @theme_list ),
-				 { path => _("/_Themes")._("/_More themes"),
-				   callback => \&more_themes },
+						     },
+						    );
+					    \%h;
+					} @theme_list ),
+				     { path => _("/_Themes")._("/_More themes"),
+				       callback => \&more_themes },
+				    ),
 				 { path => _("/_Help"),
 				   type => '<Branch>' },
 #				 { path => _("/Help")._("/_Help on line"), callback => sub { Gtk->exit(0) } },
-- 
cgit v1.2.1