Changed the ‘canvasBlock’ in #doActivate on OSWorldRendererScalingCanvas to use FormCanvas when the scale is 1 or nonintegral.

Rinzwind · Rinzwind · commit 0279cd429b5e · 2023-10-09T01:47:53.000+02:00
diff --git a/src/OSWindow-Core/OSWorldRendererScalingCanvas.class.st b/src/OSWindow-Core/OSWorldRendererScalingCanvas.class.st
@@ -36,7 +36,11 @@ OSWorldRendererScalingCanvas >> doActivate [
 
 	super doActivate.
 	self osWindow backendWindow renderer canvasBlock: [ :formCanvas |
-		ScalingCanvas formCanvas: formCanvas scale: world scaleFactor reciprocal ]
+		| scale |
+		scale := world scaleFactor reciprocal.
+		(scale ~= 1 and: [ scale truncated = scale ])
+			ifTrue: [ ScalingCanvas formCanvas: formCanvas scale: scale ]
+			ifFalse: [ formCanvas ] ]
 ]
 
 { #category : 'operations' }
