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

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

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

Name: Help-Squeak-Project-mt.46
Author: mt
Time: 14 August 2016, 3:49:20.204622 pm
UUID: ecc5a18e-7f70-c345-9d7f-e0ef7e1f7519
Ancestors: Help-Squeak-Project-mt.45

For external release notes, use Squeak's text serialization instead of HTML. Makes interactive editing of release notes in the help browser easier.

Add a convenient file-out method to write the updated release notes back to the file system.

Note that editing release notes that where loaded from a file, will compile a new page in SqueakReleaseNotes. Please, do not check-in those pages but keep release notes in external files.

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

Item was changed:
  ----- 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
- "For example: doc/release-notes-51"
- ^ (HelpTopic
  title: msg selector
+ contents: stream nextChunkText withSqueakLineEndings)
+ key: msg selector;
+ yourself]
+ ensure: [stream close].
+
+ ^ topic!
- readOnlyContents: (HtmlReadWriter textFromFileNamed: ((FileDirectory default directoryNamed: self folderName) fullNameFor: msg selector)) ) key: msg selector!

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