Changeset 5987


Ignore:
Timestamp:
Feb 9, 2016 12:04:12 PM (8 years ago)
Author:
gah
Message:

add -appname switch for testing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.4/gui/scripts/analyzer.tcl

    r5986 r5987  
    17701770    array unset _saved
    17711771    array set _saved [$_tree get $node]
     1772    set root [file root $_saved(FileName)]
     1773    set files {}
     1774    foreach file $_saved(Files) {
     1775        if { [file pathtype $file] == "relative" } {
     1776            set file [file join $root $file]
     1777        }
     1778        lappend files $file
     1779    }
     1780    set _saved(Files) $files
    17721781    set _done 1
    17731782}
Note: See TracChangeset for help on using the changeset viewer.