'From Squeak4.5 of 10 April 2015 [latest update: #13712] on 27 November 2018 at 6:49:40 pm'!

!SystemWindow methodsFor: 'label' stamp: 'tcj 11/27/2018 18:48'!
setStripeColorsFrom: paneColor 
	"Set the stripe color based on the given paneColor"

	labelArea ifNotNil: [labelArea color: Color transparent].
	self updateBoxesColor: (self isActive 
				ifTrue: [paneColor]
				ifFalse: [paneColor muchDarker]).
	stripes ifNil: [^self].
	self isActive 
		ifTrue: [self fillStyle: (SolidFillStyle color: self paneColor "lighter lighter lighter")] 
		ifFalse: ["This could be much faster"
				self fillStyle: (SolidFillStyle color: self paneColor duller)].! !