equal
deleted
inserted
replaced
607 preferredExtent |
607 preferredExtent |
608 "return a good extent, one that makes subviews fit" |
608 "return a good extent, one that makes subviews fit" |
609 |
609 |
610 |maxHeight maxWidth maxWidthPerCol w m2 subViews col numCols rowsPerCol| |
610 |maxHeight maxWidth maxWidthPerCol w m2 subViews col numCols rowsPerCol| |
611 |
611 |
612 "/ If I have an explicit preferredExtent .. |
612 "/ If I have an explicit preferredExtent.. |
613 |
613 explicitExtent notNil ifTrue:[ |
|
614 ^ explicitExtent |
|
615 ]. |
|
616 |
|
617 "/ If I have a cached preferredExtent value.. |
614 preferredExtent notNil ifTrue:[ |
618 preferredExtent notNil ifTrue:[ |
615 ^ preferredExtent |
619 ^ preferredExtent |
616 ]. |
620 ]. |
617 |
621 |
618 subViews := self subViewsToConsider. |
622 subViews := self subViewsToConsider. |
669 ! ! |
673 ! ! |
670 |
674 |
671 !MultiColumnPanelView class methodsFor:'documentation'! |
675 !MultiColumnPanelView class methodsFor:'documentation'! |
672 |
676 |
673 version |
677 version |
674 ^ '$Header: /cvs/stx/stx/libwidg/MultiColumnPanelView.st,v 1.1 2007-12-17 11:10:53 cg Exp $' |
678 ^ '$Header: /cvs/stx/stx/libwidg/MultiColumnPanelView.st,v 1.2 2008-10-26 20:11:53 stefan Exp $' |
675 ! ! |
679 ! ! |