--- capa/capa51/GUITools/common.tcl	2000/01/10 22:40:30	1.6
+++ capa/capa51/GUITools/common.tcl	2000/01/31 18:34:13	1.7
@@ -1640,6 +1640,15 @@ proc lunique __LIST {
     }
 }
 
+###########################################################
+# lreverse
+###########################################################
+proc lreverse list { 
+    set result ""
+    foreach element $list { set result [linsert $result 0 $element] } 
+    return [concat $result]
+}
+
 proc splitline { line maxLength } {
     set length [string length $line]
     set lines [expr $length/$maxLength + 1]