Changeset 1215 for branches/sandbox/distrest.tcl

Timestamp:

Aug 19, 2012 8:40:46 AM (9 years ago)

Author:

toby

Message:

Split restraints & constraints; add compositional (chemical) constraint

File:

• branches/sandbox/distrest.tcl (modified) (5 diffs)

branches/sandbox/distrest.tcl

@@ -36 +36 @@
 #SR_Build
 
+set ::sr_atom1_button 1
+set ::sr_atom2_button 1
+set ::sr_distance_button 1
+set ::sr_entryvar(choicenum) 0
+#    set ::sr_entryvar(softphase) "1"
+#    set ::sr_phaselist $::expmap(phaselist)
+set ::sr_entryvar(softatom1) "all"
+set ::sr_entryvar(softatom2) "all"
+set ::sr_phaselist $::expmap(phaselist)
+set ::sr_error 0
+set ::sr_bond_list ""
+set ::sr_dminvalue 0
+set ::sr_dmaxvalue 1000
+set ::sr_display_mode noedit
+set ::sr_key_list ""
+
 proc DisplayDistanceRestraints {args} {
     #puts DisplayDistanceRestraints
@@ -83 +99 @@
     set ::entrycmd(trace) 0
     set ::entryvar(distrestweight) [SoftConst weight]
-    RecordMacroEntry "set ::entryvar(distrestweight) [SoftConst weight]" 0
+    #RecordMacroEntry "set ::entryvar(distrestweight) [SoftConst weight]" 0
     set ::entrycmd(trace) 1
-    incr ::expgui(changed)
+    #incr ::expgui(changed)
 
     #Run Disagl Commands *****************************************************
@@ -104 +120 @@
 
 
-    foreach {top main side lbl} [MakeScrollTable $rightfr] {}
+    foreach {top main side lbl} [MakeScrollTable $rightfr 450 300] {}
     MouseWheelScrollTable $rightfr
     set atom1_state  1
@@ -724 +740 @@
     putontop $mrb
 }
-#************************************************************************
-#Procedure to Initialize variables ***************************************
-#*************************************************************************
-proc SR_Initialize {} {
-    set ::sr_atom1_button 1
-    set ::sr_atom2_button 1
-    set ::sr_distance_button 1
-    set ::sr_entryvar(choicenum) 0
-    #    set ::sr_entryvar(softphase) "1"
-    #    set ::sr_phaselist $::expmap(phaselist)
-    set ::sr_entryvar(softatom1) "all"
-    set ::sr_entryvar(softatom2) "all"
-    set ::sr_phaselist $::expmap(phaselist)
-    set ::sr_error 0
-    set ::sr_bond_list ""
-    set ::sr_dminvalue 0
-    set ::sr_dmaxvalue 1000
-    set ::sr_display_mode noedit
-    set ::sr_key_list ""
-    #SR_Rest_Only
-}
 
 # load restraints w/o distances
@@ -783 +778 @@
     donewait
 }
-
-#expload TEST3.EXP
-#mapexp
-SR_Initialize
-#SR_Read_Distances test2.disagl
-#SR_Load_Restraints
-#SR_Main_Editor
-#SR_Load_Restraints
-
-