Changeset 637 for trunk

Timestamp:

Dec 4, 2009 5:09:30 PM (14 years ago)

Author:

toby

Message:

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

File:

• trunk/gsascmds.tcl (modified) (2 diffs, 3 props)

trunk/gsascmds.tcl

@@ -1928 +1928 @@
     update idletasks
     for {set i 0} {$i < [lindex [grid size $box.can.f] 0]} {incr i} {
-        set x1 [lindex [grid bbox $box.can.f 0 $i] 2]
-        set x2 [lindex [grid bbox $box.top.f 0 $i] 2]
+        set x1 [lindex [grid bbox $box.can.f $i 0] 2]
+        set x2 [lindex [grid bbox $box.top.f $i 0] 2]
         if {$x2 > $x1} {set x1 $x2}
-        grid columnconfigure $box.top.f $i -minsize $x2
-        grid columnconfigure $box.can.f $i -minsize $x2
+        grid columnconfigure $box.top.f $i -minsize $x1
+        grid columnconfigure $box.can.f $i -minsize $x1
     }
     for {set i 0} {$i < [lindex [grid size $box.can.f] 1]} {incr i} {
@@ -1948 +1948 @@
     $box.top config -height [lindex [grid bbox $box.top.f] 3]
     $box.side config -width [lindex [grid bbox $box.side.f] 2]
+}
+proc ExpandScrollTable {box} {
+    # set height & width of central box
+    $box.can config -width \
+            [expr [winfo width [winfo toplevel $box]] \
+            - [winfo width $box.side] - [winfo width $box.yscroll]-20]
+    $box.can config -height \
+            [expr [winfo height [winfo toplevel $box]] \
+            - [winfo height $box.top] - [winfo height $box.scroll]-25]
 }