[etoys-dev] Etoys Inbox: Sugar-tfel.27.mcz

[commits at source.squeak.org]

Tim Felgentreff uploaded a new version of Sugar to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Sugar-tfel.27.mcz

==================== Summary ====================

Name: Sugar-tfel.27
Author: tfel
Time: 28 July 2016, 12:05:15.085881 pm
UUID: 75965e76-103a-2441-a650-c45a488a1b02
Ancestors: Sugar-kfr.26

container is a rectangle

=============== Diff against Sugar-kfr.26 ===============

Item was changed:
  ----- Method: SolidSugarSuppliesTab>>positionObject:atEdgeOf: (in category 'mechanics') -----
  positionObject: anObject atEdgeOf: container
  	"Position an object -- either the receiver or its referent -- on the edge of the container."
  
  	| extra |
  	extra _ (sugarNavTab notNil and: [referent isInWorld])
  		ifTrue:
  			[sugarNavTab height]
  		ifFalse:
  			[0].
  
  	edgeToAdhereTo == #top ifTrue:
+ 		[^ anObject top: container top + extra].
- 		[^ anObject top: container innerBounds top + extra].
  
  	"bottom..."
  	anObject == self
  		ifFalse:   "the parts bin"
+ 			[anObject bottom: (container bottom - extra)]
- 			[anObject bottom: (container innerBounds bottom - extra)]
  		ifTrue:  "the tab"
+ 			[anObject bottom: (container bottom - (self referentThickness + extra))] !
- 			[anObject bottom: (container innerBounds bottom - (self referentThickness + extra))] !