Cut dependencies to UIManager and Refactoring

Author: jecisc

src/Chanel-Pharo11Plus/ChanelCondenseMethodsCleaner.class.st

@@ -14,6 +14,5 @@ Class {
 { #category : 'cleaning' }
 ChanelCondenseMethodsCleaner >> clean [
 
-	self configuration localMethods do: [ :cm |
-		(RBRefactoryChangeFactory instance addMethodSource: (ReMethodSourceCleaner clean: cm sourceCode) in: cm origin) execute ]
+	self configuration localMethods do: [ :cm | cm origin compile: (ReMethodSourceCleaner clean: cm sourceCode) ]
 ]

src/Chanel/Chanel.class.st

@@ -154,21 +154,21 @@ Chanel >> cleanUsing: cleaners [
 
 { #category : 'cleaning' }
 Chanel >> cleanWithSelectedCleaners: cleaners [
-	TinyCurrentLogger
-		value: self class logger
-		during: [ self
-				execute: [ UIManager default
-						displayProgress: 'Running Chanel'
-						from: 1
-						to: cleaners size
-						during: [ :bar |
-							cleaners
-								doWithIndex: [ :cleaner :index |
-									bar
-										value: index;
-										title: '(' , index asString , '/' , cleaners size asString , ') Running ' , cleaner printString.
-									self execute: [ (cleaner configuration: self) clean ] recordedAs: 'Running ' , cleaner printString ] ] ]
-				recordedAs: 'Running Chanel on: ' , (', ' join: (packages collect: #name)) ]
+
+	TinyCurrentLogger value: self class logger during: [
+		self
+			execute: [
+				[ :bar |
+				cleaners doWithIndex: [ :cleaner :index |
+						bar
+							value: index;
+							title: '(' , index asString , '/' , cleaners size asString , ') Running ' , cleaner printString.
+						self execute: [ (cleaner configuration: self) clean ] recordedAs: 'Running ' , cleaner printString ] ] asJob
+					title: 'Running Chanel';
+					min: 1;
+					max: cleaners size;
+					run ]
+			recordedAs: 'Running Chanel on: ' , (', ' join: (packages collect: #name)) ]
 ]
 
 { #category : 'accessing' }