Changeset 1141 for branches/sandbox


Ignore:
Timestamp:
Apr 28, 2011 2:43:25 PM (10 years ago)
Author:
lake
Message:

macros added to soft restraints and fix coordinate routines

Location:
branches/sandbox
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/addcmds.tcl

    r1131 r1141  
    740740        set inp [
    741741        tk_getOpenFile -parent $np -initialfile $newhist(instfile) -filetypes {
    742             {"Inst files" .INS*} {"Inst files" .ins*} 
     742            {"Inst files" .INS*} {"Inst files" .ins*}
    743743            {"Inst files" .PRM}  {"Inst files" .prm}
    744744            {"All files" *}
     
    16371637        grid $top.scroll -sticky ns -column 4 -row 2
    16381638    } else {
    1639         grid forget $top.scroll 
     1639        grid forget $top.scroll
    16401640    }
    16411641    update
     
    20582058     foreach i $phaselist {
    20592059             catch {atom_constraint_write $i $fix_list($i)}
     2060             catch  {RecordMacroEntry "catch {atom_constraint_write $i $fix_list($i)}" 0}
    20602061             #puts $fix_list($i)
    20612062     }
  • branches/sandbox/distrest.tcl

    r1109 r1141  
    8383    set ::entrycmd(trace) 0
    8484    set ::entryvar(distrestweight) [SoftConst weight]
     85    RecordMacroEntry "set ::entryvar(distrestweight) [SoftConst weight]" 0
    8586    set ::entrycmd(trace) 1
    86 
     87    incr ::expgui(changed)
    8788
    8889    #Run Disagl Commands *****************************************************
     
    540541        #puts "SoftConst restraintlist set $sr_write"
    541542        SoftConst restraintlist set $sr_write
     543        RecordMacroEntry "SoftConst restraintlist set $sr_write" 0
    542544        #set ::sr_bond_list $new_list
    543545        # indicate a change to the .EXP file
Note: See TracChangeset for help on using the changeset viewer.