The Trunk: Morphic-jr.1593.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Trunk: Morphic-jr.1593.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:

==================== 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!