Changeset 891 for trunk/modules/abstract.tcl

Timestamp:

02/17/08 18:54:27 (11 months ago)

Author:

james

Message:

exciting times

Files:

• trunk/modules/abstract.tcl (modified) (1 diff)

trunk/modules/abstract.tcl

@@ -344 +344 @@
         }
 
+}
+
+# look to see if an abstract contains an item (warning: could be slow)
+proc bMotion_abstract_contains { abstract item } {
+        bMotion_putloglev 4 * "abstract: bMotion_abstract_contains $abstract $item"
+
+        set contents [bMotion_abstract_all $abstract]
+        putlog $contents
+
+        if {[llength $contents] == 0} {
+                return 0
+        }
+
+        set location [lsearch $contents $item]
+        if {$location > -1} {
+                return 1
+        } else {
+                return 0
+        }
 }