The Trunk: Morphic-laza.421.mcz

Alexander Lazarević uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-laza.421.mcz

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

Name: Morphic-laza.421
Author: laza
Time: 10 April 2010, 10:11:13.657 am
UUID: bdb40d75-5c3c-ef4b-8af6-5aba1fc537fc
Ancestors: Morphic-ar.420

Prevent FlapTabs to have floats as bounds after a change of the Squeak window. This sometimes made FlapTabs leave "gribbles" on the screen while moving them.

Addressing http://bugs.squeak.org/view.php?id=6536

=============== Diff against Morphic-ar.420 ===============

Item was changed:
  ----- Method: Morph>>position: (in category 'geometry') -----
  position: aPoint
  "Change the position of this morph and and all of its
  submorphs. "
  | delta box |
+ delta := (aPoint - bounds topLeft) rounded.
- delta := aPoint asNonFractionalPoint - bounds topLeft.
  (delta x = 0
  and: [delta y = 0])
  ifTrue: [^ self].
  "Null change"
  box := self fullBounds.
  (delta dotProduct: delta)
  > 100
  ifTrue: ["e.g., more than 10 pixels moved"
  self invalidRect: box.
  self
  invalidRect: (box translateBy: delta)]
  ifFalse: [self
  invalidRect: (box
  merge: (box translateBy: delta))].
  self privateFullMoveBy: delta.
  owner
  ifNotNil: [owner layoutChanged]!