Fix copying for sbvisualization and generate unique-enough example names

hpi-swa · Feb 12, 2025 · ec1e651 · ec1e651
1 parent 0fdab2e
commit ec1e651
Show file tree

Hide file tree

Showing 5 changed files with 48 additions and 3 deletions.
diff --git a/packages/Sandblocks-Babylonian/SBExample.class.st b/packages/Sandblocks-Babylonian/SBExample.class.st
@@ -25,7 +25,7 @@ SBExample class >> instanceSuggestion [
 		self new
 			self: SBStGrammarHandler new newNullBlock
 			args: (SBStArray new type: #dynamic)
-			label: 'example']
+			label: self nameSuggestion]
 ]
 
 { #category : #'as yet unclassified' }
@@ -47,6 +47,12 @@ SBExample class >> matchingSelectors [
 	^ #(#self:args:label: #self:args:label:assert: #example:args:label: #example:args:label:assert:)
 ]
 
+{ #category : #'as yet unclassified' }
+SBExample class >> nameSuggestion [
+
+	^ 'example {1}' format: {Random generateInteger}
+]
+
 { #category : #'as yet unclassified' }
 SBExample class >> newFor: aMessage [
 

diff --git a/packages/Sandblocks-Babylonian/SBLineChart.extension.st b/packages/Sandblocks-Babylonian/SBLineChart.extension.st
@@ -0,0 +1,19 @@
+Extension { #name : #SBLineChart }
+
+{ #category : #'*Sandblocks-Babylonian' }
+SBLineChart >> layoutedTaggedCopy [
+
+	^ self class new
+		traceValues: self traceValues;
+		targetHeight: self targetHeight;
+		scaleY: self scaleY;
+		extent: self extent;
+		color: self color;
+		layoutProperties: self layoutProperties;
+		layoutPolicy: self layoutPolicy;
+		borderStyle: self borderStyle;
+		tag: self tag;
+		yourself 
+
+
+]
diff --git a/packages/Sandblocks-Babylonian/SBRectangleChart.extension.st b/packages/Sandblocks-Babylonian/SBRectangleChart.extension.st
@@ -0,0 +1,20 @@
+Extension { #name : #SBRectangleChart }
+
+{ #category : #'*Sandblocks-Babylonian' }
+SBRectangleChart >> layoutedTaggedCopy [
+
+	^ self class new
+		traceValues: self traceValues;
+		targetHeight: self targetHeight;
+		scaleY: self scaleY;
+		scaleX: self scaleX;
+		extent: self extent;
+		color: self color;
+		layoutProperties: self layoutProperties;
+		layoutPolicy: self layoutPolicy;
+		borderStyle: self borderStyle;
+		tag: self tag;
+		yourself 
+
+
+]
diff --git a/packages/Sandblocks-Babylonian/SBStGrammarHandler.extension.st b/packages/Sandblocks-Babylonian/SBStGrammarHandler.extension.st
@@ -41,7 +41,7 @@ SBStGrammarHandler >> createExampleIn: aMethod classed: aClass [
 				type: #dynamic
 				contents: (aMethod arguments collect: [:anArgument | 
 					self extractBlockFromArgumentName: anArgument contents]))
-			label: 'example'.
+			label: SBExample nameSuggestion
 ]
 
 { #category : #'*Sandblocks-Babylonian' }

diff --git a/packages/Sandblocks-Smalltalk/SBStMessageSend.class.st b/packages/Sandblocks-Smalltalk/SBStMessageSend.class.st
@@ -45,7 +45,7 @@ SBStMessageSend >> asExample [
 			args: (SBStArray new
 				type: #dynamic
 				contents: self arguments veryDeepCopy)
-			label: 'example'
+			label: SBExample nameSuggestion
 ]
 
 { #category : #converting }