[squeak-dev] The Trunk: Morphic-cmm.532.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed May 4 18:10:17 UTC 2011
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!
More information about the Squeak-dev
mailing list
|