summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-06-01 18:39:25 +0000
committerNorbert Preining <preining@logic.at>2010-06-01 18:39:25 +0000
commit32e3ff70ee7e6c77103700dfbacb30a82f9059b3 (patch)
treee17ec07dec1b1fa4e9ef5623ff1d1ee3110471ec /Master/texmf
parent864ebb89e0034d532b6bcacb2c5b88bdaef4eee4 (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/texmf')
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui.pl19
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 {