'From Squeakland-OLPC of 3 September 2008 [Letztes Update: #2126] on 5 September 2008 at 4:17:42 pm'!
"Change Set:		fixDnD-bf
Date:			5 September 2008
Author:			Bert Freudenberg

Do not flush drag-and-drop events (fixes double-click project to start)"!

!EventSensor methodsFor: 'private' stamp: 'bf 9/5/2008 15:54'!
isDandDEvent: buf
	^ (buf at: 1) = EventTypeDragDropFiles! !

!EventSensor methodsFor: 'private' stamp: 'bf 9/5/2008 16:17'!
flushNonKbdEvents
	| dndEvents |
	eventQueue ifNil: [^ self].
	dndEvents := eventQueue flushAllSuchThat:
		[:buf | self isDandDEvent: buf].
	eventQueue flushAllSuchThat:
		[:buf | (self isKbdEvent: buf) not].
	dndEvents do:
		[:buf | eventQueue nextPut: buf]! !