fix missing method in Squeak 6

SeasideSt · Feb 4, 2024 · f7d355f · f7d355f
1 parent 34bd7c3
commit f7d355f
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/...ease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st b/...ease-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 ]