add a button "Default Net Location"

git-svn-id: svn://tug.org/texlive/trunk@7957 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 6 insertions, 1 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
index c081673fd67..a73620ba876 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
@@ -360,7 +360,7 @@ sub menu_edit_location {
   $f1->Label(-text => "New location: ")->pack(-side => "left");
   my $entry = $f1->Entry(-text => $location, -width => 30);
   $entry->pack(-side => "left");
-  my $filebut = $f1->Button(-text => "Choose Directory", 
+  $f1->Button(-text => "Choose Directory", 
     -command => sub {
                       my $var = $sw->chooseDirectory;
                       if (defined($var)) {
@@ -368,6 +368,11 @@ sub menu_edit_location {
                         $entry->insert(0,$var);
                       }
                     })->pack(-side => "left");
+  $f1->Button(-text => "Default Net Location",
+    -command => sub {
+                      $entry->delete(0,"end");
+                      $entry->insert(0,$TeXLiveURL);
+                    })->pack(-side => "left");
   $f1->pack;
   my $f = $sw->Frame;
   $f->Button(-text => 'ok',