All that was shown in the demo

packages/Sandblocks-Babylonian/SBCluster.class.st

@@ -43,7 +43,7 @@ SBCluster >> initialize [
 		listDirection: #topToBottom;
 		vResizing: #shrinkWrap;
 		hResizing: #shrinkWrap;
-		cellInset: 0@10
+		cellInset: 0@2
 ]
 
 { #category : #accessing }
@@ -145,7 +145,7 @@ SBCluster >> visualize [
 				self newTopRowFrom: (matrix atRow: 1) allButFirst. "ignore placeholder morph"
 				self newContainerMorph 
 					listDirection: #leftToRight;
-					cellInset: 5@(-10);
+					cellInset: 5@(-30);
 					addAllMorphsBack: {
 						self newLeftColumnFrom: (matrix atColumn: 1) allButFirst. "ignore placeholder morph"
 						SBGrid newDisplaying: 

packages/Sandblocks-Babylonian/SBCorrelationView.class.st

@@ -30,10 +30,11 @@ SBCorrelationView >> buildForExample: anExample watching: aWatch [
 				addAllMorphsBack: { 
 					SBOwnTextMorph new contents: (
 						'{1}{2}' format: {"anExample label" ''.
-											 (aWatch cleanedExpression sourceString)}).
+											 (aWatch cleanedExpression sourceString withoutLineEndings)}).
 					self containerRow 
 						listDirection: #topToBottom;
 						cellPositioning:  #rightCenter;
+						cellInset: 0@10;
 						addAllMorphsBack: ((self buildGridsFor: anExample watching: aWatch) flatten)}})
 ]
 
