Marcel Taeumel uploaded a new version of Help-Squeak-Project to project The Trunk:
http://source.squeak.org/trunk/Help-Squeak-Project-mt.47.mcz

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

Name: Help-Squeak-Project-mt.47
Author: mt
Time: 14 August 2016, 6:52:52.253782 pm
UUID: be434b75-ac75-db4f-b00d-2c3ab8577133
Ancestors: Help-Squeak-Project-mt.46

Make release notes use a directory-based help topic. This means that you have to put the release notes files into the correct directory (here: 'release-notes').

=============== Diff against Help-Squeak-Project-mt.46 ===============

Item was added:
+ ----- Method: SqueakReleaseNotes class>>asHelpTopic (in category 'as yet unclassified') -----
+ asHelpTopic
+ 
+ 	^ DirectoryBasedHelpTopic new
+ 		directoryEntry: (FileDirectory default entryAt: 'release-notes' ifAbsent: []);
+ 		sortBlock: [:t1 :t2 | t1 title >= t2 title];
+ 		title: self bookName!

Item was removed:
- ----- Method: SqueakReleaseNotes class>>doesNotUnderstand: (in category 'accessing') -----
- doesNotUnderstand: msg
- 
- 	| topic stream |
- 	msg arguments size > 0 ifTrue: [^ super doesNotUnderstand: msg].
- 	
- 	stream := FileStream fileNamed: ((FileDirectory default directoryNamed: self folderName) fullNameFor: msg selector).
- 	
- 	[topic := (HelpTopic
- 		title: msg selector
- 		contents: stream nextChunkText withSqueakLineEndings)
- 			key: msg selector;
- 			yourself]
- 		ensure: [stream close].
- 		
- 	^ topic!

Item was removed:
- ----- Method: SqueakReleaseNotes class>>fileOut: (in category 'support') -----
- fileOut: page
- 	"self fileOut: #releasenotes46"
- 	
- 	FileStream fileNamed: page do: [:strm |
- 		strm nextChunkPutWithStyle: (self perform: page) contents].!

Item was removed:
- ----- Method: SqueakReleaseNotes class>>folderName (in category 'accessing') -----
- folderName
- 
- 	^ 'release-notes'!

Item was removed:
- ----- Method: SqueakReleaseNotes class>>pages (in category 'accessing') -----
- pages
- 
- 	| dir |
- 	dir := FileDirectory default directoryNamed: self folderName.
- 	^ (dir exists
- 		ifFalse: [#()]
- 		ifTrue: [(dir entries collect: [:entry | entry name]) sorted: [:a :b | a >= b]]),
- 			(self class organization listAtCategoryNamed: 'pages')!