Changeset 1019 for branches/sandbox/gsascmds.tcl

Timestamp:

Oct 5, 2010 1:56:54 PM (12 years ago)

Author:

toby

Message:

Fix Save as bug

File:

• branches/sandbox/gsascmds.tcl (modified) (2 diffs)

branches/sandbox/gsascmds.tcl

@@ -1953 +1953 @@
 # validate and store the EXP file name. Create a new .EXP file if it does not 
 # exist and set the wd to the location of the .EXP file.
-proc SetEXPfile {expfile} {
+proc SetEXPfile {expfile "newOK 0"} {
     global expgui tcl_platform
     set expgui(expfile) {}
@@ -2066 +2066 @@
     }
 
-    if {! [file exists $newexpfile]} {
+    if {(! $newOK) && (! [file exists $newexpfile])} {
         update
         set ans [