summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-17 08:24:18 +0000
committerNorbert Preining <preining@logic.at>2008-01-17 08:24:18 +0000
commit2c373ba8a6ee97be2acbf391d15d725598ac3221 (patch)
treec7ff93b46e0ca927433e441949256a86c39fa286 /Master/tlpkg/installer/install-menu-perltk.pl
parentaf637e7c79b9b2a5650072b218222b4f77eaa6e6 (diff)
fix button off by one bug
git-svn-id: svn://tug.org/texlive/trunk@6289 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl14
1 files changed, 8 insertions, 6 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 739aceeaf2a..5c7212cb2ec 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -211,12 +211,14 @@ sub run_menu {
# standard collection line
my $fcoll = $fr->Frame; $fcoll->pack;
- $fcoll->Label(-text => $labels{'stdcoll'}, -width => $a+$b, -anchor => 'w')->pack(-side => 'left');
+ $fcoll->Label(-text => $labels{'stdcoll'}, -width => $a, -anchor => 'w')->pack(-side => 'left');
+ $fcoll->Label(-width => $b)->pack(-side => 'left');
$fcoll->Button(-width => $c, -text => $text{'change'}, -command => sub { menu_select_standard_collections(); })->pack(-side => 'left');
# lang collection line
my $flang = $fr->Frame; $flang->pack;
- $flang->Label(-text => $labels{'langcoll'}, -width => $a+$b, -anchor => 'w')->pack(-side => 'left');
+ $flang->Label(-text => $labels{'langcoll'}, -width => $a, -anchor => 'w')->pack(-side => 'left');
+ $flang->Label(-width => $b)->pack(-side => 'left');
$flang->Button(-width => $c, -text => $text{'change'}, -command => sub { menu_select_lang_collections(); })->pack(-side => 'left');
$collectionstext = $fr->Label();
@@ -355,7 +357,7 @@ sub menu_select_scheme {
}
sub menu_select_standard_collections {
- my $sw = $mw->Toplevel(-title => $label{'stdcoll'});
+ my $sw = $mw->Toplevel(-title => $labels{'stdcoll'});
my $fb = $sw->Frame;
my $fc = $sw->Frame;
my $fd = $sw->Frame;
@@ -390,7 +392,7 @@ sub menu_select_standard_collections {
}
sub menu_select_lang_collections {
- my $sw = $mw->Toplevel(-title => $label{'langcoll'});
+ my $sw = $mw->Toplevel(-title => $labels{'langcoll'});
my $f1 = $sw->Frame;
$f1->pack;
my $f1lang = $f1->Frame;
@@ -468,7 +470,7 @@ sub menu_select_symlink {
menu_update_texts();
}
set_unset_buttons();
- my $sw = $mw->Toplevel(-title => $label{'symlink'});
+ my $sw = $mw->Toplevel(-title => $labels{'symlink'});
$sw->Checkbutton(-variable => \$osym,
-text => $text{'createsym'},
-command => sub { set_unset_buttons(); } )->pack;
@@ -528,7 +530,7 @@ sub menu_select_binsystems {
}
$f2->pack;
}
- my $sw = $mw->Toplevel(-title => $label{'binsys'});
+ my $sw = $mw->Toplevel(-title => $labels{'binsys'});
my @diskarchs = ();
foreach my $key (keys %vars) {
if ($key=~/diskbin_(.*)/) {