diff options
author | Norbert Preining <preining@logic.at> | 2008-05-08 15:03:57 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-08 15:03:57 +0000 |
commit | 9d6c5baf946c1630f085d2fc4e6feea8df624fad (patch) | |
tree | fd0c3af79bd9e306ccc833df3110ff49db15a38c /Master/texmf | |
parent | ad2a11fb0fc79384db8024ad5b567abd14469121 (diff) |
help with choosing directory
git-svn-id: svn://tug.org/texlive/trunk@7948 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-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; |