source: branches/sandbox/distrest.tcl @ 999

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)
2proc 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.