The Inbox: Morphic-bp.508.mcz

A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-bp.508.mcz

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

Name: Morphic-bp.508
Author: bp
Time: 8 January 2011, 1:53:20.831 pm
UUID: 61aa0fa7-f9a0-4b26-a532-273cc64af6d9
Ancestors: Morphic-MAD.507

- fix last failing PackageDependencyTest testMorphic by honoring the fact that Help-Squeak-TerseGuide is a separate package which could be unloaded

=============== Diff against Morphic-MAD.507 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'submenu - help') -----
  helpMenuOn: aDockingBar
 
  aDockingBar addItem: [ :it |
  it contents: 'Help' translated;
  addSubMenu: [ :menu |  'Todo'.
  menu addItem:[:item|
  item
  contents: 'Online Resources' translated;
  help: 'Online resources for Squeak' translated;
  target: self;
  icon: MenuIcons smallHelpIcon;
  selector: #showWelcomeText:label:in:;
  arguments: {
  #squeakOnlineResources.
  'Squeak Online Resources'.
  (140@140 extent: 560@360)
  }].
  menu addItem:[:item|
  item
  contents: 'Keyboard Shortcuts' translated;
  help: 'Keyboard bindings used in Squeak' translated;
  target: Utilities;
  selector: #openCommandKeyHelp ].
  menu addItem:[:item|
  item
  contents: 'Font Size Summary' translated;
  help: 'Font size summary from the old Squeak 3.10.2 help menu.' translated;
  target: TextStyle;
  selector: #fontSizeSummary ].
  menu addItem:[:item|
  item
  contents: 'Useful Expressions' translated;
  help: 'Useful expressions from the old Squeak 3.10.2 help menu.' translated;
  target: Utilities;
  selector: #openStandardWorkspace ].
  menu addLine.
  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: #showWelcomeText:label:in:;
  arguments: {
  #extendingTheSystem.
  'How to extend the system'.
  (140@140 extent: 560@360)
  }].
  menu addLine.
  menu addItem:[:item|
  item
  contents: 'Welcome Workspaces' translated;
  help: 'The Welcome Workspaces' translated;
  addSubMenu:[:submenu| self welcomeWorkspacesOn: submenu]].
+ (Smalltalk classNamed: #HelpBrowser) ifNotNil: [:classHelpBrowser |
+ (Smalltalk classNamed: #TerseGuideHelp) ifNotNil: [:classTerseGuideHelp |
+ menu addLine.
+ menu addItem: [:item |
+ item
+ contents: 'Terse Guide to Squeak' translated;
+ help: 'concise information about language and environment' translated;
+ target: classHelpBrowser;
+ selector: #openOn:;
+ arguments: { classTerseGuideHelp }]].
- (Smalltalk classNamed: #HelpBrowser) ifNotNil:
- [:classHelpBrowser|
  menu addLine.
+ menu addItem: [:item |
- menu addItem: [ :item |
  item
- contents: 'Terse Guide to Squeak' translated;
- help: 'concise information about language and environment' translated;
- target: classHelpBrowser;
- selector: #openOn:;
- arguments: { TerseGuideHelp } ].
- menu addLine.
- menu addItem: [ :item |
- item
  contents: 'Help Browser' translated;
  help: 'Integrated Help System' translated;
  target: classHelpBrowser;
+ selector: #open]]]]!
- selector: #open ] ].
- ]].
- !