Changeset 912


Ignore:
Timestamp:
Dec 4, 2009 5:14:12 PM (11 years ago)
Author:
toby
Message:

# on 2008/04/15 17:24:40, toby did:
new button to import diffractometer constants in instedit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/instedit.tcl

    • Property rcs:date changed from 2006/03/29 03:54:37 to 2008/04/15 17:24:40
    • Property rcs:lines changed from +98 -15 to +30 -7
    • Property rcs:rev changed from 1.7 to 1.8
    r878 r912  
    170170            -column 0 -row 2 -sticky e
    171171    grid [entry $bnkfr.e3 -textvariable instdat(name$b) -width 30] \
    172             -column 1 -row 2 -sticky w -columnspan 99
     172            -column 1 -row 2 -sticky w -columnspan 3
     173    grid [checkbutton $bnkfr.import -text "Import Diffractometer Constants"\
     174              -variable instparms(ImportDiffConst)] \
     175        -column 4 -row 2 -sticky e -columnspan 3
    173176
    174177    if {$instparms(banklabel) == "TOF"} {
     
    523526        set instdat(prof${b}_${j}_$i) $val
    524527    }
    525     # TOF grab Difc, difA & zero
    526     if {$T == "T"} {
     528    # grab Diffractometer constants
     529    if {$instparms(ImportDiffConst)} {
    527530        set h $instparms(histimport)
    528531        set difcons [lindex $instparms(hstcons$h) 0]
    529         set instdat(difc$b) [lindex $difcons 0]
    530         set instdat(difa$b) [lindex $difcons 1]
    531         set instdat(zero$b) [lindex $difcons 2]
     532        if {[string range $instdat(banktype) 2 2] == "T"} {
     533            # TOF grab Difc, difA & zero
     534            set instdat(difc$b) [lindex $difcons 0]
     535            set instdat(difa$b) [lindex $difcons 1]
     536            set instdat(zero$b) [lindex $difcons 2]
     537        } elseif {[string range $instdat(banktype) 2 2] == "E"} {
     538            set instdat(difc$b) [lindex $difcons 0]
     539            set instdat(pola$b) [lindex $difcons 4]
     540        } else {
     541            set instdat(difc$b) [lindex $difcons 0]
     542            set instdat(difa$b) [lindex $difcons 1]
     543            set instdat(zero$b) [lindex $difcons 2]
     544            set instdat(ipola$b) [lindex $difcons 3]
     545            set instdat(pola$b) [lindex $difcons 4]
     546            set box $instparms(top).b1
     547            set topfr $box.a
     548            set bnkfr $box.b
     549            if { [lindex $difcons 1] == 0.0} {
     550                $bnkfr.c4a invoke
     551            } else {
     552                $bnkfr.c4b invoke
     553            }
     554        }
    532555    }
    533556    ShowInstProfile $b
Note: See TracChangeset for help on using the changeset viewer.