texlive[50334] Master/texmf-dist/scripts/texlive/tlmgrgui.pl: tlmgr

[commits+preining at tug.org]

Revision: 50334
          http://tug.org/svn/texlive?view=revision&revision=50334
Author:   preining
Date:     2019-03-11 02:56:18 +0100 (Mon, 11 Mar 2019)
Log Message:
-----------
tlmgr gui: don't enable/disable OK button in repo selection interface

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgrgui.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgrgui.pl	2019-03-11 01:55:52 UTC (rev 50333)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgrgui.pl	2019-03-11 01:56:18 UTC (rev 50334)
@@ -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 {
         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 @@
                       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;