Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.675.mcz

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

Name: Morphic-fbs.675
Author: fbs
Time: 25 July 2013, 8:37:01.098 am
UUID: e58172c6-7e48-dc42-a66c-9b3459c2d346
Ancestors: Morphic-fbs.674

SmalltalkImage current -> Smalltalk.

=============== Diff against Morphic-fbs.674 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>aboutSqueak (in category 'menu actions') -----
  aboutSqueak
  	UserDialogBoxMorph
+ 		inform: Smalltalk systemInformationString withCRs
- 		inform: SmalltalkImage current systemInformationString withCRs
  		title: 'About Squeak:'
  		at: World center.
  !

Item was changed:
  ----- Method: TheWorldMainDockingBar>>quitSqueak (in category 'menu actions') -----
  quitSqueak
  
+ 	^Smalltalk
- 	^SmalltalkImage current
  		snapshot: (
  			UserDialogBoxMorph 
  				confirm: 'Save changes before quitting?' translated 
  				orCancel: [ ^self ]
  				at: World center)
  		andQuit: true
  
  	!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>save (in category 'menu actions') -----
  save
  
+ 	Smalltalk snapshot: true andQuit: false!
- 	SmalltalkImage current snapshot: true andQuit: false!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>saveAndQuitSqueak (in category 'menu actions') -----
  saveAndQuitSqueak
  
+ 	Smalltalk snapshot: true andQuit: true!
- 	SmalltalkImage current snapshot: true andQuit: true!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>saveAsNewVersion (in category 'menu actions') -----
  saveAsNewVersion
  
+ 	Smalltalk saveAsNewVersion!
- 	SmalltalkImage current saveAsNewVersion!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>saveImage (in category 'menu actions') -----
  saveImage
  
+ 	Smalltalk saveSession!
- 	SmalltalkImage current saveSession!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>saveImageAs (in category 'menu actions') -----
  saveImageAs
  
+ 	Smalltalk saveAs!
- 	SmalltalkImage current saveAs!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>vmStatistics (in category 'menu actions') -----
  vmStatistics
  	"Open a string view on a report of vm statistics"
  
+ 	(StringHolder new contents: Smalltalk vmStatisticsReportString)
- 	(StringHolder new contents: SmalltalkImage current  vmStatisticsReportString)
  		openLabel: 'VM Statistics'!

Item was changed:
  ----- Method: TheWorldMenu>>addSaveAndQuit: (in category 'construction') -----
  addSaveAndQuit: menu
  	self
  		fillIn: menu
  		from: {
  			nil.
+ 			{ 'save'. { Smalltalk. #saveSession }. 'save the current version of the image on disk' }.
+ 			{ 'save as...'. { Smalltalk. #saveAs }. 'save the current version of the image on disk under a new name.' }.
+ 			{ 'save as new version'. { Smalltalk. #saveAsNewVersion }. 'give the current image a new version-stamped name and save it under that name on disk.' }.
- 			{ 'save'. { SmalltalkImage current. #saveSession }. 'save the current version of the image on disk' }.
- 			{ 'save as...'. { SmalltalkImage current. #saveAs }. 'save the current version of the image on disk under a new name.' }.
- 			{ 'save as new version'. { SmalltalkImage current. #saveAsNewVersion }. 'give the current image a new version-stamped name and save it under that name on disk.' }.
  			{ 'save and quit'. { self. #saveAndQuit }. 'save the current image on disk, and quit out of Squeak.' }.
  			{ 'quit'. { self. #quitSession }. 'quit out of Squeak.' }
  		}!

Item was changed:
  ----- Method: TheWorldMenu>>helpMenu (in category 'construction') -----
  helpMenu
          "Build the help menu for the world."
          |  menu |
  
    	menu := self menu: 'help...'.
  
          self fillIn: menu from:
          {
+                 {'about this system...'. {Smalltalk. #aboutThisSystem}. 'current version information.'}.
-                 {'about this system...'. {SmalltalkImage current. #aboutThisSystem}. 'current version information.'}.
                  {'update code from server'. {Utilities. #updateFromServer}. 'load latest code updates via the internet'}.
                  {'preferences...'. {self. #openPreferencesBrowser}. 'view and change various options.'}.
  			 {'set language...' . {Project. #chooseNaturalLanguage}. 'choose the language in which tiles should be displayed.'} .
                  nil.
                 {'command-key help'. { Utilities . #openCommandKeyHelp}. 'summary of keyboard shortcuts.'}
  	}.
  
  	self addGestureHelpItemsTo: menu.
  
  	self fillIn: menu from:
  	{
                  {'world menu help'. { self . #worldMenuHelp}. 'helps find menu items buried in submenus.'}.
                          "{'info about flaps' . { Utilities . #explainFlaps}. 'describes how to enable and use flaps.'}."
                  {'font size summary' . { TextStyle . #fontSizeSummary}.  'summary of names and sizes of available fonts.'}.
                  {'useful expressions' . { Utilities . #openStandardWorkspace}. 'a window full of useful expressions.'}.
  			 {'annotation setup...' . { Preferences . #editAnnotations}. 'Click here to get a little window that will allow you to specify which types of annotations, in which order, you wish to see in the annotation panes of browsers and other tools'}.
  			nil.
                  {'graphical imports' . { Imports default . #viewImages}.  'view the global repository called ImageImports; you can easily import external graphics into ImageImports via the FileList'}.
                  {'standard graphics library' . { ScriptingSystem . #inspectFormDictionary}.  'lets you view and change the system''s standard library of graphics.'}.
                  nil.
                  {'telemorphic...' . {self. #remoteDo}.  'commands for doing multi-machine "telemorphic" experiments'}.
                  {#soundEnablingString . { Preferences . #toggleSoundEnabling}. 'turning sound off will completely disable Squeak''s use of sound.'}.
                  nil.
  
                  {'set author initials...' . { Utilities . #setAuthorInitials }. 'supply initials to be used to identify the author of code and other content.'}.
                  {'vm statistics' . { self . #vmStatistics}.  'obtain some intriguing data about the vm.'}.
  			  nil.
  			  {'purge undo records' . { CommandHistory . #resetAllHistory }. 'save space by removing all the undo information remembered in all projects.'}.
                  {'space left' . { self . #garbageCollect}. 'perform a full garbage-collection and report how many bytes of space remain in the image.'}.
          }.
  
  	^menu
  
  !

Item was changed:
  ----- Method: TheWorldMenu>>quitSession (in category 'commands') -----
  quitSession
  
+ 	Smalltalk
- 	SmalltalkImage current
  		snapshot: (UserDialogBoxMorph 
  			confirm: 'Save changes before quitting?' translated 
  			orCancel: [^ self]
  			at: World center)
  		andQuit: true!

Item was changed:
  ----- Method: TheWorldMenu>>saveAndQuit (in category 'commands') -----
  saveAndQuit
  
+ 	Smalltalk snapshot: true andQuit: true!
- 	SmalltalkImage current snapshot: true andQuit: true!

Item was changed:
  ----- Method: TheWorldMenu>>vmStatistics (in category 'commands') -----
  vmStatistics
  	"Open a string view on a report of vm statistics"
  
+ 	(StringHolder new contents: Smalltalk vmStatisticsReportString)
- 	(StringHolder new contents: SmalltalkImage current  vmStatisticsReportString)
  		openLabel: 'VM Statistics'!