Packages December 2020

packages@lists.squeakfoundation.org

1 participants
62 discussions

The Trunk: Collections-nice.921.mcz
by commits＠source.squeak.org 29 Dec '20

29 Dec '20

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.921.mcz ==================== Summary ==================== Name: Collections-nice.921 Author: nice Time: 30 December 2020, 12:46:21.328377 am UUID: f66c5960-3b41-4815-ab2c-ce42061fb43e Ancestors: Collections-eem.920 Fix buggish float array 32<->64 conversions... Hell, how could I publish that? Il ne faut pas confondre vitesse et précipitation... =============== Diff against Collections-eem.920 =============== Item was changed: ----- Method: Float32Array class>>fromFloat64Array: (in category 'instance creation') ----- fromFloat64Array: aFloat64Array + ^(self new: aFloat64Array size) copyFromFloat64Array: aFloat64Array! - ^(self new: aFloat64Array) copyFromFloat64Array: aFloat64Array! Item was changed: ----- Method: Float32Array>>copyFromFloat64Array: (in category 'initialize-release') ----- copyFromFloat64Array: aFloat64Array "Destructively replace the elements of self with those of aFloat64Array" + <primitive: 'primitiveFromFloat64Array' module: 'FloatArrayPlugin'> - <primitive: 'primitiveFromFloat64Array' module: 'Float64ArrayPlugin'> self isOfSameSizeCheck: aFloat64Array. 1 to: self size do:[:i| self at: i put: (aFloat64Array at: i)].! Item was changed: ----- Method: Float64Array class>>fromFloatArray: (in category 'instance creation') ----- fromFloatArray: aFloatArray + ^(self new: aFloatArray size) copyFromFloatArray: aFloatArray! - ^(self new: aFloatArray) copyFromFloatArray: aFloatArray!

1 0

The Trunk: CollectionsTests-nice.347.mcz
by commits＠source.squeak.org 29 Dec '20

29 Dec '20

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.347.mcz ==================== Summary ==================== Name: CollectionsTests-nice.347 Author: nice Time: 30 December 2020, 12:42:34.890916 am UUID: 5b26fe17-c4d3-4fd0-a8d3-f53f5818d9dd Ancestors: CollectionsTests-mt.346 Add a test for float array 32<->64 conversions =============== Diff against CollectionsTests-mt.346 =============== Item was added: + ----- Method: FloatArrayTest>>testConversionToFloat64 (in category 'tests') ----- + testConversionToFloat64 + | b32 f32 f64 | + f32 := Float32Array withAll: #(0.1 0.25 1.0 1.5 2.0 3.14). + f64 := f32 asFloat64Array. + self assert: f64 class isBits. + self assert: f64 class isLongs. + self assert: f64 size equals: f32 size. + self assert: (f32 hasEqualElements: f64) description: '32 to 64 bits conversion is lossless'. + b32 := f64 asFloat32Array. + self assert: b32 class equals: f32 class. + self assert: b32 equals: f32.!

1 0

The Trunk: Sound-eem.77.mcz
by commits＠source.squeak.org 29 Dec '20

29 Dec '20

Eliot Miranda uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-eem.77.mcz ==================== Summary ==================== Name: Sound-eem.77 Author: eem Time: 29 December 2020, 11:19:33.380113 am UUID: 6ba9cee3-631a-4b00-b66f-0aad4608aefd Ancestors: Sound-eem.76 Allow MixedSound to do its thing even if it hasn't been sent reset and had soundDone set-up correctly. =============== Diff against Sound-eem.76 =============== Item was changed: ----- Method: MixedSound>>mixSampleCount:into:startingAt:leftVol:rightVol: (in category 'sound generation') ----- mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: leftVol rightVol: rightVol "Play a number of sounds concurrently. The level of each sound can be set independently for the left and right channels." | snd left right | + soundDone + ifNil: + [1 to: sounds size do: + [:i | + snd := sounds at: i. + left := (leftVol * (leftVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. + right := (rightVol * (rightVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. + snd samplesRemaining > 0 ifTrue: + [snd mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: left rightVol: right]]] + ifNotNil: + [1 to: sounds size do: + [:i | + (soundDone at: i) ifFalse: + [snd := sounds at: i. + left := (leftVol * (leftVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. + right := (rightVol * (rightVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. + snd samplesRemaining > 0 + ifTrue: [snd mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: left rightVol: right] + ifFalse: [soundDone at: i put: true]]]]! - 1 to: sounds size do: [:i | - (soundDone at: i) ifFalse: [ - snd := sounds at: i. - left := (leftVol * (leftVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. - right := (rightVol * (rightVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. - snd samplesRemaining > 0 - ifTrue: [ - snd mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: left rightVol: right] - ifFalse: [soundDone at: i put: true]]]. - !

