[Pkg] The Trunk: ST80-jr.245.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Nov 25 08:47:32 UTC 2019


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!



More information about the Packages mailing list