The Trunk: Help-Squeak-Project-mt.47.mcz

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')!