The Trunk: HelpSystem-Core-mt.74.mcz

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

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

Name: HelpSystem-Core-mt.74
Author: mt
Time: 10 May 2015, 1:54:34.265 pm
UUID: 6c85fc29-286f-144f-987a-c450aa4201dd
Ancestors: HelpSystem-Core-mt.73

Added support for ignoring class-based help topics.

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

Item was changed:
  ----- Method: ClassBasedHelpTopic>>updateSubtopics (in category 'updating') -----
  updateSubtopics
 
  | pages |
  pages := (self helpClass pages collect: [:pageSelectorOrClassName |
  (Smalltalk hasClassNamed: pageSelectorOrClassName asString)
  ifTrue: [Smalltalk classNamed: pageSelectorOrClassName asString]
  ifFalse: [pageSelectorOrClassName]]) asOrderedCollection.
 
+ self helpClass subclasses
+ select: [:cls | cls ignore not]
+ thenDo: [:cls | pages addIfNotPresent: cls].
- self helpClass subclasses do: [:cls |
- pages addIfNotPresent: cls].
 
  ^ subtopics := pages withIndexCollect: [:pageSelectorOrClass :priority |
  pageSelectorOrClass isBehavior
  ifFalse: [(self helpClass perform: pageSelectorOrClass) priority: priority - pages size; yourself]
  ifTrue: [pageSelectorOrClass asHelpTopic]]!

Item was added:
+ ----- Method: CustomHelp class>>ignore (in category 'accessing') -----
+ ignore
+
+ ^ false!