author | Claus Gittinger <cg@exept.de> |
Fri, 28 Mar 1997 19:56:15 +0100 | |
changeset 91 | 86d0c649f95e |
parent 90 | c18809a425d0 |
child 92 | 79473a16fdc9 |
UIObjectView.st | file | annotate | diff | comparison | revisions |
--- a/UIObjectView.st Fri Mar 28 19:55:08 1997 +0100 +++ b/UIObjectView.st Fri Mar 28 19:56:15 1997 +0100 @@ -33,6 +33,12 @@ type := self layoutType:aView. layout := aView geometryLayout. + layout isNil ifTrue:[ + type == #Extent ifTrue:[ + layout := aView bounds asLayout + ] + ]. + (type isNil or:[layout isNil]) ifTrue:[ ^ nil ]. @@ -88,6 +94,8 @@ newLyt bottomOffset:(bO + dlta y). ]. ^ newLyt. + + "Modified: 28.3.1997 / 19:52:48 / cg" ! ! !UIObjectView class methodsFor:'defaults'!