Resolving live elements in exploriants resets multiverse

hpi-swa · Jan 18, 2024 · 8d83232 · 8d83232
1 parent 1eec393
commit 8d83232
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 3 deletions.
diff --git a/packages/Sandblocks-Babylonian/SBExploriantsView.class.st b/packages/Sandblocks-Babylonian/SBExploriantsView.class.st
@@ -102,7 +102,7 @@ SBExploriantsView >> multiverse [
 SBExploriantsView >> multiverse: aSBMultiverse [
 
 	multiverse := aSBMultiverse.
-	multiverse when: #initialized send: #visualize to: self.
+	multiverse when: #updated send: #visualize to: self.
 ]
 
 { #category : #building }

diff --git a/packages/Sandblocks-Babylonian/SBInactiveExampleWatch.class.st b/packages/Sandblocks-Babylonian/SBInactiveExampleWatch.class.st
@@ -17,6 +17,12 @@ SBInactiveExampleWatch class >> newFromWatch: anActiveWatch [
 		yourself 
 ]
 
+{ #category : #'event handling' }
+SBInactiveExampleWatch class >> registerWatch: aWatch [
+
+	"we do not want the inactive watches in the registry"
+]
+
 { #category : #callbacks }
 SBInactiveExampleWatch >> artefactSaved: aBlock [
 

diff --git a/packages/Sandblocks-Babylonian/SBMultiverse.class.st b/packages/Sandblocks-Babylonian/SBMultiverse.class.st
@@ -148,11 +148,24 @@ SBMultiverse >> initialize [
 			activeExamples do: #runSynchronouslyIgnoreReturn.
 			universes add: (self createUniverseFomPermutation: aPermutation)].
 		self resetWatchesToOriginalPermutationRunning: activeExamples.
-		self triggerEvent: #initialized] forkAt: Processor userSchedulingPriority.
+		self triggerEvent: #updated] forkAt: Processor userSchedulingPriority.
 
 
 ]
 
+{ #category : #actions }
+SBMultiverse >> reset [
+
+	allMethodBlocksContainingVariants := OrderedCollection new.
+	allMethodBlocksContainingWatches := OrderedCollection new.
+	variants := OrderedCollection new.
+	activeExamples := OrderedCollection new.
+	universes := OrderedCollection withAll: ((SBPermutation allPermutationsOf: {}) 
+		collect: [:aPermutation | self createUniverseFomPermutation: aPermutation]) .
+
+	self triggerEvent: #updated.
+]
+
 { #category : #state }
 SBMultiverse >> resetWatchesToOriginalPermutationRunning: activeExamples [
 
@@ -170,9 +183,11 @@ SBMultiverse >> resolve [
 		self saveMethod: aVariantMethod].
 
 	(self findExistingOrConvertToBlocks: self allCompiledMethodsContainingExampleWatches) do: [:aWatchMethod | 
-		aWatchMethod  containedExampleWatches do: #replaceWithWatchedExpression.
+		aWatchMethod containedExampleWatches do: #replaceWithWatchedExpression.
 		self saveMethod: aWatchMethod].
 
+	self reset.
+
 ]
 
 { #category : #accessing }