diff options
| author | Norbert Preining <preining@logic.at> | 2010-06-04 14:05:44 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2010-06-04 14:05:44 +0000 |
| commit | df4ff1aa4d1ed2bd2beab1ada5f8a3ae1756d517 (patch) | |
| tree | 4458079a40ecc5790a698da9e4f6baa3953cb6e4 /Master/texmf/scripts | |
| parent | 86cda43c9565deb81d62d7621a42168b85cb5b5b (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/texmf/scripts')
| -rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui.pl | 6 |
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( |