1 0

The Trunk: ST80Tests-nice.7.mcz
by commits＠source.squeak.org 28 Dec '20

28 Dec '20

Nicolas Cellier uploaded a new version of ST80Tests to project The Trunk: http://source.squeak.org/trunk/ST80Tests-nice.7.mcz ==================== Summary ==================== Name: ST80Tests-nice.7 Author: nice Time: 28 December 2020, 2:55:01.970604 pm UUID: 23d32eca-56dc-434a-9498-57a6f421c0f8 Ancestors: ST80Tests-fn.6 ST80 doesn't seem to depend on Monticello anymore. =============== Diff against ST80Tests-fn.6 =============== Item was changed: ----- Method: ST80PackageDependencyTest>>testST80 (in category 'tests') ----- testST80 self testPackage: #ST80 dependsExactlyOn: #( #'Chronology-Core' Collections Compiler Files Graphics Kernel Morphic Multilingual SUnit System #'ToolBuilder-Kernel' Tools - Monticello ).!

1 0

The Trunk: Graphics-nice.444.mcz
by commits＠source.squeak.org 27 Dec '20

27 Dec '20

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.444.mcz ==================== Summary ==================== Name: Graphics-nice.444 Author: nice Time: 27 December 2020, 11:14:18.76654 pm UUID: 7ad44724-768e-449e-b201-507678a23c94 Ancestors: Graphics-nice.443 Isolate alpha channel when printing a named color. This allows it to reuse the color name even for translucent color. Example: (Color red alpha: 0.4) printString Output (new): '(Color red alpha: 0.4)' Output (old): '(TranslucentColor r: 1 g: 0.5 b: 0.0 alpha: 0.4)' Note: the implementation preserves parentheses and Color transparent printString. Thanks to Christoph Thiede (ct) for the original proposal. =============== Diff against Graphics-nice.443 =============== Item was changed: + ----- Method: TranslucentColor>>isOpaque (in category 'testing') ----- - ----- Method: TranslucentColor>>isOpaque (in category 'queries') ----- isOpaque ^alpha = 255! Item was changed: + ----- Method: TranslucentColor>>isTranslucent (in category 'testing') ----- - ----- Method: TranslucentColor>>isTranslucent (in category 'queries') ----- isTranslucent ^ alpha < 255! Item was changed: + ----- Method: TranslucentColor>>isTranslucentColor (in category 'testing') ----- - ----- Method: TranslucentColor>>isTranslucentColor (in category 'queries') ----- isTranslucentColor "This means: self isTranslucent, but isTransparent not" ^ alpha > 0! Item was changed: + ----- Method: TranslucentColor>>isTransparent (in category 'testing') ----- - ----- Method: TranslucentColor>>isTransparent (in category 'queries') ----- isTransparent ^ alpha = 0! Item was added: + ----- Method: TranslucentColor>>printOn: (in category 'printing') ----- + printOn: aStream + | name | + self isTransparent ifTrue: [^ aStream nextPutAll: 'Color transparent']. + (name := self asNontranslucentColor name) ifNil: [^self storeOn: aStream]. + aStream + nextPutAll: '(Color '; + nextPutAll: name; + nextPutAll: ' alpha: '; + print: self alpha maxDecimalPlaces: 3; + nextPut: $) + ! Item was changed: ----- Method: TranslucentColor>>storeOn: (in category 'printing') ----- storeOn: aStream + self isTransparent ifTrue: [^ aStream nextPutAll: 'Color transparent']. - self isTransparent ifTrue: [^ aStream nextPutAll: '(Color transparent)']. super storeOn: aStream. aStream skip: -1; "get rid of trailing )" nextPutAll: ' alpha: '; print: self alpha maxDecimalPlaces: 3; nextPutAll: ')'. !

1 0

The Trunk: Graphics-nice.443.mcz
by commits＠source.squeak.org 27 Dec '20

