'From Pharo0.1 of 16 May 2008 [Latest update: #10289] on 23 April 2009 at 12:28:44 pm'!

!InputEventFetcher methodsFor: 'private' stamp: 'sig 4/23/2009 12:21'!
eventHandlers
	^eventHandlers ifNil: [eventHandlers := IdentitySet new]! !


!InputEventFetcher class methodsFor: 'class initialization' stamp: 'sig 4/23/2009 12:25'!
install
	"InputEventFetcher install"
	| handlers |
	Smalltalk addToStartUpList: InputEventFetcher after: Cursor.
	Smalltalk addToShutDownList: InputEventFetcher after: Form.

	Default ifNotNil: [ 
		handlers := Default eventHandlers.
		Default shutdown. 
	].
	Default := self new.
	handlers ifNotNil: [ 
		handlers do: [:each | 
			Default registerHandler: each ]].
	Default startUp
! !