- roll back testing changes

- really speed up main launch_xapp()'s loop by a 2.1 factor

1 files changed, 3 insertions, 7 deletions

diff --git a/control-center b/control-center
index 6857587b..1ffb1e9f 100755
--- a/control-center
+++ b/control-center
@@ -395,7 +395,7 @@ my (@curr_state, @old_state);
 my ($d_width, $d_height) = (160, 45);
 my @colors  = (gtkcolor(0, 0, 0), gtkcolor(0xAA, 0xAA, 0xFF), gtkcolor(0, 0, 0));
 my $spacing = 25;
-my $scale   = 0.5;
+my $scale   = 4;
 my (@lspacing, $txt_offset);
 my $top_lspacing = 4;
 
@@ -494,10 +494,7 @@ foreach (@tree) {
 
     # Create right notebook pages :
 
-    my $tbl = create_packtable({ col_spacings => $spacing, row_spacings => $spacing, homogeneous => 1,
-                                 xpack => [ 'expand', 'shrink', 'fill' ],
-                                 ypack => [ 'shrink' ],
-                             },
+    my $tbl = create_packtable({ col_spacings => $spacing, row_spacings => $spacing, homogeneous => 1 },
 			       group_by2(map {
 				   my ($label, $tag) = @$_;
 				   my $text = $exec_hash->{$label}[3];
@@ -707,8 +704,7 @@ sub launch_xapp {
         while (@after ne $xx + @before) {
             @after = &$find_windows();
         }
-        my $c;
-        foreach (@after) { $c = $_ unless member($_, @before) };
+        my $c = top(difference2(\@after, \@before));
         $c =~ /\s*([0-9]*)\s*/;
         return $1;
     }