Changeset 3854

Timestamp:

Aug 6, 2013, 6:49:30 AM (11 years ago)

Author:

gah

Message:

add search path for image files in pictures in drawings

File:

• branches/1.3/gui/scripts/drawingentry.tcl (modified) (1 diff)

branches/1.3/gui/scripts/drawingentry.tcl

@@ -583 +583 @@
     if { [string compare -length 7 $contents "file://"] == 0 } {
         set fileName [string range $contents 7 end]
-        if { [file exists $fileName] } {
-            set img [image create photo -file $fileName]
+        set path $fileName
+        # find the file on a search path
+        if { [file pathtype $path] != "absolute" } {
+            set dir [[$_owner tool] installdir]
+            set searchlist [list $dir [file join $dir docs]]
+            foreach dir $searchlist {
+                if {[file readable [file join $dir $fileName]]} {
+                    set path [file join $dir $fileName]
+                    break
+                }
+            }
+        }
+        if { [file exists $path] } {
+            set img [image create photo -file $path]
         } else {
-            puts stderr "WARNING: can't find picture contents \"$fileName\""
+            puts stderr "WARNING: can't find picture contents \"$path\""
         }
     } elseif { [string compare -length 7 $contents "http://"] == 0 } {