From c912c997a45f406f7e1da40867f398a2765bec33 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sun, 17 May 2009 05:26:03 +0000 Subject: fix the autolanguage thing svn path=/trunk/; revision=11423 --- desiredata/src/desire.tk | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'desiredata/src') 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} } } -- cgit v1.2.1