From df4ff1aa4d1ed2bd2beab1ada5f8a3ae1756d517 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 4 Jun 2010 14:05:44 +0000 Subject: tlmgr GUI: make "Load default" button disappear after first usage git-svn-id: svn://tug.org/texlive/trunk@18721 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Master/texmf/scripts') 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( -- cgit v1.2.3