Changeset 786 for trunk/gui/scripts/controls.tcl

Timestamp:

Jul 19, 2007, 7:39:57 AM (17 years ago)

Author:

mmc

Message:

Fixed the layout of groups/notes so that largest elements on the page
expand properly.

File:

• trunk/gui/scripts/controls.tcl (modified) (3 diffs)

trunk/gui/scripts/controls.tcl

@@ -515 +515 @@
         grid rowconfigure $_frame 0 -weight 0
 
+        set expand 0  ;# most controls float to top
         set row 0
         foreach name $showing {
-            set expand 0  ;# most controls float to top
-
             set wl $_name2info($name-label)
             if {$wl != "" && [winfo exists $wl]} {
@@ -555 +554 @@
                         #
                         set queue [winfo children $wv]
+                        set expandgroup 0
                         while {[llength $queue] > 0} {
                             set w [lindex $queue 0]
@@ -560 +560 @@
                             set c [winfo class $w]
                             if {[lsearch {DeviceEditor Note} $c] >= 0} {
-                                set expand 1
+                                set expandgroup 1
                                 break
                             }
                             eval lappend queue [winfo children $w]
                         }
-                        if {$expand} {
+                        if {$expandgroup} {
+                            set expand 1
                             grid $wv -sticky nsew
                             grid rowconfigure $_frame $row -weight 1