[Balloon] BalloonCanvas bug?

Baveco, Hans Hans.Baveco at wur.nl
Sun Oct 9 20:37:39 UTC 2005


When displaying square and round dots in different colors with the
following test code, the BalloonCanvas appears to mesh up the colors.
Red-red-blue-red rectangles appear, instead of the expected
red-blue-red-blue. 
When I change the order within the block, with first the #fillOval:etc
and then the #fillRectangle:etc, the results are as expected though.
Something weird is going on here, with #fillOval:etc always updating the
color and #fillRectangle:etc not.

Hans



	| bc offset posRect count |
	bc := BalloonCanvas on: Display.
	bc aaLevel: 2.
	offset := 50 @ 50.
	posRect := -5 @ -5 extent: 11 @ 11.
	count := 0.
	{ (Color red). (Color blue). (Color red). (Color blue) } do: 
				[:each | 
				count := count + 1.
				bc 
					drawRectangle: (posRect
translateBy: (offset x * count) @ 10)
					color: each
					borderWidth: 0
					borderColor: each.
				bc 
					fillOval: (posRect translateBy:
(offset x * count) @ 30)
					color: each
					borderWidth: 0
					borderColor: each]



More information about the Squeak-dev mailing list