SeasideSt · jbrichau · Jul 23, 2022 · Jul 23, 2022 · Jul 23, 2022 · Jul 23, 2022
diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st
@@ -0,0 +1,3 @@
+accessing
+position: anInteger
+	^ stream position: anInteger
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st
@@ -1,3 +1,3 @@
-file library
+files
 contentsOfFile: aString binary: aBoolean
 	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st b/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st
@@ -0,0 +1,3 @@
+files
+deleteFile: aPathString
+	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st b/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st
@@ -1,4 +1,4 @@
-file library
+files
 directoriesIn: aPathString
 	"Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString
 	must not include directory names that start with ."

diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st
@@ -1,4 +1,4 @@
-file library
+files
 ensureExistenceOfFolder: aString
 	"Create a folder named aString in the image directory."
 	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st b/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st
@@ -1,3 +1,3 @@
-file library
+files
 fileExists: aString
 	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st
@@ -1,4 +1,4 @@
-file library
+files
 fileStreamOn: aString do: aBlock binary: aBoolean
 	self 
 		greaseDeprecatedApi: 'GRPlatform>>#fileStreamOn:do:binary:'

diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st b/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st
@@ -1,4 +1,4 @@
-file library
+files
 filesIn: aPathString
 	"Answer a collection of absolute paths for all the files (no directories) in the directory given by aPathString
 	must not include file names that start with ."

diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st
@@ -1,4 +1,4 @@
-file library
+files
 localNameOf: aFilename
 	"Answer the local name of a file identified by an absolute file path.
 

diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st
@@ -1,4 +1,4 @@
-file library
+files
 newTemporaryFileReference
 	"Create a new temporary file in the systems temp directory
 	and answer a reference to it.

diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReferenceNamed..st
@@ -0,0 +1,3 @@
+files
+newTemporaryFileReferenceNamed: aName
+	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st b/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st
@@ -1,4 +1,4 @@
-file library
+files
 pathSeparator
 	"Answer the path separator as a String, eg. '/' on Unix and '\' on Windows."
 	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st
@@ -1,3 +1,3 @@
-file library
+files
 readFileStreamOn: aString do: aBlock binary: aBoolean
 	self subclassResponsibility 
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st
@@ -1,4 +1,4 @@
-file library
+files
 write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
 	"Write aStringOrByteArray to a file named aFileNameString in the folder aFolderString."
 	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -1,3 +1,3 @@
-file library
+files
 writeFileStreamOn: aString do: aBlock binary: aBoolean
 	self subclassResponsibility 
diff --git a/...ory/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/...ory/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st
@@ -1,3 +1,3 @@
-file library
+files
 contentsOfFile: aString binary: aBoolean
 	^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st
@@ -0,0 +1,3 @@
+files
+deleteFile: aPathString
+	aPathString asFileReference delete 
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st
@@ -1,4 +1,4 @@
-file library
+files
 directoriesIn: aPathString
 	"Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString
 	must not include directory names that start with ."

diff --git a/...y/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/...y/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st
@@ -1,4 +1,4 @@
-file library
+files
 ensureExistenceOfFolder: aString
 	"creates a folder named aString in the image directory"
 	FileSystem disk ensureCreateDirectory: aString
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st
@@ -1,3 +1,3 @@
-file library
+files
 fileExists: aString
 	^ aString asFileReference exists 
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st
@@ -1,4 +1,4 @@
-file library
+files
 filesIn: aPathString
 	"Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString
 	must not include file names that start with ."

diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st
@@ -1,3 +1,3 @@
-file library
+files
 localNameOf: aFilename
 	^ (FileSystem disk resolveString: aFilename) basename
diff --git a/.../Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/.../Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st
@@ -1,8 +1,8 @@
-file library
+files
 newTemporaryFileReference
 	"Create a new temporary file in the systems temp directory
 	and answer a reference to it.
 	It is the users responsibility to delete or move the file,
 	it will not be cleaned up automatically (unless the host system
 	has a policy for it)."
-	^ FileLocator temp / UUID new asString
+	^ self newTemporaryFileReferenceNamed: UUID new asString
diff --git a/...e-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/...e-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st
@@ -0,0 +1,8 @@
+files
+newTemporaryFileReferenceNamed: aName
+	"Create a new temporary file in the systems temp directory
+	and answer a reference to it.
+	It is the users responsibility to delete or move the file,
+	it will not be cleaned up automatically (unless the host system
+	has a policy for it)."
+	^ FileLocator temp / aName
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st
@@ -1,3 +1,3 @@
-file library
+files
 pathSeparator
 	^ String with: FileSystem disk delimiter
