Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-jr.245.mcz
==================== Summary ====================
Name: ST80-jr.245 Author: jr Time: 24 November 2019, 4:13:20.610968 pm UUID: c21afa71-82ce-c94a-a0fd-dfcd010d49c9 Ancestors: ST80-mt.244
Make class list in "explain" output easier to consume.
"... in these classes: an OrderedCollection(...)" is not really human-friendly.
Now it prints Squeak array syntax {A . B . C}, which is still technical, but handy to copy&paste to methods or workspaces if needed.
=============== Diff against ST80-mt.244 ===============
Item was changed: ----- Method: ParagraphEditor>>explainAnySel: (in category 'explain') ----- explainAnySel: symbol "Is this any message selector?"
| list reply | list := self systemNavigation allClassesImplementing: symbol. list size = 0 ifTrue: [^nil]. list size < 12 + ifTrue: [reply := ' is a message selector which is defined in these classes: ' , list asArray printString] - ifTrue: [reply := ' is a message selector which is defined in these classes ' , list printString] ifFalse: [reply := ' is a message selector which is defined in many classes']. ^'"' , symbol , reply , '."' , '' withCRs, 'SystemNavigation new browseAllImplementorsOf: #' , symbol!
packages@lists.squeakfoundation.org