27 Dec '20

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.443.mcz ==================== Summary ==================== Name: Graphics-nice.443 Author: nice Time: 27 December 2020, 10:35:06.879989 pm UUID: f712ead7-a4fb-467d-bef1-a0962208c170 Ancestors: Graphics-mt.441, Graphics-ct.439, Graphics-ct.430, Graphics-ct.425, Graphics-ct.418 Merge Graphics-mt.441, Graphics-ct.439, Graphics-ct.430, Graphics-ct.425, Graphics-ct.418 Graphics-mt.441: Some clean up around DisplayTransform. Thanks to Stephan Lutz (stlu)! Graphics-ct.439: Fixes transparency handling in Color >> #negated. Negating a color should not remove its alpha channel. Graphics-ct.430: Miscellaneous minor refactoring - Use #ifError: and correct deprecated [:argWithoutBar] block syntax (see Compiler-ct.417) - Fix a documetation typo - Simplify some conditions Graphics-ct.425: [very minor] Use already defined magic number instead of hard-coded duplication Graphics-ct.418: Add Color>>#veryMuchDarker We also have #veryMuchLighter, so balance this out :) =============== Diff against Graphics-mt.441 =============== Item was changed: ----- Method: BMPReadWriter class>>readAllFrom: (in category 'testing') ----- readAllFrom: fd "MessageTally spyOn:[BMPReadWriter readAllFrom: FileDirectory default]" fd fileNames do:[:fName| (fName endsWith: '.bmp') ifTrue:[ + [Form fromBinaryStream: (fd readOnlyFileNamed: fName)] ifError: []. - [Form fromBinaryStream: (fd readOnlyFileNamed: fName)] on: Error do:[:nix]. ]. ]. fd directoryNames do:[:fdName| self readAllFrom: (fd directoryNamed: fdName) ].! Item was changed: ----- Method: Color>>negated (in category 'transformations') ----- negated "Return an RGB inverted color" ^Color r: 1.0 - self red g: 1.0 - self green + b: 1.0 - self blue + alpha: self alpha! - b: 1.0 - self blue! Item was added: + ----- Method: Color>>veryMuchDarker (in category 'transformations') ----- + veryMuchDarker + + ^ self alphaMixed: 0.25 with: Color black + ! Item was changed: ----- Method: FixedFaceFont>>passwordFont (in category 'initialize-release') ----- passwordFont displaySelector := #displayPasswordOn:length:at:kern:baselineY:. + substitutionCharacter := self passwordCharacter! - substitutionCharacter := $*! Item was changed: StrikeFont subclass: #FormSetFont instanceVariableNames: 'tintable combinationRule' classVariableNames: '' poolDictionaries: '' category: 'Graphics-Fonts'! + !FormSetFont commentStamp: 'ct 2/14/2020 16:49' prior: 0! + FormSetFonts are designed to capture individual images as character forms for imbedding in normal text. While most often used to insert an isolated glyph in some text, the code is actually designed to support an entire user-defined font. The TextAttribute subclass TextFontReference is specifically designed for such in-line insertion of exceptional fonts in normal text.! - !FormSetFont commentStamp: '<historical>' prior: 0! - FormSetFonts are designed to capture individual images as character forms for imbedding in normal text. While most often used to insert an isolated glyph in some text, the code is actually desinged to support an entire user-defined font. The TextAttribute subclass TextFontReference is specifically designed for such in-line insertion of exceptional fonts in normal text.! Item was changed: ----- Method: StrikeFont>>hasGlyphForCode: (in category 'multibyte character methods') ----- hasGlyphForCode: aCharacterCode + (aCharacterCode between: self minAscii and: self maxAscii) + ifFalse: [^ false]. + (xTable at: aCharacterCode + 1) positive + ifFalse: [^ false]. - ((aCharacterCode between: self minAscii and: self maxAscii) not) ifTrue: [ - ^ false. - ]. - (xTable at: aCharacterCode + 1) < 0 ifTrue: [ - ^ false. - ]. ^ true. !

1 0

The Trunk: Graphics-ct.425.mcz
by commits＠source.squeak.org 27 Dec '20

27 Dec '20

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ct.425.mcz ==================== Summary ==================== Name: Graphics-ct.425 Author: ct Time: 31 December 2019, 2:12:48.956022 am UUID: cc03f86d-d37e-9b41-8c06-2effc3756ff9 Ancestors: Graphics-pre.424 [very minor] Use already defined magic number instead of hard-coded duplication =============== Diff against Graphics-pre.424 =============== Item was changed: ----- Method: FixedFaceFont>>passwordFont (in category 'initialize-release') ----- passwordFont displaySelector := #displayPasswordOn:length:at:kern:baselineY:. + substitutionCharacter := self passwordCharacter! - substitutionCharacter := $*!

