summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-08-06 19:17:27 +0000
committerNorbert Preining <preining@logic.at>2008-08-06 19:17:27 +0000
commitf58be28ae753eaf503d306aad1098b1d4c1647a9 (patch)
tree9b6e91830397fa63f34c19df2187403c8383a344
parent75bae151c9c8080684670bb86d490878baea7770 (diff)
tlmgr GUI: better layout of arch tab
git-svn-id: svn://tug.org/texlive/trunk@10112 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-arch.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-arch.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-arch.pl
index c54c9625e13..3189a9ff559 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/gui-arch.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-arch.pl
@@ -19,6 +19,7 @@ our %archs;
our %archsbuttons;
our $arch_frame;
+our $subframe;
push @update_function_list, \&init_archs;
@@ -42,13 +43,16 @@ sub init_archs {
$archsbuttons{$a}->destroy;
}
$arch_frame->destroy if defined($arch_frame);
+ $subframe->destroy if defined($subframe);
+ $subframe = $back_arch->Frame;
foreach my $a (@archsavail) {
$archsbuttons{$a} =
- $back_arch->Checkbutton(-command => sub { check_on_removal($a); },
+ $subframe->Checkbutton(-command => sub { check_on_removal($a); },
-variable => \$archs{$a},
-text => platform_desc($a)
)->pack(-anchor => 'w');
}
+ $subframe->pack;
$arch_frame = $back_arch->Frame;
$arch_frame->pack(-padx => "10m", -pady => "5m");
$arch_frame->Button(-text => ___"applychanges", -command => sub { apply_changes(); })->pack(-side => 'left', -padx => "3m");