Some refactorings, error fixing

packages/Sandblocks-Babylonian/SBMultiverse.class.st

@@ -119,7 +119,7 @@ SBMultiverse >> cleanUp [
 	(watches select: [:anOpenWatch | anOpenWatch containingArtefact isNil]) copy do: #delete.
 	watches select: #isInEditor thenDo: [:aWatch | aWatch exampleToDisplay values do: #updateDisplay].
 	allMethodBlocksContainingWatches do: [:aMethodBlock | 
-		(aMethodBlock valueOfProperty: #originals) do: [:aWatch| aWatch ignoreReports: true]].
+		(aMethodBlock valueOfProperty: #originals) do: [:aWatch| aWatch ignoreReports: false]].
 ]
 
 { #category : #collecting }

packages/Sandblocks-Core/Collection.extension.st

@@ -5,7 +5,7 @@ Collection >> asBarChart: converter [
 	<convert>
 
 	converter
-		if: [self isString not and: [self isDictionary not and: [self allSatisfy: SBBarChart supportedInterface]]]
+		if: [self isString not and: [self allSatisfy: SBBarChart supportedInterface]]
 		do: [SBBarChart newWithValues: self]
 ]
 
@@ -23,7 +23,7 @@ Collection >> asLineChart: converter [
 	<convert>
 
 	converter
-		if: [self isString not and: [self isDictionary not and: [self allSatisfy: SBLineChart supportedInterface]]]
+		if: [self isString not and: [self allSatisfy: SBLineChart supportedInterface]]
 		do: [SBLineChart newWithValues: self]
 ]
 

packages/Sandblocks-Smalltalk/SBStGrammarHandler.class.st

@@ -462,22 +462,6 @@ SBStGrammarHandler >> useThirdArgument [
 	self useArgument: 3
 ]
 
-{ #category : #'action helpers' }
-SBStGrammarHandler >> variantNameFor: aCollectionOfBlocks in: aParentBlock [
-	
-	aParentBlock sandblockEditor = aParentBlock ifTrue: [^ aCollectionOfBlocks printString].
-	
-	aParentBlock isTopLevel ifTrue: [^ aParentBlock printString].
-
-	aParentBlock isMessageSend ifTrue: [^ aCollectionOfBlocks first submorphBefore printString].
-	(aParentBlock isAssignment and: [aParentBlock receiver isVariant not]) ifTrue: [^ aParentBlock receiver sourceString, ' := '].
-	
-	aCollectionOfBlocks size = 1 ifTrue: [^ aCollectionOfBlocks first sourceString].
-	
-	^ '{1}' format: {(aCollectionOfBlocks collect: [:aBlock | aBlock sourceString]) 
-			fold: [:a :b | a, ', ', Character cr, b ]}
-]
-
 { #category : #'action helpers' }
 SBStGrammarHandler >> variantNameFor: aCollectionOfBlocks in: aParentBlock preceedingBlock: aNeighbor [
 	

packages/Sandblocks-Smalltalk/SBVariant.class.st

@@ -90,7 +90,7 @@ SBVariant class >> named: aString associations: aCollectionOfAssociations active
 
 	requestor := thisContext sender receiver.
 	"The requesting object does not require dynamic update behavior in which it needs to know a certain alternative"
-	SBExploriants objectToPermutation at: (requestor := thisContext sender receiver) ifAbsent: [^ defaultBehavior value].
+	SBExploriants objectToPermutation at: requestor ifAbsent: [^ defaultBehavior value].
 	"The permutation is outdated and does not know this variant"
 	(requiredPermutation := SBExploriants objectToPermutation at: requestor) at: uuid ifAbsent: [^ defaultBehavior value].
 	"An outdated permutation in which an alternative with a higher index than current has been deleted"