Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.1145.mcz
==================== Summary ====================
Name: Tools-ul.1145 Author: ul Time: 30 March 2022, 5:28:44.378745 pm UUID: 1012c26d-a7d8-4985-a836-a050c950331a Ancestors: Tools-mt.1144
- fix MessageSet >> #sortByDate by keeping messageList an OrderedCollection - use Symbol class >> #lookUp: instead of #hasInterned:ifTrue:
=============== Diff against Tools-mt.1144 ===============
Item was changed: ----- Method: MessageNames>>computeSelectorListFrom: (in category 'search') ----- computeSelectorListFrom: searchString "Compute selector list from search string. The searchString is a list of expressions separated by ;. Each expression is matched individually. An expression can be a simple string (same as *expression*), a string with double quotes (exact match) or a match expression (see String >> #match:)." ^ (Array streamContents: [ :stream | (searchString findBetweenSubStrs: ';') do: [ :selPat | (selPat first = $" and: [ selPat last = $" and: [ selPat size > 2 ] ]) ifTrue: [ + (Symbol lookup: (selPat copyFrom: 2 to: selPat size - 1)) + ifNotNil: [ :sym | stream nextPut: sym ] ] - Symbol - hasInterned: (selPat copyFrom: 2 to: selPat size - 1) - ifTrue: [ :sym | stream nextPut: sym ] ] ifFalse: [ | raw n m | n := selPat occurrencesOf: $*. m := selPat occurrencesOf: $#. raw := ((n > 0 or: [ m > 0 ]) and: [ selPat size > (n + m) ]) ifTrue: [ Symbol selectorsMatching: selPat ] ifFalse: [ Symbol selectorsContaining: selPat ]. stream nextPutAll: raw ] ] ]) sort: [ :x :y | x caseInsensitiveLessOrEqual: y ]!
Item was changed: ----- Method: MessageSet>>filterToImplementorsOf (in category 'filtering') ----- filterToImplementorsOf "Filter the receiver's list down to only those items with a given selector"
| aFragment inputWithBlanksTrimmed |
aFragment := self request: 'type selector:' initialAnswer: ''. aFragment isEmptyOrNil ifTrue: [^ self]. inputWithBlanksTrimmed := aFragment withBlanksTrimmed. + (Symbol lookup: inputWithBlanksTrimmed) ifNotNil: - Symbol hasInterned: inputWithBlanksTrimmed ifTrue: [:aSymbol | self filterFrom: [:aClass :aSelector | aSelector == aSymbol]]!
Item was changed: ----- Method: MessageSet>>filterToNotImplementorsOf (in category 'filtering') ----- filterToNotImplementorsOf "Filter the receiver's list down to only those items whose selector is NOT one solicited from the user."
| aFragment inputWithBlanksTrimmed |
aFragment := self request: 'type selector: ' initialAnswer: ''. aFragment isEmptyOrNil ifTrue: [^ self]. inputWithBlanksTrimmed := aFragment withBlanksTrimmed. + (Symbol lookup: inputWithBlanksTrimmed) ifNotNil: - Symbol hasInterned: inputWithBlanksTrimmed ifTrue: [:aSymbol | self filterFrom: [:aClass :aSelector | aSelector ~~ aSymbol]]!
Item was changed: ----- Method: MessageSet>>filterToNotSendersOf (in category 'filtering') ----- filterToNotSendersOf "Filter the receiver's list down to only those items which do not send a given selector"
| aFragment inputWithBlanksTrimmed |
aFragment := self request: 'type selector:' initialAnswer: ''. aFragment isEmptyOrNil ifTrue: [^ self]. inputWithBlanksTrimmed := aFragment withBlanksTrimmed. + (Symbol lookup: inputWithBlanksTrimmed) ifNotNil: - Symbol hasInterned: inputWithBlanksTrimmed ifTrue: [:aSymbol | self filterFrom: [:aClass :aSelector | | aMethod | (aMethod := aClass compiledMethodAt: aSelector) isNil or: [(aMethod hasLiteral: aSymbol) not]]]!
Item was changed: ----- Method: MessageSet>>filterToSendersOf (in category 'filtering') ----- filterToSendersOf "Filter the receiver's list down to only those items which send a given selector"
| aFragment inputWithBlanksTrimmed |
aFragment := self request: 'type selector:' initialAnswer: ''. aFragment isEmptyOrNil ifTrue: [^ self]. inputWithBlanksTrimmed := aFragment withBlanksTrimmed. + (Symbol lookup: inputWithBlanksTrimmed) ifNotNil: - Symbol hasInterned: inputWithBlanksTrimmed ifTrue: [:aSymbol | self filterFrom: [:aClass :aSelector | | aMethod | (aMethod := aClass compiledMethodAt: aSelector) notNil and: [aMethod hasLiteral: aSymbol]]]
!
Item was changed: ----- Method: MessageSet>>sortByDate (in category 'message list') ----- sortByDate "Sort the message-list by date of time-stamp"
+ | associations | + associations := messageList collect: - | assocs inOrder | - assocs := messageList collect: [:aRef | | aDate aCompiledMethod | aDate := aRef methodSymbol == #Comment ifTrue: [aRef actualClass organization dateCommentLastSubmitted] ifFalse: [aCompiledMethod := aRef actualClass compiledMethodAt: aRef methodSymbol ifAbsent: [nil]. aCompiledMethod ifNotNil: [aCompiledMethod dateMethodLastSubmitted]]. aRef -> (aDate ifNil: [Date fromString: '01/01/1996'])]. "The dawn of Squeak history" + messageList := associations + sort: #value asSortFunction; + replace: [ :association | association key ]; + yourself. - inOrder := assocs asArray sort: [:a :b | a value < b value]. - - messageList := inOrder collect: [:assoc | assoc key]. self changed: #messageList!