Changeset 200 for trunk/orient.tcl


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

# on 2000/06/09 03:50:40, toby did:
Minor cleanups
loop on $expmap(phaselist_$hist) so only used phases are shown

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/orient.tcl

    • Property rcs:date changed from 2000/06/06 03:04:09 to 2000/06/09 03:50:40
    • Property rcs:rev changed from 1.1 to 1.2
    • Property rcs:lines set to +18 -19
    r195 r200  
    237237    # loop over histograms and phases
    238238    set row -1
    239     set framePO $pOrientf1
    240239    foreach hist $histlist {
    241         foreach phase $expmap(phaselist) {
    242             grid [frame $framePO.sp$row -bd 8 -bg white] \
     240        foreach phase $expmap(phaselist_$hist) {
     241            grid [frame $pOrientf1.sp$row -bd 8 -bg white] \
    243242                -columnspan 20 -column 0 -row [incr row] -sticky nsew
    244243            # add extra label here when more than one histogram is selected
     
    248247                set lbl "Phase $phase"
    249248            }
    250             grid [label $framePO.l1$row -text $lbl] \
     249            grid [label $pOrientf1.l1$row -text $lbl] \
    251250                    -column 0 -row [incr row] -sticky nws
    252251            set naxis [hapinfo $hist $phase POnaxis]
    253252            set col 0
    254253            foreach var {h k l} {
    255                 grid [label $framePO.l${var}$row -text $var \
     254                grid [label $pOrientf1.l${var}$row -text $var \
    256255                        -anchor center] \
    257256                        -column [incr col] -row $row -sticky ews
    258257            }
    259             grid [label $framePO.lrat$row -text "Ratio" -anchor center] \
     258            grid [label $pOrientf1.lrat$row -text "Ratio" -anchor center] \
    260259                    -column 10 -row $row -sticky ews
    261260            if {$naxis > 1} {
    262                 grid [label $framePO.lfrac$row -text "Fraction" \
     261                grid [label $pOrientf1.lfrac$row -text "Fraction" \
    263262                        -anchor center] \
    264263                        -column 13 -row $row -sticky ews
    265264            }
    266             grid [label $framePO.ld$row -text "Damping"] \
     265            grid [label $pOrientf1.ld$row -text "Damping"] \
    267266                    -column 15 -row $row -sticky es
    268267            for {set axis 1} {$axis <= $naxis} {incr axis} {
     
    282281                incr row
    283282                set col -1
    284                 grid [label $framePO.axis$row -text "axis $axis"\
     283                grid [label $pOrientf1.axis$row -text "axis $axis"\
    285284                        -anchor center ] \
    286285                        -column [incr col] -row $row
     
    288287                # Axis
    289288                foreach var {h k l} {
    290                     grid [entry $framePO.e${var}$row \
     289                    grid [entry $pOrientf1.e${var}$row \
    291290                            -textvariable entryvar(${var}$phax) -width 4] \
    292291                            -column [incr col] -row $row
    293292                }
    294293                # Ratio
    295                 grid [entry $framePO.erat$row \
     294                grid [entry $pOrientf1.erat$row \
    296295                        -textvariable entryvar(ratio$phax) -width 10] \
    297296                        -column 10 -row $row -sticky e
    298297                # ratio refine
    299                 grid [checkbutton $framePO.ratref$row \
     298                grid [checkbutton $pOrientf1.ratref$row \
    300299                        -variable entryvar(ratioref$phax)] \
    301300                        -column 11 -row $row -sticky w
    302301                if {$naxis > 1} {
    303302                    # Fraction
    304                     grid [entry $framePO.efrac$row \
     303                    grid [entry $pOrientf1.efrac$row \
    305304                            -textvariable entryvar(fraction$phax) -width 10] \
    306305                            -column 13 -row $row -sticky e
    307306                    # fraction refine
    308                     grid [checkbutton $framePO.fracref$row \
     307                    grid [checkbutton $pOrientf1.fracref$row \
    309308                            -variable entryvar(fracref$phax)] \
    310309                            -column 14 -row $row -sticky w
    311310                }
    312311                #damp
    313                 tk_optionMenu $framePO.opd$row \
     312                tk_optionMenu $pOrientf1.opd$row \
    314313                        entryvar(damp$phax) \
    315314                        0 1 2 3 4 5 6 7 8 9
    316                 grid $framePO.opd$row \
     315                grid $pOrientf1.opd$row \
    317316                        -column 15 -row $row -sticky e
    318317            }
    319             grid [button $framePO.add$row -text "Add axis" \
     318            grid [button $pOrientf1.add$row -text "Add axis" \
    320319                    -command "AddNewPOaxis $hist $phase"] \
    321320                    -column 0 -columnspan 4 -row [incr row] -sticky nws
     
    323322        }
    324323    }
    325     grid [frame $framePO.sp$row -bd 8 -bg white] \
     324    grid [frame $pOrientf1.sp$row -bd 8 -bg white] \
    326325            -columnspan 20 -column 0 -row [incr row] -sticky nsew
    327326
Note: See TracChangeset for help on using the changeset viewer.