Remove some of the last users of SystemAnnouncer uniqueInstance

src/Calypso-SystemQueries/ClySystemEnvironment.class.st

@@ -41,12 +41,13 @@ Class {
 
 { #category : 'accessing' }
 ClySystemEnvironment class >> currentImage [
-	^currentImage ifNil: [
-		currentImage := self new
-			name: 'Current image';
-			globals: Smalltalk globals;
-			packageOrganizer: PackageOrganizer default;
-			changesAnnouncer: SystemAnnouncer uniqueInstance]
+
+	^ currentImage ifNil: [
+		  currentImage := self new
+			                  name: 'Current image';
+			                  globals: Smalltalk globals;
+			                  packageOrganizer: PackageOrganizer default;
+			                  changesAnnouncer: self codeChangeAnnouncer ]
 ]
 
 { #category : 'class initialization' }

src/OpalCompiler-Core/OpalCompiler.class.st

@@ -467,7 +467,7 @@ OpalCompiler >> evaluate [
 	ast ifNil: [ ^ doItMethod ].
 	value := self semanticScope evaluateDoIt: doItMethod.
 
-	self logged == true ifTrue: [ self semanticScope announceDoItEvaluation: source by: SystemAnnouncer uniqueInstance ].
+	self logged == true ifTrue: [ self semanticScope announceDoItEvaluation: source by: self class codeSupportAnnouncer ].
 	^ value
 ]
 

src/OpalCompiler-Tests/OCArrayLiteralTest.class.st

@@ -9,7 +9,7 @@ Class {
 { #category : 'running' }
 OCArrayLiteralTest >> runCase [
 
-	SystemAnnouncer uniqueInstance suspendAllWhile: [ super runCase ]
+	self class codeChangeAnnouncer suspendAllWhile: [ super runCase ]
 ]
 
 { #category : 'running' }

src/OpalCompiler-Tests/OCCompilerTest.class.st

@@ -53,7 +53,8 @@ OCCompilerTest >> notify: aString at: aSmallInteger in: aReadStream [
 
 { #category : 'running' }
 OCCompilerTest >> runCase [
-	SystemAnnouncer uniqueInstance suspendAllWhile: [ super runCase ]
+
+	self class codeChangeAnnouncer suspendAllWhile: [ super runCase ]
 ]
 
 { #category : 'running' }

src/Refactoring-Changes-Tests/RBRefactoringChangeTest.class.st

@@ -50,10 +50,10 @@ RBRefactoringChangeTest >> exampleTraits [
 RBRefactoringChangeTest >> performAndUndoChange: aChange do: aBlock [
 	"Perform a change in the system silently, evaluate aBlock and then undo the change again."
 
-	| undo |
-	^ SystemAnnouncer uniqueInstance suspendAllWhile: [
-		undo := aChange execute.
-		aBlock ensure: [ undo execute ] ]
+	^ self class codeChangeAnnouncer suspendAllWhile: [
+		  | undo |
+		  undo := aChange execute.
+		  aBlock ensure: [ undo execute ] ]
 ]
 
 { #category : 'mocking' }

src/Refactoring-Transformations-Tests/RBAbstractTransformationTest.class.st

@@ -32,10 +32,10 @@ RBAbstractTransformationTest >> parserClass [
 RBAbstractTransformationTest >> performAndUndoChange: aChange do: aBlock [
 	"Perform a change in the system silently, evaluate aBlock and then undo the change again."
 
-	| undo |
-	^ SystemAnnouncer uniqueInstance suspendAllWhile: [
-		undo := aChange execute.
-		aBlock ensure: [ undo execute ] ]
+	^ self class codeChangeAnnouncer suspendAllWhile: [
+		  | undo |
+		  undo := aChange execute.
+		  aBlock ensure: [ undo execute ] ]
 ]
 
 { #category : 'running' }

src/Rubric/RubTextEditor.class.st

@@ -1661,7 +1661,6 @@ RubTextEditor >> nextWord: position [
 	Position N + 1 is after the Nth character"
 	initialPosition := 1 max: position.
 	index := initialPosition.
-	position traceCr.
 
 	string := self string.
 	size := string size + 1.