summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2014-06-27 21:19:51 +0000
committerNorbert Preining <preining@logic.at>2014-06-27 21:19:51 +0000
commitf3795a34d66778ad8168c661c02cf1da780c7654 (patch)
tree05c6f2edfc5690845c60d18e5ce60203ca4d235f /Master/tlpkg/installer/install-menu-perltk.pl
parent8c4703511e886e4a3953b4e9ef7efdb53ad2bfd9 (diff)
layout change for collection window
git-svn-id: svn://tug.org/texlive/trunk@34451 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl20
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