summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-08 23:12:41 +0000
committerNorbert Preining <preining@logic.at>2008-05-08 23:12:41 +0000
commit3966576298725bf41288ef7e6ca1515ecbc37904 (patch)
tree382ff3232042da9750e300ccde3c87fdc761aab1 /Master
parentcd4722a6ee509e1d29e7baf88b7dd24fffcb173a (diff)
add a button "Default Net Location"
git-svn-id: svn://tug.org/texlive/trunk@7957 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl7
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',