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