- Timestamp:
- Oct 3, 2013 1:43:59 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/drawingentry.tcl
r3984 r3987 581 581 set contents [XmlGetSubst $cpath.contents] 582 582 set img "" 583 puts stderr "1. contents=$contents"584 583 if { [string compare -length 7 $contents "file://"] == 0 } { 585 584 set fileName [string range $contents 7 end] … … 605 604 return 606 605 } else { 607 puts stderr "2. contents=$contents"608 606 set img [image create photo -data $contents] 609 607 }
Note: See TracChangeset
for help on using the changeset viewer.