[Pkg] The Trunk: Morphic-cmm.532.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-cmm.532
Author: cmm
Time: 4 May 2011, 1:08:33.496 pm
UUID: 4bdb61ff-79aa-4553-82fb-0642c8b1d6cf
Ancestors: Morphic-cmm.531

Release the docking-bar _Morph_, not the domain object.

=============== Diff against Morphic-cmm.531 ===============

Item was changed:
  ----- Method: MorphicProject>>dockingBar: (in category 'docking bars support') -----
  dockingBar: aTheWorldMainDockingBar 
- 	(self
- 		projectParameterAt: #dockingBar
- 		ifAbsent: [  ]) ifNotNilDo:
- 		[ : dockingBar | dockingBar == aTheWorldMainDockingBar ifFalse: [ dockingBar release ] ].
  	self
  		projectParameterAt: #dockingBar
  		put: aTheWorldMainDockingBar.
  	self isCurrentProject ifTrue: [ TheWorldMainDockingBar instance: aTheWorldMainDockingBar ]!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>updateIfNeeded: (in category 'private') -----
  updateIfNeeded: aDockingBar 
+ 	"Update the given docking bar if needed"
- "Update the given docking bar if needed"
  	| timeStamp |
  	timeStamp := aDockingBar
+ 		valueOfProperty: #mainDockingBarTimeStamp
+ 		ifAbsent: [ ^ self ].
+ 	timeStamp = self class timeStamp ifTrue: [ ^ self ].
- 				valueOfProperty: #mainDockingBarTimeStamp
- 				ifAbsent: [^ self].
- 	timeStamp = self class timeStamp
- 		ifTrue: [^ self].
  	""
+ 	aDockingBar
+ 		 release ;
+ 		 removeAllMorphs.
- 	aDockingBar removeAllMorphs.
  	self fillDockingBar: aDockingBar!