[Newbies] OBMultipleSelectionBrowser dragging methods
Ch Lamprecht
ch.l.ngre at online.de
Fri Jan 4 12:53:33 UTC 2008
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...
Christoph
More information about the Beginners
mailing list