Ignore:
Timestamp:
Jul 19, 2007 5:20:46 AM (14 years ago)
Author:
mmc
Message:

Added support for experimental <drawing> object.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tcl/scripts/library.tcl

    r763 r784  
    139139                    if {[$xmlobj element $cpath.current.parameters] != ""} {
    140140                        lappend queue $cpath.current.parameters
     141                    }
     142                }
     143                drawing {
     144                    # add this to the return list with the right flavor
     145                    if {$params(-as) == "component"} {
     146                        lappend rlist $cpath
     147                    } else {
     148                        lappend rlist [$xmlobj element -as $params(-as) $cpath]
     149                    }
     150
     151                    foreach child [$xmlobj children $cpath.current] {
     152                        if {[string match about* $child]} {
     153                            continue
     154                        }
     155                        if {[$xmlobj element $cpath.current.$child.parameters] != ""} {
     156                            lappend queue $cpath.current.$child.parameters
     157                        }
    141158                    }
    142159                }
Note: See TracChangeset for help on using the changeset viewer.