I manage to get two clicks when I try adding another event listener
to the D&D example. How do I combine them correctly?

addEventListener:
                (BlPluggableEventListener new
                                whenClickDo: [ :evt |
                                        |aSubmorph|
                                        aSubmorph := (BlRectangleView new
                                                color: Color red;
                                                extent: 20 @ 20) asMorph.
                                        aSubmorph translateBy: 50 @ 50.
                                        whiteContainer addMorph: aSubmorph];
                                yourself);
addEventListener: BlPasteUpEventListener new.

Stephan


Reply via email to