Packages September 2021

packages@lists.squeakfoundation.org

1 participants
33 discussions

The Trunk: Tools-ul.1063.mcz
by commits＠source.squeak.org 03 Sep '21

03 Sep '21

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.1063.mcz ==================== Summary ==================== Name: Tools-ul.1063 Author: ul Time: 3 September 2021, 3:48:00.381705 pm UUID: 63fed3fb-636f-450b-8b1f-4853a9e540fb Ancestors: Tools-cmm.1062 - doWithIndex: -> withIndexDo: - ifNotNilDo: -> ifNotNil: =============== Diff against Tools-cmm.1062 =============== Item was changed: ----- Method: DebuggerMethodMap>>tempsAndValuesForContext:contractTo: (in category 'accessing') ----- tempsAndValuesForContext: aContext contractTo: width "Return a string of the temporary variabls and their current values" | aStream tempStream | aStream := WriteStream on: (String new: 100). tempStream := WriteStream on: (String new: width). + (self tempNamesForContext: aContext) withIndexDo: - (self tempNamesForContext: aContext) doWithIndex: [:title :index | aStream nextPutAll: title; nextPut: $:; space; tab. tempStream reset. aContext print: (self namedTempAt: index in: aContext) on: tempStream. aStream nextPutAll: (tempStream contents contractTo: width). aStream cr]. ^aStream contents! Item was changed: ----- Method: StringHolder>>copyReference (in category '*Tools') ----- copyReference "Copy the selected selector to the clipboard" self selectedMessageName ifNotNil: [ : selector | Clipboard clipboardText: (self selectedClassOrMetaClass ifNil: [ selector asString ] + ifNotNil: [ : cls | (cls >> selector) reference ]) ]! - ifNotNilDo: [ : cls | (cls >> selector) reference ]) ]!

1 0

The Trunk: ToolsTests-ul.105.mcz
by commits＠source.squeak.org 03 Sep '21

03 Sep '21

Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-ul.105.mcz ==================== Summary ==================== Name: ToolsTests-ul.105 Author: ul Time: 3 September 2021, 3:49:05.820326 pm UUID: 729f5806-257f-4ead-b0dd-e8f23239e39c Ancestors: ToolsTests-nice.104 - make sure that SetInspectorTest doesn't leave invalid Sets in the image to avoid HashedCollectionTest fail because of those =============== Diff against ToolsTests-nice.104 =============== Item was added: + ----- Method: InspectorTest>>tearDown (in category 'running') ----- + tearDown + + inspector object: nil. "Make sure we don't leave anything invalid in there, as that can break other tests." + inspector := nil. "Better get rid of that as well." + super tearDown!

1 0

The Trunk: Collections-ul.955.mcz
by commits＠source.squeak.org 03 Sep '21

03 Sep '21

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.955.mcz ==================== Summary ==================== Name: Collections-ul.955 Author: ul Time: 3 September 2021, 3:44:11.962377 pm UUID: 1da522b7-35ee-4391-8036-93274b292972 Ancestors: Collections-dtl.954 - significantly speed up WriteStream>>nextChunkPut: - apply the same pattern to String>>storeOn:. In this case the speedup depends on the input string. But for the most common cases it should be faster. =============== Diff against Collections-dtl.954 =============== Item was changed: ----- Method: String>>storeOn: (in category 'printing') ----- storeOn: aStream "Print inside string quotes, doubling embedded quotes." + + | start matchIndex | - | x | aStream nextPut: $'. + start := 1. + [ (matchIndex := self indexOf: $' startingAt: start) = 0 ] whileFalse: [ + aStream + next: matchIndex - start + 1 putAll: self startingAt: start; + nextPut: $'. + start := matchIndex + 1 ]. + aStream + next: self size - start + 1 putAll: self startingAt: start; + nextPut: $'! - 1 to: self size do: - [:i | - aStream nextPut: (x := self at: i). - x = $' ifTrue: [aStream nextPut: x]]. - aStream nextPut: $'! Item was changed: ----- Method: WriteStream>>nextChunkPut: (in category 'fileIn/Out') ----- nextChunkPut: aString "Append the argument, aString, to the receiver, doubling embedded terminators." + | start matchIndex | + start := 1. + [ (matchIndex := aString indexOf: $!! startingAt: start) = 0 ] whileFalse: [ + self + next: matchIndex - start + 1 putAll: aString startingAt: start; + nextPut: $!!. + start := matchIndex + 1 ]. + self next: aString size - start + 1 putAll: aString startingAt: start. - | i remainder terminator | - terminator := $!!. - remainder := aString. - [(i := remainder indexOf: terminator) = 0] whileFalse: - [self nextPutAll: (remainder copyFrom: 1 to: i). - self nextPut: terminator. "double imbedded terminators" - remainder := remainder copyFrom: i+1 to: remainder size]. - self nextPutAll: remainder. aString includesUnifiedCharacter ifTrue: [ + self nextPutAll: '!!]lang['. + aString writeLeadingCharRunsOn: self ]. + self nextPut: $!! - self nextPut: terminator. - self nextPutAll: ']lang['. - aString writeLeadingCharRunsOn: self. - ]. - self nextPut: terminator. !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2021