[squeak-dev] The Trunk: HelpSystem-Core-mt.97.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Aug 17 08:53:34 UTC 2016


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



More information about the Squeak-dev mailing list