Changeset 392

Timestamp:

Dec 4, 2009 5:05:24 PM (13 years ago)

Author:

toby

Message:

# on 2001/05/11 18:35:14, toby did:
test histograms before sending them to liveplot -- avoid errors on read

File:

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

trunk/gsascmds.tcl

@@ -992 +992 @@
 # run liveplot
 proc liveplot {} {
-    global expgui liveplot wishshell
+    global expgui liveplot wishshell expmap
     set expnam [file root [file tail $expgui(expfile)]]
-    exec $wishshell [file join $expgui(scriptdir) liveplot] \
-            $expnam $liveplot(hst) $liveplot(legend) &
+    # which histograms are ready for use?
+    set validlist {}
+    foreach ihist $expmap(powderlist) {
+        if {[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 GENLES 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} {
+        exec $wishshell [file join $expgui(scriptdir) liveplot] \
+                $expnam $liveplot(hst) $liveplot(legend) &
+    } else {
+        exec $wishshell [file join $expgui(scriptdir) liveplot] \
+                $expnam [lindex $validlist 0] $liveplot(legend) &
+    }
 }