The Trunk: HelpSystem-Core-mt.97.mcz

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-mt.97.mcz

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

Name: HelpSystem-Core-mt.97
Author: mt
Time: 17 August 2016, 8:50:01.275517 am
UUID: b02687fa-938d-d440-939a-ea8ce99dae33
Ancestors: HelpSystem-Core-mt.96

Small fix to ensure legal selectors when updating class/method-based help books/topics.

=============== Diff against HelpSystem-Core-mt.96 ===============

Item was changed:
  ----- Method: ClassBasedHelpTopic>>accept:for: (in category 'editing') -----
  accept: newContents for: subtopic
 
  | topicClass topicMethodSelector code |
  topicClass := self helpClass.
+ topicMethodSelector := subtopic key asLegalSelector asSymbol.
- topicMethodSelector := (subtopic key copyReplaceAll: '-' with: '') copyReplaceAll: '.' with: ''.
 
  code := String streamContents:[:s|
  s nextPutAll: topicMethodSelector.
  s crtab; nextPutAll: '"This method was automatically generated. Edit it using:"'.
  s crtab; nextPutAll: '"', topicClass name,' edit: ', subtopic key storeString,'"'.
  s crtab; nextPutAll: '^(HelpTopic'.
  s crtab: 2; nextPutAll: 'title: ', subtopic title storeString.
  s crtab: 2; nextPutAll: 'contents: '.
  s cr; nextPutAll: (String streamContents:[:c| c nextChunkPutWithStyle: newContents]) storeString.
  s nextPutAll:' readStream nextChunkText)'.
  s crtab: 3; nextPutAll: 'key: ', subtopic key storeString.
  ].
 
  topicClass class
  compile: code
  classified: ((topicClass class organization categoryOfElement: topicMethodSelector) ifNil:['pages']).!