Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cmm.865.mcz
==================== Summary ====================
Name: Collections-cmm.865 Author: cmm Time: 30 November 2019, 9:33:26.626104 pm UUID: 8a7c3294-372d-431b-b1f2-1daff3cb3a9e Ancestors: Collections-mt.864
Let the printString of an OrderedDictionary reveal its key sequence.
=============== Diff against Collections-mt.864 ===============
Item was added: + ----- Method: Dictionary>>keysInOrder (in category 'accessing') ----- + keysInOrder + "Answer the keys of the receiver in a particular sequence. This default is alphabetical, but subclasses like OrderedDictionary maintain their own sequence." + ^ self keysSortedSafely!
Item was changed: ----- Method: Dictionary>>printElementsOn: (in category 'printing') ----- printElementsOn: aStream aStream nextPut: $(. self size > 100 ifTrue: [aStream nextPutAll: 'size '. self size printOn: aStream] + ifFalse: [self keysInOrder - ifFalse: [self keysSortedSafely do: [:key | aStream print: key; nextPutAll: '->'; print: (self at: key); space]]. aStream nextPut: $)!
Item was added: + ----- Method: OrderedDictionary>>keysInOrder (in category 'accessing') ----- + keysInOrder + "Overridden. Preserve the order of the receiver." + ^ self keys!