Changeset 1025 for trunk/atomcons.tcl


Ignore:
Timestamp:
Oct 13, 2010 2:27:15 PM (10 years ago)
Author:
toby
Message:

see https://subversion.xor.aps.anl.gov/trac/EXPGUI/wiki/News20101013

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk

  • trunk/atomcons.tcl

    r930 r1025  
    1111    grid [NoteBook $expgui(consFrame).n -bd 2 -side bottom] -sticky news
    1212    source [file join $expgui(scriptdir) profcons.tcl]
     13    source [file join $expgui(scriptdir) distrest.tcl]
    1314}
    1415
     
    2021    catch {$expgui(consFrame).n delete macro}
    2122    catch {$expgui(consFrame).n delete profile}
     23    catch {$expgui(consFrame).n delete distrest}
    2224    set atom normal
    2325    set mm disabled
     
    3133    }
    3234    set expcons(atommaster) [\
    33             $expgui(consFrame).n insert end atomic -text Atomic \
     35            $expgui(consFrame).n insert end atomic -text "Atom Constraints" \
    3436            -state $atom \
    3537            -createcmd "MakeAtomsConstraintsPane" \
     
    4244    # profile constraints page
    4345    set expcons(profilemaster) [\
    44             $expgui(consFrame).n  insert end profile -text Profile \
     46            $expgui(consFrame).n  insert end profile -text "Profile Constraints" \
    4547            -createcmd "MakeProfileConstraintsPane" \
    4648            -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 
    4755    set page [$expgui(consFrame).n raise]
    4856    # open the atom constraints page if no page is open
Note: See TracChangeset for help on using the changeset viewer.