From a20cef6fc12760f4dc0fa3db7427521e65f154b4 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 9 Jul 2009 10:18:08 +0000 Subject: make file_assoc descriptions more understandable git-svn-id: svn://tug.org/texlive/trunk@14196 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'Master') 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; } -- cgit v1.2.3