Changeset 1141

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:

• addcmds.tcl (modified) (3 diffs)
• distrest.tcl (modified) (2 diffs)

branches/sandbox/addcmds.tcl

@@ -740 +740 @@
         set inp [
         tk_getOpenFile -parent $np -initialfile $newhist(instfile) -filetypes {
-            {"Inst files" .INS*} {"Inst files" .ins*} 
+            {"Inst files" .INS*} {"Inst files" .ins*}
             {"Inst files" .PRM}  {"Inst files" .prm} 
             {"All files" *}
@@ -1637 +1637 @@
         grid $top.scroll -sticky ns -column 4 -row 2
     } else {
-        grid forget $top.scroll 
+        grid forget $top.scroll
     }
     update
@@ -2058 +2058 @@
      foreach i $phaselist {
              catch {atom_constraint_write $i $fix_list($i)}
+             catch  {RecordMacroEntry "catch {atom_constraint_write $i $fix_list($i)}" 0}
              #puts $fix_list($i)
      }

branches/sandbox/distrest.tcl

@@ -83 +83 @@
     set ::entrycmd(trace) 0
     set ::entryvar(distrestweight) [SoftConst weight]
+    RecordMacroEntry "set ::entryvar(distrestweight) [SoftConst weight]" 0
     set ::entrycmd(trace) 1
-
+    incr ::expgui(changed)
 
     #Run Disagl Commands *****************************************************
@@ -540 +541 @@
         #puts "SoftConst restraintlist set $sr_write"
         SoftConst restraintlist set $sr_write
+        RecordMacroEntry "SoftConst restraintlist set $sr_write" 0
         #set ::sr_bond_list $new_list
         # indicate a change to the .EXP file