built package, ...

1 files changed, 31 insertions, 14 deletions

diff --git a/control-center3 b/control-center3
index b477f8b3..f7484d68 100755
--- a/control-center3
+++ b/control-center3
@@ -29,10 +29,11 @@ init Gtk;
 use Data::Dumper;
 
 my %pixmaps_global;
-my $xpm_path="pixmaps";
+my $xpm_path="/usr/share/icons/";
 my $tree_depth_max = 1;
 my @treeitem_sub;
 
+my $nb_pages=0;
 my $window_global = new Gtk::Window -toplevel;
 $window_global->set_usize(800, 600);
 $window_global->signal_connect ( delete_event => sub { Gtk->exit(0); });
@@ -192,6 +193,14 @@ map {
 	      "Drakgw" => "drakgw" , "Menudrake" => "menudrake" , "Drakfont" => "drakfont"
 	      );
 
+%tree_launched = ("Drakboot" => -1, "Drakfloppy" => -1, 
+	      "Drakelogo" => -1 , "xfdrake"  => -1 , 
+	      "Hardrake" => -1 , "Mousedrake" => -1 , 
+	      "Printdrake" => -1 , "Kbddrake" => -1 , 
+	      "Userdrake" => -1 , "Draknet" => -1 ,
+	      "Drakgw" => -1 , "Menudrake" => -1 , "Drakfont" => -1
+	      );
+
 #exec_treeitem("harddrake-auth",4);
 my $rc = "control-center.rc";
  Gtk::Rc->parse($rc);
@@ -239,7 +248,7 @@ sub create_tree_item()
     $treeitem->add($treebox);
     $treebox->show();
     if ($tree_depth_max == 0) {
-	$treeitem->signal_connect('select', sub { exec_treeitem($tree_exec{$label},1);});
+	$treeitem->signal_connect('select', sub { exec_treeitem($label, $tree_exec{$label});});
     }
     $parent_tree->append($treeitem);
     $treeitem->show();
@@ -288,20 +297,28 @@ sub xpm_label_box
     return ( $box );
 }
 
-
 sub exec_treeitem {
-    my ($exec_string,$num) = @_;
-
+    my ($label, $exec_string) = @_;
+#exec_treeitem($tree_exec{$label},1);});
     if ($exec_string) {
-	my $socket = new Gtk::Socket;
-	$socket->show;
-	$notebook_global->append_page($socket, "");
-	$socket->realize;
-	print ("The XID of the sockets window n° is [" . $socket->window->XWINDOW . "]\nMy PID is [" . $$ . "]\n");
-	my $a = $exec_string . " --embedded " . $socket->window->XWINDOW . " " . $$ . "&";
-	print "$a\n";
- 	system ($a);
-	$notebook_global->set_page($num);
+	print "SELECTED\n";
+	if ($tree_launched{$label}==-1) {
+	    print "yes\n";
+	    my $socket = new Gtk::Socket;
+	    $socket->show;
+	    $notebook_global->append_page($socket, "");
+	    $socket->realize;
+	    print ("The XID of the sockets window n° is [" . $socket->window->XWINDOW . "]\nMy PID is [" . $$ . "]\n");
+	    my $a = $exec_string . " --embedded " . $socket->window->XWINDOW . " " . $$ . "&";
+	    print "$a\n";
+	    system ($a);
+	    $nb_pages++;
+	    $tree_launched{$label}=$nb_pages;
+	    $notebook_global->set_page($nb_pages);
+	} else {
+	    print "no\n";
+	    $notebook_global->set_page($tree_launched{$label});
+	}
     }
 }