Changeset 791

Timestamp:

Dec 4, 2009 5:12:05 PM (14 years ago)

Author:

toby

Message:

# on 2004/05/04 17:20:35, toby did:
save .EXP before call to bkgedit (bug fix)

File:

• trunk/gsascmds.tcl (modified) (1 diff, 3 props)

trunk/gsascmds.tcl

@@ -1118 +1118 @@
         }
     }
+    # Save the current exp file
+    savearchiveexp
+    # disable the file change monitor if we will reload the .EXP file automatically
+    if {$expgui(autoexpload)} {set expgui(expModifiedLast) 0}
     if {$expgui(autoiconify)} {wm iconify .}
     exec $wishshell [file join $expgui(scriptdir) bkgedit] \
             $expnam $hst $liveplot(legend)
     if {$expgui(autoiconify)} {wm deiconify .}
-    # check for changes in the .EXP file immediately
-    whenidle
+    # load the changed .EXP file automatically?
+    if {$expgui(autoexpload)} {
+        # load the revised exp file
+        loadexp $expgui(expfile)
+    } else {
+        # check for changes in the .EXP file immediately
+        whenidle
+    }
 }