From bc959f8f9b7a7ef699a545b87849888db1cff00a Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 11 Mar 2019 01:56:18 +0000 Subject: 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 --- Master/texmf-dist/scripts/texlive/tlmgrgui.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'Master/texmf-dist/scripts') 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; -- cgit v1.2.3