add a form view for a base64 encoded string

girba · girba · commit a4e89f1d66b3 · 2026-06-19T12:11:27.000+02:00
diff --git a/src/GToolkit-Inspector/ByteString.extension.st b/src/GToolkit-Inspector/ByteString.extension.st
@@ -1,5 +1,21 @@
 Extension { #name : #ByteString }
 
+{ #category : #'*GToolkit-Inspector' }
+ByteString >> gtBase64EncodedPngFor: aView [
+	<gtView>
+	| prefix |
+	prefix := 'data:image/png;base64,'.
+	self beginsWith: prefix.
+	^ aView forward
+		title: 'PNG';
+		object: [ | form bytes base64 |
+			base64 := self removePrefix: prefix.
+			bytes := base64 base64Decoded.
+			form := ImageReadWriter formFromStream: bytes readStream.
+			form ];
+		view: #gtFormFor:
+]
+
 { #category : #'*GToolkit-Inspector' }
 ByteString >> gtDirectoryFor: aView [
 	<gtView>
