Packages July 2017

packages@lists.squeakfoundation.org

1 participants
26 discussions

The Trunk: WebClient-Core-topa.107.mcz
by commits＠source.squeak.org 03 Jul '17

03 Jul '17

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"!

1 0

The Trunk: WebClient-Core-topa.107.mcz
by commits＠source.squeak.org 03 Jul '17

03 Jul '17

1 0

The Trunk: WebClient-Tests-topa.51.mcz
by commits＠source.squeak.org 03 Jul '17

03 Jul '17

Tobias Pape uploaded a new version of WebClient-Tests to project The Trunk: http://source.squeak.org/trunk/WebClient-Tests-topa.51.mcz ==================== Summary ==================== Name: WebClient-Tests-topa.51 Author: topa Time: 3 July 2017, 5:27:47.053581 pm UUID: ff869e77-50d0-4379-af4e-af233785ee01 Ancestors: WebClient-Tests-topa.50 Make sure WebMessage>>getContent respects charset. =============== Diff against WebClient-Tests-topa.50 =============== Item was added: + ----- Method: WebClientServerTest>>testContentEncoding (in category 'tests - misc') ----- + testContentEncoding + "Test encoding detection" + | resp expected | + expected := '«garçon Léon»'. + #( + 'latin-1' #[171 103 97 114 231 111 110 32 76 233 111 110 187] + 'macroman' #[199 103 97 114 141 111 110 32 76 142 111 110 200] + 'utf-8' #[194 171 103 97 114 195 167 111 110 32 76 195 169 111 110 194 187] + ) pairsDo: [:name :bytes | + server addService: '/testcontent', name action:[:req|req send200Response: bytes asString contentType: 'text/plain; charset=', name]. + resp := WebClient httpGet: self localHostUrl, '/testcontent', name. + self assert: 200 equals: resp code. + self assert: expected equals: resp content]. + !

1 0

The Trunk: WebClient-Tests-topa.50.mcz
by commits＠source.squeak.org 03 Jul '17

03 Jul '17

Tobias Pape uploaded a new version of WebClient-Tests to project The Trunk: http://source.squeak.org/trunk/WebClient-Tests-topa.50.mcz ==================== Summary ==================== Name: WebClient-Tests-topa.50 Author: topa Time: 3 July 2017, 4:14:20.605266 pm UUID: 2acac067-6f72-4b30-b000-689349b5733b Ancestors: WebClient-Tests-jr.49 [WebServer] Since '/' is treated as default entry point, expecting an error is wrong here. =============== Diff against WebClient-Tests-jr.49 =============== Item was changed: ----- Method: WebClientServerTest>>testListenOnInterface (in category 'tests - misc') ----- testListenOnInterface "Test that listening on a particular interface listens only on that interface" | localHostAddr resp localHostName client | server destroy. "kill old server" localHostAddr := NetNameResolver localHostAddress. localHostAddr asByteArray = #(127 0 0 1) asByteArray ifTrue:[^self]. "skip test" localHostName := NetNameResolver stringFromAddress: localHostAddr. server := WebServer new listenOn: self port interface: localHostAddr. server addService: '/' action:[:req| req send200Response: 'ok']. client := WebClient new. client timeout: 1. - self should:[resp := client httpGet: self localHostUrl, '/test'] raise: Error. resp := client httpGet: 'http://', localHostName, ':', self port asString, '/test'. self assert: resp code = 200. self assert: resp content = 'ok'. !

1 0

The Trunk: MorphicTests-mt.41.mcz
by commits＠source.squeak.org 01 Jul '17

01 Jul '17

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.41.mcz ==================== Summary ==================== Name: MorphicTests-mt.41 Author: mt Time: 1 July 2017, 2:57:41.428352 pm UUID: ee05a5f6-3c62-1c46-af81-607c453de86c Ancestors: MorphicTests-nice.40 Adds a test for event handler and red/blue/yellow mouse down. =============== Diff against MorphicTests-nice.40 =============== Item was added: + ----- Method: MorphicEventTests>>test03EventHandler (in category 'tests') ----- + test03EventHandler + + | m | + m := Morph new. + m extent: 20@20; topLeft: 0@0. + + m wantsHaloFromClick: false. + m wantsYellowButtonMenu: false. + m wantsMetaMenu: false. + + m on: #mouseDown send: #value: to:[:evt| + evt redButtonPressed ifTrue:[m color: Color red]. + evt yellowButtonPressed ifTrue:[m color: Color yellow]. + evt blueButtonPressed ifTrue:[m color: Color blue]]. + + m openInWorld: world. + + hand handleEvent: (self redMouseDownAt: m center). + self assert: Color red equals: m color. + + hand handleEvent: (self yellowMouseDownAt: m center). + self assert: Color yellow equals: m color. + + hand handleEvent: (self blueMouseDownAt: m center). + self assert: Color blue equals: m color.! Item was added: + ----- Method: UserInputEventTests>>blueMouseDownAt: (in category 'support') ----- + blueMouseDownAt: point + + ^ MouseButtonEvent new + setType: #mouseDown + position: point + which: 2r000 "no change" + buttons: 2r001 "blue pressed" + hand: hand + stamp: Time millisecondClockValue! Item was added: + ----- Method: UserInputEventTests>>yellowMouseDownAt: (in category 'support') ----- + yellowMouseDownAt: point + + ^ MouseButtonEvent new + setType: #mouseDown + position: point + which: 2r000 "no change" + buttons: 2r010 "yellow pressed" + hand: hand + stamp: Time millisecondClockValue!

1 0

The Trunk: Graphics-mt.381.mcz
by commits＠source.squeak.org 01 Jul '17

01 Jul '17

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.381.mcz ==================== Summary ==================== Name: Graphics-mt.381 Author: mt Time: 1 July 2017, 2:54:56.165352 pm UUID: e6886e0c-9704-2045-9724-eb6fd1d269ca Ancestors: Graphics-eem.380 Quick fix for preferring default/old color names over the crayon ones. We may want to rethink the lookup procedure in Color >> #name. =============== Diff against Graphics-eem.380 =============== Item was changed: ----- Method: Color class>>colorNames (in category 'other') ----- colorNames "Return a collection of color names." + ^ ColorNames asArray, self orderedCrayonColorNames! - ^ ColorNames, self orderedCrayonColorNames!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2017