!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! !