The Trunk: Morphic-mt.1397.mcz

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

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

Name: Morphic-mt.1397
Author: mt
Time: 20 February 2018, 5:18:00.672505 pm
UUID: 56cc1020-e84a-ba4f-8450-7a296f3e31d5
Ancestors: Morphic-dtl.1396

Improves cache invalidation for a morph's / window's soft drop shadow. Reduce memory load and image file size.

Cleans up the class init for MorphicProject, which is no longer needed in this form.

=============== Diff against Morphic-dtl.1396 ===============

Item was changed:
  ----- Method: MorphicProject class>>initialize (in category 'class initialization') -----
+ initialize
+ "MorphicProject initialize"
+
+ Smalltalk addToShutDownList: self.!
- initialize "MorphicProject initialize"
- "Initialize the default Morphic Project background"
- self defaultFill: (SolidFillStyle color: Color white).
- CurrentProject ifNil:
- ["This is the Top Project."
- CurrentProject := super new initialProject.
- CurrentProject spawnNewProcessAndTerminateOld: true].
- self convertOldProjects.
- Project current isMorphic ifTrue:[
- "Set the default background in the current world"
- Project current world color: self defaultFill.
- ].
- !

Item was added:
+ ----- Method: MorphicProject class>>shutDown: (in category 'system startup') -----
+ shutDown: quitting
+
+ Project current isMorphic ifTrue: [
+ Project current world submorphsDo: [:ea |
+ ea removeProperty: #dropShadow]].!

Item was added:
+ ----- Method: MorphicProject class>>unload (in category 'class initialization') -----
+ unload
+
+ Smalltalk removeFromShutDownList: self.!

Item was changed:
  ----- Method: MorphicProject>>finalExitActions: (in category 'enter') -----
  finalExitActions: enteringProject
 
  world triggerClosingScripts.
 
  "Pause sound players, subject to preference settings"
  (world hasProperty: #letTheMusicPlay)
  ifTrue: [world removeProperty: #letTheMusicPlay]
  ifFalse: [SoundService stop].
 
  world sleep.
+
  (world findA: ProjectNavigationMorph)
  ifNotNil: [:navigator | navigator retractIfAppropriate].
+
  self clearGlobalState.
+ Sensor flushAllButDandDEvents.
+
+ self world submorphsDo: [:ea | ea removeProperty: #dropShadow].!
- Sensor flushAllButDandDEvents. !