diff --git a/...rease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/...rease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st
@@ -1,4 +1,4 @@
-file library
+files
 readFileStreamOn: aString do: aBlock binary: aBoolean
 
 	^ aBoolean

diff --git a/...ory/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/...ory/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st
@@ -1,4 +1,4 @@
-file library
+files
 write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
 	"writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
 	^ self

diff --git a/...ease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/...ease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -1,4 +1,4 @@
-file library
+files
 writeFileStreamOn: aString do: aBlock binary: aBoolean
 	^ aBoolean
 		ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ]

diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st
@@ -0,0 +1,3 @@
+file library
+deleteFile: aPathString
+	aPathString asFileReference delete 
diff --git a/...y/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/...y/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st
@@ -5,4 +5,4 @@ newTemporaryFileReference
 	It is the users responsibility to delete or move the file,
 	it will not be cleaned up automatically (unless the host system
 	has a policy for it)."
-	^ FileLocator temp / UUID new asString
+	^ self newTemporaryFileReferenceNamed: UUID new asString
diff --git a/...se-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/...se-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st
@@ -0,0 +1,8 @@
+file library
+newTemporaryFileReferenceNamed: aName
+	"Create a new temporary file in the systems temp directory
+	and answer a reference to it.
+	It is the users responsibility to delete or move the file,
+	it will not be cleaned up automatically (unless the host system
+	has a policy for it)."
+	^ FileLocator temp / aName
diff --git a/...tory/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/...tory/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st
@@ -1,3 +1,3 @@
-file library
+files
 contentsOfFile: aString binary: aBoolean
 	^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st
@@ -0,0 +1,3 @@
+files
+deleteFile: aPathString
+	aPathString asFileReference delete 
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st
@@ -1,4 +1,4 @@
-file library
+files
 directoriesIn: aPathString
 	"Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString
 	must not include directory names that start with ."

diff --git a/...ry/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/...ry/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st
@@ -1,4 +1,4 @@
-file library
+files
 ensureExistenceOfFolder: aString
 	"creates a folder named aString in the image directory"
 	FileSystem disk ensureCreateDirectory: aString
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st
@@ -1,3 +1,3 @@
-file library
+files
 fileExists: aString
 	^ aString asFileReference exists 
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st
@@ -1,4 +1,4 @@
-file library
+files
 filesIn: aPathString
 	"Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString
 	must not include file names that start with ."

diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st
@@ -1,3 +1,3 @@
-file library
+files
 localNameOf: aFilename
 	^ (FileSystem disk resolveString: aFilename) basename
diff --git a/...y/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/...y/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st
@@ -1,8 +1,8 @@
-file library
+files
 newTemporaryFileReference
 	"Create a new temporary file in the systems temp directory
 	and answer a reference to it.
 	It is the users responsibility to delete or move the file,
 	it will not be cleaned up automatically (unless the host system
 	has a policy for it)."
-	^ FileLocator temp / UUID new asString
+	^ self newTemporaryFileReferenceNamed: UUID new asString
diff --git a/...se-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/...se-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st
@@ -0,0 +1,8 @@
+files
+newTemporaryFileReferenceNamed: aName
+	"Create a new temporary file in the systems temp directory
+	and answer a reference to it.
+	It is the users responsibility to delete or move the file,
+	it will not be cleaned up automatically (unless the host system
+	has a policy for it)."
+	^ FileLocator temp / aName
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st
@@ -1,3 +1,3 @@
-file library
+files
 pathSeparator
 	^ String with: FileSystem disk delimiter
diff --git a/...Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/...Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st
@@ -1,4 +1,4 @@
-file library
+files
 readFileStreamOn: aString do: aBlock binary: aBoolean
 
 	^ aBoolean

diff --git a/...tory/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/...tory/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st
@@ -1,4 +1,4 @@
-file library
+files
 write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
 	"writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
 	^ self

diff --git a/...rease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/...rease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -1,4 +1,4 @@
-file library
+files
 writeFileStreamOn: aString do: aBlock binary: aBoolean
 	^ aBoolean
 		ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ]

diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st
@@ -1,4 +1,4 @@
-tests-filestreams
+tests-files
 testFileExists
 	| theFileName |
 	self