Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.550.mcz

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

Name: Morphic-cmm.550
Author: cmm
Time: 21 June 2011, 4:48:23.406 pm
UUID: f355eac5-f4b3-4324-b2c9-c6571e6e348c
Ancestors: Morphic-cmm.549, Morphic-cbr.458, Morphic-spd.469, Morphic-spd.507

Integrated Morphic-cbr.458, Morphic-spd.469, and Morphic-spd.507.

=============== Diff against Morphic-cmm.549 ===============

Item was changed:
  ----- Method: LineMorph class>>from:to:color:width: (in category 'instance creation') -----
  from: startPoint to: endPoint color: lineColor width: lineWidth
  
+ 	^ self vertices: {startPoint. endPoint}
- 	^ PolygonMorph vertices: {startPoint. endPoint}
  			color: Color black borderWidth: lineWidth borderColor: lineColor!

Item was changed:
  ----- Method: TextMorph>>autoFit: (in category 'accessing') -----
  autoFit: trueOrFalse
+ 	"Whether I automatically adjust my size to fit text as it changes"
+ 	
  	self isAutoFit = trueOrFalse ifTrue: [^ self].
+ 	self autoFitOnOff.!
- 	self autoFitOnOff!

Item was changed:
  ----- Method: TextMorph>>wrapFlag: (in category 'accessing') -----
  wrapFlag: aBoolean
