Merge pull request #338 from pharo-graphics/dontPositionOnAsForm

Fix: Converting to Form was cropped when position is not zero

src/Bloc-Alexandrie/BlElement.extension.st

@@ -20,7 +20,7 @@ BlElement >> aeAsForm [
 	self isLayoutRequested ifTrue: [ self forceLayout ].
 
 	"We want to consider our border, effect, as well as children's."
-	invalidationBounds := self invalidationBounds: BlBounds new.
+	invalidationBounds := self invalidationBoundsInSpace.
 	aCanvas := AeCanvas extent: invalidationBounds extent.
 	aCanvas pathTranslate: invalidationBounds origin negated.
 	self aeFullDrawOn: aCanvas.

src/Bloc-UnitedTests/BlBasicTest.class.st

@@ -8,6 +8,28 @@ Class {
 	#category : #'Bloc-UnitedTests-Basic'
 }
 
+{ #category : #tests }
+BlBasicTest >> testAsForm [
+
+	| anElement |
+	anElement := BlElement new
+		size: 30@40;
+		background: Color green;
+		yourself.
+
+	self assert: anElement asForm extent equals: 30@40.
+
+	anElement position: 10@20.
+	self assert: anElement asForm extent equals: 30@40.
+
+	anElement transformDo: [ :t | t scaleBy: 2@3 ].
+	self assert: anElement asForm extent equals: 60@120.
+
+	self
+		assert: (anElement asForm colorAt: 0@0)
+		equals: Color green
+]
+
 { #category : #tests }
 BlBasicTest >> testBorderRopedText [
 <sampleInstance>