Slight renames

hpi-swa · Mar 28, 2024 · 851f1d9 · 851f1d9
1 parent e8936bf
commit 851f1d9
Show file tree

Hide file tree

Showing 4 changed files with 33 additions and 14 deletions.
diff --git a/packages/Sandblocks-Babylonian/SBCorrelationView.class.st b/packages/Sandblocks-Babylonian/SBCorrelationView.class.st
@@ -200,3 +200,9 @@ SBCorrelationView >> visualize [
 	self buildAllPossibleResults .
 	self concludeContainerWidth.
 ]
+
+{ #category : #accessing }
+SBCorrelationView >> wantsReloadOnSaveWhenOpen [
+
+	^ true
+]
diff --git a/packages/Sandblocks-Babylonian/SBExampleWatch.class.st b/packages/Sandblocks-Babylonian/SBExampleWatch.class.st
@@ -335,11 +335,11 @@ SBExampleWatch >> initialize [
 	exampleToValues := IdentityDictionary new.
 	watchedExpression := SBStMessageSend new.
 	dimensionOptions := SBComboBox new
-			prefix: 'Morph Dimensions: ';
-			labels: (options collect: #label);
-			values: options;
-			object: options third;
-			when: #selectionChanged send: #applyResizerOnValues to: self.
+		prefix: 'Preview sizes: ';
+		labels: (options collect: #label);
+		values: options;
+		object: options third;
+		when: #selectionChanged send: #applyResizerOnValues to: self.
 	modifyExpression := SBStBlockBody identityNamed: 'each'.
 
 	self
@@ -349,14 +349,19 @@ SBExampleWatch >> initialize [
 		vResizing: #shrinkWrap;
 		hResizing: #shrinkWrap;
 		addAllMorphsBack: {
-			watchedExpression. 
-			 SBRow new
+			watchedExpression.
+			SBRow new
 				hResizing: #spaceFill;
 				listCentering: #bottomRight;
 				addMorphBack: dimensionOptions;
-				yourself. 
-			modifyExpression};
-		yourself 
+				yourself.
+			SBVariant
+				named: 'modifyExpression'
+				associations: {'with' -> [modifyExpression]. 'without' -> []}
+				activeIndex: 2
+				id: '90d7c718-89b8-7e48-8262-467d07d56880'
+				isActive: false};
+		yourself
 ]
 
 { #category : #initialization }

diff --git a/packages/Sandblocks-Babylonian/SBResizableResultsView.class.st b/packages/Sandblocks-Babylonian/SBResizableResultsView.class.st
@@ -21,7 +21,7 @@ SBResizableResultsView >> buildDimensionOptions [
 	options := SBMorphResizer standardOptions.
 
 	^ SBComboBox new
-		prefix: 'Image Dimensions: ';
+		prefix: 'Preview sizes: ';
 		labels: (options collect: #label);
 		values: options;
 		object: options third;

diff --git a/packages/Sandblocks-Babylonian/SBStMessageSend.extension.st b/packages/Sandblocks-Babylonian/SBStMessageSend.extension.st
@@ -3,7 +3,15 @@ Extension { #name : #SBStMessageSend }
 { #category : #'*Sandblocks-Babylonian' }
 SBStMessageSend >> suggestedAlternationName [
 
-	^ self isAssignment 
-		ifTrue: ['{2}{1}' format: {self selector. self receiver suggestedAlternationName  }] 
-		ifFalse: ['{1} to {2}' format: {self selector. self receiver suggestedAlternationName  }] 
+	^ self isAssignment
+		ifTrue: ['{2}{1}' format: {self selector. self receiver suggestedAlternationName}]
+		ifFalse: [
+			SBVariant
+				named: 'format: to ''{1} to {2}'''
+				associations: {
+					'with sender' -> ['{1} to {2}' format: {self selector. self receiver suggestedAlternationName}].
+					'w/o sender' -> ['{1}' format: {self selector}]}
+				activeIndex: 2
+				id: '1949332c-4768-ff4a-98ba-0356e4a3f2fa'
+				isActive: false]
 ]