The Inbox: HelpSystem-Core-ct.128.mcz

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