Changeset 428 for trunk/gui/scripts/analyzer.tcl
- Timestamp:
- May 3, 2006, 8:15:18 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/analyzer.tcl
r413 r428 65 65 protected method _simOutput {message} 66 66 protected method _resultTooltip {} 67 protected method _mkdir {dir} 67 68 68 69 private variable _tool "" ;# belongs to this tool … … 364 365 # file, then move the run.xml file there for storage 365 366 if {"" != $_resultdir} { 366 file rename -force -- $file $_resultdir 367 catch { 368 if {![file exists $_resultdir]} { 369 _mkdir $_resultdir 370 } 371 file rename -force -- $file $_resultdir 372 } 367 373 } 368 374 } else { … … 454 460 table* { 455 461 _autoLabel $xmlobj output.$item "Energy Levels" counters 462 } 463 sequence* { 464 _autoLabel $xmlobj output.$item "Sequence" counters 456 465 } 457 466 } … … 976 985 977 986 # ---------------------------------------------------------------------- 987 # USAGE: _mkdir <directory> 988 # 989 # Used internally to create the <directory> in the file system. 990 # The parent directory is also created, as needed. 991 # ---------------------------------------------------------------------- 992 itcl::body Rappture::Analyzer::_mkdir {dir} { 993 set parent [file dirname $dir] 994 if {"." != $parent && "/" != $parent} { 995 if {![file exists $parent]} { 996 _mkdir $parent 997 } 998 } 999 file mkdir $dir 1000 } 1001 1002 # ---------------------------------------------------------------------- 978 1003 # USAGE: _fixSimControl 979 1004 #
Note: See TracChangeset
for help on using the changeset viewer.