Changeset 3853 for trunk

Timestamp:

Aug 6, 2013 6:46:51 AM (11 years ago)

Author:

gah

Message:

add search path for image files in pictures in drawings

File:

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

trunk/gui/scripts/drawingentry.tcl

@@ -583 +583 @@
     if { [string compare -length 7 $contents "file://"] == 0 } {
         set fileName [string range $contents 7 end]
+        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 $fileName] } {
             set img [image create photo -file $fileName]