<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
+1<div class="mb_sig"></div><blockquote class='history_container' type='cite' style='border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;'>
<p style='color: #AAAAAA; margin-top: 10px;'>Am 07.04.2022 19:51:19 schrieb christoph.thiede@student.hpi.uni-potsdam.de <christoph.thiede@student.hpi.uni-potsdam.de>:</p><div style='font-family:Arial,Helvetica,sans-serif'>
Hi,<br>
<br>
would any one object me to merge this? :-)<br>
<br>
Best,<br>
Christoph<br>
<br>
<span style="color: #808080">---<br>
</span><span style="color: #808080"><i>Sent from </i></span><span style="color: #808080"><i><a href="https://github.com/hpi-swa-lab/squeak-inbox-talk"><u><font color="#808080">Squeak Inbox Talk</font></u></a></i></span><br>
<br>
On 2021-06-29T22:40:20+00:00, commits@source.squeak.org wrote:<br>
<br>
> A new version of Collections was added to project The Inbox:<br>
> http://source.squeak.org/inbox/Collections-ct.949.mcz<br>
> <br>
> ==================== Summary ====================<br>
> <br>
> Name: Collections-ct.949<br>
> Author: ct<br>
> Time: 30 June 2021, 12:40:15.630133 am<br>
> UUID: af0bb5dc-fd59-5c46-805b-f923e93cdaf2<br>
> Ancestors: Collections-mt.945<br>
> <br>
> Adds basic support for data URIs to HtmlReadWriter.<br>
> <br>
> Usage:<br>
> <br>
> 'Hello <img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAgAAAAIBAMAAAA2IaO4AAAAMFBMVEUAAACAAAAAgACAgAAAAICAAIAAgICAgIC/v7//AAAA/wD//wAAAP//AP8A//////94imqWAAAAEHRSTlP/////////////////////zSGylAAAAChJREFUeF5j+P///3+G/7t3/2f4zb1hP8Pv3bv3Q1kbuPdDJIAq/gMA/8wZcBN9r58AAAAASUVORK5CYII=" />' asTextFromHtml edit<br>
> <br>
> =============== Diff against Collections-mt.945 ===============<br>
> <br>
> Item was changed:<br>
> ----- Method: HtmlReadWriter>>httpGetImage: (in category 'private') -----<br>
> httpGetImage: url<br>
> "To not add a direct dependency to WebClient, provide this hook for getting am image from an HTTP url. Maybe we can have this via an AppRegistry at some point. Maybe extend WebBrowser."<br>
> + <br>
> - <br>
> (url beginsWith: 'code://') ifTrue: [<br>
> "Same support for Smalltalk expressions as in TextURL >> #actOnClickFor:."<br>
> ^ ([Compiler evaluate: (url allButFirst: 7)] ifError: [nil])<br>
> ifNotNil: [:object | object isForm ifTrue: [object] ifFalse: [nil]]].<br>
> <br>
> + (url beginsWith: 'data:') ifTrue: [ | data mediaType separator |<br>
> + separator := url indexOf: $, ifAbsent: [^ nil].<br>
> + mediaType := url copyFrom: 6 to: separator - 1.<br>
> + data := url allButFirst: separator.<br>
> + data := (mediaType endsWith: ';base64')<br>
> + ifTrue: [<br>
> + mediaType := mediaType allButLast: 7.<br>
> + [Base64MimeConverter mimeDecodeToBytes: data readStream] ifError: [nil]]<br>
> + ifFalse: [data asByteArray readStream].<br>
> + ^ [ImageReadWriter formFromStream: data] ifError: [nil]].<br>
> + <br>
> ^ (Smalltalk classNamed: 'WebClient') ifNotNil: [:client |<br>
> ([client httpGet: url] ifError: [nil]) ifNotNil: [:response |<br>
> response code = 200 ifFalse: [nil] ifTrue: [<br>
> [Form fromBinaryStream: response content asByteArray readStream]<br>
> ifError: [nil]]]]!<br>
> <br>
>
</div></blockquote>
</div></body>