Changeset 3182 for trunk/gui/scripts
- Timestamp:
- Oct 8, 2012, 3:05:36 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/drawingentry.tcl
r3177 r3182 106 106 itk_component add drawing { 107 107 canvas $itk_interior.canvas -background white -relief sunken -bd 1 \ 108 -width 800 -height 600108 -width 400 -height 300 109 109 } { 110 110 ignore -background … … 460 460 set contents [XmlGetSubst $cpath.contents] 461 461 set img "" 462 if { [string compare -length 5 $contents "file:"] == 0 } {462 if { [string compare -length 7 $contents "file://"] == 0 } { 463 463 set fileName [string range $contents 5 end] 464 464 if { [file exists $fileName] } { 465 465 set img [image create photo -file $fileName] 466 466 } 467 } elseif { [string compare -length 5 $contents "http:"] == 0 } {467 } elseif { [string compare -length 7 $contents "http://"] == 0 } { 468 468 puts stderr "don't know how to handle http" 469 469 return … … 758 758 set _drawingWidth $sw 759 759 } else { 760 set sh [expr int($_canvas eHeight / $wanted)]760 set sh [expr int($_canvasHeight / $wanted)] 761 761 if { $sh < 1 } { 762 762 set sh 1
Note: See TracChangeset
for help on using the changeset viewer.