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!