|
Last change
on this file since 999 was
999,
checked in by toby, 12 years ago
|
|
Add Distance Rest to Constraints (sandbox)
|
|
File size:
1.0 KB
|
| Line | |
|---|
| 1 | # code for distance restraints (soft constraints) |
|---|
| 2 | proc DisplayDistanceRestraints {} { |
|---|
| 3 | global expcons |
|---|
| 4 | eval destroy [winfo children $expcons(distmaster)] |
|---|
| 5 | set leftfr $expcons(distmaster).f1 |
|---|
| 6 | grid [frame $leftfr -bd 2 -relief groove] -column 0 -row 0 \ |
|---|
| 7 | -sticky nsew |
|---|
| 8 | grid [frame $expcons(distmaster).f2 -bd 2 -relief groove] -column 1 -row 0 \ |
|---|
| 9 | -sticky nsew |
|---|
| 10 | grid rowconfigure $expcons(distmaster) 0 -weight 1 |
|---|
| 11 | grid columnconfigure $expcons(distmaster) 1 -weight 1 |
|---|
| 12 | grid [button $leftfr.phase -text "Phase button here"] -column 0 -row 1 \ |
|---|
| 13 | -sticky sw -columnspan 2 |
|---|
| 14 | grid [label $leftfr.lweight -text "Restraint Weight"] -column 0 -row 2 -sticky sw |
|---|
| 15 | grid [entry $leftfr.weight -width 8 -textvariable entryvar(distrestweight)] -column 1 -row 2 -sticky sw |
|---|
| 16 | set ::entrycmd(distrestweight) "SoftConst weight" |
|---|
| 17 | set ::entrycmd(trace) 0 |
|---|
| 18 | set ::entryvar(distrestweight) [SoftConst weight] |
|---|
| 19 | set ::entrycmd(trace) 1 |
|---|
| 20 | grid [button $leftfr.edit -text "Edit Distance Restraints"] -column 0 -row 3 \ |
|---|
| 21 | -sticky sw -columnspan 2 |
|---|
| 22 | } |
|---|
Note: See
TracBrowser
for help on using the repository browser.
