The Trunk: Morphic-mt.1500.mcz

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

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

Name: Morphic-mt.1500
Author: mt
Time: 13 August 2019, 2:05:36.933456 pm
UUID: 493446d6-d984-e643-9bf0-144812f90bd8
Ancestors: Morphic-mt.1499

For specific Squeak help, open the entire book and select the specific topic page instead of just opening that topic page. This makes it easier for users to learn about topics in context.

For example, "License Information" in the Help menu now also shows the page about license change in the 4.0 release.

=============== Diff against Morphic-mt.1499 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>openHelp:topic: (in category 'submenu - help') -----
  openHelp: bookSymbol topic: topicSymbol
  "If a suitable seeming class named bookSymbol exists in the image we open it on the given topic, or on the first page should topic be nil"
  (Smalltalk classNamed: 'HelpBrowser')
  ifNil: [self inform: 'Sorry, there is no help system installed.' translated]
  ifNotNil: [:helpClass |
  (Smalltalk classNamed: bookSymbol)
  ifNil: [self inform: 'Sorry, the help book you requested does not exist.']
  ifNotNil: [:book |
  topicSymbol
  ifNil: [(helpClass openOn: book) model showFirstTopic]
+ ifNotNil: [(helpClass openOn: book) model showTopicNamed: topicSymbol]]]!
- ifNotNil: [helpClass openOn: (book perform: topicSymbol)]]]!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>openHelp:topic:styled: (in category 'submenu - help') -----
  openHelp: bookSymbol topic: topicSymbol styled: boolean
 
  | openSelector |
  openSelector := boolean ifTrue: [#openForCodeOn:] ifFalse: [#openOn:].
 
  (Smalltalk classNamed: 'HelpBrowser')
  ifNil: [self inform: 'Sorry, there is no help system installed.' translated]
  ifNotNil: [:helpClass |
  (Smalltalk classNamed: bookSymbol)
  ifNil: [self inform: 'Sorry, the help book you requested does not exist.']
  ifNotNil: [:book |
  topicSymbol
  ifNil: [(helpClass perform: openSelector with: book) model showFirstTopic]
+ ifNotNil: [(helpClass perform: openSelector with: book) model showTopicNamed: topicSymbol]]].!
- ifNotNil: [helpClass perform: openSelector with: (book perform: topicSymbol)]]]!