'From Squeak3.1alpha of 7 February 2001 [latest update: #3891] on 3 April 2001 at 11:07:18 am'! "Change Set: chgSorterSpeedup-sw Date: 3 April 2001 Author: Scott Wallace Speeds up the reformulation of change-set lists"! !ElementCategory methodsFor: 'elements' stamp: 'sw 4/3/2001 11:06'! fasterElementAt: sym put: element "Add symbol at the end of my sorted list and put the element in the dictionary. This variant adds the key at the end of the keys list without checking whether it already exists." keysInOrder add: sym. ^ elementDictionary at: sym put: element! ! !ChangeSetCategory methodsFor: 'miscellaneous' stamp: 'sw 4/3/2001 11:03'! reconstituteList "Clear out the receiver's elements and rebuild them" self clear. ChangeSorter gatherChangeSets do: [:aChangeSet | (ChangeSorter perform: membershipSelector with: aChangeSet) ifTrue: [self fasterElementAt: aChangeSet name asSymbol put: aChangeSet]] ! !