Changeset 2265 for trunk


Ignore:
Timestamp:
May 31, 2011 9:09:21 AM (13 years ago)
Author:
gah
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/lang/tcl/scripts/objects.tcl

    r2157 r2265  
    396396        set rootf [file rootname $currFile]
    397397        foreach ext {png jpg gif} {
    398             if {[file readable $rootf.$ext]
    399                   && [catch {package present Tk}] == 0} {
     398            if {[file readable $rootf.$ext] &&
     399                [catch {package present Tk}] == 0 &&
     400                [catch {package present Img}] == 0} {
    400401                set imh [image create photo -file $rootf.$ext]
    401402                $currObjDef configure -image $imh
Note: See TracChangeset for help on using the changeset viewer.