Update to work on both P11 and P12.

Use FinalizationRegistry instead of WeakRegistry
pharo-contributions · Feb 5, 2024 · 8dcba04 · 8dcba04
1 parent fc8f262
commit 8dcba04
Show file tree

Hide file tree

Showing 10 changed files with 353 additions and 337 deletions.
diff --git a/repository/OldFileStream/ManifestDeprecatedFileStream.class.st b/repository/OldFileStream/ManifestDeprecatedFileStream.class.st
@@ -2,12 +2,14 @@
 Deprecated package including the old file stream implementations
 "
 Class {
-	#name : #ManifestDeprecatedFileStream,
-	#superclass : #PackageManifest,
-	#category : 'OldFileStream-Manifest'
+	#name : 'ManifestDeprecatedFileStream',
+	#superclass : 'PackageManifest',
+	#category : 'OldFileStream-Manifest',
+	#package : 'OldFileStream',
+	#tag : 'Manifest'
 }
 
-{ #category : #deprecation }
+{ #category : 'deprecation' }
 ManifestDeprecatedFileStream class >> isDeprecated [
 	^true
 ]
diff --git a/repository/OldFileStream/OldFileExistsException.class.st b/repository/OldFileStream/OldFileExistsException.class.st
@@ -2,46 +2,48 @@
 Notify when file exists
 "
 Class {
-	#name : #OldFileExistsException,
-	#superclass : #FileException,
+	#name : 'OldFileExistsException',
+	#superclass : 'FileException',
 	#instVars : [
 		'fileClass'
 	],
-	#category : 'OldFileStream-Exceptions'
+	#category : 'OldFileStream-Exceptions',
+	#package : 'OldFileStream',
+	#tag : 'Exceptions'
 }
 
-{ #category : #exceptioninstantiator }
+{ #category : 'exceptioninstantiator' }
 OldFileExistsException class >> fileName: aFileName fileClass: aClass [ 
 	^ self new
 		fileName: aFileName;
 		fileClass: aClass
 ]
 
-{ #category : #deprecation }
+{ #category : 'deprecation' }
 OldFileExistsException class >> isDeprecated [
 	^true
 ]
 
-{ #category : #exceptiondescription }
+{ #category : 'exceptiondescription' }
 OldFileExistsException >> defaultAction [
 	"The default action taken if the exception is signaled."
 
 	^ UIManager default fileExistsDefaultAction: self
 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OldFileExistsException >> file [
 
 	^ self fileClass fileNamed: fileName
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OldFileExistsException >> fileClass [
 	^ fileClass ifNil: [OldStandardFileStream]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OldFileExistsException >> fileClass: aClass [
 	fileClass := aClass
 ]