summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-07-10 14:35:01 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-07-10 14:35:01 +0000
commit1d32a494f0806f0143d17b14b165c9378e0d72c8 (patch)
treef71242c554193b8353ceef3576862d74077cef6e /Master
parentfbbc1b658be3216436ea8b48a625ddf240439f4e (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.pl24
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"),