Changeset 648 for trunk

Timestamp:

Dec 4, 2009 5:09:41 PM (13 years ago)

Author:

toby

Message:

# on 2002/09/05 18:29:19, toby did:
make sure a phase & histogram is selected to prevent error
handholding: if there is only 1 histogram/phase select it.

File:

• trunk/profcons.tcl (modified) (4 diffs, 3 props)

trunk/profcons.tcl

@@ -470 +470 @@
         incr i
     }
+    # if there is only 1 choice, select it
+    if {[llength $expmap(phaselist)] == 1} {
+        $expcons(phaselistbox$ic) selection set 0
+    }
     # now insert the histograms into the list
     set i 0
@@ -478 +482 @@
             incr i
         }
+    }
+    # if there is only 1 choice, select it
+    if {[llength $expmap(powderlist)] == 1} {
+        $expcons(histlistbox$ic) selection set 0
     }
 }
@@ -574 +582 @@
     set conslist {}
     for {set ic 1} {$ic < 27} {incr ic} {
+        set phases {}
+        set hists {}
         if ![info exists expcons(phaselistbox$ic)] break
         if ![info exists expcons(histlistbox$ic)] break
@@ -585 +595 @@
         if {[llength $hists] == [llength $expmap(powderlist)]} {
             set hists "ALL"
+        }
+        if {$hists == ""} {
+            MyMessageBox -icon warning -message \
+                    "Please select at least one histogram before trying to save" \
+                    -parent [winfo toplevel $expgui(consFrame)] 
+            return
+        }
+        if {$phases == ""} {
+            MyMessageBox -icon warning -message \
+                    "Please select at least one phase before trying to save" \
+                    -parent [winfo toplevel $expgui(consFrame)] 
+            return
         }
         foreach h $hists {