diff options
author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-07-10 14:35:01 +0000 |
---|---|---|
committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-07-10 14:35:01 +0000 |
commit | 1d32a494f0806f0143d17b14b165c9378e0d72c8 (patch) | |
tree | f71242c554193b8353ceef3576862d74077cef6e /Master | |
parent | fbbc1b658be3216436ea8b48a625ddf240439f4e (diff) |
Dont hide paths in the symlink dialog, just disable them.
git-svn-id: svn://tug.org/texlive/trunk@19341 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index dce28f675ac..9a1890ca421 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -686,19 +686,13 @@ sub menu_select_symlink { $linfo = ($osym ? $vars{'option_sys_info'} : ''); $lman = ($osym ? $vars{'option_sys_man'} : ''); if ($osym) { - $binlab->grid(-row => 2, -column => 1, -sticky => "w", -padx => "2m"); - $binb->grid(-row => 2, -column => 2, -sticky => "ew", -padx => "2m"); - $manlab->grid(-row => 3, -column => 1, -sticky => "w", -padx => "2m"); - $manb->grid(-row => 3, -column => 2, -sticky => "ew", -padx => "2m"); - $infolab->grid(-row => 4, -column => 1, -sticky => "w", -padx => "2m"); - $infob->grid(-row => 4, -column => 2, -sticky => "ew", -padx => "2m"); + $binb->configure (-state => 'normal'); + $manb->configure (-state => 'normal'); + $infob->configure(-state => 'normal'); } else { - $infob->gridForget; - $infolab->gridForget; - $manb->gridForget; - $manlab->gridForget; - $binb->gridForget; - $binlab->gridForget; + $infob->configure(-state => 'disabled'); + $manb->configure (-state => 'disabled'); + $binb->configure (-state => 'disabled'); } } sub return_callback { @@ -731,6 +725,12 @@ sub menu_select_symlink { $manb = $sw->Entry(-textvariable => \$lman); $infolab = $sw->Label(-text => __("info to")); $infob = $sw->Entry(-textvariable => \$linfo); + $binlab->grid(-row => 2, -column => 1, -sticky => "w", -padx => "2m"); + $binb->grid(-row => 2, -column => 2, -sticky => "ew", -padx => "2m"); + $manlab->grid(-row => 3, -column => 1, -sticky => "w", -padx => "2m"); + $manb->grid(-row => 3, -column => 2, -sticky => "ew", -padx => "2m"); + $infolab->grid(-row => 4, -column => 1, -sticky => "w", -padx => "2m"); + $infob->grid(-row => 4, -column => 2, -sticky => "ew", -padx => "2m"); set_unset_buttons(); my $f2 = $sw->Frame; $f2->grid(-column => 1, -columnspan => 2, -row => 5); my $okbutton = $f2->Button(-text => __("Ok"), |