The Trunk: Morphic-ct.1533.mcz

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

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

Name: Morphic-ct.1533
Author: ct
Time: 20 September 2019, 8:54:34.318726 pm
UUID: 38b7bc64-e4de-cf41-b55c-f9dcb6a83340
Ancestors: Morphic-ct.1532

Fix a bug in MorphicProject initialization. If the fill style is a GradientFill and does not get copied, later changes will affect both worlds, wich does not seem desirable to me in any manner.

=============== Diff against Morphic-ct.1532 ===============

Item was changed:
  ----- Method: MorphicProject>>setWorldBackground: (in category 'initialize') -----
  setWorldBackground: force
 
  ((world hasProperty: #hasCustomBackground) and: [force not])
  ifTrue: [^ self].
 
  "If the user has a custom background, propagate it into the new project."
  ((Project current ~~ self and: [Project current isMorphic]) and: [Project current world hasProperty: #hasCustomBackground])
  ifTrue: [
+ world fillStyle: Project current world fillStyle veryDeepCopy.
- world fillStyle: Project current world fillStyle.
  world setProperty: #hasCustomBackground toValue: true]
  ifFalse: [
  world removeProperty: #hasCustomBackground.
  world fillStyle: (self userInterfaceTheme background ifNil: [self class defaultFill])].!