[squeak-dev] The Trunk: MorphicExtras-dtl.222.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Feb 20 02:58:57 UTC 2018


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