2009/9/14 St��phane Ducasse-2 (via Nabble) <[hidden email]>

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
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project