Changeset 915

Timestamp:

Dec 4, 2009 5:14:15 PM (14 years ago)

Author:

toby

Message:

# on 2008/04/15 17:29:26, toby did:
macro recording

File:

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

trunk/odf.tcl

@@ -228 +228 @@
     set newterms [ComputeODFterms $expgui(ODForder) $expgui(ODFsym) $laueaxis]
     phaseinfo $expgui(curPhase) ODFterms set $newterms
+    RecordMacroEntry "phaseinfo $expgui(curPhase) ODFterms set $newterms" 0
     phaseinfo $expgui(curPhase) ODForder set $expgui(ODForder)
+    RecordMacroEntry "phaseinfo $expgui(curPhase) ODForder set $expgui(ODForder)" 0
     phaseinfo $expgui(curPhase) ODFsym set $expgui(ODFsym)
+    RecordMacroEntry "phaseinfo $expgui(curPhase) ODFsym set $expgui(ODFsym)" 0
     # zero out the new terms
     for {set i [expr [llength $curterms]+1]} \
             {$i <= [llength $newterms]} {incr i} {
         phaseinfo $expgui(curPhase) ODFcoef$i set 0.
-   }
+        RecordMacroEntry "phaseinfo $expgui(curPhase) ODFcoef$i set 0." 0
+    }
     incr expgui(changed)
+    RecordMacroEntry "incr expgui(changed)" 0
     SelectODFPhase $expgui(curPhase)
 }