Ignore:
Timestamp:
Jul 19, 2005 1:15:04 AM (17 years ago)
Author:
mmc
Message:

Fixed the rendering of groups, and groups within groups.
If groups are mixed in with other elements, then they are
drawn with a gray outline/heading, with the title taken
from the <group><about><label>. However, if a group
contains only other groups, then it is treated as a tabbed
notebook, and each group within is put on a separate page.

WARNING: There are many bad interactions between the
blt::tabset, the Rappture::Scroller, and the Rappture::Pager.
Pages shake violently when all are in play. The only way I
could get them to settle down was by putting the tabs above
the pages they control. Have to revisit this some time to
make it look better...

File:
1 edited

Legend:

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

    r24 r26  
    401401# ----------------------------------------------------------------------
    402402itcl::body Rappture::Pager::_fixSize {} {
     403    set sw [expr {[winfo screenwidth $itk_component(hull)]-200}]
     404    set sh [expr {[winfo screenheight $itk_component(hull)]-200}]
     405
    403406    switch -- $itk_option(-arrangement) {
    404407        pages {
    405408            if {$itk_option(-width) <= 0} {
    406                 update idletasks
    407409                set maxw [expr {
    408410                    [winfo reqwidth $itk_component(next)]
     
    415417                }
    416418                set maxw [expr {$maxw + 2*$itk_option(-padding)}]
     419                if {$maxw > $sw} { set maxw $sw }
    417420                $itk_component(inside) configure -width $maxw
    418421            } else {
     
    421424
    422425            if {$itk_option(-height) <= 0} {
    423                 update idletasks
    424426                set maxh 0
    425427                foreach name $_pages {
     
    428430                }
    429431                set maxh [expr {$maxh + 2*$itk_option(-padding)}]
     432                if {$maxh > $sh} { set maxh $sh }
    430433                $itk_component(inside) configure -height $maxh
    431434            } else {
     
    435438        side-by-side {
    436439            if {$itk_option(-width) <= 0} {
    437                 update idletasks
    438440                set maxw [expr {
    439441                    [winfo reqwidth $itk_component(next)]
     
    447449                }
    448450                if {$wtotal > $maxw} { set maxw $wtotal }
     451                if {$maxw > $sw} { set maxw $sw }
    449452                $itk_component(inside) configure -width $maxw
    450453            } else {
     
    453456
    454457            if {$itk_option(-height) <= 0} {
    455                 update idletasks
    456458                set maxh 0
    457459                foreach name $_pages {
     
    460462                }
    461463                set maxh [expr {$maxh + 2*$itk_option(-padding)}]
     464                if {$maxh > $sh} { set maxh $sh }
    462465                $itk_component(inside) configure -height $maxh
    463466            } else {
Note: See TracChangeset for help on using the changeset viewer.