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

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

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

Name: HelpSystem-Core-mt.94
Author: mt
Time: 14 August 2016, 6:51:48.413782 pm
UUID: 41817768-5d0c-c34e-b0f3-10ee04f4eb00
Ancestors: HelpSystem-Core-mt.93

Fix directory based help topics for invalid directories.

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

Item was changed:
  ----- Method: DirectoryBasedHelpTopic>>contents (in category 'accessing') -----
  contents
 
+ ^ self directoryEntry
+ ifNil: ['This directory-based help topic has no valid directory entry set.' translated]
+ ifNotNil: ['This is a directory-based help topic. It''s contents are in ', self directoryEntry fullName]!
- ^ 'This is a directory-based help topic. It''s contents are in ', self directoryEntry fullName!

Item was changed:
  ----- Method: DirectoryBasedHelpTopic>>subtopics (in category 'accessing') -----
  subtopics
 
  | directory |
  subtopics ifNotNil: [^ subtopics].
+ self directoryEntry ifNil: [^ #()].
 
  directory := self directoryEntry asFileDirectory.
  ^ subtopics := (directory entries
  select: [:ea | ea isDirectory]
  thenCollect: [:ea | DirectoryBasedHelpTopic new directoryEntry: ea]),
 
  ((directory fileNamesMatching: self filter)
  collect: [:fileName | FileBasedHelpTopic new
  fileEntry: (directory entryAt: fileName);
  sortBlock: self sortBlock])!

Item was changed:
  ----- Method: DirectoryBasedHelpTopic>>title (in category 'accessing') -----
  title
+ ^ title ifNil: [self directoryEntry ifNil: ['(invalid)'] ifNotNil: [:d | d name]]!
- ^ title ifNil: [self directoryEntry name]!