since I cannot give you feedback on the morphic internal I will give you some smalltalk ones anchorToLeft: toLeft toRight: toRight toTop: toTop toBottom: toBottom morph owner notNil ifTrue: [| fractionsRectangle offsetsRectangle owner | owner := morph owner. anchoredToLeft := toLeft. anchoredToRight := toRight. anchoredToTop := toTop. anchoredToBottom := toBottom. ((anchoredToLeft not) and: [anchoredToRight not] and:[anchoredToBottom not] and:[anchoredToTop not ]) ifTrue: [owner addMorph: morph fullFrame: nil.] ifFalse: [ fractionsRectangle := self pvtBuildFractionsRectangle. offsetsRectangle := self pvtBuildOffsetsRectangle: fractionsRectangle. owner addMorph: morph fullFrame: (LayoutFrame fractions: fractionsRectangle offsets: offsetsRectangle)]]. looks more smalltalkish to me BTW for the ((anchoredToLeft not) and: [anchoredToRight not] and:[anchoredToBottom not] and:[anchoredToTop not ]) it may be more efficient to use &&