The Trunk: Morphic-mt.1438.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1438.mcz

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

Name: Morphic-mt.1438
Author: mt
Time: 24 May 2018, 12:01:44.710891 pm
UUID: 946082f9-4ae6-4e9e-833b-7603b6de0b7b
Ancestors: Morphic-tpr.1437

Activate shortcuts for loaded projects.

=============== Diff against Morphic-tpr.1437 ===============

Item was changed:
  ----- Method: PasteUpMorph>>convertToCurrentVersion:refStream: (in category 'objects from disk') -----
  convertToCurrentVersion: varDict refStream: smartRefStrm
 
  "transition from project to worldState (8/16/1999)"
  worldState ifNil: [varDict at: 'project' ifPresent: [ :x | worldState := x]].
 
  "elimination of specific gradient stuff (5/6/2000)"
  varDict at: 'fillColor2' ifPresent: [ :color2 |
  (color isColor and: [color2 isColor and: [color ~= color2]]) ifTrue: [
  self useGradientFill.
  self fillStyle
  colorRamp: {0.0 -> color. 1.0 -> color2};
  radial: false;
  origin: self position;
  direction: ((varDict at: 'gradientDirection') == #vertical
  ifTrue:[0@self height]
  ifFalse:[self width@0]).
  ]
  ].
+
+ "support shortcuts with the new event filters (5/24/2018)"
+ self
+ initializeKeyboardShortcuts;
+ initializeMouseShortcuts.
+
  ^super convertToCurrentVersion: varDict refStream: smartRefStrm.
  !