Merge pull request #116 from jecisc/p14

Enable Pharo 14 on CI

Author: jecisc

.github/workflows/continuous.yml

@@ -9,7 +9,7 @@ jobs:
       GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
     strategy:
       matrix:
-        smalltalk: [ Pharo64-9.0, Pharo64-10, Pharo64-11, Pharo64-12, Pharo64-13 ]
+        smalltalk: [ Pharo64-9.0, Pharo64-10, Pharo64-11, Pharo64-12, Pharo64-13, Pharo64-14 ]
     name: ${{ matrix.smalltalk }}
     steps:
       - uses: actions/checkout@v4

README.md

@@ -7,6 +7,7 @@
 [![Pharo version](https://img.shields.io/badge/Pharo-11-%23aac9ff.svg)](https://pharo.org/download)
 [![Pharo version](https://img.shields.io/badge/Pharo-12-%23aac9ff.svg)](https://pharo.org/download)
 [![Pharo version](https://img.shields.io/badge/Pharo-13-%23aac9ff.svg)](https://pharo.org/download)
+[![Pharo version](https://img.shields.io/badge/Pharo-14-%23aac9ff.svg)](https://pharo.org/download)
 
 Chanel is a code cleaner for Pharo. 
 
@@ -93,7 +94,7 @@ Thus, it should be safe to depend on a fixed major version and moving minor vers
 | Version 	| Compatible Pharo versions 		|
 |-------------	|---------------------------	|
 | 1.x.x       	| Pharo 70, 80, 90, 10, 11		|
-| 2.x.x       	| Pharo 90, 10, 11, 12, 13		|
+| 2.x.x       	| Pharo 90, 10, 11, 12, 13, 14		|
 
 ## Contact
 

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' }