Changeset 1219 for trunk/gsascmds.tcl


Ignore:
Timestamp:
Aug 19, 2012 1:24:43 PM (8 years ago)
Author:
toby
Message:

Major new release: bug fixes for rigid bodies; Split Restraints from Constraints; add chemistry restraints; edit f' & f; fixes for fixing atoms; start work on Absorption constraints and interface for Fourier maps

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    r1195 r1219  
    24272427# creates a table that is scrollable in both x and y, use ResizeScrollTable
    24282428# to set sizes after gridding the widgets
    2429 proc MakeScrollTable {box} {
     2429proc MakeScrollTable {box {width 200} {height 200}} {
    24302430    proc sync2boxes {cmd master slave scroll args} {
    24312431        $slave $cmd moveto [lindex [$master $cmd] 0]
     
    24462446            -yscrollcommand "sync2boxes yview $box.can $box.side $box.yscroll" \
    24472447            -xscrollcommand "sync2boxes xview $box.can $box.top $box.scroll" \
    2448             -width 200 -height 200 -bg lightgrey] -sticky news -row 1 -column 1
     2448            -width $width -height $height -bg lightgrey] -sticky news -row 1 -column 1
    24492449    grid [set sxbox [scrollbar $box.scroll -orient horizontal \
    24502450                         -command "move2boxes xview $box.can $box.top"]] \
Note: See TracChangeset for help on using the changeset viewer.