From 9d6c5baf946c1630f085d2fc4e6feea8df624fad Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 8 May 2008 15:03:57 +0000 Subject: help with choosing directory git-svn-id: svn://tug.org/texlive/trunk@7948 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) (limited to 'Master/texmf') 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; -- cgit v1.2.3