(_gtk__MDV_Notebook) make sure mcc always have fillers

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index a29d916ea..88b497870 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -654,7 +654,7 @@ sub _gtk__MDV_Notebook {
         my ($layout, $selection_arrow, $selection_bar);
         my $parent_window = delete $opts->{parent_window} || root_window();
         my $root_height = first($parent_window->get_size());
-        my $suffix = $::testing || $root_height eq 800 ? '_600' : '_768';
+        my $suffix = $root_height eq 800 && !$::isStandalone ? '_600' : '_768';
         # the white square is a little bit above the actual left sidepanel:
         my $offset = 20;
         my $is_flip_needed = text_direction_rtl();

path: root/tools/gencompss

#!/usr/bin/perl

open F, "packdrake -c @ARGV | hdlist2groups - |";
foreach (<F>) {
    chop;
    /(.*):(.*)/;
    $l{$2}{$1} = undef;
}
close F or die;
foreach (sort keys %l) {
    print "$_\n";
    print "\t$_\n" foreach sort keys %{$l{$_}};
    print "\n";
}