feature

1 files changed, 11 insertions, 1 deletions

diff --git a/control-center b/control-center
index 430840bb..2c2976d7 100755
--- a/control-center
+++ b/control-center
@@ -382,7 +382,14 @@ sub exec_treeitem {
 	    $tree_launched{$label}->[0]=$nb_pages;
 	    $notebook_global->set_page($nb_pages);
 	    $socket->realize;
-	    $socket->steal(launch_wait("konqueror", "konqueror",3));
+	    #$socket->steal(launch_wait("LC_ALL=C perl /home/yves/c/soft/control-center/control-center", "control-center",2,5));
+	    #$socket->steal(launch_wait("kmail", "kmail",2,5));
+	    $socket->steal(launch_wait("rxvt", "rxvt",1,10));
+	    #$socket->steal(launch_wait("mozilla", "mozilla",6,10));
+	    #$socket->steal(launch_wait("kups", "kups",2));
+	    #$socket->steal(launch_wait("LC_ALL=C konqueror", "konqueror",3));
+	    #$socket->steal(launch_wait("linuxconf", "linuxconf",3,5));
+	    #$socket->steal(launch_wait("LC_ALL=C nautilus --no-desktop", "nautilus",8));
 	    $notebook_global->show_all();
 	    $notebook_global->set_page($nb_pages);
 	    return;
@@ -455,6 +462,7 @@ sub exec_treeitem {
 }
 
 sub launch_wait {
+    my ($exec, $grep, $num,$zz) = @_;
     my ($exec, $grep, $num) = @_;
     print "{{ $exec }}\n";
     my $b = "xwininfo -root -tree -int | grep '" . $grep . "'";
@@ -471,6 +479,7 @@ sub launch_wait {
 	while (@after ne ($num+@before)) {
 	    @after = split ('\n', `$b`);
 	}
+	print "@after\n";
 	my $i = 0;
 	my $c;
 	foreach (@after) {
@@ -482,6 +491,7 @@ sub launch_wait {
 	$res=$1;
 	print "[" . $res . "]\n";
     }
+    sleep($zz);
     $res;
 }