The Trunk: Morphic-dtl.516.mcz

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.516.mcz

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

Name: Morphic-dtl.516
Author: dtl
Time: 19 January 2011, 6:46:15.252 pm
UUID: 248137ad-5329-4089-8597-81a5e07d22bd
Ancestors: Morphic-laza.515

Add SystemReporter as "About this System" entry in TheWorldMainDockingBar>>helpMenuOn: and revert #extendingTheSystem to prior version to remove SystemReporter loading instructions.

=============== Diff against Morphic-laza.515 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar class>>initialize (in category 'class initialization') -----
  initialize
+ "self initialize"
- " self initialize "
 
  Locale addLocalChangedListener: self.
  self updateInstances.!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>extendingTheSystem (in category 'submenu - help') -----
  extendingTheSystem
  ^'"Note: Please edit this workspace and add your own contributions.
  To submit it to the inbox open the Monticello browser and submit it from there.
  Save the package ''* Morphic'' to the inbox."
 
  "Updating your system:
  The following will set the default update URL to receive development updates.
  For developers and dare-devils only."
 
  MCMcmUpdater defaultUpdateURL: ''http://source.squeak.org/trunk''.
 
  "Installing new packages:
  The following expression show how to load many interesting packages into Squeak."
 
- "Install and open a SystemReporter.
- You can use this information when sending out bug reports"
- (Installer ss project: ''SystemReporter'') install: ''SystemReporter''.
- (Smalltalk at: #SystemReporter) open.
-
  "FFI: http://source.squeak.org/FFI.html"
  (Installer repository: ''http://source.squeak.org/FFI'')
  install: ''FFI-Pools'';
  install: ''FFI-Kernel'';
  install: ''FFI-Tests'';
  install: ''FFI-Win32'';
  install: ''FFI-MacOS'';
  install: ''FFI-Unix''.
 
  "OCompletion provides source code completion as you type"
  (Installer ss project: ''OCompletion'') install: ''Ocompletion''.
  (Smalltalk at: #ECToolSet) register.
  (Smalltalk at: #ToolSet) default: (Smalltalk at: #ECToolSet).
 
  "Omnibrowser, including Refactoring engine"
  (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfOmniBrowser''.
  ((Smalltalk at: #ConfigurationOfOmniBrowser) project perform: #lastVersion) load: #( Dev ).
 
  "Seaside 2.8 http://www.seaside.st"
  (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfSeaside28''.
  "WAKom startOn: 9090"
 
  "Seaside 2.8 Examples http://www.seaside.st"
  (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfSeaside28Examples''.
  (Smalltalk at: #ConfigurationOfSeaside28Examples) load.
 
  "Seaside 3.0 http://www.seaside.st"
  (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfSeaside30''.
  (Smalltalk at: #ConfigurationOfSeaside30) load.
  (Smalltalk at: #WAPharoServerAdaptorBrowser) open.
 
  "Pier CMS: http://www.piercms.com"
  (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfPier2''.
  (Smalltalk at: #ConfigurationOfPier2) load.
 
  (Installer lukas project: ''pier2'') install: ''Pier-Blog''.
  (Installer lukas project: ''pier2'') install: ''Pier-Book''.
  (Installer lukas project: ''pier2addons'') install: ''Pier-Setup''.
  (Smalltalk at: #PRDistribution)  new register.
+ !!
+ ]style[(189 2 139 15 17 1 32 3 108 2 40 12 11 1 30 3 8 1 11 3 8 1 12 3 8 1 11 3 8 1 11 3 8 1 11 3 8 1 10 3 57 12 2 1 8 1 13 2 8 1 13 13 3 1 10 2 8 13 3 1 8 2 8 12 3 1 10 4 44 11 2 1 8 1 21 2 8 1 28 14 3 1 1 28 7 11 11 2 5 4 3 5 35 12 2 1 8 1 21 2 8 1 26 2 21 2 44 12 2 1 8 1 21 2 8 1 34 13 3 1 33 2 4 3 35 12 2 1 8 1 21 2 8 1 26 13 3 1 25 2 4 13 3 1 28 2 4 3 34 12 2 1 8 1 21 2 8 1 22 13 3 1 21 2 4 14 5 1 8 1 7 2 8 1 11 13 5 1 8 1 7 2 8 1 11 13 5 1 8 1 13 2 8 1 12 13 3 1 15 3 3 1 8 2)c000122122,cblack;,c000122122,cblack;,c000000122,cblack;,c122000122,cblack;,c000122122,cblack;,c000122122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000127127,cblack;,c000000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000122122,cblack;,c000000125,cblack;,c000000125,cblack;,c125000125,cblack;,c000000125,cblack;,c125000125,cblack;,c000000122,cblack;,c000000122,cblack;,c000000125,cblack;,c000000125,cblack;,c000000125,cblack;,c000000125,cblack;,c000122122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000122122,cblack;,c000122122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000122122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000122122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;!!' readStream nextChunkText!
- !!' readStream nextChunkText!

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 ].
+ (Smalltalk classNamed: #SystemReporter) ifNotNil: [:classSystemReporter |
+ menu addItem: [:item |
+ item
+ contents: 'About this System' translated;
+ help: 'SystemReporter status of the image and runtime environment' translated;
+ target: classSystemReporter;
+ selector: #open]].
  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;
- help: 'concise information about language and environment' translated;
  target: classHelpBrowser;
  selector: #openOn:;
  arguments: { classTerseGuideHelp }]].
  menu addLine.
  menu addItem: [:item |
  item
  contents: 'Help Browser' translated;
  help: 'Integrated Help System' translated;
  target: classHelpBrowser;
  selector: #open]]]]!