Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1153.mcz
==================== Summary ====================
Name: Morphic-ul.1153 Author: ul Time: 31 May 2016, 1:34:24.714285 am UUID: d9b6d326-3f36-44a7-9810-974b46978e89 Ancestors: Morphic-ul.1152
Make MorphicAlarmQueue not be a subclass of Heap. Use encapsulation instead. Part #3.
=============== Diff against Morphic-ul.1152 ===============
Item was removed: - ----- Method: MorphicAlarmQueue>>detect:ifNone: (in category 'migration') ----- - detect: aBlock ifNone: noneBlock - - ^heap detect: aBlock ifNone: noneBlock!
Item was removed: - ----- Method: MorphicAlarmQueue>>do: (in category 'migration') ----- - do: aBlock - - ^heap do: aBlock!
Item was removed: - ----- Method: MorphicAlarmQueue>>first (in category 'migration') ----- - first - - ^heap first!
Item was removed: - ----- Method: MorphicAlarmQueue>>isEmpty (in category 'migration') ----- - isEmpty - - ^heap isEmpty!
Item was changed: ----- Method: MorphicAlarmQueue>>postCopy (in category 'copying') ----- postCopy
super postCopy. + mutex := Mutex new. heap := heap copy!
Item was removed: - ----- Method: MorphicAlarmQueue>>remove: (in category 'migration') ----- - remove: anObject - - ^heap remove: anObject!
Item was changed: ----- Method: MorphicAlarmQueue>>removeAlarmWithReceiver:selector: (in category 'removing') ----- removeAlarmWithReceiver: receiver selector: selector
+ ^heap - heap detect: [ :each | each receiver == receiver and: [ each selector == selector ] ] ifFound: [ :found | heap remove: found ] ifNone: [ ]!
Item was removed: - ----- Method: MorphicAlarmQueue>>removeFirst (in category 'migration') ----- - removeFirst - - ^heap removeFirst!