Changeset 999 for branches/sandbox/atomcons.tcl

Timestamp:

Sep 8, 2010 5:04:39 PM (11 years ago)

Author:

toby

Message:

Add Distance Rest to Constraints (sandbox)

File:

• branches/sandbox/atomcons.tcl (modified) (4 diffs)

branches/sandbox/atomcons.tcl

@@ -11 +11 @@
     grid [NoteBook $expgui(consFrame).n -bd 2 -side bottom] -sticky news
     source [file join $expgui(scriptdir) profcons.tcl]
+    source [file join $expgui(scriptdir) distrest.tcl]
 }
 
@@ -20 +21 @@
     catch {$expgui(consFrame).n delete macro}
     catch {$expgui(consFrame).n delete profile}
+    catch {$expgui(consFrame).n delete distrest}
     set atom normal
     set mm disabled
@@ -31 +33 @@
     }
     set expcons(atommaster) [\
-            $expgui(consFrame).n insert end atomic -text Atomic \
+            $expgui(consFrame).n insert end atomic -text "Atom Constraints" \
             -state $atom \
             -createcmd "MakeAtomsConstraintsPane" \
@@ -42 +44 @@
     # profile constraints page
     set expcons(profilemaster) [\
-            $expgui(consFrame).n  insert end profile -text Profile \
+            $expgui(consFrame).n  insert end profile -text "Profile Constraints" \
             -createcmd "MakeProfileConstraintsPane" \
             -raisecmd "DisplayProfileConstraints"]    
+    set expcons(distmaster) [\
+            $expgui(consFrame).n insert end distrest -text "Distance Restraints" \
+            -state $atom \
+            -createcmd "" \
+            -raisecmd "DisplayDistanceRestraints"]
+ 
     set page [$expgui(consFrame).n raise]
     # open the atom constraints page if no page is open