Merge pull request #1335 from marschall/fix-screenshot

Fix displaying screenshot of Pharo
SeasideSt · Sep 1, 2022 · 3d5c7a1 · 3d5c7a1
2 parents e055956 + ea5c1ad
commit 3d5c7a1
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/repository/Seaside-Pharo-Core.package/Form.extension/instance/seasideMimeDocumentType..st b/repository/Seaside-Pharo-Core.package/Form.extension/instance/seasideMimeDocumentType..st
@@ -2,9 +2,9 @@
 seasideMimeDocumentType: aMimeType
 	"Converts the receiver to a WAMimeDocument. The argument should ideally be an instance for WAMimeType. For various crappy reasons Strings and nil are also allowed."
 
-	| aStream writer |
-	aStream := GRPlatform current readWriteByteStream.
+	| writer content |
 	writer := self writerForMimeType: aMimeType seasideMimeType.
 	writer isNil ifTrue: [ self error: 'no writer for ', aMimeType greaseString, ' found' ].
-	writer putForm: (self asFormOfDepth: 32) onStream: aStream.
-	^ WAMimeDocument on: aStream contents mimeType: aMimeType
+	content := ByteArray streamContents: [ :stream |
+		writer putForm: (self asFormOfDepth: 32) onStream: stream ].
+	^ WAMimeDocument on: content mimeType: aMimeType
diff --git a/repository/Seaside-Pharo-Tools-Web.package/WAScreenshot.class/instance/form.st b/repository/Seaside-Pharo-Tools-Web.package/WAScreenshot.class/instance/form.st
@@ -1,5 +1,5 @@
 accessing
 form
 	^ zoom
-		ifFalse: [ Display copy ]
+		ifFalse: [ UIManager default world imageForm ]
 		ifTrue: [ self topWindow imageForm ]