removed ugly themes. baaaad themes, blah. dams m�chant, bouh.

1 files 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) } },