st: only insert new comments at statement level

It should not be possible to insert a comment as a message argument (SyntaxError) or receiver (MessageNotUnderstood: SBLabel>>guessedClass) like it was before.

.squot

@@ -1,25 +1,25 @@
 OrderedDictionary {
-	'packages/Sandblocks-Representation' : #SquotTonelSerializer,
-	'packages/Sandblocks-Explorer' : #SquotTonelSerializer,
-	'packages/Sandblocks-Compiler' : #SquotTonelSerializer,
-	'packages/Sandblocks-Tutorial' : #SquotTonelSerializer,
-	'packages/Sandblocks-Watch' : #SquotTonelSerializer,
 	'packages/BaselineOfSandblocks' : #SquotTonelSerializer,
-	'packages/Sandblocks-Core' : #SquotTonelSerializer,
-	'packages/Sandblocks-Drawing' : #SquotTonelSerializer,
-	'packages/Sandblocks-Graph' : #SquotTonelSerializer,
 	'packages/Sandblocks-Babylonian' : #SquotTonelSerializer,
+	'packages/Sandblocks-Compiler' : #SquotTonelSerializer,
+	'packages/Sandblocks-Core' : #SquotTonelSerializer,
+	'packages/Sandblocks-CustomJavascript' : #SquotTonelSerializer,
 	'packages/Sandblocks-Debugger' : #SquotTonelSerializer,
+	'packages/Sandblocks-Drawing' : #SquotTonelSerializer,
+	'packages/Sandblocks-Explorer' : #SquotTonelSerializer,
 	'packages/Sandblocks-Layout' : #SquotTonelSerializer,
 	'packages/Sandblocks-Morphs' : #SquotTonelSerializer,
-	'packages/Sandblocks-Utils' : #SquotTonelSerializer,
-	'packages/Sandblocks-RatPack' : #SquotTonelSerializer,
-	'packages/Sandblocks-Smalltalk' : #SquotTonelSerializer,
 	'packages/Sandblocks-Ohm' : #SquotTonelSerializer,
-	'packages/Sandblocks-CustomJavascript' : #SquotTonelSerializer,
-	'packages/Sandblocks-Squeak6Fixes' : #SquotTonelSerializer,
-	'packages/Sandblocks-Simulation' : #SquotTonelSerializer,
+	'packages/Sandblocks-Representation' : #SquotTonelSerializer,
 	'packages/Sandblocks-Scheme' : #SquotTonelSerializer,
+	'packages/Sandblocks-Simulation' : #SquotTonelSerializer,
+	'packages/Sandblocks-Smalltalk' : #SquotTonelSerializer,
+	'packages/Sandblocks-Squeak6Fixes' : #SquotTonelSerializer,
+	'packages/Sandblocks-Tutorial' : #SquotTonelSerializer,
+	'packages/Sandblocks-Utils' : #SquotTonelSerializer,
+	'packages/Sandblocks-Watch' : #SquotTonelSerializer,
+	'packages/Sandblocks-Graph' : #SquotTonelSerializer,
+	'packages/Sandblocks-RatPack' : #SquotTonelSerializer,
 	'packages/Sandblocks-Plugin-StLivePreview' : #SquotTonelSerializer,
 	'packages/Sandblocks-Git' : #SquotTonelSerializer
 }

packages/Sandblocks-Smalltalk/SBStGrammarHandler.class.st

@@ -272,7 +272,7 @@ SBStGrammarHandler >> perform: char for: aBlock empty: aBoolean [
 		char = $$ ifTrue: [^ self replace: aBlock with: (SBStCharacter new contents: '')].
 		char = $' ifTrue: [^ self replace: aBlock with: (SBStString new contents: '')].
 		char = $# ifTrue: [^ self replace: aBlock with: (SBStSymbol new contents: '')].
-		char = $" ifTrue: [^ self replace: aBlock with: self newCommentBlock].
+		(char = $" and: [aBlock parentSandblock isBlockBody]) ifTrue: [^ self replace: aBlock with: self newCommentBlock].
 		((char = Character space or: [char = Character cr]) and: [aBlock isStatement]) ifTrue: [^ self emptyLine: aBlock].
 		(char = $: and: [aBlock parentSandblock isBlockBody and: [aBlock parentSandblock isMethodBody not]]) ifTrue: [ | block |
 			block := aBlock parentSandblock.