BlSpaceResizedEvent weird behavior

[tinchodias]

With BlOSWindowSDL2Host, the event is dispatched twice when the cursor drags the border:

Code:

queue := WaitfreeQueue new.

space := BlSpace new.
space
    addEventHandlerOn: BlSpaceResizedEvent
    do: [ :evt | queue nextPut: evt ].
space useSDL2Host.
space show.

events := OrderedCollection new.
queue flush: [ :anEvent | events add: anEvent ]. events.

[tinchodias]

However, the same event is not announced when size changes due to BlSpace>>extent::

Code:

queue := WaitfreeQueue new.

space := BlSpace new.
space
    addEventHandlerOn: BlSpaceResizedEvent
    do: [ :evt | queue nextPut: evt ].
space useSDL2Host.
space show.

space extent: 400 asPoint.

events := OrderedCollection new.
queue flush: [ :anEvent | events add: anEvent ]. events.

[tinchodias]

EDIT: this doesn't happen anymore after #614

MorphicWindow host dispatches 3 BlSpaceResizedEvent only on show:

code:

queue := WaitfreeQueue new.

space := BlSpace new.
space
    addEventHandlerOn: BlSpaceResizedEvent
    do: [ :evt | queue nextPut: evt ].
space useMorphicHost.
space show.

events := OrderedCollection new.
queue flush: [ :anEvent | events add: anEvent ]. events.

[tinchodias]

This report is affected by the recently merged https://github.com/pharo-graphics/Bloc/pull/614