diff options
author | Norbert Preining <preining@logic.at> | 2008-08-06 19:17:27 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-08-06 19:17:27 +0000 |
commit | f58be28ae753eaf503d306aad1098b1d4c1647a9 (patch) | |
tree | 9b6e91830397fa63f34c19df2187403c8383a344 | |
parent | 75bae151c9c8080684670bb86d490878baea7770 (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.pl | 6 |
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"); |