[squeak-dev] The Trunk: Morphic-eem.723.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Apr 22 17:10:56 UTC 2014
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!
More information about the Squeak-dev
mailing list
|