summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2019-03-11 01:56:18 +0000
committerNorbert Preining <preining@logic.at>2019-03-11 01:56:18 +0000
commitbc959f8f9b7a7ef699a545b87849888db1cff00a (patch)
tree5e8a54eb9552a7bb8ecb79ee5d8ce0191346c932 /Master/texmf-dist/scripts/texlive/tlmgrgui.pl
parent868a1e33bab8b633f5873f43a97253022662d23e (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/texlive/tlmgrgui.pl')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgrgui.pl14
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;