Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.942.mcz==================== Summary ====================
Name: Morphic-mt.942
Author: mt
Time: 27 April 2015, 4:36:31.733 pm
UUID: 7b702168-c6eb-b948-945e-0a01cfb8fb22
Ancestors: Morphic-mt.941
Fixes a bug in basic Morph layouting.
Use #bounds: setter in #layoutBounds: instead of modifying the instance variable directly. Having this, submorphs that override #extent:, #position:, or #bounds: will also work in a layout.
=============== Diff against Morphic-mt.941 ===============
Item was removed:
- ----- Method: BracketSliderMorph>>layoutBounds: (in category 'layout') -----
- layoutBounds: aRectangle
- "Set the bounds for laying out children of the receiver.
- Note: written so that #layoutBounds can be changed without touching this method"
-
- super layoutBounds: aRectangle.
- self computeSlider!
Item was changed:
----- Method: Morph>>layoutBounds: (in category 'layout') -----
layoutBounds: aRectangle
"Set the bounds for laying out children of the receiver.
Note: written so that #layoutBounds can be changed without touching this method"
+ | outer inner |
- | priorBounds outer inner box |
- priorBounds := self outerBounds.
outer := self bounds.
inner := self layoutBounds.
+ self bounds: (aRectangle origin + (outer origin - inner origin) corner:
+ aRectangle corner + (outer corner - inner corner)).!
- bounds := aRectangle origin + (outer origin - inner origin) corner:
- aRectangle corner + (outer corner - inner corner).
- self removeProperty: #dropShadow.
- box := self outerBounds.
- box = priorBounds
- ifFalse: [self invalidRect: (priorBounds quickMerge: box)]!
Item was removed:
- ----- Method: SVColorSelectorMorph>>layoutBounds: (in category 'as yet unclassified') -----
- layoutBounds: aRectangle
- "Set the bounds for laying out children of the receiver.
- Note: written so that #layoutBounds can be changed without touching this method"
-
- super layoutBounds: aRectangle.
- self updateGradients!
Item was removed:
- ----- Method: ScrollPane>>layoutBounds: (in category 'layout') -----
- layoutBounds: aRectangle
-
- self handleResizeAction: [
- super layoutBounds: aRectangle.
- true].!