The Trunk: MorphicExtras-dtl.222.mcz

> David T. Lewis uploaded a new version of MorphicExtras to project The Trunk:
> http://source.squeak.org/trunk/MorphicExtras-dtl.222.mcz
>
> ==================== Summary ====================
>
> Name: MorphicExtras-dtl.222
> Author: dtl
> Time: 19 February 2018, 9:58:54.987645 pm
> UUID: 7d4e14dd-aad7-4cf8-8f68-41e1381c4727
> Ancestors: MorphicExtras-tpr.221
>
> FlapTab>>positionObject: anObject atEdgeOf: container expects container to be a Morph, not a Rectangle. Make it so when sending from FlapTab>>positionObject.
>
> Fixes flap opening in a Worldlet, such as the flap tabs in "EventRecordingSpace open".
>
> =============== Diff against MorphicExtras-tpr.221 ===============
>
> Item was changed:
>   ----- Method: FlapTab>>positionObject: (in category 'positioning') -----
>   positionObject: anObject
>           "anObject could be myself or my referent"
>  
> + | pum clearArea |
> - "Could consider container := referent pasteUpMorph, to allow flaps on things other than the world, but for the moment, let's skip it!!"
> -
> - "19 sept 2000 - going for all paste ups"
> -
> - | pum |
>   pum := self pasteUpMorph ifNil: [^ self].
>  
> + clearArea := Morph newBounds: pum clearArea.
>   ^self
>   positionObject: anObject
> + atEdgeOf: clearArea!
> - atEdgeOf: pum clearArea!
>
>