[Newbies] OBMultipleSelectionBrowser dragging methods
ch.l.ngre at online.de
Fri Jan 4 12:53:33 UTC 2008
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
| 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.
adding the last line here fixes the problem. I have no experience at all so I
might well be overlooking some undesirable side effects...
More information about the Beginners