[Pkg] The Trunk: Morphic-jr.1593.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-jr.1593.mcz

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

Name: Morphic-jr.1593
Author: jr
Time: 24 November 2019, 4:09:46.350968 pm
UUID: a31f6451-b4c4-8549-b955-db51806e2477
Ancestors: Morphic-mt.1592
Backported From: Morphic-jr.1593

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 Morphic-mt.1592 ===============

Item was changed:
  ----- Method: TextEditor>>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!