+ 	"Whether contained text will adjust its bounds as I change shape:
+ 		|	wrapFlag 	|		TextMorph grows			|		TextMorph shrinks 	|
+ 		|		true 		| wrapped lines fill new space	|	long lines wrap to fit 		|
+ 		|		false 		|   wrapped lines stay same 		|	long lines are cut off 		|"
- 	"Change whether contents are wrapped to the container."
  
  	aBoolean == wrapFlag ifTrue: [^ self].
  	wrapFlag := aBoolean.
  	self composeToBounds!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'submenu - extras') -----
  extrasMenuOn: aDockingBar 
  
  	aDockingBar addItem: [ :it|
  		it 	contents: 'Extras' translated;
  			addSubMenu: [:menu|
  				menu addItem:[:item|
  					item
  						contents: 'Recover Changes' translated;
  						help: 'Recover changes after a crash' translated;
  						icon: MenuIcons smallHelpIcon;
  						target: ChangeList;
  						selector: #browseRecentLog].
  				menu addLine.
  				menu addItem:[:item|
  					item
  						contents: 'Window Colors' translated;
  						help: 'Changes the window color scheme' translated;
  						addSubMenu:[:submenu| self windowColorsOn: submenu]].
  				menu addItem:[:item|
  					item
  						contents: 'Set Author Initials' translated;
  						help: 'Sets the author initials' translated;
  						target: Utilities;
  						selector: #setAuthorInitials].
  				menu addItem:[:item|
  					item
  						contents: 'Restore Display (r)' translated;
  						help: 'Redraws the entire display' translated;
  						target: World;
  						selector: #restoreMorphicDisplay].
  				menu addItem:[:item|
  					item
  						contents: 'Rebuild Menus' translated;
  						help: 'Rebuilds the menu bar' translated;
  						target: TheWorldMainDockingBar;
  						selector: #updateInstances].
  				menu addItem:[:item|
  					item
  						contents: 'Toggle Fullscreen' translated;
  						help: 'Switches fullscreen mode on and off' translated;
  						target: Project current;
  						selector: #toggleFullScreen].
  				menu addLine.
  				menu addItem:[:item|
  					item
  						contents: 'Start Profiler' translated;
  						help: 'Starts the profiler' translated;
  						target: self;
  						selector: #startMessageTally].
  				menu addItem:[:item|
  					item
  						contents: 'Collect Garbage' translated;
  						help: 'Run the garbage collector and report space usage' translated;
  						target: Utilities;
  						selector: #garbageCollectAndReport].
  				menu addItem:[:item|
  					item
  						contents: 'Purge Undo Records' translated;
  						help: 'Save space by removing all the undo information remembered in all projects' translated;
  						target: CommandHistory;
  						selector: #resetAllHistory].
  				menu addItem:[:item|
  					item
  						contents: 'VM statistics' translated;
  						help: 'Virtual Machine information' translated;
  						target: self;
  						selector: #vmStatistics].
  				menu addLine.
  				menu addItem:[:item|
  					item
  						contents: 'Graphical Imports' translated;
  						help: 'View the global repository called ImageImports; you can easily import external graphics into ImageImports via the FileList' translated;
  						target: (Imports default);
  						selector: #viewImages].
  				menu addItem:[:item|
  					item
  						contents: 'Standard Graphics Library' translated;
  						help: 'Lets you view and change the system''s standard library of graphics' translated;
  						target: ScriptingSystem;
  						selector: #inspectFormDictionary].
  				menu addItem:[:item|
  					item
  						contents: 'Annotation Setup' translated;
  						help: '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' translated;
  						target: Preferences;
  						selector: #editAnnotations].
+ 				menu addItem:[:item|
+ 					item
+ 						contents: 'Browse My Changes' translated;
+ 						help: 'Browse all of my changes since the last time #condenseSources was run.' translated;
+ 						target: SystemNavigation new;
+ 						selector: #browseMyChanges].
  			] ]!

Item was changed:
  ----- Method: TheWorldMenu>>changesMenu (in category 'construction') -----
  changesMenu
          "Build the changes menu for the world."
  
          | menu |
          menu := self menu: 'changes...'.
          self fillIn: menu from: {
                  { 'file out current change set' . { ChangeSet current . #verboseFileOut}.
                                  'Write the current change set out to a file whose name reflects the change set name and the current date & time.'}.
                  { 'create new change set...' . { ChangeSet . #newChangeSet}. 'Create a new change set and make it the current one.'}.
                  { 'browse changed methods' . { ChangeSet  . #browseChangedMessages}.  'Open a message-list browser showing all methods in the current change set'}.
                  { 'check change set for slips' . { self  . #lookForSlips}.
                                  'Check the current change set for halts, references to the Transcript, etc., and if any such thing is found, open up a message-list browser detailing all possible slips.'}.
  
                  nil.
                  { 'simple change sorter' . {self. #openChangeSorter1}.  'Open a 3-paned changed-set viewing tool'}.
                  { 'dual change sorter' . {self. #openChangeSorter2}.
                                  'Open a change sorter that shows you two change sets at a time, making it easy to copy and move methods and classes between them.'}.
                 { 'find a change sorter (C)' . { #myWorld . #findAChangeSorter: }. 'Brings an open change sorter to the front, creating one if necessary, and makes it the active window'}.
                  nil.
                  { 'browse recent submissions (R)' . { Utilities . #browseRecentSubmissions}.
                                  'Open a new recent-submissions browser.  A recent-submissions browser is a message-list browser that shows the most recent methods that have been submitted.  If you submit changes within that browser, it will keep up-to-date, always showing the most recent submissions.'}.
+ 			{ 'browse my changes' . { SystemNavigation new . #browseMyChanges }.
+ 					'Browse all of my changes since the last time #condenseSources was run.'}.
- 
  			nil.
                  { 'recently logged changes...' . { self . #browseRecentLog}.'Open a change-list browser on the latter part of the changes log.  You can use this browser to recover logged changes which were not saved in your image, in the event of a crash or other interruption.'}.
  
                  { 'recent log file...' . { Smalltalk . #writeRecentToFile}.
                                  'Create a file holding the logged changes (going as far back as you wish), and open a window on that file.'}.
  
                  nil.
                  { 'save world as morph file' . {self. #saveWorldInFile}. 'Save a file that, when reloaded, reconstitutes the current World.'}.
                  nil.
          }.
          ^ menu!