Changeset 4181 for trunk/lang/tcl/scripts/library.tcl

Timestamp:

Feb 14, 2014, 3:05:10 PM (11 years ago)

Author:

gah

Message:

add loader label to be diffed, execout(error) may not exist is no stderr

File:

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

trunk/lang/tcl/scripts/library.tcl

@@ -171 +171 @@
                     }
                 }
+                loader {
+                    if {$params(-as) == "component"} {
+                        lappend rlist $cpath
+                    } else {
+                        lappend rlist [$xmlobj element -as $params(-as) $cpath]
+                    }
+                }
                 default {
                     if {[catch {Rappture::objects::get $type}] == 0} {