Merge pull request SeasideSt#145 from marschall/squeak6-fixes

Johan Brichau · web-flow · commit a6140fe847a6 · 2022-09-01T21:19:42.000+02:00
Fixes for Squeak 6
diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st
@@ -0,0 +1,4 @@
+processes
+thisContext
+
+	^ thisContext sender
diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/substrings..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/substrings..st
@@ -0,0 +1,5 @@
+*grease-squeak6-core
+substrings: aString
+
+	^ self subStrings: aString
+
diff --git a/repository/Grease-Squeak6-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Squeak6-Core.package/Symbol.extension/instance/greaseAsMutator.st
@@ -0,0 +1,4 @@
+*grease-squeak6-core
+greaseAsMutator
+
+	^ self asSimpleSetter
diff --git a/repository/Grease-Squeak6-Core.package/Symbol.extension/properties.json b/repository/Grease-Squeak6-Core.package/Symbol.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "Symbol" }
diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st
@@ -0,0 +1,12 @@
+*grease-tests-squeak6-core
+writeToFile: aStringOrByteArray withFileNameDo: aBlock
+	| fileName directory |
+	fileName :=  'GRPharoPlatformTest'.
+	directory := FileSystem disk workingDirectory.
+	[ GRPlatform current
+		write: aStringOrByteArray
+		toFile: fileName
+		inFolder: directory fullName.
+	aBlock value: directory fullName, GRPlatform current pathSeparator, fileName
+		] ensure: [
+			(directory / fileName) delete ]
