Restricted changes done in commit 3db44c8 (“Made #physicalSize on BlM…

…orphicHostSpace apply the world renderer canvas scale factor”) to Pharo 12 to maintain compatibility with earlier versions.

src/BlocHost-Morphic/BlMorphicHostSpace.class.st

@@ -123,7 +123,12 @@ BlMorphicHostSpace >> physicalSize [
 	This size may differ from the logical size on high dpi (retina) screens.
 	In most cases physical size is x2 larger than logical size on retina screens."
 
-	^ ((spaceHostMorph width @ spaceHostMorph height) * OSWorldRenderer canvasScaleFactor) asPhysicalSize
+	| canvasScaleFactor |
+
+	canvasScaleFactor := SystemVersion current major >= 12
+		ifTrue: [ (Smalltalk at: #OSWorldRenderer) canvasScaleFactor ]
+		ifFalse: [ 1 ].
+	^ ((spaceHostMorph width @ spaceHostMorph height) * canvasScaleFactor) asPhysicalSize
 ]
 
 { #category : #'window - properties' }

src/BlocHost-Morphic/BlMorphicSpaceHostMorph.class.st

@@ -23,7 +23,12 @@ BlMorphicSpaceHostMorph >> drawOn: aCanvas [
 		ifTrue: [ ^ self ].
 	hostSpace ifNotNil: [ 
 		aCanvas clipBy: self fullBounds during: [ :aClippedCanvas |
-			aClippedCanvas drawFormSet: (FormSet extent: self extent depth: spaceForm depth forms: { spaceForm }) at: self position ] ]
+			SystemVersion current major >= 12 ifTrue: [
+				| formSet |
+				formSet := (Smalltalk at: #FormSet) extent: self extent depth: spaceForm depth forms: { spaceForm }.
+				aClippedCanvas drawFormSet: formSet at: self position
+			] ifFalse: [
+				aClippedCanvas drawImage: spaceForm at: self position ] ] ]
 ]
 
 { #category : #geometry }