Changeset 5987

Timestamp:

Feb 9, 2016, 12:04:12 PM (8 years ago)

Author:

gah

Message:

add -appname switch for testing

File:

• branches/1.4/gui/scripts/analyzer.tcl (modified) (1 diff)

branches/1.4/gui/scripts/analyzer.tcl

@@ -1770 +1770 @@
     array unset _saved
     array set _saved [$_tree get $node]
+    set root [file root $_saved(FileName)]
+    set files {}
+    foreach file $_saved(Files) {
+        if { [file pathtype $file] == "relative" } {
+            set file [file join $root $file]
+        }
+        lappend files $file
+    }
+    set _saved(Files) $files
     set _done 1 
 }