The Trunk: HelpSystem-Core-ct.125.mcz

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-ct.125.mcz

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

Name: HelpSystem-Core-ct.125
Author: ct
Time: 14 October 2019, 12:33:57.997932 am
UUID: bdc17b48-7f21-844e-ad05-f3ba9876fd3f
Ancestors: HelpSystem-Core-mt.116

Adds CustomHelp>>#defaultPageKey to show the contents of a specified subtopic if a ClassBasedHelpTopic is selected

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

Item was changed:
  ----- Method: ClassBasedHelpTopic>>contents (in category 'accessing') -----
  contents
  "A book has no contents. Only its pages do."
 
+ ^ self defaultSubtopic ifNil: [''] ifNotNil: #contents!
- ^ ''!

Item was added:
+ ----- Method: ClassBasedHelpTopic>>defaultSubtopic (in category 'accessing') -----
+ defaultSubtopic
+
+ ^ self helpClass defaultPageKey
+ ifNotNil: [:key |
+ self subtopics
+ detect: [:topic | topic key = key]
+ ifNone: [nil]]
+ ifNil: [nil]!

Item was added:
+ ----- Method: ClassBasedHelpTopic>>key (in category 'accessing') -----
+ key
+
+ ^ self helpClass!

Item was added:
+ ----- Method: CustomHelp class>>defaultPageKey (in category 'accessing') -----
+ defaultPageKey
+ "Key of the page to show if no subtopic is selected, or nil"
+ ^ nil!