diff options
author | Norbert Preining <preining@logic.at> | 2009-07-09 10:18:08 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-07-09 10:18:08 +0000 |
commit | a20cef6fc12760f4dc0fa3db7427521e65f154b4 (patch) | |
tree | 65e5480954bee82ecde0f3454f20d2473b923114 /Master/texmf/scripts | |
parent | f1268e8e37cd4ffc5dd31ab290a3004ec61376ed (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/texmf/scripts')
-rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl | 13 |
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; } |