A new version of HelpSystem-Core was added to project The Inbox:
http://source.squeak.org/inbox/HelpSystem-Core-ct.128.mcz

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

Name: HelpSystem-Core-ct.128
Author: ct
Time: 30 December 2019, 3:53:45.220602 pm
UUID: f3b67499-1418-344d-8bf7-04a502baa0e8
Ancestors: HelpSystem-Core-ct.124

Minor refactorings to subtopic UI proposal

=============== Diff against HelpSystem-Core-ct.124 ===============

Item was changed:
  ----- Method: ClassBasedHelpTopic>>addSubclassTopic (in category 'editing') -----
  addSubclassTopic
  
  	| className title subclass |
  	title := UIManager default request: 'Please enter a book name:' translated.
  	title isEmptyOrNil ifTrue: [^ nil].
  	className := UIManager default request: 'Please enter a class name:' translated initialAnswer: (title asIdentifier: true).
  	className isEmptyOrNil ifTrue: [^ nil].
  	className := className asSymbol.
+ 	(Smalltalk hasClassNamed: className) ifTrue: [
+ 		self inform: 'Class already exists' translated.
+ 		^ nil].
- 	Smalltalk at: className ifPresent: [:class | self inform: 'Class already exists' translated. ^ nil].
  	subclass := self helpClass subclass: className
  		instanceVariableNames: ''
  		classVariableNames: ''
  		poolDictionaries: ''
  		category: self helpClass category.
  	subclass theMetaClass
  		compile: (String streamContents: [:stream |
  			stream nextPutAll: #bookName;
  				crtab; nextPutAll: '<generated>';
  				crtab; nextPut: $^;
  				store: title])
  			classified: #accessing.
  	subclass asHelpTopic storePages: #().
  	self refresh.
  	^ self subtopics detect: [:topic | topic isClassBasedHelpTopic and: [topic helpClass = subclass]]!

Item was changed:
  ----- Method: CustomHelp class>>edit: (in category 'editing') -----
  edit: aSelector
  
+ 	(HelpBrowser openOn: self asHelpTopic) model showTopicNamed: aSelector.!
- 	(HelpBrowser openOn: self asHelpTopic) model showTopicNamed: aSelector..
- !