Eliot Miranda uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-eem.724.mcz

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

Name: Morphic-eem.724
Author: eem
Time: 6 May 2014, 2:08:42.514 pm
UUID: ac55df18-9658-41ea-9c84-8a0e38a3064a
Ancestors: Morphic-eem.723

Fix displaying the project name in the middle of the docking bar.

=============== Diff against Morphic-eem.723 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>fillDockingBar: (in category 'construction') -----
  fillDockingBar: aDockingBar 
  	"Private - fill the given docking bar"
  	
  	aDockingBar addSpace: 6.
  	self menusOn: aDockingBar.
  	aDockingBar addSpacer.
+ 	self projectNameOn: aDockingBar.
+ 	aDockingBar addSpacer.
  	self rightSideOn: aDockingBar.
  	aDockingBar
  		setProperty: #mainDockingBarTimeStamp 
  		toValue: self class timeStamp.!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') -----
  menusOn: aDockingBar
  
  	self
  		squeakMenuOn: aDockingBar;
  		projectsMenuOn: aDockingBar;
  		toolsMenuOn: aDockingBar;
  		appsMenuOn: aDockingBar;
  		extrasMenuOn: aDockingBar;
  		windowsMenuOn: aDockingBar;
+ 		helpMenuOn: aDockingBar!
- 		helpMenuOn: aDockingBar..
- 	aDockingBar addSpacer.
- 	self projectNameOn: aDockingBar.
- 	aDockingBar addSpacer!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>projectNameOn: (in category 'right side') -----
  projectNameOn: aDockingBar
  	| morph |
  	morph := StringMorph contents: ''.
  	morph setProperty: #projectNameMorph toValue: #projectNameMorph.
+ 	aDockingBar addMorphBack: morph.
+ 	self labelIfNeeded: aDockingBar!
- 	aDockingBar addMorphBack: morph!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>updateIfNeeded: (in category 'private') -----
  updateIfNeeded: aDockingBar 
  	"Update the given docking bar if needed"
  	| timeStamp |
  	timeStamp := aDockingBar
  					valueOfProperty: #mainDockingBarTimeStamp
  					ifAbsent: [].
+ 	timeStamp ~= self class timeStamp
+ 		ifTrue:
+ 			[aDockingBar
+ 				 release;
+ 				 removeAllMorphs.
+ 			 self fillDockingBar: aDockingBar]
+ 		ifFalse:
+ 			[self labelIfNeeded: aDockingBar]!
- 	timeStamp ~= self class timeStamp ifTrue:
- 		[aDockingBar
- 			 release;
- 			 removeAllMorphs.
- 		 self fillDockingBar: aDockingBar]!