Changeset 2170 for branches/blt4/lang/tcl/scripts/library.tcl

Timestamp:

Mar 30, 2011 12:34:02 PM (13 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/lang/tcl/scripts/library.tcl (modified) (5 diffs)

branches/blt4/lang/tcl/scripts/library.tcl

@@ -17 +17 @@
     variable stdlib ""
 }
+
+# load the object system along with the XML library code
+Rappture::objects::init
 
 # ----------------------------------------------------------------------
@@ -133 +136 @@
 
         foreach cpath [$xmlobj children -as path $path] {
-            switch -- [$xmlobj element -as type $cpath] {
+            set type [$xmlobj element -as type $cpath]
+            switch -- $type {
                 group - phase {
                     lappend queue $cpath
@@ -167 +171 @@
                 }
                 default {
-                    # 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]
+                    if {[catch {Rappture::objects::get $type}] == 0} {
+                        # 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]
+                        }
                     }
 
@@ -200 +206 @@
     public method copy {path from args}
     public method remove {{path ""}}
-    public method xml {}
+    public method xml {{path ""}}
 
     public method diff {libobj}
@@ -651 +657 @@
 
 # ----------------------------------------------------------------------
-# USAGE: xml
+# USAGE: xml ?<path>?
 #
 # Returns a string representing the XML information for the information
 # in this library.
 # ----------------------------------------------------------------------
-itcl::body Rappture::LibraryObj::xml {} {
-    return [$_node asXML]
+itcl::body Rappture::LibraryObj::xml {{path ""}} {
+    if {"" != $path} {
+        set n [find $path]
+    } else {
+        set n $_node
+    }
+    return [$n asXML]
 }