In BlSpace class>>#simulate:during:, use inNewHeadlessSpaceDo:

Author: tinchodias

src/Bloc-Simulation/BlSpace.extension.st

@@ -40,21 +40,18 @@ BlSpace class >> pulseUntilSpaceOpenedAndEmptyTaskQueue: aSpace timeout: aDurati
 { #category : #'*Bloc-Simulation' }
 BlSpace class >> simulate: anElement during: aBlock [
 
-	| tempSpace topMostElement result |
 	anElement isAttachedToSceneGraph
-		ifTrue: [ 
+		ifTrue: [
+			| result |
 			result := aBlock value.
-			anElement space ifNotNil: [ :s | s settle ] ]
+			anElement space ifNotNil: [ :s | s settle ].
+			^ result ]
 		ifFalse: [
-			topMostElement := anElement topMostParent.
-			tempSpace := BlSpace new.
-			tempSpace root addChild: topMostElement.
-			[
+			^ anElement topMostParent inNewHeadlessSpaceDo: [ :space |
+				| result |
 				result := aBlock value.
-				tempSpace settle.
-			] ensure: [
-				topMostElement removeFromParent ] ].
-	^ result
+				space settle.
+				result ] ]
 ]
 
 { #category : #'*Bloc-Simulation' }

src/Bloc-Tests/BlEventSimulatorTest.class.st

@@ -152,6 +152,22 @@ BlEventSimulatorTest >> testSimulateFromPulseProcessRaisesError [
 	self assert: errorRaised
 ]
 
+{ #category : #tests }
+BlEventSimulatorTest >> testSimulateOnDetachedElement [
+
+	| detached clicked |
+	detached := BlElement new.
+	detached extent: 100 @ 100.
+	clicked := false.
+	detached
+		addEventHandlerOn: BlClickEvent
+		do: [ :event | clicked := true ].
+	BlSpace simulate: detached during: [
+		detached eventSimulator click ].
+	self assert: clicked.
+	self deny: detached isAttachedToSceneGraph
+]
+
 { #category : #tests }
 BlEventSimulatorTest >> testTextInput [
 	| textInputText |