Changeset 1021 for branches/sandbox/gsascmds.tcl

Timestamp:

Oct 12, 2010 12:46:50 PM (12 years ago)

Author:

chlake

Message:

add disagl edit & viewer

File:

• branches/sandbox/gsascmds.tcl (modified) (1 diff)

branches/sandbox/gsascmds.tcl

@@ -1517 +1517 @@
 proc rundisagl {} {
     global expgui txtvw tcl_version tcl_platform
+    # call up new DISAGL parm edit box
+    if {[DA_Control_Panel 1]} {return}
+    # Save the current exp file if needed
+    savearchiveexp
     if {$expgui(disaglSeparateBox)} {
         set root [file root $expgui(expfile)]