Exploriants can now handle no variants

hpi-swa · Oct 11, 2023 · 02ee4cf · 02ee4cf
1 parent 872cab9
commit 02ee4cf
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 1 deletion.
diff --git a/packages/Sandblocks-Babylonian/SBResultsView.class.st b/packages/Sandblocks-Babylonian/SBResultsView.class.st
@@ -4,6 +4,14 @@ Class {
 	#category : #'Sandblocks-Babylonian'
 }
 
+{ #category : #building }
+SBResultsView >> addAllWatchesFrom: aCollectionOfMethodBlocks [
+
+	self block addAllMorphsBack: { 	(self containerRow listDirection: #leftToRight) 
+										addAllMorphsBack: (self allWatchesIn: aCollectionOfMethodBlocks).
+									LineMorph from: 0@0 to: 50@0 color: Color black width: 2}
+]
+
 { #category : #accessing }
 SBResultsView >> allActiveExamples [
 
@@ -65,6 +73,8 @@ SBResultsView >> buildAllPossibleResults [
 	activeExamples := self allActiveExamples.
 	permutations := SBPermutation allPermutationsOf: variants.
 
+	permutations ifEmpty: [self addAllWatchesFrom: watchMethodBlocks].
+
 	[ permutations do: [:aPermutation |
 		SBActiveVariantPermutation value: aPermutation.
 		activeExamples do: #runSynchronouslyIgnoreReturn.

diff --git a/packages/Sandblocks-Babylonian/SBVariantsView.class.st b/packages/Sandblocks-Babylonian/SBVariantsView.class.st
@@ -13,6 +13,12 @@ SBVariantsView >> buildMethodSectionFor: aSBStMethod [
 									LineMorph from: 0@0 to: 50@0 color: Color black width: 2}
 ]
 
+{ #category : #building }
+SBVariantsView >> buildNoVariantsText [
+
+	self block addMorphBack: (SBOwnTextMorph new contents: 'No variants exist.')
+]
+
 { #category : #initialization }
 SBVariantsView >> initialize [ 
 
@@ -28,5 +34,7 @@ SBVariantsView >> visualize [
 
 	self clean.
 
-	self allMethodBlocksContainingVariants do: [:aSBStMethod | self buildMethodSectionFor: aSBStMethod]
+	self allMethodBlocksContainingVariants 
+		ifNotEmptyDo: [:aSBStMethod | self buildMethodSectionFor: aSBStMethod] 
+		ifEmpty: [self buildNoVariantsText]
 ]
diff --git a/packages/Sandblocks-Utils/SBPermutation.class.st b/packages/Sandblocks-Utils/SBPermutation.class.st
@@ -15,6 +15,7 @@ Class {
 SBPermutation class >> allPermutationsOf: aCollectionOfVariants [
 
 	| permutations |
+	aCollectionOfVariants ifEmpty:[^#()].
 	permutations := (1 to: aCollectionOfVariants first alternativesCount) collect: #asArray.
 
 	(2 to: aCollectionOfVariants size) do: [:i | | alternatives |