diff options
author | Norbert Preining <preining@logic.at> | 2019-03-11 01:56:18 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2019-03-11 01:56:18 +0000 |
commit | bc959f8f9b7a7ef699a545b87849888db1cff00a (patch) | |
tree | 5e8a54eb9552a7bb8ecb79ee5d8ce0191346c932 /Master/texmf-dist/scripts | |
parent | 868a1e33bab8b633f5873f43a97253022662d23e (diff) |
tlmgr gui: don't enable/disable OK button in repo selection interface
git-svn-id: svn://tug.org/texlive/trunk@50334 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-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; |