[Pkg] The Trunk: Morphic-cwp.590.mcz

[commits at source.squeak.org]

Colin Putney uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cwp.590.mcz

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

Name: Morphic-cwp.590
Author: cwp
Time: 1 December 2011, 5:12:17.815 pm
UUID: caf8451e-b53b-44f0-b9e9-5df2d5232646
Ancestors: Morphic-cmm.589

Fixed a layout bug affecting window panes with a top fraction of zero and a top offset that is non-zero.

=============== Diff against Morphic-cmm.589 ===============

Item was changed:
  ----- Method: SystemWindow>>addMorph:fullFrame: (in category 'panes') -----
  addMorph: aMorph fullFrame: aLayoutFrame
  
  	| left right bottom top windowBorderWidth |
  	windowBorderWidth := self class borderWidth.
  
  	left := aLayoutFrame leftOffset ifNil: [0].
  	right := aLayoutFrame rightOffset ifNil: [0].
  
  	bottom := aLayoutFrame bottomOffset ifNil: [0].
  	top := aLayoutFrame topOffset ifNil: [0].
  	
  	aLayoutFrame rightFraction = 1 ifTrue: [aLayoutFrame rightOffset: right - windowBorderWidth].
  	aLayoutFrame leftFraction = 0
  		ifTrue: [aLayoutFrame leftOffset: left + windowBorderWidth]
  		ifFalse: [aLayoutFrame leftOffset: left + ProportionalSplitterMorph splitterWidth].
  
  	aLayoutFrame bottomFraction = 1 ifTrue: [aLayoutFrame bottomOffset: bottom - windowBorderWidth].
  	aLayoutFrame topFraction = 0
+ 		ifTrue: [aLayoutFrame topOffset: top + windowBorderWidth]
- 		ifTrue: [aLayoutFrame topOffset: top]
  		ifFalse: [aLayoutFrame topOffset: top + ProportionalSplitterMorph splitterWidth].
  	
  	(aMorph class name = #BrowserCommentTextMorph) ifTrue:
  		[aLayoutFrame rightOffset: windowBorderWidth negated.
  		aLayoutFrame leftOffset: windowBorderWidth.
  		aLayoutFrame bottomOffset: windowBorderWidth negated.
  		aLayoutFrame topOffset: (windowBorderWidth negated) + 4].
  	
  	super addMorph: aMorph fullFrame: aLayoutFrame.
  
  	paneMorphs := paneMorphs copyReplaceFrom: 1 to: 0 with: (Array with: aMorph).
  	aMorph adoptPaneColor: self paneColor.
  	aMorph borderWidth: 1; borderColor: Color lightGray; color: Color white.
  	Preferences scrollBarsOnRight	"reorder panes so flop-out right-side scrollbar is visible"
  		ifTrue: [self addMorphBack: aMorph].
  		
  	self addPaneSplitters!