SM 2.1 coming soon
Stéphane Rollandin
lecteur at zogotounga.net
Wed Nov 23 10:00:09 UTC 2005
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! !
More information about the Squeak-dev
mailing list
|