[Pkg] The Trunk: Morphic-nice.424.mcz

[commits at source.squeak.org]

Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.424.mcz

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

Name: Morphic-nice.424
Author: nice
Time: 22 April 2010, 12:00:47.522 am
UUID: 26df65d5-21b2-a34e-bdc3-35bf7cc24ddb
Ancestors: Morphic-cmm.423

Fix proportional splitter from Stephane Rollandin
See http://bugs.squeak.org/view.php?id=7424

=============== Diff against Morphic-cmm.423 ===============

Item was changed:
  ----- Method: ProportionalSplitterMorph>>bottomBoundary (in category 'boundaries') -----
  bottomBoundary
  	"Answert the bottommost x position the receiver could be moved."
  
  	| splitter morphs |
  	splitter := self splitterBelow.
  	morphs := self commonNeighbours: rightOrBottom with: splitter.
  	^ (splitter
+ 		ifNil: [owner isSystemWindow ifTrue: [owner panelRect bottom]
+ 				ifFalse: [owner innerBounds bottom]]
- 		ifNil: [self containingWindow panelRect bottom]
  		ifNotNil: [splitter top])
  		- (self minimumHeightOf: morphs)!

Item was changed:
  ----- Method: ProportionalSplitterMorph>>topBoundary (in category 'boundaries') -----
  topBoundary
  	"Answer the topmost x position the receiver could be moved to."
  
  	| splitter morphs |
  	splitter := self splitterAbove.
  	morphs := self commonNeighbours: leftOrTop with: splitter.
  	^ (splitter
+ 		ifNil: [owner isSystemWindow ifTrue: [owner panelRect top]
+ 				ifFalse: [owner innerBounds top]]
- 		ifNil: [self containingWindow panelRect top]
  		ifNotNil: [splitter bottom])
  		+ (self minimumHeightOf: morphs)!