The Trunk: ST80-jr.245.mcz

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

The Trunk: ST80-jr.245.mcz

commits-2
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!