Live elements save on addition + SBWatch call typo fix

hpi-swa · Jan 17, 2024 · 1eec393 · 1eec393
1 parent 1988a47
commit 1eec393
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 15 deletions.
diff --git a/packages/Sandblocks-Babylonian/SBExample.class.st b/packages/Sandblocks-Babylonian/SBExample.class.st
@@ -66,7 +66,7 @@ SBExample class >> newFor: aMessage [
 { #category : #'as yet unclassified' }
 SBExample class >> registerShortcuts: aProvider [
 
-	aProvider registerShortcut: $q command do: #wrapWithExampleWatch
+	aProvider registerShortcut: $w command do: #wrapWithExampleWatch
 ]
 
 { #category : #'as yet unclassified' }

diff --git a/packages/Sandblocks-Babylonian/SBStGrammarHandler.extension.st b/packages/Sandblocks-Babylonian/SBStGrammarHandler.extension.st
@@ -24,6 +24,7 @@ SBStGrammarHandler >> addExample: anExample [
 
 	anExample startRunning.
 	self block sandblockEditor select: anExample nameBlock.
+	self block sandblockEditor save: method tryFixing: true quick: false.
 ]
 
 { #category : #'*Sandblocks-Babylonian' }

diff --git a/packages/Sandblocks-Core/SBGrammarHandler.class.st b/packages/Sandblocks-Core/SBGrammarHandler.class.st
@@ -194,7 +194,9 @@ SBGrammarHandler >> watchWith: aWatchClass [
 	self block sandblockEditor do: (SBWrapCommand new
 		outer: aWatchClass new newIdentifier;
 		inner: self block;
-		wrap: [:outer :inner | outer expression: inner])
+		wrap: [:outer :inner | outer expression: inner]).
+
+	self block sandblockEditor save: self block containingArtefact tryFixing: true quick: false.
 ]
 
 { #category : #'callback helpers' }

diff --git a/packages/Sandblocks-Smalltalk/SBStGrammarHandler.class.st b/packages/Sandblocks-Smalltalk/SBStGrammarHandler.class.st
@@ -612,7 +612,10 @@ SBStGrammarHandler >> wrapInOptionalVariant [
 					named: inner printString 
 					alternatives: (self defaultOptionalAlternativesForBlocks: inner)
 					activeIndex: 2];
-			yourself]
+			yourself].
+		
+	variant sandblockEditor select: variant nameBlock.
+	variant sandblockEditor save: variant containingArtefact tryFixing: true quick: false.
 ]
 
 { #category : #actions }
@@ -666,7 +669,10 @@ SBStGrammarHandler >> wrapInVariant [
 					named: inner printString 
 					alternatives: (self defaultAlternativesForBlocks: inner)
 					activeIndex: 2];
-			yourself]
+			yourself].
+		
+	variant sandblockEditor select: variant nameBlock.
+	variant sandblockEditor save: variant containingArtefact tryFixing: true quick: false.
 ]
 
 { #category : #actions }

diff --git a/packages/Sandblocks-Smalltalk/SBVariant.class.st b/packages/Sandblocks-Smalltalk/SBVariant.class.st
@@ -222,7 +222,7 @@ SBVariant >> beActive [
 		ifNil: [command do] 
 		ifNotNil:[:theEditor | theEditor do: command].
 
-	self saveArtefact.
+	self containingArtefact sandblockEditor save: self containingArtefact tryFixing: true quick: false.
 ]
 
 { #category : #actions }
@@ -236,7 +236,7 @@ SBVariant >> beInactive [
 		ifNil: [command do] 
 		ifNotNil:[:theEditor | theEditor do: command].
 
-	self saveArtefact.
+	self containingArtefact sandblockEditor save: self containingArtefact tryFixing: true quick: false.
 ]
 
 { #category : #accessing }
@@ -419,14 +419,6 @@ SBVariant >> replaceValuesFrom: anotherVariant [
 	self named: anotherVariant name alternatives: anotherVariant alternatives activeIndex: anotherVariant activeIndex  
 ]
 
-{ #category : #actions }
-SBVariant >> saveArtefact [
-
-	self containingArtefact save.
-	self containingArtefact sandblockEditor ifNotNil: [:theEditor | theEditor markSaved: self containingArtefact]
-
-]
-
 { #category : #accessing }
 SBVariant >> statementsFor: aNamedBlock [
 

diff --git a/packages/Sandblocks-Watch/SBWatchView.class.st b/packages/Sandblocks-Watch/SBWatchView.class.st
@@ -264,7 +264,7 @@ SBWatchView >> printOn: aStream [
 { #category : #actions }
 SBWatchView >> reportValue: anObject [
 
-	self reportValue: {anObject} sized: SBMorphResizer newIdentity
+	self reportValues: {anObject} sized: SBMorphResizer newIdentity
 ]
 
 { #category : #actions }