Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.998.mcz
==================== Summary ====================
Name: Collections-ct.998 Author: ct Time: 28 March 2022, 1:56:52.242267 pm UUID: 74080f41-16ed-dc43-8f7c-1cd16bc91db7 Ancestors: Collections-ct.997
Adds literal arrays and scaled decimals to the smalltalk postcard. Removes obsolete line breaks from the comment.
=============== Diff against Collections-ct.997 ===============
Item was changed: ----- Method: Text class>>codeSample (in category 'filler text') ----- codeSample
^ 'exampleWithNumber: x + "A method that illustrates every part of Smalltalk method syntax including primitives. It has unary, binary, and keyboard messages; declares arguments and temporaries; accesses a global variable (but not an instance variable); uses literals (array, nested array, character, symbol, string, integer, float, scaled decimal, and byte array); uses the pseudo variables nil, true, false, self, super, and thisContext; shows that within a literal array nil, true, and false are symbols not pseudo variables; and has sequence, assignment, return, cascade, and tuple (array) creation. It has both zero argument and one argument blocks, and has a block temporary." - "A method that illustrates every part of Smalltalk method syntax - including primitives. It has unary, binary, and keyboard messages, - declares arguments and temporaries, accesses a global variable - (but not an instance variable), uses literals (array, character, symbol, - string, integer, float, byte array), uses the pseudo variables nil, true, - false, self, super, and thisContext, shows that within a literal array - nil, true and false are symbols not pseudo variables, and has sequence, - assignment, return, cascade, and tuple (array) creation. It has both - zero argument and one argument blocks, and has a block temporary." <primitive: ''primitiveCopyBits'' module: #BitBltPlugin error: ec> | y | true & false not & (nil isNil) ifFalse: [self halt]. y := self size + super size. + #($a #a ''a'' "a" (1 1.0 1.0s2) nil true false), { #[65]. thisContext. nil. true. false } - #($a #a ''a'' "a" 1 1.0 nil true false), { #[65]. thisContext. nil. true. false } do: [ :each | | class | class := each class. Transcript show: (class name); show: '' '']. ^ x < y'!