diff options
| -rwxr-xr-x | control-center | 12 |
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; } |