The Trunk: Morphic-cmm.1420.mcz

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].'!