tlmgr gui: add separate "Load default" button in the main screen

git-svn-id: svn://tug.org/texlive/trunk@18708 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 7 insertions, 5 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl
index 683dec5a7cc..502df3165d4 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui.pl
@@ -255,13 +255,15 @@ sub do_rest_of_gui {
         -selectmode => "none");
 
   my $button_frame = $mw->Frame;
-  $loaded_text = $button_frame->Label(-text => __("none"));
+  $button_frame->Button(-text => __("Load default"),
+    -command => sub { setup_location($tlpdb_location); })->pack(
+      -anchor => 'e', -padx => 0, -pady => 0,
+      -ipadx => 0, -ipady => 0, -side => 'right');
+  $loaded_text = $button_frame->Label(
+    -text => __("Loaded repository:") . " " .__("none"));
   $loaded_text->pack(-anchor => 'e', -padx => 0, -pady => 0, 
     -ipadx => 0, -ipady => 0, -side => 'right');
-  my $loaded_button = $button_frame->Button(-text => __("Loaded repository:"),
-    -command => sub { setup_location($tlpdb_location); });
-  $loaded_button->pack(-anchor => 'e', -padx => 0, -pady => 0, 
-    -ipadx => 0, -ipady => 0, -side => 'right');
+    
   $button_frame->pack(-expand => 1, -fill => 'x', @p_ii);
 
   #my $top_frame = $mw->Labelframe(-text => __("Display configuration"));