Changeset 3182 for trunk/gui/scripts/drawingentry.tcl

Timestamp:

Oct 8, 2012, 3:05:36 PM (12 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/drawingentry.tcl (modified) (3 diffs)

trunk/gui/scripts/drawingentry.tcl

@@ -106 +106 @@
     itk_component add drawing {
         canvas $itk_interior.canvas -background white -relief sunken -bd 1 \
-            -width 800 -height 600
+            -width 400 -height 300
     } {
         ignore -background
@@ -460 +460 @@
     set contents [XmlGetSubst $cpath.contents]
     set img ""
-    if { [string compare -length 5 $contents "file:"] == 0 } {
+    if { [string compare -length 7 $contents "file://"] == 0 } {
         set fileName [string range $contents 5 end]
         if { [file exists $fileName] } {
             set img [image create photo -file $fileName]
         }
-    } elseif { [string compare -length 5 $contents "http:"] == 0 } {
+    } elseif { [string compare -length 7 $contents "http://"] == 0 } {
         puts stderr  "don't know how to handle http"
         return
@@ -758 +758 @@
         set _drawingWidth $sw
     } else {
-        set sh [expr int($_canvaseHeight / $wanted)]
+        set sh [expr int($_canvasHeight / $wanted)]
         if { $sh < 1 }  {
             set sh 1