Changeset 1227 for trunk/gsascmds.tcl


Ignore:
Timestamp:
Dec 7, 2012 4:44:51 PM (8 years ago)
Author:
toby
Message:

fixes for anom and fourier GUIs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    r1225 r1227  
    39383938    if {[lsearch $::expmap(phaselist) $phase] == -1} return
    39393939    # check that all Fourier records are set to the current phase
     3940    set msg ""
    39403941    foreach i [listFourier] {
    39413942        set ph [Fourierinfo $i phase]
    3942         if {$ph != $phase} {Fourierinfo $i phase set $phase}
     3943        if {$ph != $phase} {
     3944            #Fourierinfo $i phase set $phase
     3945            set msg "Reset previous Fourier map(s) for phase $ph?"
     3946        }
     3947    }
     3948    if {$msg != ""} {
     3949        set ans [MyMessageBox -parent . -title "Reset Fourier?" \
     3950                     -message $msg -icon warning -type okcancel]
     3951        if {$ans == "ok"} {
     3952            delFourier
     3953        } else {
     3954            return
     3955        }
    39433956    }
    39443957    # for now we will not offer access to section, (dmin, dmax not supported)
     
    39964009        append ::DXTL(histlist) $i
    39974010    }
     4011    # if we don't have any histograms, set either set the only choice or
     4012    # warn the user
     4013    if {$::DXTL(histlist) == ""} {
     4014        if {[llength $::expmap(powderlist)] == 1} {
     4015            AddFourierHist $::expmap(powderlist)
     4016            set ::DXTL(histlist) $::expmap(powderlist)
     4017        } else {
     4018            set ::DXTL(histlist) "<None: must be set>"
     4019        }
     4020    }
    39984021    grid [label $box.2.m1 -text min] -column 2 -row 2
    39994022    grid [label $box.2.m2 -text max] -column 3 -row 2
Note: See TracChangeset for help on using the changeset viewer.