Changeset 1019
- Timestamp:
- Oct 5, 2010 1:56:54 PM (10 years ago)
- Location:
- branches/sandbox
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/sandbox/expgui
r1015 r1019 546 546 set newexpfile [getExpFileName new] 547 547 if {$newexpfile == ""} return 548 SetEXPfile $newexpfile 548 SetEXPfile $newexpfile 1 549 549 if {$expgui(expfile) == ""} { 550 550 set expgui(expfile) $prevexp -
branches/sandbox/gsascmds.tcl
r1015 r1019 1953 1953 # validate and store the EXP file name. Create a new .EXP file if it does not 1954 1954 # exist and set the wd to the location of the .EXP file. 1955 proc SetEXPfile {expfile } {1955 proc SetEXPfile {expfile "newOK 0"} { 1956 1956 global expgui tcl_platform 1957 1957 set expgui(expfile) {} … … 2066 2066 } 2067 2067 2068 if { ! [file exists $newexpfile]} {2068 if {(! $newOK) && (! [file exists $newexpfile])} { 2069 2069 update 2070 2070 set ans [
Note: See TracChangeset
for help on using the changeset viewer.