'From Cuis 1.0 of 28 November 2009 [latest update: #337] on 7 January 2010 at 2:21:18 pm'!

!InputSensor methodsFor: 'user interrupts' stamp: 'jmv 1/7/2010 14:21'!
userInterruptWatcher
	"Wait for user interrupts and open a notifier on the active process when one occurs."

	[true] whileTrue: [
		InterruptSemaphore wait.
		Display deferUpdates: false.
		SoundService defaultOrNil ifNotNil: [ :ss | ss shutDown ].
		Smalltalk handleUserInterrupt]
! !

