summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-10-10 17:18:41 +0000
committerNorbert Preining <preining@logic.at>2010-10-10 17:18:41 +0000
commit25738bd1aa879fbd8d4d9b0d65a2805c7bd67956 (patch)
treef2eef8b5611a1ecca7b28b1afe6511c00054ab1a
parent01c272210806a13e48037a7ed53798e59d6dd4d2 (diff)
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
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui.pl14
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;