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 }