The Trunk: Tools-mt.856.mcz

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.856.mcz

==================== Summary ====================

Name: Tools-mt.856
Author: mt
Time: 24 July 2019, 1:18:41.968109 pm
UUID: 49d7ca18-63b6-4870-acaf-a44ec7c91b84
Ancestors: Tools-mt.855

In the system browser's message list, show deprecated methods gray and struck-out when all message are listed.

=============== Diff against Tools-mt.855 ===============

Item was changed:
  ----- Method: Browser>>messageList (in category 'message list') -----
  messageList
+ "Answer an Array of the message selectors of the currently selected message category. If no category is selected or the '-- all --' category is selected, return all method selectors. Make deprecated messages look gray and struck-out."
+
- "Answer an Array of the message selectors of the currently selected message category, provided that the messageCategoryListIndex is in proper range.  Otherwise, answer an empty Array  If messageCategoryListIndex is found to be larger than the number of categories (it happens!!), it is reset to zero."
- | sel |
- (sel := self messageCategoryListSelection) ifNil:
- [
- ^ self classOrMetaClassOrganizer
- ifNil: [Array new]
- ifNotNil: [self classOrMetaClassOrganizer allMethodSelectors]
- "^ Array new"
- ].
 
+ ^ (self selectedMessageCategoryName isNil or: [self selectedMessageCategoryName = ClassOrganizer allCategory])
+ ifTrue: [
+ self classOrMetaClassOrganizer
+ ifNil: [Array new]
+ ifNotNil: [:organizer | organizer allMethodSelectors collect: [:ea |
+ | method |
+ ea = #messageList ifTrue: [ea] ifFalse: [
+ method := self selectedClassOrMetaClass compiledMethodAt: ea.
+ ((method hasLiteral: #deprecated scanForSpecial: false)
+ or: [method hasLiteral: #deprecated: scanForSpecial: false])
+ ifTrue: [ea asText
+ addAttribute: (TextColor color: Color gray);
+ addAttribute: TextEmphasis struckOut;
+ yourself]
+ ifFalse: [ea]]]]]
+ ifFalse: [
+ (self classOrMetaClassOrganizer listAtCategoryNamed: self selectedMessageCategoryName)
+ ifNil: [Array new]]!
- ^ sel = ClassOrganizer allCategory
- ifTrue:
- [self classOrMetaClassOrganizer
- ifNil: [Array new]
- ifNotNil: [self classOrMetaClassOrganizer allMethodSelectors]]
- ifFalse:
- [(self classOrMetaClassOrganizer listAtCategoryNamed: self selectedMessageCategoryName )
- ifNil: [selectedMessageCategoryName := nil. Array new]]!