Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-Igor.Stasenko.167.mcz
==================== Summary ====================
Name: Morphic-Igor.Stasenko.167 Author: Igor.Stasenko Time: 4 September 2009, 4:12:59 am UUID: 1443e95e-b340-484d-908a-f7880e9d839d Ancestors: Morphic-bf.166
Yet another fix for top corner grips of SystemWindow morph. I hope now it will serve us for a couple more years.
=============== Diff against Morphic-bf.166 ===============
Item was added: + ----- Method: TopLeftGripMorph>>layoutProportionallyIn: (in category 'layout') ----- + layoutProportionallyIn: newBounds + | b | + b := owner bounds. + self bounds: (b topLeft extent: self extent) + !
Item was changed: ----- Method: TopRightGripMorph>>gripLayoutFrame (in category 'accessing') ----- gripLayoutFrame ^ LayoutFrame + fractions: (1 @ 0 corner: 1 @ nil) + offsets: (0 - self defaultWidth @ 0 corner: 0 @ nil)! - fractions: (1 @ 0 corner: 1 @ 0) - offsets: (0 - self defaultWidth @ -27 corner: 0 @ 0)!
Item was added: + ----- Method: TopRightGripMorph>>layoutProportionallyIn: (in category 'layout') ----- + layoutProportionallyIn: newBounds + | b | + b := owner bounds. + + self bounds: (b right - self width @ b top extent: self extent) + !
Item was changed: ----- Method: TopLeftGripMorph>>gripLayoutFrame (in category 'accessing') ----- gripLayoutFrame ^ LayoutFrame fractions: (0 @ 0 corner: 0 @ 0) + offsets: (0 @ 0 corner: self defaultWidth @ 0)! - offsets: (0 @ -27 corner: self defaultWidth @ 0)!
squeak-dev@lists.squeakfoundation.org