diff options
author | Norbert Preining <preining@logic.at> | 2010-06-01 18:39:25 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2010-06-01 18:39:25 +0000 |
commit | 32e3ff70ee7e6c77103700dfbacb30a82f9059b3 (patch) | |
tree | e17ec07dec1b1fa4e9ef5623ff1d1ee3110471ec /Master | |
parent | 864ebb89e0034d532b6bcacb2c5b88bdaef4eee4 (diff) |
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
Diffstat (limited to 'Master')
-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 { |