The Trunk: ST80-ar.86.mcz

Andreas Raab uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-ar.86.mcz

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

Name: ST80-ar.86
Author: ar
Time: 23 January 2010, 2:51:15.768 pm
UUID: f6be286b-4c61-1444-b8a0-7e205b369609
Ancestors: ST80-ar.85, ST80-nice.80

Merging ST80-nice.80:

Experimental: let a Rectangle merge in place (I called this swallow:)
This has two advantages:
- avoid repeated Object creation when we just want the gross result
- avoid closures writing to outer temps

IMHO, generalizing this kind of policy could have a measurable impact on GUI speed.
However, this is against current policy to never change a Point nor rectangle in place, so I let gurus judge if worth or not.


=============== Diff against ST80-ar.85 ===============

Item was changed:
  ----- Method: View>>defaultWindow (in category 'window access') -----
  defaultWindow
  "Build the minimum Rectangle that encloses all the windows of the
  receiver's subViews. The answer is a Rectangle obtained by expanding
  this minimal Rectangle by the borderWidth of the receiver. If the
  receiver has no subViews, then a Rectangle enclosing the entire display
  screen is answered. It is used internally by View methods if no window
  has been specified for the View. Specialized subclasses of View should
  redefine View|defaultWindow to handle the default case for instances
  that have no subViews."
 
  | aRectangle |
  subViews isEmpty ifTrue: [^DisplayScreen boundingBox].
+ aRectangle := self firstSubView viewport copy.
+ subViews do: [:aView | aRectangle swallow: aView viewport].
- aRectangle := self firstSubView viewport.
- subViews do: [:aView | aRectangle := aRectangle merge: aView viewport].
  ^aRectangle expandBy: borderWidth!

Item was changed:
  ----- Method: View>>computeBoundingBox (in category 'display box access') -----
  computeBoundingBox
  "Answer the minimum Rectangle that encloses the bounding boxes of the
  receiver's subViews. If the receiver has no subViews, then the bounding
  box is the receiver's window. Subclasses should redefine
  View|boundingBox if a more suitable default for the case of no subViews
  is available."
 
  | aRectangle |
  subViews isEmpty ifTrue: [^self getWindow].
+ aRectangle := (self firstSubView transform: self firstSubView boundingBox) copy.
- aRectangle := self firstSubView transform: self firstSubView boundingBox.
  subViews do:
  [:aView |
+ aRectangle swallow: (aView transform: aView boundingBox).].
- aRectangle := aRectangle merge: (aView transform: aView boundingBox).].
  ^aRectangle expandBy: borderWidth!

Item was changed:
  ----- Method: Path>>computeBoundingBox (in category 'display box access') -----
  computeBoundingBox
  "Refer to the comment in DisplayObject|computeBoundingBox."
 
  | box |
  box := Rectangle origin: (self at: 1) extent: 0 @ 0.
  collectionOfPoints do:
+ [:aPoint | box swallow: (Rectangle origin: aPoint extent: 0 @ 0)].
- [:aPoint | box := box merge: (Rectangle origin: aPoint extent: 0 @ 0)].
  ^box!