The Trunk: HelpSystem-Core-ul.99.mcz

Levente Uzonyi uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-ul.99.mcz

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

Name: HelpSystem-Core-ul.99
Author: ul
Time: 13 March 2017, 5:06:45.821788 am
UUID: 7eb2ca8b-fd12-43ae-930f-a64c14899ea9
Ancestors: HelpSystem-Core-mt.98

SortedCollection Whack-a-mole

=============== Diff against HelpSystem-Core-mt.98 ===============

Item was changed:
  ----- Method: HelpTopic>>sortSubtopicsByTitle (in category 'operating') -----
  sortSubtopicsByTitle
  "Sort the subtopics by title"
 
+ subtopics := self subtopics sorted!
- subtopics := SortedCollection withAll: self subtopics  !

Item was changed:
  ----- Method: HelpTopic>>subtopics (in category 'accessing') -----
  subtopics
  "Returns the receivers list of subtopics"
 
+ ^subtopics ifNil: [ subtopics := OrderedCollection new ]!
- subtopics isNil ifTrue: [subtopics := OrderedCollection new].
- ^subtopics!

Item was changed:
  ----- Method: PackageAPIHelpBuilder>>buildPackageTopic: (in category 'building') -----
  buildPackageTopic: pTopic
-  
- | classTopic classes |
- classes := (PackageInfo named: pTopic title) classes asSortedCollection: [:cl1 :cl2 | cl1 name < cl2 name].
- classes
-   do: [:aClass|
- classTopic := ClassAPIHelpBuilder buildHierarchicalHelpTopicFrom: aClass withSubclasses: false withMethods: true.
- pTopic addSubtopic: classTopic
- ]
 
+ (PackageInfo named: pTopic title) classes
+ sort: [ :cl1 :cl2 | cl1 name < cl2 name ];
+ do: [ :aClass|
+ | classTopic |
+ classTopic := ClassAPIHelpBuilder
+ buildHierarchicalHelpTopicFrom: aClass
+ withSubclasses: false
+ withMethods: true.
+ pTopic addSubtopic: classTopic ]!
- !