Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.1420.mcz

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

Name: Morphic-cmm.1420
Author: cmm
Time: 25 April 2018, 6:48:47.166155 pm
UUID: 853cc5eb-f8e9-418d-8141-66b270477bf5
Ancestors: Morphic-mt.1419

- Adopt #icons accessors contributed by John-Reed Maffeo.
- Revert a recent fix for Smart Splitters because it was superceded by a different fix.

=============== Diff against Morphic-mt.1419 ===============

Item was added:
+ ----- Method: MenuIcons class>>icons (in category 'accessing') -----
+ icons
+ 
+ 	^ Icons ifNil: [Icons := Dictionary new]!

Item was changed:
  ----- Method: ProportionalSplitterMorph>>reduceLeftRightImbalance (in category 'layout') -----
  reduceLeftRightImbalance
  	| correction |
  	correction := self leftRightImbalance.
  	correction abs > 1
  		ifTrue:
  			[ (self proposedCorrectionWouldCauseFocusChange: correction) ifFalse:
  				[ self repositionBy:
  					(correction abs > 4
  						ifTrue: [ correction sign * 2 @ 0 ]
  						ifFalse: [ correction sign @ 0 ]) ] ]
  		ifFalse:
+ 			[ self class smartVerticalSplitters ifFalse: [ self stopStepping ] ].
- 			[ self class smartVerticalSplitters ifFalse:
- 				[ self
- 					 stopStepping ;
- 					 balanceOffsets ] ].
  	^ correction!

Item was changed:
  ----- Method: ProportionalSplitterMorph>>reduceTopBottomImbalance (in category 'layout') -----
  reduceTopBottomImbalance
  	| correction |
  	(correction := self topBottomCorrection) isZero
  		ifTrue:
+ 			[ self class smartHorizontalSplitters ifFalse: [ self stopStepping ] ]
- 			[ self class smartHorizontalSplitters ifFalse:
- 				[ self
- 					 stopStepping ;
- 					 balanceOffsets ] ]
  		ifFalse:
  			[ (self proposedCorrectionWouldCauseFocusChange: correction) ifFalse: [ self repositionBy: 0 @ correction ] ].
  	^ correction!

Item was changed:
+ (PackageInfo named: 'Morphic') postscript: 'MenuIcons classPool at: #Icons put: ((MenuIcons classPool at: #Icons) as: Dictionary)'!
- (PackageInfo named: 'Morphic') postscript: 'Project allMorphicProjects do: [:ea | ea world addMouseShortcuts].'!