Merge pull request #1212 from AlexisCnockaert/changesbrowser

```StChangesBrowser``` references replaced by the application tool

Author: jecisc

src/NewTools-RewriterTools/StRewriterApplyRuleOnAllClassesCommand.class.st

@@ -33,18 +33,19 @@ StRewriterApplyRuleOnAllClassesCommand class >> defaultName [
 StRewriterApplyRuleOnAllClassesCommand >> execute [
 
 	| changes ruleHolder |
-	self application
-		confirm: 'This process can take between 1 and 2 minutes.'.
+	self application confirm:
+		'This process can take between 1 and 2 minutes.'.
 
 	ruleHolder := StRewriterRuleHolder
-		lhs: self context lhs
-		rhs: self context rhs
-		isForMethod: self context isRuleForMethod.
+		              lhs: self context lhs
+		              rhs: self context rhs
+		              isForMethod: self context isRuleForMethod.
 
 	changes := StRewriterAbstractApplier defaultEngineApplier
-		calculateAllChangesForRules: (OrderedCollection with: ruleHolder).
+		           calculateAllChangesForRules:
+		           (OrderedCollection with: ruleHolder).
 
-	^ (StChangesBrowserPresenter
-			newApplication: self application
-			model: changes) open
+	^ ((self application toolNamed: #changesBrowser)
+		   newApplication: self application
+		   model: changes) open
 ]

src/NewTools-RewriterTools/StRewriterApplyRuleOnSelectedClassesCommand.class.st

@@ -35,17 +35,19 @@ StRewriterApplyRuleOnSelectedClassesCommand >> execute [
 	| dialogWindow changes |
 	dialogWindow := self context scopeSelectorPresenter openDialog.
 	dialogWindow okAction: [
-		| ruleHolder |
-		ruleHolder := StRewriterRuleHolder
-			lhs: self context lhs
-			rhs: self context rhs
-			isForMethod: self context isRuleForMethod.
-
-		changes := StRewriterAbstractApplier defaultEngineApplier
-			calculateChangesForClasses: self context scopeSelectorPresenter selectedClasses
-			transformationRules: (OrderedCollection with: ruleHolder).
-
-		(StChangesBrowserPresenter
-			newApplication: self application
-			model: changes) open ]
+			| ruleHolder |
+			ruleHolder := StRewriterRuleHolder
+				              lhs: self context lhs
+				              rhs: self context rhs
+				              isForMethod: self context isRuleForMethod.
+
+			changes := StRewriterAbstractApplier defaultEngineApplier
+				           calculateChangesForClasses:
+				           self context scopeSelectorPresenter selectedClasses
+				           transformationRules:
+				           (OrderedCollection with: ruleHolder).
+
+			((self application toolNamed: #changesBrowser)
+				 newApplication: self application
+				 model: changes) open ]
 ]