Collapse any duplicated events when flusing the event queue.

src/Bloc/BlEvent.class.st

@@ -151,6 +151,13 @@ BlEvent >> bubblingTarget: aTBlEventTarget [
 	currentTarget := aTBlEventTarget
 ]
 
+{ #category : #accessing }
+BlEvent >> canBeCollapsed [
+	"Whether I can be skipped in case there's too many of myself queued."
+
+	^ false
+]
+
 { #category : #testing }
 BlEvent >> canBePropagated [
 	<return: #Boolean>

src/Bloc/BlHostEventFetcher.class.st

@@ -11,7 +11,7 @@ Class {
 		'eventQueue',
 		'hostSpace'
 	],
-	#category : 'Bloc-Universe - Host'
+	#category : #'Bloc-Universe - Host'
 }
 
 { #category : #accessing }
@@ -35,11 +35,19 @@ BlHostEventFetcher >> enqueueEvent: aBlEvent [
 
 { #category : #'event processing' }
 BlHostEventFetcher >> fetchedEventsDo: aBlock [
-	"Flush event queue and evaluate a given block with every queued event as argument"
-	| theEvents |
+	"Flush event queue and evaluate a given block with every queued event as argument, also
+	collapses any events that can be replaced by newer ones."
 
+	| theEvents |
 	theEvents := LinkedList new.
-	eventQueue flush: [ :anEvent | theEvents add: anEvent ].
+	eventQueue
+		flush: [ :anEvent | 
+			| theLastEvent |
+			(anEvent canBeCollapsed
+				and: [ theEvents isNotEmpty
+						and: [ (theLastEvent := theEvents last) class = anEvent class ] ])
+				ifTrue: [ theEvents at: theEvents size put: anEvent ]
+				ifFalse: [ theEvents add: anEvent ] ].
 	theEvents do: aBlock
 ]
 

src/Bloc/BlMouseMoveEvent.class.st

@@ -49,6 +49,11 @@ BlMouseMoveEvent class >> secondary [
 	^ self button: BlMouseButton secondary
 ]
 
+{ #category : #accessing }
+BlMouseMoveEvent >> canBeCollapsed [
+	^ true
+]
+
 { #category : #accessing }
 BlMouseMoveEvent >> delta [
 	^ delta