Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1221.mcz
==================== Summary ====================
Name: Tools-mt.1221 Author: mt Time: 9 June 2023, 1:06:42.794748 pm UUID: d57ea849-d0a5-4544-8217-a1cb5eb2f3fc Ancestors: Tools-ct.1220
In TreeBrowser, fixes sorting issue in "-- core --" category where some of the elements were texts, not just strings.
=============== Diff against Tools-ct.1220 ===============
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"]]. - do: [:coreSel | coreSelectors nextPut: (self formattedLabel: coreSel)]]]) sort]. ^ self selectedMessageCategoryName = self class extensionCategory ifFalse: [super messageList] ifTrue: [ Array streamContents: [:extensionSelectors | self classOrMetaClassOrganizer categories select: [:cat | cat first == $*] thenDo: [:extCat | (self classOrMetaClassOrganizer listAtCategoryNamed: extCat) do: [:extSel | extensionSelectors nextPut: (self formattedLabel: extSel)]]]]!
packages@lists.squeakfoundation.org