oups,

it seems that this code only works for me :)

I forgot I changed the code for SystemWindow>>paneColor (see attaches 
file). so I guess I did not find a simpler work-around.


regards,

Stef
-------------- next part --------------
'From Squeak3.8 of ''5 May 2005'' [latest update: #6665] on 23 November 2005 at 10:56:35 am'!

!SystemWindow methodsFor: 'panes' stamp: 'spfa 11/30/2004 23:03'!
paneColor
	| cc |
	(cc := self valueOfProperty: #paneColor) ifNotNil: [^cc].
	Display depth > 2 
		ifTrue: 
			[model ifNotNil: 
					[model isInMemory 
						ifTrue: 
							[cc := Color colorFrom: model defaultBackgroundColor.
							Preferences alternativeWindowLook 
								ifTrue: 
									[cc := (cc = Color lightYellow or: [cc = Color white]) 
										ifTrue: [Color gray: 0.67]
										ifFalse: [cc asColor duller]]]].
			cc 
				ifNil: [cc := paneMorphs isEmptyOrNil ifFalse: [paneMorphs first color]]].
	cc ifNil: [cc := self defaultBackgroundColor].
	self paneColor: cc.
	^cc! !