Bad smell in BlEvent class-side API and class references

[tinchodias]

There is API in class-side of BlEvent to dispatch instances of event. At least, I wonder why this is class-side and not instance-side:

References to the class to make use of such API:

In BlEvent>>#fire:

fire
	BlEvent fireEvent: self

In BlBaseEventProcessor>>#fireEvent::

fireEvent: anEvent
	^ BlEvent fireEvent: anEvent

In BlBaseEventProcessor>>#fireEvent:from::

fireEvent: anEvent from: aTopEventTarget
	^ BlEvent fireEvent: anEvent from: aTopEventTarget

In BlDevScripterFireEventStep>>#playOn::

playOn: aScripter
	| aTarget |
	aTarget := self target findTargetStartingInScripter: aScripter.
	self position updateEventPosition: self event in: aTarget.
	BlEvent fireEvent: self event target: aTarget.
	aScripter pulse.

In BlDevScripterShortcutStep>>#playOn::

playOn: aScripter
	| aTarget aBuffer anEvent |
	aTarget := self target findTargetStartingInScripter: aScripter.
	
	aBuffer := BlKeyboardBuffer new.
	combination asBufferKeys do: [ :eachKeyboardKey | aBuffer add: (BlKeyDownEvent new key: eachKeyboardKey) ].

	anEvent := BlShortcutEvent new
		buffer: aBuffer.

	BlEvent fireEvent: anEvent target: aTarget.

	aScripter pulse