summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-08 15:03:57 +0000
committerNorbert Preining <preining@logic.at>2008-05-08 15:03:57 +0000
commit9d6c5baf946c1630f085d2fc4e6feea8df624fad (patch)
treefd0c3af79bd9e306ccc833df3110ff49db15a38c /Master/texmf
parentad2a11fb0fc79384db8024ad5b567abd14469121 (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-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;