diff options
Diffstat (limited to 'Master/texmf')
-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; } |