Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.678.mcz
==================== Summary ====================
Name: Morphic-topa.678 Author: topa Time: 21 August 2013, 4:37:34.207 pm UUID: 22a6ae09-5f3e-47c1-a4b8-0bf5d7f2d24e Ancestors: Morphic-fbs.677
Fix alarm triggering to actually trigger all pending alarms. Pointed out by Bob Arning and John McKeon
=============== Diff against Morphic-fbs.677 ===============
Item was changed: ----- Method: WorldState>>triggerAlarmsBefore: (in category 'alarms') ----- triggerAlarmsBefore: nowTime "Trigger all pending alarms that are to be executed before nowTime." | triggered | lastAlarmTime ifNil:[lastAlarmTime := nowTime]. (nowTime < lastAlarmTime or:[nowTime - lastAlarmTime > 10000]) ifTrue:[self adjustAlarmTimes: nowTime]. triggered := OrderedCollection new. self lockAlarmsDuring: [:pending | + [pending isEmpty not and: [pending first scheduledTime < nowTime]] + whileTrue: [triggered add: pending removeFirst]]. - (pending isEmpty not and: [pending first scheduledTime < nowTime]) - ifTrue: [triggered add: pending removeFirst]]. triggered do: [:alarm | alarm value: nowTime]. lastAlarmTime := nowTime.!
packages@lists.squeakfoundation.org