equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1998 by Andreas Vogel / eXept Software AG |
4 COPYRIGHT (c) 1998 by Andreas Vogel / eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
833 "Modified: / 1.2.1998 / 13:00:04 / av" |
835 "Modified: / 1.2.1998 / 13:00:04 / av" |
834 ! ! |
836 ! ! |
835 |
837 |
836 !GridBagLayoutView methodsFor:'queries'! |
838 !GridBagLayoutView methodsFor:'queries'! |
837 |
839 |
838 preferredExtent |
840 computePreferredExtent |
839 "Return a good extent, one that makes subviews fit. Return the the preferred extent as a point |
841 "Return a good extent, one that makes subviews fit. |
840 where x and y represents the width and height of the extent." |
842 Return the the preferred extent as a point |
841 |
843 where x and y represents the width and height of the extent." |
842 "/ If I have an explicit preferredExtent.. |
844 |
843 explicitExtent notNil ifTrue:[ |
845 self subViews isEmptyOrNil ifTrue:[ |
844 ^ explicitExtent |
846 ^ super computePreferredExtent. |
845 ]. |
|
846 |
|
847 "/ If I have a cached preferredExtent value.. |
|
848 preferredExtent notNil ifTrue:[ |
|
849 ^ preferredExtent |
|
850 ]. |
|
851 |
|
852 self subViews isNil ifTrue:[ |
|
853 ^ super preferredExtent. |
|
854 ]. |
847 ]. |
855 |
848 |
856 ^ self preferredLayoutSize extent. |
849 ^ self preferredLayoutSize extent. |
857 |
850 |
858 "Created: / 17.1.1998 / 00:11:46 / av" |
851 "Created: / 09-11-2018 / 19:54:36 / Claus Gittinger" |
859 "Modified: / 1.2.1998 / 13:01:46 / av" |
|
860 ! ! |
852 ! ! |
861 |
853 |
862 !GridBagLayoutView class methodsFor:'documentation'! |
854 !GridBagLayoutView class methodsFor:'documentation'! |
863 |
855 |
864 version |
856 version |