Changeset 2243

Timestamp:

May 16, 2011 11:51:02 AM (13 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/xyresult.tcl (modified) (1 diff)

trunk/gui/scripts/xyresult.tcl

@@ -353 +353 @@
     foreach obj $_dlist {
         if {[info exists _dataobj2raise($obj)] && $_dataobj2raise($obj)} {
-            set i [lsearch -exact $dlist $obj]
-            if {$i >= 0} {
-                set dlist [lreplace $dlist $i $i]
-                lappend dlist $obj
-            }
-        }
-    }
-    return $dlist
+            lappend top $obj
+        } else {
+            lappend bottom $obj
+        }
+    }
+    set _dlist [concat $bottom $top]
+    return $_dlist
 }