[squeak-dev] The Trunk: MorphicExtras-dtl.222.mcz
David T. Lewis
lewis at mail.msen.com
Tue Feb 20 03:07:08 UTC 2018
This replaces the rejected fix from Morphic-dtl.1397.mcz, which I have moved
to the treated inbox. Flap tabs now work in EventRecordingSpace.
Dave
On Tue, Feb 20, 2018 at 02:58:57AM +0000, commits at source.squeak.org wrote:
> 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!
>
>
More information about the Squeak-dev
mailing list
|