[Newbies] OBMultipleSelectionBrowser dragging methods

[Christoph Lamprecht]

Sorry, this should start a new thread:


Hello,

playing with 3.10 beta #7159 I found that OBMultipleSelectionBrowser does not 
allow methods to be dragged.
I might be missing something, but to me it seems, that in

OBPluggableListMorphOfMany>>mouseDown

mouseDown: evt
     | selectors row oldIndex oldVal |
     evt yellowButtonPressed  "First check for option (menu) click"
         ifTrue: [^ self yellowButtonActivity: evt shiftPressed].
     row _ self rowAtLocation: evt position.
     row = 0  ifTrue: [^super mouseDown: evt].
     "self dragEnabled ifTrue: [aMorph highlightForMouseDown]."

     model okToChange ifFalse: [^ self].  "No change if model is locked"


     self mouseDownRow: row.
[rest snipped]

adding the last line here fixes the problem. I have no experience at all so I 
might well be overlooking some undesirable side effects...


Also: If I wanted to write a test case for this, where would I start?? Are there 
  methods to generate mouse events?


Christoph