Resolves calls of SBEditor current by Exploriants

packages/Sandblocks-Babylonian/SBExploriants.class.st

@@ -58,5 +58,12 @@ SBExploriants >> saveTryFixing: aFixBoolean quick: aQuickBoolean [
 { #category : #actions }
 SBExploriants >> visualize [
 
-	self namedBlocks: SBExploriantsView getTabs activeIndex: 1
+	"The Views need a parent to visualize themselves. We also want to avoid double-calculations"
+	| tabs |
+	tabs := SBExploriantsView getTabs.
+	tabs do: [:aTab | self addMorph: aTab block. aTab visualize.].
+	self removeAllMorphs.
+
+	self namedBlocks: tabs activeIndex: 1.
+
 ]

packages/Sandblocks-Babylonian/SBExploriantsView.class.st

@@ -1,3 +1,7 @@
+"
+Caution:
+The Views need a parent who in in the editor to visualize themselves
+"
 Class {
 	#name : #SBExploriantsView,
 	#superclass : #SBNamedBlock,
@@ -69,7 +73,7 @@ SBExploriantsView >> findExistingOrConvertToBlocks: aCollectionOfCompiledMethods
 
 	^ aCollectionOfCompiledMethods
 		collect: [:aCompiledMethod | 
-			SBEditor current blockFor: aCompiledMethod withInterfaces: #(#isMethod) 
+			self block sandblockEditor blockFor: aCompiledMethod withInterfaces: #(#isMethod) 
 				ifOpen: [:existingMethodBlock | existingMethodBlock] 
 				ifClosed: [aCompiledMethod asSandblock]]
 ]

packages/Sandblocks-Babylonian/SBResultsView.class.st

@@ -16,7 +16,7 @@ SBResultsView >> allActiveExamples [
 	^ (self allCompiledMethodsContainingExamples 
 		collect: [:aCompiledMethod | 
 			"Only examples which are open in the editor can actually be active."
-			SBEditor current blockFor: aCompiledMethod withInterfaces: #(#isMethod) 
+			self block sandblockEditor blockFor: aCompiledMethod withInterfaces: #(#isMethod) 
 				ifOpen: [:existingMethodBlock | existingMethodBlock containedExamples select: #active] 
 				ifClosed: [#()]]) flatten
 ]
@@ -95,9 +95,7 @@ SBResultsView >> initialize [
 
 	super initialize.
 
-	self name: 'Possible Results'.
-
-	self visualize
+	self name: 'Possible Results'
 ]
 
 { #category : #building }

packages/Sandblocks-Babylonian/SBVariantsView.class.st

@@ -25,8 +25,6 @@ SBVariantsView >> initialize [
 	super initialize.
 
 	self name: 'Variant Manager'.
-
-	self visualize
 ]
 
 { #category : #actions }

packages/Sandblocks-Core/SBEditor.class.st

@@ -1155,7 +1155,9 @@ SBEditor >> openAll: aCollection [
 SBEditor >> openExploriants [
 	<globalAction>
 
-	self open: SBExploriants uniqueInstance visualize
+	"Not calling visualize directly as we first want the editor to be an owner of SBExploriants"
+	self open: SBExploriants uniqueInstance.
+	SBExploriants uniqueInstance visualize
 ]
 
 { #category : #'actions creating' }

packages/Sandblocks-Core/SBTabView.class.st

@@ -378,7 +378,7 @@ SBTabView >> removeCurrentTab [
 { #category : #tabs }
 SBTabView >> setActive: aNamedBlock [
 
-	SBEditor current do: 
+	self sandblockEditor do: 
 		(self switchCommandFor: (self namedBlocks indexOf: aNamedBlock ifAbsent: 1))
 ]
 

packages/Sandblocks-Utils/SBPermutation.class.st

@@ -36,7 +36,7 @@ SBPermutation >> apply [
 
 	self referencedVariants do: [:aVariant | aVariant switchToAlternative: (self at: aVariant id)].
 	(Set newFrom: (referencedVariants collect: #containingArtefact thenSelect: #isMethod))
-		do: [:aMethodBlock | SBEditor current save: aMethodBlock tryFixing: true quick: true].
+		do: [:aMethodBlock | aMethodBlock sandblockEditor save: aMethodBlock tryFixing: true quick: true].
 ]
 
 { #category : #converting }