summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-07-09 10:18:08 +0000
committerNorbert Preining <preining@logic.at>2009-07-09 10:18:08 +0000
commita20cef6fc12760f4dc0fa3db7427521e65f154b4 (patch)
tree65e5480954bee82ecde0f3454f20d2473b923114 /Master
parentf1268e8e37cd4ffc5dd31ab290a3004ec61376ed (diff)
make file_assoc descriptions more understandable
git-svn-id: svn://tug.org/texlive/trunk@14196 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl13
1 files changed, 11 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl
index 4f5ccb97d3a..81a910deb28 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl
@@ -10,12 +10,21 @@
our $back_config = $back->add("config",-label => ___"config");
$screens{"config"} = $back_config;
+my @fileassocdesc;
+$fileassocdesc[0] = ___"fa_dontchange";
+$fileassocdesc[1] = ___"fa_onlynew";
+$fileassocdesc[2] = ___"fa_all";
+
my %defaults;
for my $key (keys %TeXLive::TLConfig::TLPDBOptionTlmgrName) {
if ($TeXLive::TLConfig::TLPDBOptionType{$key} eq "b") {
$defaults{$key} = ($localtlpdb->option($key) ? ___"yes" : ___"no");
} else {
- $defaults{$key} = $localtlpdb->option($key);
+ if ($key eq "file_assocs") {
+ $defaults{$key} = $fileassocdesc[$localtlpdb->option($key)];
+ } else {
+ $defaults{$key} = $localtlpdb->option($key);
+ }
}
}
@@ -394,7 +403,7 @@ sub select_file_assocs {
-command => sub {
$var = substr($var,0,1);
$localtlpdb->option("file_assocs", $var);
- $defaults{"file_assocs"} = $var;
+ $defaults{"file_assocs"} = $fileassocdesc[$var];
$localtlpdb->save;
$foo->destroy;
}