Tobias Pape uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-topa.107.mcz
==================== Summary ====================
Name: WebClient-Core-topa.107 Author: topa Time: 3 July 2017, 5:28:49.566897 pm UUID: c6babbda-f5e2-4d26-a5f1-c73651519b4a Ancestors: WebClient-Core-topa.106
Make sure WebMessage>>getContent respects charset.
=============== Diff against WebClient-Core-topa.106 ===============
Item was changed: ----- Method: WebMessage>>getContentWithProgress: (in category 'private') ----- getContentWithProgress: progressBlockOrNil "Reads available content and returns it."
| length result | length := self contentLength. result := (stream isBinary ifTrue:[ ByteArray ] ifFalse: [ ByteString ]) new: (length ifNil: [ 1000 ]) streamContents: [ :outputStream | self streamFrom: stream to: outputStream size: length progress: progressBlockOrNil ]. + self textConverterForContentType ifNotNil: [:converter | + result := result convertFromWithConverter: converter]. (self headerAt: 'content-encoding') = 'gzip' ifFalse: [ ^result ]. ^(GZipReadStream on: result) upToEnd !
Item was added: + ----- Method: WebMessage>>textConverterForContentType (in category 'accessing') ----- + textConverterForContentType + + | index contentType | + contentType := self contentType. + contentType size < 8 ifTrue: [ ^nil ]. + index := contentType findString: 'charset=' startingAt: 1 caseSensitive: false. + index = 0 ifTrue: [ ^nil ]. + ^TextConverter newForEncoding: (contentType allButFirst: index + 7) "'charset=' size - 1"!
Item was removed: - ----- Method: WebRequest>>textConverterForContentType (in category 'accessing') ----- - textConverterForContentType - - | index contentType | - contentType := self contentType. - contentType size < 8 ifTrue: [ ^nil ]. - index := contentType findString: 'charset=' startingAt: 1 caseSensitive: false. - index = 0 ifTrue: [ ^nil ]. - ^TextConverter newForEncoding: (contentType allButFirst: index + 7) "'charset=' size - 1"!