summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl18
1 files changed, 14 insertions, 4 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
index 17af6c9d152..24c379298e7 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
@@ -332,11 +332,21 @@ sub setup_list {
sub menu_edit_location {
my $key = shift;
- my $val = $location;
+ my $val;
my $sw = $mw->Toplevel(-title => "Change Location");
- $sw->Label(-text => "New location: ")->pack;
- my $entry = $sw->Entry(-text => $location, -width => 30);
- $entry->pack;
+ my $f1 = $sw->Frame;
+ $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",
+ -command => sub {
+ my $var = $sw->chooseDirectory;
+ if (defined($var)) {
+ $entry->delete(0,"end");
+ $entry->insert(0,$var);
+ }
+ })->pack(-side => "left");
+ $f1->pack;
my $f = $sw->Frame;
$f->Button(-text => 'ok',
-command => sub { $location = $entry->get;