diff options
| -rwxr-xr-x | control-center | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/control-center b/control-center index cf73eddd..33b08dd1 100755 --- a/control-center +++ b/control-center @@ -1380,13 +1380,6 @@ sub compute_exec_string { $left_locked = 1; $buttons->show; $tool_pids{$label} = fork_($exec); - } else { # gtkplug == 0 - $emb_box->grab_focus; - $emb_socket->grab_focus; - $emb_socket->show; - $SIG{CHLD} = undef; - $emb_socket->add_id(launch_xapp($exec)); - $SIG{CHLD} = \&sig_child; } } else { # not embedded # fix #3415 when $gtkplug eq -1 @@ -1408,25 +1401,6 @@ sub start_logdrake { } -sub launch_xapp { - my ($exec, $name, $xx) = @_; - my $find_windows = sub { - local *X; - open(X, "-|", "xwininfo -root -tree -int"); - grep { /$name/ } <X>; - }; - my @before = &$find_windows(); - fork_($exec); - my @after = &$find_windows(); - require Time::HiRes; - while (@after != $xx + @before) { - Time::HiRes::usleep(50); - @after = &$find_windows() - } - my $c = top(difference2(\@after, \@before)); - return $1 if $c =~ /\s*([0-9]*)\s*/; -} - sub kill_them_all { map { if__($_, kill 'TERM', $_) } @_; } |