[Pkg] The Trunk: Morphic-eem.723.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-eem.723
Author: eem
Time: 22 April 2014, 10:09:53.873 am
UUID: 7c5e4a53-a343-43cb-bf37-bc67721e2b85
Ancestors: Morphic-dtl.722

Make the docking bar in sub-projects display the project name.

=============== Diff against Morphic-dtl.722 ===============

Item was added:
+ (PackageInfo named: 'Morphic') preamble: 'TheWorldMainDockingBar setTimeStamp'!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>createDockingBar (in category 'construction') -----
  createDockingBar
  	"Create a docking bar from the receiver's representation"
  	
  	| dockingBar |
  	dockingBar := DockingBarMorph new
  		adhereToTop;
  		color: Preferences menuColor;
  		gradientRamp: self gradientRamp;
  		autoGradient: ColorTheme current dockingBarAutoGradient;
  		borderWidth: 0.
  	self fillDockingBar: dockingBar.
+ 	self labelIfNeeded: dockingBar.
  	^ dockingBar!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>labelIfNeeded: (in category 'private') -----
+ labelIfNeeded: aDockingBar 
+ 	"Label the given docking bar with the project name, if needed"
+ 	(aDockingBar submorphWithProperty: #projectNameMorph)
+ 		contents: (Project current isTopProject ifTrue: [''] ifFalse: [Project current name]);
+ 		fitContents!

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..
+ 	aDockingBar addSpacer.
+ 	self projectNameOn: aDockingBar.
+ 	aDockingBar addSpacer!
- 		helpMenuOn: aDockingBar.!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>projectNameOn: (in category 'right side') -----
+ projectNameOn: aDockingBar
+ 	| morph |
+ 	morph := StringMorph contents: ''.
+ 	morph setProperty: #projectNameMorph toValue: #projectNameMorph.
+ 	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]!
- 		valueOfProperty: #mainDockingBarTimeStamp
- 		ifAbsent: [ ^ self ].
- 	timeStamp = self class timeStamp ifTrue: [ ^ self ].
- 	""
- 	aDockingBar
- 		 release ;
- 		 removeAllMorphs.
- 	self fillDockingBar: aDockingBar!