diff options
author | Norbert Preining <preining@logic.at> | 2014-06-27 21:19:51 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2014-06-27 21:19:51 +0000 |
commit | f3795a34d66778ad8168c661c02cf1da780c7654 (patch) | |
tree | 05c6f2edfc5690845c60d18e5ce60203ca4d235f /Master | |
parent | 8c4703511e886e4a3953b4e9ef7efdb53ad2bfd9 (diff) |
layout change for collection window
git-svn-id: svn://tug.org/texlive/trunk@34451 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 3978e11cbc4..54c7b527eed 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -1,7 +1,7 @@ #!/usr/bin/env perl # $Id$ # -# Copyright 2008-2013 Norbert Preining +# Copyright 2008-2014 Norbert Preining # Copyright 2008 Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -538,6 +538,7 @@ Please select a different mirror.', $TeXLive::TLConfig::ReleaseYear, $texlive_re $subframe->configure(-height => $rh, -width=>$rw); $subframe->pack(-expand => 1, -fill => "both"); $mainwindow->configure(-height => $rh, -width=>$rw); + $mainwindow->geometry("=${rw}x${rh}"); #$mw->pack(-expand => 1, -fill => "both"); pre_warn($mainwindow) if win32(); @@ -802,28 +803,33 @@ sub menu_select_standard_collections { my $fd = $sw->Frame; my $f1 = $fb->Frame; my $f2 = $fb->Frame; + my $f3 = $fb->Frame; my %lvars = %vars; $sw->Label(-text => __("Select the collections to be installed"))->pack(-padx => "2m", -pady => "2m"); - my $halfcol = $#collections_std / 2; + my $onethirdcol = $#collections_std / 3; + my $twothirdcol = 2 * $onethirdcol; my $i = 0; foreach my $coll (sort @collections_std) { my $tlpobj = $tlpdb->get_package("$coll"); - if ($i < $halfcol) { + if ($i < $onethirdcol) { $f1->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w'); - } else { + } elsif ($i < $twothirdcol) { $f2->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w'); + } else { + $f3->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w'); } $i++; } $f1->pack(-side => 'left', -padx => "2m", -pady => "2m"); - $f2->pack(-side => 'right', -padx => "2m", -pady => "2m"); + $f2->pack(-side => 'left', -padx => "2m", -pady => "2m"); + $f3->pack(-side => 'left', -padx => "2m", -pady => "2m"); $fb->pack(-padx => "2m", -pady => "2m"); - $fc->pack(); + $fc->pack(-side => 'left', -expand => 'x', -padx => "2m", -pady => "2m"); $fc->Button(-text => __("Select All"), -command => sub { select_collections(\%lvars, @collections_std) })->pack(-side => 'left', -padx => "2m", -pady => "2m")->focus(); $fc->Button(-text => __("Deselect All"), -command => sub { deselect_collections(\%lvars, @collections_std) })->pack(-side => 'right', -padx => "2m", -pady => "2m"); - $fd->pack(-expand => 'x', -padx => "2m", -pady => "2m"); + $fd->pack(-side => 'left', -expand => 'x', -padx => "2m", -pady => "2m"); my $okbutton = $fd->Button(-text => __("Ok"), -command => sub { # we call the update only if something has changed |