diff options
-rw-r--r-- | desiredata/src/desire.tk | 2 |
1 files changed, 1 insertions, 1 deletions
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]"} |