Changeset 784 for trunk/tcl

Timestamp:

Jul 19, 2007, 5:20:46 AM (17 years ago)

Author:

mmc

Message:

Added support for experimental <drawing> object.

File:

• trunk/tcl/scripts/library.tcl (modified) (1 diff)

trunk/tcl/scripts/library.tcl

@@ -139 +139 @@
                     if {[$xmlobj element $cpath.current.parameters] != ""} {
                         lappend queue $cpath.current.parameters
+                    }
+                }
+                drawing {
+                    # add this to the return list with the right flavor
+                    if {$params(-as) == "component"} {
+                        lappend rlist $cpath
+                    } else {
+                        lappend rlist [$xmlobj element -as $params(-as) $cpath]
+                    }
+
+                    foreach child [$xmlobj children $cpath.current] {
+                        if {[string match about* $child]} {
+                            continue
+                        }
+                        if {[$xmlobj element $cpath.current.$child.parameters] != ""} {
+                            lappend queue $cpath.current.$child.parameters
+                        }
                     }
                 }