Changeset 729


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

# on 2003/08/11 19:27:59, toby did:
code cleanup -col -> -column

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cifselect.tcl

    • Property rcs:date changed from 2002/09/05 18:28:06 to 2003/08/11 19:27:59
    • Property rcs:lines changed from +3 -2 to +23 -23
    • Property rcs:rev changed from 1.2 to 1.3
    r647 r729  
    9292    # overall heading
    9393    grid [frame $frame.head] \
    94             -row 0 -col 0 -columnspan 99 -sticky ew
     94            -row 0 -column 0 -columnspan 99 -sticky ew
    9595    grid [label $frame.head.l -textvariable CIFselect(boxhead)\
    9696            -anchor center] \
    97             -row 0 -col 0 -sticky ew
     97            -row 0 -column 0 -sticky ew
    9898    set CIFselect(boxhead) "Select an atom for distance and angle display"
    9999    grid columnconfigure $frame.head 0 -weight 1 -pad 10
     
    119119            "Distances and angles around atom [labelatom $phase $atom]"
    120120
    121     grid [frame $frame.a] -row 1 -col 0 -columnspan 99
     121    grid [frame $frame.a] -row 1 -column 0 -columnspan 99
    122122    foreach {tbox bbox sbox cbox} [MakeScrollTable $frame.a] {}
    123123    [winfo parent $bbox] config -width 550 -height 300
     
    126126    set row 0
    127127    grid [label $tbox.$row-2 -text distance \
    128                 -width $width] -row $row -col 2
     128                -width $width] -row $row -column 2
    129129    set col 3
    130130    foreach l $alist {
     
    133133        incr col
    134134        grid [label $tbox.$row-$col -text [labelatom $phase $l] \
    135                 -width $width] -row $row -col $col
     135                -width $width] -row $row -column $col
    136136        incr col
    137137    }
     
    144144        set col 0
    145145        grid [label $sbox.$row-l -text [labelatom $phase $l]] \
    146                 -row $row -col $col
     146                -row $row -column $col
    147147        incr col 2
    148148        set dist [eval formatSU $disarr(${phase}P${atom}:$l)]
    149149        grid [label $bbox.$row-d -text $dist -width $width] \
    150                 -row $row -col $col -sticky ew
     150                -row $row -column $col -sticky ew
    151151        ColorWidget $bbox.$row-d $disflag(${phase}P${atom}:$l)
    152152        set widget($bbox.$row-d) ${phase}P${atom}:$l
     
    166166                incr col 2
    167167                grid [label $bbox.$row-$col -text $atxt -width $width] \
    168                         -row $row -col $col -sticky ew
     168                        -row $row -column $col -sticky ew
    169169                ColorWidget $bbox.$row-$col $angflag($index)
    170170                set widget($bbox.$row-$col) $index
     
    180180        set col 0
    181181        grid [label $sbox.$row-l -text [labelatom $phase $l]] \
    182                 -row $row -col $col
     182                -row $row -column $col
    183183        set dist [eval formatSU $disarr(${phase}P${atom}:$l)]
    184184        incr col 2
    185185        grid [label $bbox.$row-d -text $dist -width $width] \
    186                 -row $row -col $col -sticky ew
     186                -row $row -column $col -sticky ew
    187187        ColorWidget $bbox.$row-d $disflag(${phase}P${atom}:$l)
    188188        set widget($bbox.$row-d) ${phase}P${atom}:$l
     
    530530    bind $top <Key-F1> "MakeWWWHelp gsas2cif.html cifselect"
    531531
    532     grid [frame $top.mode -bd 4 -relief groove] -row 1 -col 1 -sticky news
     532    grid [frame $top.mode -bd 4 -relief groove] -row 1 -column 1 -sticky news
    533533    grid [label $top.mode.l -text "Response to Mouse click:"] \
    534             -row 1 -col 0 -columnspan 99
     534            -row 1 -column 0 -columnspan 99
    535535    set col 1
    536536    foreach val {Toggle Set Clear} {
    537537        grid [radiobutton $top.mode.r$col -text $val \
    538538                -variable CIFselect(click) \
    539                 -value [string tolower $val]] -row 2 -col $col
     539                -value [string tolower $val]] -row 2 -column $col
    540540        incr col
    541541    }
    542542   
    543     grid [frame $top.sel -bd 4 -relief groove] -row 2 -col 1 -sticky news
     543    grid [frame $top.sel -bd 4 -relief groove] -row 2 -column 1 -sticky news
    544544    grid [label $top.sel.l -text "Distance selection: select matching angles?"] \
    545             -row 1 -col 1 -columnspan 3
     545            -row 1 -column 1 -columnspan 3
    546546    set col 1
    547547    foreach val {Yes No} {
    548548        grid [radiobutton $top.sel.r$col -text $val \
    549549                -variable CIFselect(select) \
    550                 -value [string tolower $val]] -row 2 -col $col
     550                -value [string tolower $val]] -row 2 -column $col
    551551        incr col
    552552    }
    553553   
    554     grid [frame $top.ph -bd 4 -relief groove] -row 1 -col 0 -sticky news
    555     grid [label $top.ph.h -text "Select phase"] -row 1 -col 0 -columnspan 99
     554    grid [frame $top.ph -bd 4 -relief groove] -row 1 -column 0 -sticky news
     555    grid [label $top.ph.h -text "Select phase"] -row 1 -column 0 -columnspan 99
    556556    set col 0
    557557    foreach phase $expmap(phaselist) {
     
    559559                -variable CIFselect(phase) \
    560560                -command SelectPhase \
    561                 -value $phase] -row 2 -col $col
     561                -value $phase] -row 2 -column $col
    562562        incr col
    563563    }
     
    566566
    567567    grid [frame $top.atom -bd 4 -relief groove] \
    568             -row 2 -rowspan 2 -col 0 -sticky news
    569     grid [label $top.atom.h -text "Select atom"] -row 1 -col 0 -columnspan 99
     568            -row 2 -rowspan 2 -column 0 -sticky news
     569    grid [label $top.atom.h -text "Select atom"] -row 1 -column 0 -columnspan 99
    570570    set CIFselect(atomlist) $top.atom.lbox
    571571    grid columnconfigure $top.atom 0 -weight 1
     
    578578    bind $top.atom.lbox <<ListboxSelect>> SelectAtom
    579579   
    580     grid [frame $top.bt] -row 3 -col 1 -sticky news
     580    grid [frame $top.bt] -row 3 -column 1 -sticky news
    581581    button $top.bt.save -command "SaveFlags $expnam" -text Save
    582582    button $top.bt.export -command ExportDistAngMatrix -text "Export Tables"
Note: See TracChangeset for help on using the changeset viewer.