Changeset 720 for trunk/expgui

Timestamp:

Dec 4, 2009 5:10:53 PM (13 years ago)

Author:

toby

Message:

# on 2003/08/11 18:14:54, toby did:
remove Bkg functions #3 & #9 since they are gone from GSAS

File:

• trunk/expgui (modified) (3 diffs, 3 props)

trunk/expgui

@@ -1667 +1667 @@
         set terms [histinfo $hist backterms]
         set expgui(backtermlbl) "($terms terms)"
+        # background type 3 & 9 have gone away
+        if {[histinfo $hist backtype] == 3 || [histinfo $hist backtype] == 9} {
+            MyMessageBox -parent . -title "Background Change" \
+                -type ok -default ok \
+                -icon warning \
+                -message "Background function #[histinfo $hist backtype] is no longer supported -- the function will now be changed to type #1 & the values reset"
+            histinfo $histlist backtype set 1
+            incr expgui(changed)
+            for {set num 1 } { $num <= $terms } { incr num } {
+                set var "bterm$num"
+                histinfo $histlist $var set 0
+                incr expgui(changed)
+            }
+        }
         set expgui(backtypelbl) "Function type [histinfo $hist backtype]"
         foreach var {bref bdamp absref absdamp} {
@@ -2578 +2592 @@
         "1 - Shifted Chebyschev"
         "2 - Cosine Fourier series"
-        "3 - Radial distribution peaks"
         "4 - Power series in Q**2n/n!"
         "5 - Power series in n!/Q**2n"
@@ -2589 +2602 @@
                 -label $item -value $val
     }
+# removed
+#       "3 - Radial distribution peaks"
 
     grid $w.0.type   -row 1 -column 1