diff options
author | Norbert Preining <preining@logic.at> | 2008-01-17 08:24:18 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-17 08:24:18 +0000 |
commit | 2c373ba8a6ee97be2acbf391d15d725598ac3221 (patch) | |
tree | c7ff93b46e0ca927433e441949256a86c39fa286 /Master | |
parent | af637e7c79b9b2a5650072b218222b4f77eaa6e6 (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')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 14 |
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_(.*)/) { |