added class to simulate output and added it to waitWhile:

Author: estebanlm

src/Spec2-Adapters-Morphic/SpMorphicDialogWindowAdapter.class.st

@@ -56,6 +56,10 @@ SpMorphicDialogWindowAdapter >> buildWidget [
 SpMorphicDialogWindowAdapter >> waitWhile: aBlock [
 
 	SpWindowForceOpenNonModal value ifTrue: [ ^ self ].
+	SpWindowSimulateOpenModal value ifNotNil: [ :aValuable |
+		aValuable value: self presenter.
+		self presenter close.
+		^ self ].
 
 	MorphicRenderLoop new doOneCycleWhile: aBlock
 ]

src/Spec2-Core/SpWindowSimulateOpenModal.class.st

@@ -0,0 +1,21 @@
+"
+To be used when I want the dialog to simulate a response instead of calling it.
+To be used, variable needs to be a block with an argument: the dialog itself.
+
+Example:
+```smalltalk
+SpWindowSimulateOpenModal 
+	value: [ :aDialogPresenter |
+		aDalogPresenter presenter inputText: 'The text of the sample'.
+		aDialogPresenter beOk. 
+		true ]
+	durying [ ""some code thet will call dialog openModal"" ]
+```
+"
+Class {
+	#name : 'SpWindowSimulateOpenModal',
+	#superclass : 'DynamicVariable',
+	#category : 'Spec2-Core-Windows',
+	#package : 'Spec2-Core',
+	#tag : 'Windows'
+}