<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000"><div><span style="font-size: 13.3333px">If we want this in Trunk, I would also add support to all UI themes.</span></div><div><span style="font-size: 13.3333px"><br></span></div>
                                        
                                        
                                            
                                        
                                        
                                        <img src="cid:4e740fc8-3b77-4069-9304-6385f48d7d00" width="auto"></img><div><br></div><div>Best,</div><div>Marcel</div><blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
                        <p style="color: #AAAAAA; margin-top: 10px;">Am 24.07.2019 13:18:51 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">A new version of Tools was added to project The Inbox:<br>http://source.squeak.org/inbox/Tools-mt.856.mcz<br><br>==================== Summary ====================<br><br>Name: Tools-mt.856<br>Author: mt<br>Time: 24 July 2019, 1:18:41.968109 pm<br>UUID: 49d7ca18-63b6-4870-acaf-a44ec7c91b84<br>Ancestors: Tools-mt.855<br><br>In the system browser's message list, show deprecated methods gray and struck-out when all message are listed.<br><br>=============== Diff against Tools-mt.855 ===============<br><br>Item was changed:<br>  ----- Method: Browser>>messageList (in category 'message list') -----<br>  messageList<br>+   "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."<br>+         <br>-     "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."<br>-      | sel |<br>-      (sel := self messageCategoryListSelection) ifNil: <br>-           [<br>-                    ^ self classOrMetaClassOrganizer<br>-                             ifNil:          [Array new]<br>-                          ifNotNil:       [self classOrMetaClassOrganizer allMethodSelectors]<br>-                  "^ Array new"<br>-              ].<br>  <br>+       ^ (self selectedMessageCategoryName isNil or: [self selectedMessageCategoryName = ClassOrganizer allCategory])<br>+               ifTrue: [<br>+                    self classOrMetaClassOrganizer<br>+                               ifNil: [Array new]<br>+                           ifNotNil: [:organizer | organizer allMethodSelectors collect: [:ea | <br>+                                        | method |<br>+                                   ea = #messageList ifTrue: [ea] ifFalse: [<br>+                                            method := self selectedClassOrMetaClass compiledMethodAt: ea.<br>+                                                ((method hasLiteral: #deprecated scanForSpecial: false)<br>+                                                      or: [method hasLiteral: #deprecated: scanForSpecial: false])<br>+                                                                 ifTrue: [ea asText<br>+                                                                   addAttribute: (TextColor color: Color gray);<br>+                                                                         addAttribute: TextEmphasis struckOut;<br>+                                                                         yourself]<br>+                                                           ifFalse: [ea]]]]]<br>+            ifFalse: [<br>+                   (self classOrMetaClassOrganizer listAtCategoryNamed: self selectedMessageCategoryName)<br>+                               ifNil: [Array new]]!<br>-         ^ sel = ClassOrganizer allCategory<br>-           ifTrue: <br>-                     [self classOrMetaClassOrganizer<br>-                              ifNil:          [Array new]<br>-                          ifNotNil:       [self classOrMetaClassOrganizer allMethodSelectors]]<br>-                 ifFalse:<br>-                     [(self classOrMetaClassOrganizer listAtCategoryNamed: self selectedMessageCategoryName )<br>-                             ifNil: [selectedMessageCategoryName := nil. Array new]]!<br><br><br></div></blockquote></div>