From 1d3e4b2335d85d72158365cd57cd22f304b2a70a Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Mon, 27 Apr 2009 06:09:01 +0000
Subject: class browser entries are sorted like they used to be

svn path=/trunk/; revision=11169
---
 desiredata/src/desire.tk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'desiredata/src/desire.tk')

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index 967abdd5..ffadd2bf 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -7058,7 +7058,7 @@ def ClassBrowser init {name x y textbox} {
 def ClassBrowser fill_box {s} {
 	global class_list
 	$@listbox delete 0 end
-	foreach class $class_list {
+	foreach class [lsort $class_list] {
 		if {[string length $s]==0 || [string first $s $class]>=0} {
 			set t "\[$class\]"
 			if {[can_say $class]} {append t "  [say $class]"}
-- 
cgit v1.2.1