Changeset 431

Timestamp:

Dec 4, 2009 5:06:03 PM (14 years ago)

Author:

toby

Message:

# on 2001/09/04 22:58:36, toby did:
add excledt

File:

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

trunk/gsascmds.tcl

@@ -1059 +1059 @@
     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
+}
+
+# run excledt
+proc excledit {"hst {}"} {
+    global expgui liveplot wishshell expmap
+    set expnam [file root [file tail $expgui(expfile)]]
+    if {$hst == ""} {
+        # which histograms are ready for use?
+        set validlist {}
+        foreach ihist $expmap(powderlist) {
+            if {[string range $expmap(htype_$ihist) 3 3] == "" || \
+                    [string range $expmap(htype_$ihist) 3 3] == "*"} {
+                lappend validlist $ihist
+            }
+        }
+        if {[llength $validlist] == 0} {
+            MyMessageBox -parent . -title "No Valid Histograms" \
+                    -message "No histograms are ready to plot. Run POWPREF and try again" \
+                    -icon warning -helplink "expguierr.html NoValidHist"
+            return
+        }
+        # use $liveplot(hst) if valid, the 1st entry otherwise
+        if {[lsearch $validlist $liveplot(hst)] != -1} {
+            set hst $liveplot(hst)
+        } else {
+            set hst [lindex $validlist 0]
+        }
+    }
+    if {$expgui(autoiconify)} {wm iconify .}
+    exec $wishshell [file join $expgui(scriptdir) excledt] \
             $expnam $hst $liveplot(legend)
     if {$expgui(autoiconify)} {wm deiconify .}