Merge pull request #650 from jecisc/649-Harvest-Pharo-changes

649-Harvest-Pharo-changes
pharo-spec · Jul 11, 2019 · 6d4cc44 · 6d4cc44
2 parents ec4e30e + 6cc362e
commit 6d4cc44
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/Spec2-Adapters-Morphic/SpMorphicModalWindowAdapter.class.st b/src/Spec2-Adapters-Morphic/SpMorphicModalWindowAdapter.class.st
@@ -45,5 +45,7 @@ SpMorphicModalWindowAdapter >> open [
 
 	self widget
 		toggleStickiness;
-		openCenteredInWorld
+		openCenteredInWorld.
+
+	[ self widget world notNil ] whileTrue: [ self widget outermostWorldMorph doOneCycle ]
 ]
diff --git a/src/Spec2-Examples/SpDemoNotebookPresenter.class.st b/src/Spec2-Examples/SpDemoNotebookPresenter.class.st
@@ -27,6 +27,11 @@ SpDemoNotebookPresenter class >> defaultSpec [
 		yourself
 ]
 
+{ #category : #examples }
+SpDemoNotebookPresenter class >> example [
+	^ self new openWithSpec
+]
+
 { #category : #pages }
 SpDemoNotebookPresenter >> browserPage [
 	^ SpNotebookPage