From b5c24e0e57e924498e34dea43992d65af1b5a31f Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sun, 17 May 2009 03:22:00 +0000 Subject: move language list to where it belongs... but desire.tk still has several language lists... sorry svn path=/trunk/; revision=11418 --- desiredata/src/desire.tk | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) (limited to 'desiredata/src/desire.tk') diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk index f213b588..0d883cdb 100644 --- a/desiredata/src/desire.tk +++ b/desiredata/src/desire.tk @@ -749,13 +749,6 @@ for {set i 0} {$i < $argc} {incr i} { #set cmdline(server) \"$cmdline(server)\" set encoding "" -set langoptions { - english francais deutsch catala espanol portugues italiano bokmal - euskara polski dansk chinese nihongo brasileiro turkce nederlands - russkij - -} -#lappend langoptions {chinese} #lappend langoptions {esperanto} set langfile locale/[switch -regexp -- $language { ^(en|english|C)$ {list english} @@ -8252,7 +8245,8 @@ section Client others toggle View tooltip toggle Wire wirearrow integer Client console - choice View language + language View language + language View language2 integer Canvas pointer_sense } @@ -8375,9 +8369,9 @@ def ClientPrefsDialog init {} { set which_section .$subself.main.$subsection set which_self $subself } - choice { - set @$name $look(View:language) - $self add $which_section [list $name $type -choices $::langoptions] + language { + set @$name $look(View:$name) + $self add $which_section [list $name choice -choices $::langoptions] } color { set str [string tolower $class$name] -- cgit v1.2.1