The Trunk: Morphic-mt.1237.mcz

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

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

Name: Morphic-mt.1237
Author: mt
Time: 5 August 2016, 4:11:08.782141 pm
UUID: a38f409a-f401-b445-b275-55ae8c8ae0e0
Ancestors: Morphic-mt.1236

Make #defaultColor fallback in SystemWindow work again.

=============== Diff against Morphic-mt.1236 ===============

Item was changed:
  ----- Method: SystemWindow>>paneColor (in category 'colors') -----
  paneColor
  | cc |
  (cc := self valueOfProperty: #paneColor) ifNotNil: [^cc].
+ (model respondsTo: #windowColorToUse) ifTrue: [cc := model windowColorToUse].
- model notNil ifTrue: [cc := model windowColorToUse].
  cc ifNil: [cc := paneMorphs isEmptyOrNil ifFalse: [paneMorphs first color]].
  cc ifNil: [cc := self defaultColor].
  self paneColor: cc.
  ^cc!