Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/controls.tcl

    r782 r786  
    515515        grid rowconfigure $_frame 0 -weight 0
    516516
     517        set expand 0  ;# most controls float to top
    517518        set row 0
    518519        foreach name $showing {
    519             set expand 0  ;# most controls float to top
    520 
    521520            set wl $_name2info($name-label)
    522521            if {$wl != "" && [winfo exists $wl]} {
     
    555554                        #
    556555                        set queue [winfo children $wv]
     556                        set expandgroup 0
    557557                        while {[llength $queue] > 0} {
    558558                            set w [lindex $queue 0]
     
    560560                            set c [winfo class $w]
    561561                            if {[lsearch {DeviceEditor Note} $c] >= 0} {
    562                                 set expand 1
     562                                set expandgroup 1
    563563                                break
    564564                            }
    565565                            eval lappend queue [winfo children $w]
    566566                        }
    567                         if {$expand} {
     567                        if {$expandgroup} {
     568                            set expand 1
    568569                            grid $wv -sticky nsew
    569570                            grid rowconfigure $_frame $row -weight 1
Note: See TracChangeset for help on using the changeset viewer.