ignore 00texlive packages in tlmgrgui, and make the layout better

resizeable


git-svn-id: svn://tug.org/texlive/trunk@20039 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 9 insertions, 5 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl
index c4aacdad53a..a49bbb3ca2d 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 # $Id$
 #
-# Copyright 2009 Norbert Preining
+# Copyright 2009, 2010 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
 #
@@ -267,16 +267,16 @@ sub do_rest_of_gui {
   $loaded_text->pack(-anchor => 'e', -padx => 0, -pady => 0, 
     -ipadx => 0, -ipady => 0, -side => 'right');
     
-  $button_frame->pack(-expand => 1, -fill => 'x', @p_ii);
+  #$button_frame->pack(-expand => 1, -fill => 'x', @p_ii);
 
   #my $top_frame = $mw->Labelframe(-text => __("Display configuration"));
   my $top_frame = $gf->Labelframe(-text => __("Display configuration"));
 
   my $filter_frame = $top_frame->Frame();
-  $filter_frame->pack;
+  $filter_frame->pack(-expand => 1, -fill => 'both');
 
   my $filter_status = $filter_frame->Labelframe(-text => __("Status"));
-  $filter_status->pack(@left, @p_ii);
+  $filter_status->pack(@left, @x_y, @p_ii);
 
   $filter_status->Radiobutton(-text => __("all"), -command => \&update_grid,
     -variable => \$status_value, -value => $status_all)->pack(@a_w);
@@ -415,6 +415,7 @@ $g->headerCreate(4, @htype, -itemtype => 'text', -text => __("Short description"
       )->pack(@left, @p_ii);
   }
 
+  $button_frame->pack(-expand => 0, -fill => 'x', @p_ii);
   $top_frame->pack(-fill => 'x', -padx => '2m');
   $bot_frame->pack(-fill => 'x', @p_ii, -side => 'bottom');
   $list_frame->pack(@x_xy, @p_ii);
@@ -888,7 +889,6 @@ sub MatchesFilters {
       return 0;
     } # else do nothing
   }
-  #
   # if we come down to here the package matches
   return 1;
 }
@@ -1594,6 +1594,8 @@ sub reinit_local_tlpdb {
 sub setup_list {
   my @do_later;
   for my $p ($localtlpdb->list_packages()) {
+    # skip 00texlive packages
+    next if ($p =~ m!^00texlive!);
     # collect packages containing a . for later
     # we want to ignore them in most cases but those where there is 
     # no father package (without .)
@@ -1678,6 +1680,8 @@ sub update_list_remote {
   }
   if (defined($tlmediatlpdb)) {
     for my $p ($tlmediatlpdb->list_packages()) {
+      # skip 00texlive packages
+      next if ($p =~ m!^00texlive!);
       if ($p =~ m;\.;) {
         push @do_later_media, $p;
         next;