From 77ff97a9e53da3bdb8a02c7b47d0f8ed595a827b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 29 Jan 2003 08:23:46 +0000 Subject: (launch_xapp) simplify --- control-center | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/control-center b/control-center index 7a032ec6..483c47d3 100755 --- a/control-center +++ b/control-center @@ -697,15 +697,11 @@ sub launch_xapp { my $find_windows = sub { split '\n', `xwininfo -root -tree -int | grep '$name'` }; my @before = &$find_windows(); fork_("$exec; kill -USR1 $$"); - while (1) { - my @after = &$find_windows(); - while (@after ne $xx + @before) { - @after = &$find_windows(); - } - my $c = top(difference2(\@after, \@before)); - $c =~ /\s*([0-9]*)\s*/; - return $1; - } + my @after = &$find_windows(); + @after = &$find_windows() while @after ne $xx + @before; + my $c = top(difference2(\@after, \@before)); + $c =~ /\s*([0-9]*)\s*/; + return $1; } sub hide_socket_and_clean { -- cgit v1.2.1