[squeak-dev] The Trunk: HelpSystem-Core-mt.94.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Aug 14 16:51:52 UTC 2016


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]!



More information about the Squeak-dev mailing list