The Trunk: Morphic-ul.475.mcz

Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ul.475.mcz

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

Name: Morphic-ul.475
Author: ul
Time: 16 November 2010, 12:30:47.417 pm
UUID: 5afb06a3-f307-a345-b478-a15fc569303a
Ancestors: Morphic-ul.474, Morphic-mt.471

merged

=============== Diff against Morphic-ul.474 ===============

Item was changed:
  ----- Method: ProportionalSplitterMorph>>leftBoundary (in category 'boundaries') -----
  leftBoundary
  "Answer the leftmost y position the receiver could be moved."
 
  | splitter morphs |
  splitter := self splitterLeft.
  morphs := self commonNeighbours: leftOrTop with: splitter.
  ^ (splitter
+ ifNil: [owner isSystemWindow ifTrue: [owner panelRect left]
+ ifFalse: [owner innerBounds left]]
- ifNil: [self containingWindow panelRect left]
  ifNotNil: [splitter right])
  + (self minimumWidthOf: morphs)!

Item was changed:
  ----- Method: ProportionalSplitterMorph>>rightBoundary (in category 'boundaries') -----
  rightBoundary
  "Answer the rightmost x position the receiver could be moved to."
 
  | splitter morphs |
  splitter := self splitterRight.
  morphs := self commonNeighbours: rightOrBottom with: splitter.
  ^ (splitter
+ ifNil: [owner isSystemWindow ifTrue: [owner panelRect right]
+ ifFalse: [owner innerBounds right]]
- ifNil: [self containingWindow panelRect right]
  ifNotNil: [splitter left])
  - (self minimumWidthOf: morphs)!