Changeset 720 for trunk/expgui


Ignore:
Timestamp:
Dec 4, 2009 5:10:53 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 2003/05/22 21:40:38 to 2003/08/11 18:14:54
    • Property rcs:lines changed from +10 -8 to +18 -3
    • Property rcs:rev changed from 1.61 to 1.62
    r696 r720  
    16671667        set terms [histinfo $hist backterms]
    16681668        set expgui(backtermlbl) "($terms terms)"
     1669        # background type 3 & 9 have gone away
     1670        if {[histinfo $hist backtype] == 3 || [histinfo $hist backtype] == 9} {
     1671            MyMessageBox -parent . -title "Background Change" \
     1672                -type ok -default ok \
     1673                -icon warning \
     1674                -message "Background function #[histinfo $hist backtype] is no longer supported -- the function will now be changed to type #1 & the values reset"
     1675            histinfo $histlist backtype set 1
     1676            incr expgui(changed)
     1677            for {set num 1 } { $num <= $terms } { incr num } {
     1678                set var "bterm$num"
     1679                histinfo $histlist $var set 0
     1680                incr expgui(changed)
     1681            }
     1682        }
    16691683        set expgui(backtypelbl) "Function type [histinfo $hist backtype]"
    16701684        foreach var {bref bdamp absref absdamp} {
     
    25782592        "1 - Shifted Chebyschev"
    25792593        "2 - Cosine Fourier series"
    2580         "3 - Radial distribution peaks"
    25812594        "4 - Power series in Q**2n/n!"
    25822595        "5 - Power series in n!/Q**2n"
     
    25892602                -label $item -value $val
    25902603    }
     2604# removed
     2605#       "3 - Radial distribution peaks"
    25912606
    25922607    grid $w.0.type   -row 1 -column 1
Note: See TracChangeset for help on using the changeset viewer.