!SystemWindow methodsFor: '*cust2-panes' stamp: 'gh 8/22/2002 18:35'!
paneColor
| cc colorProvider |
(cc _ self valueOfProperty: #paneColor) ifNotNil:[^cc].
Display depth > 2 ifTrue:[
colorProvider _ (model notNil and: [model isInMemory])
ifTrue: [model] ifFalse: [self].
cc _ Color colorFrom: colorProvider defaultBackgroundColor.
Preferences alternativeWindowLook ifTrue:[
(cc = Color lightYellow or: [cc = Color white])
ifTrue:[cc _ Color gray: 0.67]
ifFalse:[cc _ cc duller].
].
cc ifNil:[cc _ paneMorphs isEmptyOrNil ifFalse: [paneMorphs first color]]].
cc ifNil:[cc _ Color white].
self paneColor: cc.
^cc! !