From: Adam Dickmeiss <adam@indexdata.dk>
Date: Thu, 29 Jun 1995 09:20:30 +0000 (+0000)
Subject: Target entries in cascade menus are sorted.
X-Git-Tag: IRTCL.1.4~234
X-Git-Url: http://git.indexdata.com/?p=ir-tcl-moved-to-github.git;a=commitdiff_plain;h=a4b0f9719ed243587339ecb90e600b63a057138d

Target entries in cascade menus are sorted.
---

diff --git a/client.tcl b/client.tcl
index ac98e3a..c0b5f48 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.56  1995-06-27 19:03:48  adam
+# Revision 1.57  1995-06-29 09:20:30  adam
+# Target entries in cascade menus are sorted.
+#
+# Revision 1.56  1995/06/27  19:03:48  adam
 # Bug fix in do_present in ir-tcl.c: p->set_child member weren't set.
 # nextResultSetPosition used instead of setOffset.
 #
@@ -1835,7 +1838,7 @@ proc cascade-target-list {} {
         destroy $sub
     }
     .top.target.m.clist delete 0 last
-    foreach n [array names profile] {
+    foreach n [lsort [array names profile]] {
         if {$n != "Default"} {
             set nl [lindex $profile($n) 12]
             if {[llength [lindex $profile($n) 7]] > 1} {
@@ -1853,7 +1856,7 @@ proc cascade-target-list {} {
         }
     }
     .top.target.m.slist delete 0 last
-    foreach n [array names profile] {
+    foreach n [lsort [array names profile]] {
         if {$n != "Default"} {
             .top.target.m.slist add command -label $n \
                     -command [list protocol-setup $n]