Changeset 915


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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/odf.tcl

    • Property rcs:date changed from 2004/10/04 16:11:47 to 2008/04/15 17:29:26
    • Property rcs:lines changed from +9 -25 to +7 -2
    • Property rcs:rev changed from 1.7 to 1.8
    r822 r915  
    228228    set newterms [ComputeODFterms $expgui(ODForder) $expgui(ODFsym) $laueaxis]
    229229    phaseinfo $expgui(curPhase) ODFterms set $newterms
     230    RecordMacroEntry "phaseinfo $expgui(curPhase) ODFterms set $newterms" 0
    230231    phaseinfo $expgui(curPhase) ODForder set $expgui(ODForder)
     232    RecordMacroEntry "phaseinfo $expgui(curPhase) ODForder set $expgui(ODForder)" 0
    231233    phaseinfo $expgui(curPhase) ODFsym set $expgui(ODFsym)
     234    RecordMacroEntry "phaseinfo $expgui(curPhase) ODFsym set $expgui(ODFsym)" 0
    232235    # zero out the new terms
    233236    for {set i [expr [llength $curterms]+1]} \
    234237            {$i <= [llength $newterms]} {incr i} {
    235238        phaseinfo $expgui(curPhase) ODFcoef$i set 0.
    236    }
     239        RecordMacroEntry "phaseinfo $expgui(curPhase) ODFcoef$i set 0." 0
     240    }
    237241    incr expgui(changed)
     242    RecordMacroEntry "incr expgui(changed)" 0
    238243    SelectODFPhase $expgui(curPhase)
    239244}
Note: See TracChangeset for help on using the changeset viewer.