diff options
author | N.N. <matju@users.sourceforge.net> | 2009-05-17 05:26:03 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2009-05-17 05:26:03 +0000 |
commit | c912c997a45f406f7e1da40867f398a2765bec33 (patch) | |
tree | 54a37722b5ffb6d1f85d5005af4266182f091d80 /desiredata | |
parent | eabfb51e29aeb1b86e8796b3deabea8e1387e1a6 (diff) |
fix the autolanguage thing
svn path=/trunk/; revision=11423
Diffstat (limited to 'desiredata')
-rw-r--r-- | desiredata/src/desire.tk | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk index 3dd02c53..cf1cd852 100644 --- a/desiredata/src/desire.tk +++ b/desiredata/src/desire.tk @@ -8304,7 +8304,10 @@ def ClientPrefsDialog get_val {} { } toggle { set look($class:$name) $@$name} integer {set look($class:$name) $@$name} - choice|language {set look($class:$name) $@$name} + choice|language { + if {$@$name == "autolanguage"} {set l auto} {set l $@$name} + set look($class:$name) $l + } #font {set look(View:font) $@str} } } |