Changeset 1019

Timestamp:

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

Author:

toby

Message:

Fix Save as bug

Location:

branches/sandbox

Files:

• expgui (modified) (1 diff)
• gsascmds.tcl (modified) (2 diffs)

branches/sandbox/expgui

@@ -546 +546 @@
     set newexpfile [getExpFileName new]
     if {$newexpfile == ""} return 
-    SetEXPfile $newexpfile
+    SetEXPfile $newexpfile 1
     if {$expgui(expfile) == ""} {
         set expgui(expfile) $prevexp

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 [