[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
|