The Trunk: Morphic-cmm.400.mcz

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

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

Name: Morphic-cmm.400
Author: cmm
Time: 27 March 2010, 7:19:35.033 pm
UUID: 5c9259f0-38b9-4981-9faf-b9daff0fff19
Ancestors: Morphic-cmm.390, Morphic-nice.399

Added help... back to the world menu.  If we want to clean up the World menu, we should do something that allows both it _and_ the docking-bar menu to be constructed from one unified place, so that changing that place affects both menus the same.

=============== Diff against Morphic-nice.399 ===============

Item was added:
+ ----- Method: TheWorldMainDockingBar>>accessoriesOn: (in category 'construction') -----
+ accessoriesOn: aDockingBarMorph
+ aDockingBarMorph
+ addSpace: 10 ;
+ addMorphBack:
+ (TextMorph new
+ height: aDockingBarMorph height ;
+ hResizing: #spaceFill ;
+ backgroundColor: aDockingBarMorph color slightlyDarker ;
+ contentsWrapped: '<replace with search term and press command+B>') ;
+ addSpace: 50 ;
+ addMorphBack:
+ (ClockMorph new
+ vResizing: #shrinkWrap ;
+ yourself)!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>clockOn: (in category 'construction') -----
+ clockOn: aDockingBar
+ aDockingBar addMorphBack: ClockMorph new!

Item was changed:
  ----- Method: TheWorldMenu>>addUtilities: (in category 'construction') -----
  addUtilities: menu
  Preferences simpleMenus ifFalse: [
  self
  fillIn: menu
  from: {
  { 'open...'. { self. #openWindow } }.
  { 'windows...'. { self. #windowsDo } }.
  { 'changes...'. { self. #changesDo } }
  } ].
  self
  fillIn: menu
  from: {
+ { 'help...'. { self. #helpDo }. 'puts up a menu of useful items for updating the system, determining what version you are running, and much else' }.
- " { 'help...'. { self. #helpDo }. 'puts up a menu of useful items for updating the system, determining what version you are running, and much else' }."
  { 'appearance...'. { self. #appearanceDo }. 'put up a menu offering many controls over appearance.' }
  }.
  Preferences simpleMenus ifFalse: [
  self
  fillIn: menu
  from: {
  { 'do...'. { Utilities. #offerCommonRequests }. 'put up an editible list of convenient expressions, and evaluate the one selected.' }
  } ]!

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