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

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

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

commits-2
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))] !

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev
Loading...