diff options
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgrgui.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl index b6a9cf09ff7..27db96bb6fd 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl @@ -1,7 +1,7 @@ #!/usr/bin/env perl # $Id$ # -# Copyright 2009-2017 Norbert Preining +# Copyright 2009-2019 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # @@ -2538,13 +2538,13 @@ sub cb_edit_location { sub { if ($val !~ m/^ /) { $val = ""; - $okbutton->configure(-state => 'disabled'); + # $okbutton->configure(-state => 'disabled'); } elsif ($val =~ m!(http|ftp)://!) { $val = TeXLive::TLUtils::extract_mirror_entry($val); - $okbutton->configure(-state => 'normal'); + # $okbutton->configure(-state => 'normal'); } else { $val =~ s/^\s*//; - $okbutton->configure(-state => 'normal'); + # $okbutton->configure(-state => 'normal'); } }, -variable => \$val); @@ -2556,17 +2556,17 @@ sub cb_edit_location { my $var = $sw->chooseDirectory(); if (defined($var)) { $val = $var; - $okbutton->configure(-state => 'normal'); + # $okbutton->configure(-state => 'normal'); } })->pack(@left, @p_ii); $f1->Button(-text => __("Use standard net repository"), -command => sub { $val = $TeXLiveURL; - $okbutton->configure(-state => 'normal'); + # $okbutton->configure(-state => 'normal'); })->pack(@left, @p_ii); $f1->pack; my $f = $sw->Frame; - $okbutton = $f->Button(-text => __("Load"), -state => "disabled", + $okbutton = $f->Button(-text => __("Load"), # -state => "disabled", -command => sub { if ($val) { $location = $val; |