The Trunk: Morphic-mt.1223.mcz

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

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

Name: Morphic-mt.1223
Author: mt
Time: 2 August 2016, 2:28:33.382941 pm
UUID: 5c873fc3-9395-c04d-9b4c-4036dfe8cd8c
Ancestors: Morphic-mt.1222

Sorry, the terse guide should not have vanished from the help menu.

=============== Diff against Morphic-mt.1222 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'submenu - help') -----
  helpMenuOn: aDockingBar
 
  aDockingBar addItem: [ :it |
  it contents: 'Help' translated;
  addSubMenu: [ :menu |
  menu addItem: [:item |
  item
  contents: 'Squeak Help' translated;
  help: 'Integrated Help System' translated;
  target: self;
  selector: #squeakHelp].
 
  menu addLine.
 
  menu addItem:[:item|
  item
  contents: 'Online Resources' translated;
  help: 'Online resources for Squeak' translated;
  target: self;
  icon: MenuIcons smallHelpIcon;
  selector: #squeakOnlineResources].
  menu addItem:[:item|
  item
  contents: 'Keyboard Shortcuts' translated;
  help: 'Keyboard bindings used in Squeak' translated;
  target: self;
  selector: #commandKeyHelp ].
  menu addItem:[:item|
  item
  contents: 'Font Size Summary' translated;
  help: 'Font size summary.' translated;
  target: self;
  selector: #fontSizeSummary ].
  menu addItem:[:item|
  item
  contents: 'Useful Expressions' translated;
  help: 'Useful expressions' translated;
  target: self;
  selector: #usefulExpressions ].
  menu addLine.
  menu addItem:[:item|
  item
+ contents: 'Terse Guide to Squeak' translated;
+ help: 'Concise information about language and environment' translated;
+ target: self;
+ selector: #terseGuideToSqueak].
+ menu addItem:[:item|
+ item
  contents: 'Extending the system' translated;
  help: 'Includes code snippets to evaluate for extending the system' translated;
  target: self;
  icon: MenuIcons smallHelpIcon;
  selector: #extendingTheSystem].
  menu addLine.
 
  menu addItem:[:item|
  item
  contents: 'Release Notes' translated;
  help: 'Changes in this release' translated ;
  target: self;
  selector: #releaseNotes].
  menu addItem:[:item|
  item
  contents: 'Working With Squeak' translated;
  help: 'Information for new users' ;
  target: self;
  selector: #workingWithSqueak].
  menu addItem:[:item|
  item
  contents: 'The Squeak User Interface' translated;
  help: 'Descriptions of some of the more-unusual UI elements in Squeak' ;
  target: self;
  selector: #squeakUserInterface].
  menu addItem:[:item|
  item
  contents: 'License Information' translated;
  help: String empty ;
  target: self;
  selector: #licenseInformation].
 
 
  menu addLine.
  menu addItem: [:item |
  item
  contents: 'About Squeak' translated;
  help: 'SystemReporter status of the image and runtime environment' translated;
  target: self;
  selector: #aboutSqueak].
  ]]!

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:].
- openSelector := boolean ifTrue: [#openCodeOn:] 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 perform: topicSymbol)]]]!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>terseGuideToSqueak (in category 'submenu - help') -----
  terseGuideToSqueak
 
  self
  openHelp: #TerseGuideHelp
  topic: nil
+ styled: true.!
- styled: false.!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>usefulExpressions (in category 'submenu - help') -----
  usefulExpressions
 
  self
  openHelp: #SqueakTutorials
  topic: #usefulExpressions
+ styled: true.!
- styled: false.!