Changeset 999 for branches/sandbox/atomcons.tcl
- Timestamp:
- Sep 8, 2010 5:04:39 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/sandbox/atomcons.tcl
r930 r999 11 11 grid [NoteBook $expgui(consFrame).n -bd 2 -side bottom] -sticky news 12 12 source [file join $expgui(scriptdir) profcons.tcl] 13 source [file join $expgui(scriptdir) distrest.tcl] 13 14 } 14 15 … … 20 21 catch {$expgui(consFrame).n delete macro} 21 22 catch {$expgui(consFrame).n delete profile} 23 catch {$expgui(consFrame).n delete distrest} 22 24 set atom normal 23 25 set mm disabled … … 31 33 } 32 34 set expcons(atommaster) [\ 33 $expgui(consFrame).n insert end atomic -text Atomic\35 $expgui(consFrame).n insert end atomic -text "Atom Constraints" \ 34 36 -state $atom \ 35 37 -createcmd "MakeAtomsConstraintsPane" \ … … 42 44 # profile constraints page 43 45 set expcons(profilemaster) [\ 44 $expgui(consFrame).n insert end profile -text Profile\46 $expgui(consFrame).n insert end profile -text "Profile Constraints" \ 45 47 -createcmd "MakeProfileConstraintsPane" \ 46 48 -raisecmd "DisplayProfileConstraints"] 49 set expcons(distmaster) [\ 50 $expgui(consFrame).n insert end distrest -text "Distance Restraints" \ 51 -state $atom \ 52 -createcmd "" \ 53 -raisecmd "DisplayDistanceRestraints"] 54 47 55 set page [$expgui(consFrame).n raise] 48 56 # open the atom constraints page if no page is open
Note: See TracChangeset
for help on using the changeset viewer.