summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-06-04 14:05:44 +0000
committerNorbert Preining <preining@logic.at>2010-06-04 14:05:44 +0000
commitdf4ff1aa4d1ed2bd2beab1ada5f8a3ae1756d517 (patch)
tree4458079a40ecc5790a698da9e4f6baa3953cb6e4 /Master
parent86cda43c9565deb81d62d7621a42168b85cb5b5b (diff)
tlmgr GUI: make "Load default" button disappear after first usage
git-svn-id: svn://tug.org/texlive/trunk@18721 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui.pl6
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl
index 502df3165d4..6467e9d5750 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui.pl
@@ -255,8 +255,10 @@ sub do_rest_of_gui {
-selectmode => "none");
my $button_frame = $mw->Frame;
- $button_frame->Button(-text => __("Load default"),
- -command => sub { setup_location($tlpdb_location); })->pack(
+ my $but;
+ $but = $button_frame->Button(-text => __("Load default"),
+ -command => sub { setup_location($tlpdb_location); $but->packForget; });
+ $but->pack(
-anchor => 'e', -padx => 0, -pady => 0,
-ipadx => 0, -ipady => 0, -side => 'right');
$loaded_text = $button_frame->Label(