@@ -71,7 +72,7 @@ SBCorrelationView >> buildSelectionOptions [
 	selectedVariants 
 		ifEmpty: [ selectedString := selectedString, 'None' ]
 		ifNotEmpty: [ selectedString := selectedString, ((selectedVariants collect: #name) fold: [:a :b | a, ', ', Character cr, b ])]. 
-	container addMorphBack: selectedString asMorph.
+	container addMorphBack: selectedString withoutLineEndings asMorph.
 	^ container
 
 ]
@@ -121,19 +122,6 @@ SBCorrelationView >> collectAllPermutationsOfSelectedVariants [
 	^ allPermutations
 ]
 
-{ #category : #building }
-SBCorrelationView >> ensureVariantSelection [ 
-
-	self multiverse variants ifEmpty: [selectedVariants := OrderedCollection new. ^ self].
-	variantSelection := self buildVariantSelection.
-	self block addMorph: variantSelection.
-
-	selectedVariants 
-		ifNil: [selectedVariants := {variantSelection object} asOrderedCollection]
-		ifNotNil: [selectedVariants := selectedVariants select: [:aVariant | self multiverse variants includes: aVariant]].
-
-]
-
 { #category : #building }
 SBCorrelationView >> ensureVariantSelectionIn: aMorph [
 
@@ -142,7 +130,7 @@ SBCorrelationView >> ensureVariantSelectionIn: aMorph [
 	aMorph addMorph: variantSelection.
 
 	selectedVariants 
-		ifNil: [selectedVariants := {variantSelection object} asOrderedCollection]
+		ifNil: [selectedVariants := {} asOrderedCollection]
 		ifNotNil: [selectedVariants := selectedVariants select: [:aVariant | self multiverse variants includes: aVariant]].
 
 ]

packages/Sandblocks-Babylonian/SBCustomView.class.st

@@ -23,7 +23,7 @@ SBCustomView >> buildViewOptions [
 		prefix: 'Current Grid View: ';
 		labels: (options collect: #name);
 		values: options ;
-		object: options first;
+		object: options third;
 		when: #selectionChanged send: #switchView to: self
 ]
 

packages/Sandblocks-Babylonian/SBExampleValueDisplay.class.st

@@ -79,7 +79,7 @@ SBExampleValueDisplay >> initialize [
 							cellGap: 2;
 							layoutInset: 2@3;
 							addAllMorphsBack: {
-							label := SBStringMorph new. 
+							label := SBStringMorph new visible: false. 
 							statusLabel := SBStringMorph new contents: ''.
 							self newChangeVizButton};
 							yourself);

packages/Sandblocks-Babylonian/SBExampleWatch.class.st

@@ -10,7 +10,8 @@ Class {
 		'dimensionOptions',
 		'modifyExpression',
 		'exampleToDisplay',
-		'exampleToValues'
+		'exampleToValues',
+		'ignoreReports'
 	],
 	#classVars : [
 		'Registry'
@@ -79,9 +80,9 @@ SBExampleWatch class >> report: aValue for: aSymbol modifying: aBlock [
 
 	| watchers example |
 	example := SBExecutionEnvironment value ifNil: [^ aValue].
-
 	watchers := self registry select: [:watcher | watcher notNil 
 		and: [watcher identifier = aSymbol]
+		and: [watcher ignoreReports not]
 		and: [watcher isActive]].
 	watchers do: [:watcher | watcher reportValue: aValue asSBWatchValue for: example].
 
@@ -130,7 +131,8 @@ SBExampleWatch >> asInactiveCopy [
 				originalIdentifier: self identifier;
 				expression: (SBTextBubble new contents: self cleanedExpression sourceString);
 				modifyExpression: self modifyExpression veryDeepCopy;
-				dimensionOptions: self dimensionOptions veryDeepCopy. 
+				dimensionOptions: self dimensionOptions veryDeepCopy;
+				createdWithPermutation: SBActiveVariantPermutation value. 
 
 	exampleToValues keys do: [:anExample |	
 			copy exampleStarting: anExample;
@@ -141,8 +143,7 @@ SBExampleWatch >> asInactiveCopy [
 		(copy exampleToDisplay at: anExample) display 
 			selectedDisplayIndex: (exampleToDisplay at: anExample) display selectedDisplayIndex].		
 
-	exampleToValues keys do: [:anExample |	copy exampleFinished: anExample].							
-
+	exampleToValues keys do: [:anExample | copy exampleFinished: anExample].							
 
 	^ copy 
 		saveObjectsActivePermutations;
@@ -247,6 +248,7 @@ SBExampleWatch >> exampleFinished: anExample [
 SBExampleWatch >> exampleStarting: anExample [
 
 	exampleToValues at: anExample put: OrderedCollection new.
+	self ignoreReports: false. 
 
 	(exampleToDisplay at: anExample ifAbsentPut: [self buildDefaultDisplayFor: anExample])
 		exampleStarting: anExample;
@@ -324,6 +326,18 @@ SBExampleWatch >> identifier: aSymbol [
 	self world ifNotNil: [self class registerWatch: self]
 ]
 
+{ #category : #accessing }
+SBExampleWatch >> ignoreReports [
+
+	^ ignoreReports
+]
+
+{ #category : #accessing }
+SBExampleWatch >> ignoreReports: aBoolean [
+
+	ignoreReports := aBoolean
+]
+
 { #category : #initialization }
 SBExampleWatch >> initialize [
 
@@ -334,6 +348,7 @@ SBExampleWatch >> initialize [
 	exampleToDisplay := IdentityDictionary new.
 	exampleToValues := IdentityDictionary new.
 	watchedExpression := SBStMessageSend new.
+	ignoreReports := false.
 	dimensionOptions := SBComboBox new
 		prefix: 'Preview size: ';
 		labels: (options collect: #label);
@@ -449,6 +464,12 @@ SBExampleWatch >> outOfWorld: aWorld [
 	self class unregisterWatch: self
 ]
 
+{ #category : #'as yet unclassified' }
+SBExampleWatch >> preventOcclusion [
+
+	^ false
+]
+
 { #category : #printing }
 SBExampleWatch >> printOn: aStream [
 

packages/Sandblocks-Babylonian/SBExploriants.class.st

@@ -120,7 +120,7 @@ SBExploriants >> evaluationReceiver [
 { #category : #accessing }
 SBExploriants >> ignoreUpdate [
 
-	^ ignoreUpdate ifNil: [false]
+	^ ignoreUpdate
 ]
 
 { #category : #accessing }
@@ -136,6 +136,8 @@ SBExploriants >> initialize [
 
 	objectToPermutation := WeakKeyDictionary new.
 	updateProcessRunning := false.
+	ignoreUpdate := false.
+	namedBlocks := {SBExploriantsView new} asOrderedCollection.
 
 	self
 		attachDecorator: SBMoveDecorator new;
@@ -161,7 +163,10 @@ SBExploriants >> isArtefact [
 { #category : #initialization }
 SBExploriants >> methodChanged: anEvent [
 
-	anEvent isModified ifTrue: [namedBlocks last addCodeSnapshot: anEvent]
+	anEvent isModified 
+		ifTrue: [
+			namedBlocks detect: #isHistory
+			ifFound: [:history | history addCodeSnapshot: anEvent]]
 ]
 
 { #category : #accessing }
@@ -227,7 +232,7 @@ SBExploriants >> updateInBackgroundOnTimeoutRevertTo: theOldMultiverse [
 		newMultiverse := SBMultiverse bigbangInEditorWithoutKaboom: self sandblockEditor.
 		self namedBlocks do: [:aTab | aTab multiverse: newMultiverse].
 		[newMultiverse kaboom] 
-			valueWithin: 7 seconds 
+			valueWithin: 20 seconds 
 			onTimeout: [newMultiverse cleanUp. 
 						  self namedBlocks do: [:aTab | aTab multiverse: theOldMultiverse]]. 
 		updateProcess := nil. updateProcessRunning := false.
@@ -236,9 +241,10 @@ SBExploriants >> updateInBackgroundOnTimeoutRevertTo: theOldMultiverse [
 
 { #category : #actions }
 SBExploriants >> visualize [
-
-	| tabs |
+	
+	|tabs|
 	self width: 0.
+	ignoreUpdate := false.
 	"tabs will visualize as soon as multiverse is finished"
 	tabs := SBExploriantsView getTabsInMultiverse: (SBMultiverse bigbangInEditor: self sandblockEditor).
 

packages/Sandblocks-Babylonian/SBExploriantsView.class.st

@@ -86,13 +86,19 @@ SBExploriantsView >> initialize [
 		changeTableLayout;
 		color: Color white;
 		listDirection: #topToBottom;
-		layoutInset: 3;
-		cellGap: 4;
+		layoutInset: 1;
+		cellGap: 2;
 		cellInset: 2;
 		hResizing: #shrinkWrap;
 		vResizing: #shrinkWrap).
 ]
 
+{ #category : #accessing }
+SBExploriantsView >> isHistory [
+
+	^ false
+]
+
 { #category : #accessing }
 SBExploriantsView >> isOverview [
 

packages/Sandblocks-Babylonian/SBHistoryView.class.st

@@ -1,23 +1,26 @@
 Class {
 	#name : #SBHistoryView,
 	#superclass : #SBExploriantsView,
+	#instVars : [
+		'scrollPane'
+	],
 	#category : #'Sandblocks-Babylonian'
 }
 
 { #category : #building }
 SBHistoryView >> addCodeSnapshot: aChange [
 
-	self submorphs size - 1 "buttonRow" > self maxEpoches ifTrue: [self lastSubmorph delete]. 
+	self ensureStackSize.
 
-	self block addMorph: (self buildCodeSnapshot: aChange) atIndex: 2
+	self scroller addMorphFront: (self buildCodeSnapshot: aChange)
 ]
 
 { #category : #building }
 SBHistoryView >> addEpoche [
 
-	self submorphs size - 1 "buttonRow" > self maxEpoches ifTrue: [self lastSubmorph delete]. 
+	self ensureStackSize.
 
-	self block addMorph: self buildEpoche atIndex: 2
+	self scroller addMorphFront: self buildEpoche
 ]
 
 { #category : #building }
@@ -67,6 +70,28 @@ SBHistoryView >> buildMetaUsageIn: aRow [
 
 ]
 
+{ #category : #building }
+SBHistoryView >> buildScrollPane [
+
+	| scrollPane |
+	scrollPane := ScrollPane new
+		color: Color transparent;
+		borderWidth: 0;
+		hResizing: #spaceFill;
+		scrollBarThickness: 7 sbScaled;
+		showHScrollBarOnlyWhenNeeded;
+		showVScrollBarOnlyWhenNeeded;
+		height: 600 sbScaled.
+	scrollPane scroller 
+		changeTableLayout;
+		listDirection: #topToBottom;
+		cellPositioning: #topLeft;
+		layoutInset: 1;
+		cellGap: 2;
+		cellInset: 2.
+	^ scrollPane
+]
+
 { #category : #building }
 SBHistoryView >> buildSnapshotTabView [
 
@@ -93,13 +118,19 @@ SBHistoryView >> changeTabsButton [
 		cornerStyle: #squared
 ]
 
+{ #category : #actions }
+SBHistoryView >> clean [
+
+	self scroller submorphs copy do: #delete
+]
+
 { #category : #building }
 SBHistoryView >> clearButton [
 
 	^ SBButton new
 		icon: SBIcon iconClockO
 			label: 'Clear History'
-			do: [self clean. self block addMorphBack: self buildButtonRow];
+			do: [self clean];
 		cornerStyle: #squared
 ]
 
@@ -116,13 +147,27 @@ SBHistoryView >> deleteEpocheButton: theRow [
 
 ]
 
+{ #category : #building }
+SBHistoryView >> ensureStackSize [
+
+	self scroller submorphs size > self maxEpoches ifTrue: [self scroller lastSubmorph delete]. 
+]
+
 { #category : #initialization }
 SBHistoryView >> initialize [ 
 
 	super initialize.
 
 	self name: 'History'.
 	self buildButtonRow.
+	scrollPane := self buildScrollPane.
+	self block addMorphBack: scrollPane.
+]
+
+{ #category : #accessing }
+SBHistoryView >> isHistory [ 
+
+	^ true
 ]
 
 { #category : #accessing }
@@ -139,7 +184,7 @@ SBHistoryView >> offerChangeTabMenu [
 	index := UIManager default chooseFrom: options.
 	index = 0 ifTrue: [^ self].
 
-	self block submorphs allButFirst do: [:anEpoche | anEpoche lastSubmorph activeIndex: index].
+	self scroller submorphs do: [:anEpoche | anEpoche lastSubmorph activeIndex: index].
 ]
 
 { #category : #building }
@@ -148,10 +193,16 @@ SBHistoryView >> saveButton [
 	^ SBButton new
 		icon: SBIcon iconSave
 			label: 'Save As PNG'
-			do: [self block exportAsPNG];
+			do: [self scroller exportAsPNG];
 		cornerStyle: #squared
 ]
 
+{ #category : #accessing }
+SBHistoryView >> scroller [
+
+	^ scrollPane scroller
+]
+
 { #category : #accessing }
 SBHistoryView >> tabsToSnapshot [