[Pkg] The Trunk: Morphic-mha.433.mcz

commits at source.squeak.org commits at source.squeak.org
Sun May 2 15:43:36 UTC 2010


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 at 140 extent: 560 at 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 at 140 extent: 560 at 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 ] ].
  			]].!



More information about the Packages mailing list