diff options
-rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui.pl | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl index f5b0108fa58..683dec5a7cc 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui.pl @@ -97,7 +97,7 @@ my $g; # the scrolled list of packages my $lighttext; my $darktext; my $match_entry; -my $loaded_button; +my $loaded_text; # # communication between filters and the rest @@ -254,12 +254,15 @@ sub do_rest_of_gui { -separator => "/", -selectmode => "none"); - $loaded_button = $mw->Button(-text => __("Loaded repository:") - . " " . __("none"), - -relief => 'flat', + my $button_frame = $mw->Frame; + $loaded_text = $button_frame->Label(-text => __("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); + -ipadx => 0, -ipady => 0, -side => 'right'); + $button_frame->pack(-expand => 1, -fill => 'x', @p_ii); #my $top_frame = $mw->Labelframe(-text => __("Display configuration")); my $top_frame = $gf->Labelframe(-text => __("Display configuration")); @@ -1036,7 +1039,7 @@ sub do_general_settings { $back_config_set->Label(-textvariable => \$changeddefaults{"autobackup"}{'display'}); push @config_set_r, $back_config_set->Button(-text => __("Change"), - -command => sub { select_autobackup($sw); }, -anchor => "w"); + -command => sub { select_autobackup($sw); }); if (!win32()) { push @config_set_l, @@ -1089,7 +1092,7 @@ sub do_general_settings { $back_config_set->Label(-textvariable => \$changeddefaults{'file_assocs'}{'display'}); push @config_set_r, $back_config_set->Button(-text => __("Change"), - -command => sub { select_file_assocs($sw); }, -anchor => "w"); + -command => sub { select_file_assocs($sw); }); } } # of $mode_export @@ -1972,7 +1975,7 @@ sub cb_edit_location { sub update_loaded_location_string { my $arg = shift; $arg || ($arg = $location); - $loaded_button->configure(-text => __("Loaded repository:") . " " . $arg); + $loaded_text->configure(-text => __("Loaded repository:") . " " . $arg); } sub run_update_functions { |