diff options
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 18 |
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; |