Changeset 398

Timestamp:

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

Author:

toby

Message:

# on 2001/06/29 18:03:32, toby did:
Add bkgedit command

File:

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

trunk/gsascmds.tcl

@@ -1029 +1029 @@
     exec $wishshell [file join $expgui(scriptdir) widplt] \
             $expgui(expfile) &
+}
+
+# run bkgedit
+proc bkgedit {"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) bkgedit] \
+            $expnam $hst $liveplot(legend)
+    if {$expgui(autoiconify)} {wm deiconify .}
+    # check for changes in the .EXP file immediately
+    whenidle
 }