Changeset 637 for trunk/gsascmds.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:09:30 PM (11 years ago)
Author:
toby
Message:

# on 2002/08/09 16:40:59, toby did:
fix table size sync.
add ExpandScrollTable? (used in cifselect)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2002/07/18 20:51:26 to 2002/08/09 16:40:59
    • Property rcs:lines changed from +3 -3 to +14 -5
    • Property rcs:rev changed from 1.46 to 1.47
    r633 r637  
    19281928    update idletasks
    19291929    for {set i 0} {$i < [lindex [grid size $box.can.f] 0]} {incr i} {
    1930         set x1 [lindex [grid bbox $box.can.f 0 $i] 2]
    1931         set x2 [lindex [grid bbox $box.top.f 0 $i] 2]
     1930        set x1 [lindex [grid bbox $box.can.f $i 0] 2]
     1931        set x2 [lindex [grid bbox $box.top.f $i 0] 2]
    19321932        if {$x2 > $x1} {set x1 $x2}
    1933         grid columnconfigure $box.top.f $i -minsize $x2
    1934         grid columnconfigure $box.can.f $i -minsize $x2
     1933        grid columnconfigure $box.top.f $i -minsize $x1
     1934        grid columnconfigure $box.can.f $i -minsize $x1
    19351935    }
    19361936    for {set i 0} {$i < [lindex [grid size $box.can.f] 1]} {incr i} {
     
    19481948    $box.top config -height [lindex [grid bbox $box.top.f] 3]
    19491949    $box.side config -width [lindex [grid bbox $box.side.f] 2]
     1950}
     1951proc ExpandScrollTable {box} {
     1952    # set height & width of central box
     1953    $box.can config -width \
     1954            [expr [winfo width [winfo toplevel $box]] \
     1955            - [winfo width $box.side] - [winfo width $box.yscroll]-20]
     1956    $box.can config -height \
     1957            [expr [winfo height [winfo toplevel $box]] \
     1958            - [winfo height $box.top] - [winfo height $box.scroll]-25]
    19501959}
    19511960
Note: See TracChangeset for help on using the changeset viewer.