From a4b0f9719ed243587339ecb90e600b63a057138d Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Thu, 29 Jun 1995 09:20:30 +0000 Subject: [PATCH] Target entries in cascade menus are sorted. --- client.tcl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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] -- 1.7.10.4