Changeset 2201 for branches/blt4/lang


Ignore:
Timestamp:
Apr 12, 2011, 2:29:06 PM (13 years ago)
Author:
gah
Message:
 
Location:
branches/blt4/lang/tcl/scripts
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r2170 r2201  
    600600    if {[Rappture::library isvalid $str]} {
    601601        foreach n [[$str info variable _node -value] childNodes] {
     602            if { [$n nodeType] == "COMMENT_NODE" } {
     603                continue
     604            }
    602605            $node appendXML [$n asXML]
    603606        }

  • branches/blt4/lang/tcl/scripts/objects.tcl

    r2170 r2201  
    398398            if {[file readable $rootf.$ext]
    399399                  && [catch {package present Tk}] == 0} {
    400                 set imh [image create photo -file $rootf.$ext]
     400                set imh [image create picture -file $rootf.$ext]
    401401                $currObjDef configure -image $imh
    402402                break
Note: See TracChangeset for help on using the changeset viewer.