fix missing method in Squeak 6

Johan Brichau · Johan Brichau · commit f7d355f105cb · 2024-02-04T10:33:20.000+01:00
diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -0,0 +1,8 @@
+as yet unclassified
+writeFileStreamOn: aString do: aBlock binary: aBoolean 
+	| stream |
+	stream := aBoolean
+				ifTrue: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ]
+				ifFalse: [ (FileStream fileNamed: aString) binary ].
+	[ aBlock value: stream ]
+		ensure: [ stream close ]
