From fc76fc117921f8a7a254675daa1362c530ccb2df Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 3 Jun 2010 05:22:37 +0000 Subject: 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 --- Master/texmf/scripts/texlive/tlmgrgui.pl | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'Master') 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")); -- cgit v1.2.3