Changeset 6123

Timestamp:

Mar 11, 2016, 5:07:53 AM (8 years ago)

Author:

gah

Message:

don't create photo if empty contents

File:

• branches/1.5/gui/scripts/drawingentry.tcl (modified) (2 diffs)

branches/1.5/gui/scripts/drawingentry.tcl

@@ -578 +578 @@
         }
     }
-    set contents [XmlGetSubst $cpath.contents]
+    set contents [string trim [XmlGetSubst $cpath.contents]]
     set img ""
     if { [string compare -length 7 $contents "file://"] == 0 } {
@@ -602 +602 @@
         puts stderr  "don't know how to handle http"
         return
-    } else {
+    } elseif { $contents != "" } {
         set img [image create photo -data $contents]
     }
-    if {$img eq ""} {
+    if {$img == ""} {
         return
     }