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