Also fix copying of 'em'

dwarring · dwarring · commit 1b81f6f58b72 · 2024-09-02T08:50:52.000+12:00
Similar to #23
diff --git a/lib/CSS/Properties.rakumod b/lib/CSS/Properties.rakumod
@@ -650,8 +650,10 @@ The `reference-width` attribute represents the width of a containing element; wh
         $obj.copy: $orig, :@properties;
     }
 
-    multi method copy(::?CLASS:D: ::?CLASS:D $orig, :@properties = [$orig.properties]) {
+    multi method copy(::?CLASS:D: ::?CLASS:D $orig, :@properties = $orig.properties) {
         for @properties {
+            $!calc.em = $orig.computed($_)
+               if $_ eq 'font-size';
             %!values{$_} = $orig."$_"()
                 if $.property-number($_).defined;
         }

Original file line number	Diff line number	Diff line change
@@ -650,8 +650,10 @@ The `reference-width` attribute represents the width of a containing element; wh
`650`	`650`	`$obj.copy: $orig, :@properties;`
`651`	`651`	`}`
`652`	`652`
`653`		`- multi method copy(::?CLASS:D: ::?CLASS:D $orig, :@properties = [$orig.properties]) {`
	`653`	`+ multi method copy(::?CLASS:D: ::?CLASS:D $orig, :@properties = $orig.properties) {`
`654`	`654`	`for @properties {`
	`655`	`+ $!calc.em = $orig.computed($_)`
	`656`	`+ if $_ eq 'font-size';`
`655`	`657`	`%!values{$_} = $orig."$_"()`
`656`	`658`	`if $.property-number($_).defined;`
`657`	`659`	`}`