The Trunk: Morphic-topa.678.mcz

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.!