[BUG][FIX] can't create TwoWayScrollPanes any more

Ned Konz ned at bike-nomad.com
Mon Feb 4 23:17:55 UTC 2002


in image 4653, try:

TwoWayScrollPane new

with the new scrollbar look. It blows up when it tries to get the color of 
its nonexistent owner.

This fixes the problem:

TwoWayScrollPane>>colorForInsets
	"My submorphs use the surrounding color"
	| aColor |
	owner ifNotNil: [
		(aColor _ owner color) ifKindOf: Color thenDo: [:c | ^ aColor].
	].
	"This workaround relates to cases where the scrollPane's color is not a true 
color but rather an InfiniteForm, which is not happy to be returned here"
	^ Color white

-- 
Ned Konz
currently: Stanwood, WA
email:     ned at bike-nomad.com
homepage:  http://bike-nomad.com



More information about the Squeak-dev mailing list