Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1225.mcz
==================== Summary ====================
Name: Tools-mt.1225 Author: mt Time: 11 August 2023, 2:35:02.324645 pm UUID: 488ac919-ad9c-ab40-9718-4659348b8eb0 Ancestors: Tools-mt.1224
In TreeBrowser, sort messages in special '-- extensions --' category.
=============== Diff against Tools-mt.1224 ===============
Item was changed: ----- Method: TreeBrowser>>messageList (in category 'message list') ----- messageList "Overwritten to show all extensions when the '-- extensions --' category is selected." self selectedMessageCategoryName = self class coreCategory ifTrue: [ ^ (Array streamContents: [:coreSelectors | self classOrMetaClassOrganizer categories reject: [:cat | cat first == $*] thenDo: [:coreCat | (self classOrMetaClassOrganizer listAtCategoryNamed: coreCat) do: [:coreSel | coreSelectors nextPut: (self formattedLabel: coreSel)]]]) sorted: [:a :b | a string <= b string "#sorted not working bc. of possible text elements"]]. ^ self selectedMessageCategoryName = self class extensionCategory ifFalse: [super messageList] ifTrue: [ + (Array streamContents: [:extensionSelectors | - Array streamContents: [:extensionSelectors | self classOrMetaClassOrganizer categories select: [:cat | cat first == $*] thenDo: [:extCat | (self classOrMetaClassOrganizer listAtCategoryNamed: extCat) + do: [:extSel | extensionSelectors nextPut: (self formattedLabel: extSel)]]]) + sorted: [:a :b | a string <= b string "#sorted not working bc. of possible text elements"]]! - do: [:extSel | extensionSelectors nextPut: (self formattedLabel: extSel)]]]]!
packages@lists.squeakfoundation.org