st: fix editing setup in morphexample; core: allow changing contents …

…of suggestion items
hpi-swa · Aug 9, 2023 · 6879034 · 6879034
1 parent c81c585
commit 6879034
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/packages/Sandblocks-Core/SBSuggestionItem.class.st b/packages/Sandblocks-Core/SBSuggestionItem.class.st
@@ -192,6 +192,7 @@ SBSuggestionItem >> selector: aString label: anotherString [
 
  | container |
  container := self firstSubmorph.
+ container removeAllMorphs.
  selector := aString.
  label := anotherString.
  container addMorphBack: (SBStringMorph new

diff --git a/packages/Sandblocks-Smalltalk/SBStGrammarHandler.class.st b/packages/Sandblocks-Smalltalk/SBStGrammarHandler.class.st
@@ -495,7 +495,7 @@ SBStGrammarHandler >> wrapInMessageSend: aString [
  | msg |
  self block isExpression ifFalse: [^ self].
  msg := self class messageSendClass new
- receiver: (self block newNullBlock label: 'expr')
+ receiver: (self newNullBlock label: 'expr')
  selector: aString
  arguments: (aString numArgs > 0
  ifTrue: [(1 to: aString numArgs) collect: [:i | self block newNullBlock label: 'arg']]