A new version of Morphic was added to project The Trunk:
http://source.squeak.org/trunk/Morphic-mha.433.mcz==================== Summary ====================
Name: Morphic-mha.433
Author: mha
Time: 2 May 2010, 4:06:13.1 pm
UUID: 63fb1a77-19fb-418c-b659-bd80be3bd9a1
Ancestors: Morphic-mha.432
insert Help Browser in Help menu (if present)
=============== Diff against Morphic-mha.431 ===============
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 at: #HelpBrowser) ifNotNil: [
+ menu addLine.
+ menu addItem: [ :item |
+ item
+ contents: 'Help Browser' translated;
+ help: 'Integrated Help System' translated;
+ target: (Smalltalk at: #HelpBrowser);
+ selector: #open ] ].
]].!