DNU stopStepping: on GtkMorphView

[RemiDufloer]

Pharo 10

Downloaded with:

Metacello new
        repository: 'github://pharo-spec/Spec-Gtk';
        baseline: 'SpecGtk';
        onConflict: [ :e | e useIncoming ];
        onUpgrade: [ :e | e useIncoming ];
        ignoreImage;
        load 

Open a calypso on a separate window doing:

presenter := SpPresenter new.
presenter application: (SpApplication new useBackend: #Gtk).
presenter layout: (SpBoxLayout newVertical 
    add: (morph := presenter newMorph);
    yourself).

morph morph: (ClyFullBrowserMorph onDefaultEnvironment).

presenter open.

Clicking somewhere (package, class, method) throws many DNU stopStepping: on GtkMorphView.

We are looking at how to solve it, it seems there are already versions of stopStepping with different number of arguments.

One solution could be to implement it as

stopStepping: aMorph selector: aSelector
	
	steps ifNil: [ ^ self ].
	
	(steps 
		removeAll: (steps 
			select:[ :each | 
				each receiver == aMorph ]))
		do: [ :each | each cancel ]*

However, this looks like repeated code with WorldMorph/WorldState