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
&&
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
