From c912c997a45f406f7e1da40867f398a2765bec33 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
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