[squeak-dev] The Trunk: Morphic-cmm.400.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Mar 28 00:21:21 UTC 2010


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!




More information about the Squeak-dev mailing list