Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.59.mcz
==================== Summary ====================
Name: MorphicTests-mt.59 Author: mt Time: 24 February 2020, 2:03:14.962031 pm UUID: a1efbe2f-4b54-e943-a8e3-ec53ce984fc8 Ancestors: MorphicTests-mt.58
Adds a test for #containsPoint: in PolygonMorph. See the discussion on the mailing list: http://forum.world.st/Bug-in-PolygonMorph-gt-gt-filledForm-td5112218.html
=============== Diff against MorphicTests-mt.58 ===============
Item was changed: + ----- Method: PolygonMorphTest>>testBoundsBug1035 (in category 'tests') ----- - ----- Method: PolygonMorphTest>>testBoundsBug1035 (in category 'bounds') ----- testBoundsBug1035 "This is a non regression test for http://bugs.squeak.org/view.php?id=1035 PolygonMorph used to position badly when container bounds were growing" | submorph aMorph | submorph := (PolygonMorph vertices: {0@0. 100@0. 0@100} color: Color red borderWidth: 0 borderColor: Color transparent) color: Color red.
submorph bounds. "0@0 corner: 100@100"
aMorph := Morph new color: Color blue; layoutPolicy: ProportionalLayout new; addMorph: submorph fullFrame: (LayoutFrame fractions: (0.1 @ 0.1 corner: 0.9 @ 0.9)).
submorph bounds. "0@0 corner: 100@100 NOT YET UPDATED" aMorph fullBounds. "0@0 corner: 50@40. CORRECT" submorph bounds. "5@4 corner: 45@36 NOW UPDATED OK"
aMorph extent: 100@100. submorph bounds. "5@4 corner: 45@36 NOT YET UPDATED" aMorph fullBounds. "-10@-14 corner: 100@100 WRONG" submorph bounds. "-10@-14 corner: 70@66 NOW WRONG POSITION (BUT RIGHT EXTENT)"
self assert: aMorph fullBounds = (0 @ 0 extent: 100@100). self assert: submorph bounds = (10 @ 10 corner: 90@90). !
Item was added: + ----- Method: PolygonMorphTest>>testContainsPoint (in category 'tests') ----- + testContainsPoint + "See http://forum.world.st/Bug-in-PolygonMorph-gt-gt-filledForm-td5112218.html" + + | polygon offset | + offset := 100@100. + polygon := PolygonMorph new + borderWidth: 0; + setVertices: {0@0. 200@0. 200@200. 0@ 200} + offset; + yourself. + + 0 to: polygon width - 1 do: [:x | + 0 to: polygon height - 1 do: [:y | + self assert: (polygon containsPoint: (x@y) + offset)]].!