Add missing baseline correction

Extracted from the booklet; I missed it before.
RalfBarkow · Feb 25, 2021 · ae6a570 · ae6a570
1 parent 6522661
commit ae6a570
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Bloc-Memory/MGCardElement.class.st b/src/Bloc-Memory/MGCardElement.class.st
@@ -111,12 +111,15 @@ MGCardElement >> drawFlippedSideOn: aCanvas [
 		        named: 'Source Sans Pro';
 		        size: 50;
 		        build.
+
 	textPainter := aCanvas text
 		               font: font;
 		               paint: Color white;
 		               string: self card symbol asString.
+
 	metrics := textPainter measure.
-	origin := self extent - metrics textMetrics bounds extent / 2.0.
+	origin := (self extent - metrics textMetrics bounds extent) / 2.0.
+	origin := origin - metrics textMetrics bounds origin.
 	textPainter
 		baseline: origin;
 		draw