Changeset 1019 for branches/sandbox


Ignore:
Timestamp:
Oct 5, 2010 1:56:54 PM (10 years ago)
Author:
toby
Message:

Fix Save as bug

Location:
branches/sandbox
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/expgui

    r1015 r1019  
    546546    set newexpfile [getExpFileName new]
    547547    if {$newexpfile == ""} return
    548     SetEXPfile $newexpfile
     548    SetEXPfile $newexpfile 1
    549549    if {$expgui(expfile) == ""} {
    550550        set expgui(expfile) $prevexp
  • branches/sandbox/gsascmds.tcl

    r1015 r1019  
    19531953# validate and store the EXP file name. Create a new .EXP file if it does not
    19541954# exist and set the wd to the location of the .EXP file.
    1955 proc SetEXPfile {expfile} {
     1955proc SetEXPfile {expfile "newOK 0"} {
    19561956    global expgui tcl_platform
    19571957    set expgui(expfile) {}
     
    20662066    }
    20672067
    2068     if {! [file exists $newexpfile]} {
     2068    if {(! $newOK) && (! [file exists $newexpfile])} {
    20692069        update
    20702070        set ans [
Note: See TracChangeset for help on using the changeset viewer.