Changeset 713 for trunk

Timestamp:

Dec 4, 2009 5:10:46 PM (13 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:

• trunk/odf.tcl (modified) (3 diffs, 3 props)

trunk/odf.tcl

@@ -1 +1 @@
 # $Id$
+
+# Convert a Laue code as used in SPACEGRP to a number, as used in odfchk
 proc LaueCode2number {laueaxis} {
     switch -exact $laueaxis {
@@ -114 +116 @@
 }
 
+# called once to make the ODF (spherical harmonics) pane 
+# this gets done the first time the pane is selected
 proc MakeODFPane {} {
     global expgui entryvar entrycmd entrybox
@@ -266 +270 @@
 }
 
+# select a phase to display & display the ODF terms
+# called when pane is displayed (DisplayODFPane), a phase is selected using the
+# phase buttons or when the number of terms gets changed (SetODFTerms)
+# problem: this seems to be called multiple times -- for reasons that 
+#          are unresolved -- but at least it's quick
 proc SelectODFPhase {num} {
     global entryvar entrycmd entrybox expmap expgui
     set crsPhase {}
+    # if no phase is selected, select the first phase
+    if {$num == ""} {set num [lindex $expmap(phaselist) 0]}
     foreach n $expmap(phaselist) type $expmap(phasetype) {
         if {$n == $num && $type <= 3} {