1 0

The Trunk: Graphics-ct.430.mcz
by commits＠source.squeak.org 27 Dec '20

27 Dec '20

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ct.430.mcz ==================== Summary ==================== Name: Graphics-ct.430 Author: ct Time: 21 March 2020, 8:03:59.93556 pm UUID: d78a37e5-e52b-e14c-9949-8738184bf42d Ancestors: Graphics-nice.429 Miscellaneous minor refactoring - Use #ifError: and correct deprecated [:argWithoutBar] block syntax (see Compiler-ct.417) - Fix a documetation typo - Simplify some conditions =============== Diff against Graphics-nice.429 =============== Item was changed: ----- Method: BMPReadWriter class>>readAllFrom: (in category 'testing') ----- readAllFrom: fd "MessageTally spyOn:[BMPReadWriter readAllFrom: FileDirectory default]" fd fileNames do:[:fName| (fName endsWith: '.bmp') ifTrue:[ + [Form fromBinaryStream: (fd readOnlyFileNamed: fName)] ifError: []. - [Form fromBinaryStream: (fd readOnlyFileNamed: fName)] on: Error do:[:nix]. ]. ]. fd directoryNames do:[:fdName| self readAllFrom: (fd directoryNamed: fdName) ].! Item was changed: StrikeFont subclass: #FormSetFont instanceVariableNames: 'tintable combinationRule' classVariableNames: '' poolDictionaries: '' category: 'Graphics-Fonts'! + !FormSetFont commentStamp: 'ct 2/14/2020 16:49' prior: 0! + FormSetFonts are designed to capture individual images as character forms for imbedding in normal text. While most often used to insert an isolated glyph in some text, the code is actually designed to support an entire user-defined font. The TextAttribute subclass TextFontReference is specifically designed for such in-line insertion of exceptional fonts in normal text.! - !FormSetFont commentStamp: '<historical>' prior: 0! - FormSetFonts are designed to capture individual images as character forms for imbedding in normal text. While most often used to insert an isolated glyph in some text, the code is actually desinged to support an entire user-defined font. The TextAttribute subclass TextFontReference is specifically designed for such in-line insertion of exceptional fonts in normal text.! Item was changed: ----- Method: StrikeFont>>hasGlyphForCode: (in category 'multibyte character methods') ----- hasGlyphForCode: aCharacterCode + (aCharacterCode between: self minAscii and: self maxAscii) + ifFalse: [^ false]. + (xTable at: aCharacterCode + 1) positive + ifFalse: [^ false]. - ((aCharacterCode between: self minAscii and: self maxAscii) not) ifTrue: [ - ^ false. - ]. - (xTable at: aCharacterCode + 1) < 0 ifTrue: [ - ^ false. - ]. ^ true. !

1 0

The Trunk: Graphics-ct.439.mcz
by commits＠source.squeak.org 27 Dec '20

27 Dec '20

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ct.439.mcz ==================== Summary ==================== Name: Graphics-ct.439 Author: ct Time: 17 September 2020, 1:05:42.958813 pm UUID: 523992a5-7677-d14c-a4b1-e2a676e92c6b Ancestors: Graphics-tonyg.438 Fixes transparency handling in Color >> #negated. Negating a color should not remove its alpha channel. =============== Diff against Graphics-tonyg.438 =============== Item was changed: ----- Method: Color>>negated (in category 'transformations') ----- negated "Return an RGB inverted color" ^Color r: 1.0 - self red g: 1.0 - self green + b: 1.0 - self blue + alpha: self alpha! - b: 1.0 - self blue!

1 0

The Trunk: GraphicsTests-ct.56.mcz
by commits＠source.squeak.org 27 Dec '20

27 Dec '20

Nicolas Cellier uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-ct.56.mcz ==================== Summary ==================== Name: GraphicsTests-ct.56 Author: ct Time: 17 September 2020, 1:06:30.897813 pm UUID: 31ca4fe7-71ba-2d4e-9578-06cb5b8f3a8a Ancestors: GraphicsTests-pre.55 Adds regression test for Graphics-ct.439 (Color >> #negated). =============== Diff against GraphicsTests-pre.55 =============== Item was added: + ----- Method: ColorTest>>testNegated (in category 'tests') ----- + testNegated + + self assert: Color blue equals: Color yellow negated. + self assert: (Color blue alpha: 0.4) equals: (Color yellow alpha: 0.4) negated.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2020