Merge

hpi-swa-teaching · Jun 16, 2022 · 8435c6f · 8435c6f
2 parents 6393642 + 4194354
commit 8435c6f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/packages/SVG-Morphic.package/SVGBalloonRenderer.class/instance/renderLine.on..st b/packages/SVG-Morphic.package/SVGBalloonRenderer.class/instance/renderLine.on..st
@@ -2,11 +2,12 @@ rendering
 renderLine: anSVGLine on: aCanvas
 	"Render the given object on the canvas."
 
-	| lineWidth lineColor|
+	|lineWidth lineColor transform|
 	lineWidth := (anSVGLine composedStyle at: 'stroke-width') rounded max: 1.
+	transform := anSVGLine transformFrom: anSVGLine world.
 	lineColor := anSVGLine composedStyle at: 'stroke'.
 	aCanvas asBalloonCanvas preserveStateDuring: [:bc|
-		bc transformBy: anSVGLine transform during: [:balloonCanvas |
+		bc transformBy: transform during: [:balloonCanvas |
 			balloonCanvas
 				aaLevel: anSVGLine antialiasingLevel;
 				drawPolygon: {anSVGLine rectangle origin. anSVGLine rectangle corner}

diff --git a/packages/SVG-Morphic.package/SVGBalloonRenderer.class/methodProperties.json b/packages/SVG-Morphic.package/SVGBalloonRenderer.class/methodProperties.json
@@ -4,7 +4,7 @@
 	"instance" : {
 		"defaultSVGTextSize" : "tw 6/2/2022 21:29",
 		"renderEllipse:on:" : "nh 6/5/2022 18:56",
-		"renderLine:on:" : "gvc 8/4/2005 10:07",
+		"renderLine:on:" : "aes 6/16/2022 17:37",
 		"renderPath:on:" : "lra 6/12/2022 18:44",
 		"renderPolygon:on:" : "lra 6/12/2022 18:44",
 		"renderPolyline:on:" : "lra 6/12/2022 18:44",