Changeset 713 for trunk/odf.tcl


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

# on 2003/05/27 16:09:07, toby did:
autoselect 1st phase if none are previously selected
add comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/odf.tcl

    • Property rcs:date changed from 2001/09/04 22:11:44 to 2003/05/27 16:09:07
    • Property rcs:lines changed from +5 -3 to +12 -1
    • Property rcs:rev changed from 1.5 to 1.6
    r422 r713  
    11# $Id$
     2
     3# Convert a Laue code as used in SPACEGRP to a number, as used in odfchk
    24proc LaueCode2number {laueaxis} {
    35    switch -exact $laueaxis {
     
    114116}
    115117
     118# called once to make the ODF (spherical harmonics) pane
     119# this gets done the first time the pane is selected
    116120proc MakeODFPane {} {
    117121    global expgui entryvar entrycmd entrybox
     
    266270}
    267271
     272# select a phase to display & display the ODF terms
     273# called when pane is displayed (DisplayODFPane), a phase is selected using the
     274# phase buttons or when the number of terms gets changed (SetODFTerms)
     275# problem: this seems to be called multiple times -- for reasons that
     276#          are unresolved -- but at least it's quick
    268277proc SelectODFPhase {num} {
    269278    global entryvar entrycmd entrybox expmap expgui
    270279    set crsPhase {}
     280    # if no phase is selected, select the first phase
     281    if {$num == ""} {set num [lindex $expmap(phaselist) 0]}
    271282    foreach n $expmap(phaselist) type $expmap(phasetype) {
    272283        if {$n == $num && $type <= 3} {
Note: See TracChangeset for help on using the changeset viewer.