'From Cuis 1.0 of 4 September 2009 [latest update: #290] on 18 September 2009 at 12:36:28 am'!
Smalltalk renameClassNamed: #EventManager as: #ActiveModel!

!Object methodsFor: 'events-accessing' stamp: 'jmv 9/18/2009 00:32'!
actionMap

	^ActiveModel actionMapFor: self! !

!Object methodsFor: 'events-accessing' stamp: 'jmv 9/18/2009 00:32'!
updateableActionMap

	^ActiveModel updateableActionMapFor: self! !

!Object methodsFor: 'events-removing' stamp: 'jmv 9/18/2009 00:32'!
releaseActionMap

	ActiveModel releaseActionMapFor: self! !


!Object class methodsFor: 'class initialization' stamp: 'jmv 9/18/2009 00:33'!
flushEvents
	"Object flushEvents"

	ActiveModel flushEvents. ! !


!ActiveModel class methodsFor: 'initialize-release' stamp: 'jmv 9/18/2009 00:33'!
flushEvents
	"Object flushEvents"
	| msgSet |
	self actionMaps keysAndValuesDo:[:rcvr :evtDict| rcvr ifNotNil:[
		"make sure we don't modify evtDict while enumerating"
		evtDict keys do:[:evtName|
			msgSet _ evtDict at: evtName ifAbsent:[nil].
			(msgSet == nil) ifTrue:[rcvr removeActionsForEvent: evtName]]]].
	ActiveModel actionMaps finalizeValues. ! !

