[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