From 3966576298725bf41288ef7e6ca1515ecbc37904 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 8 May 2008 23:12:41 +0000 Subject: add a button "Default Net Location" git-svn-id: svn://tug.org/texlive/trunk@7957 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Master/texmf') 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', -- cgit v1.2.3