From 32e3ff70ee7e6c77103700dfbacb30a82f9059b3 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 1 Jun 2010 18:39:25 +0000 Subject: tlmgr gui: - make hidden load button actually visible - fix wrongly aligned button text in options (Mojca email) git-svn-id: svn://tug.org/texlive/trunk@18679 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui.pl | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) (limited to 'Master') 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 { -- cgit v1.2.3